pc-tools/ldc2/src/data_block_4.cpp

   1 /******************************************************************************
   2  *
   3  * LDC2 source code
   4  *
   5  * $Date: 2007/05/30 01:33:08 $
   6  * $Author: hachti $
   7  *
   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.
  11  *
  12  * Revision 2.0  2007-03-26 01:00:39  hachti
  13  * *** empty log message ***
  14  *
  15  *
  16  ******************************************************************************/
  17
  18 #include "data_block_4.hh"
  19
  20 /*!
  21  *\brief Specialisation constructor.
  22  */
  23 data_block_4::data_block_4(data_block & org)
  24   :data_block(org)
  25 {
  26   m_has_known_type=false;
  27 }
  28
  29
  30 /*!
  31  *\brief Describe the block.
  32  *\return A vector of text lines describing this block.
  33  */
  34 vector<string> data_block_4::get_description(){
  35   vector<string> result;
  36   result.insert(result.end(),"           "+get_typestring()+"End Jump, relative address");
  37   return result;
  38 }
  39
  40 /***************************************************************/
  41 /*!
  42  *\brief Determine if the block marks the end of an object
  43  *\return true because this block is an end block.
  44  */
  45 bool data_block_4::is_endblock(){
  46   return true;
  47 }
  48
  49
  50
  51