*** empty log message ***

[h316.git] / pc-tools / ldc2 / src / data_block_6.cpp

#include "data_block_6.hh"

/*!
 *\brief Specialisation constructor.
 */
data_block_6::data_block_6(data_block & org)
  :data_block(org)
{
  m_has_known_type=false;
}


/*!
 *\brief Describe the block.
 *\return A vector of text lines describing this block.
 */
vector<string> data_block_6::get_description(){
  vector<string> result;
  result.insert(result.end(),extract_label(3)+"     "+get_typestring()+"Subroutine or Common Block Definition");
  return result;
}

/***************************************************************/
/*!
 *\brief Get exported symbols.
 *\return A vector containing the symbol names exported by this
 *        block.
 */
vector<string> data_block_6::get_exported_symbols(){
  vector<string> result;
  string rs=extract_label(3);
  if (rs!="      ") result.insert(result.end(),rs);
  return result;
}