e884388e717d613b4bc9e35e907f6af40fe94f37
1 /******************************************************************************
5 * $Date: 2007/05/30 01:33:08 $
8 * $Log: data_block_4.cpp,v $
9 * Revision 2.1 2007/05/30 01:33:08 hachti
10 * Corrected handling for FORTRAN data blocks 3 and 4: added endblock capability.
12 * Revision 2.0 2007-03-26 01:00:39 hachti
13 * *** empty log message ***
16 ******************************************************************************/
18 #include "data_block_4.hh"
21 *\brief Specialisation constructor.
23 data_block_4::data_block_4(data_block
& org
)
26 m_has_known_type
=false;
31 *\brief Describe the block.
32 *\return A vector of text lines describing this block.
34 vector
<string
> data_block_4::get_description(){
35 vector
<string
> result
;
36 result
.insert(result
.end()," "+get_typestring()+"End Jump, relative address");
40 /***************************************************************/
42 *\brief Determine if the block marks the end of an object
43 *\return true because this block is an end block.
45 bool data_block_4::is_endblock(){