X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=pc-tools%2Fldc2%2Fsrc%2Fdata_block_3.cpp;h=4fe735a13a63cf691d91ead56fdf56edd380e1a8;hb=7ced2dbeb1a104912fbdd041ce18b0e29a72d893;hp=3ae67a910b7b2370cf2536f28efb9052840ef892;hpb=798b0c1d967a7d8ac3c7a867d41bfa7b8e824048;p=h316.git

diff --git a/pc-tools/ldc2/src/data_block_3.cpp b/pc-tools/ldc2/src/data_block_3.cpp
index 3ae67a9..4fe735a 100644
--- a/pc-tools/ldc2/src/data_block_3.cpp
+++ b/pc-tools/ldc2/src/data_block_3.cpp
@@ -1,3 +1,20 @@
+/******************************************************************************
+ * 
+ * LDC2 source code
+ *
+ * $Date: 2007/05/30 01:33:08 $
+ * $Author: hachti $
+ *
+ * $Log: data_block_3.cpp,v $
+ * Revision 2.1  2007/05/30 01:33:08  hachti
+ * Corrected handling for FORTRAN data blocks 3 and 4: added endblock capability.
+ *
+ * Revision 2.0  2007-03-26 01:00:39  hachti
+ * *** empty log message ***
+ *
+ *
+ ******************************************************************************/
+ 
 #include "data_block_3.hh"
 
 /*!
@@ -5,7 +22,10 @@
  */
 data_block_3::data_block_3(data_block & org)
   :data_block(org)
-{}
+{
+  m_has_known_type=false;
+}
+
 
 /*!
  *\brief Describe the block.
@@ -17,6 +37,14 @@ vector<string> data_block_3::get_description(){
   return result;
 }
 
+/***************************************************************/
+/*!
+ *\brief Determine if the block marks the end of an object
+ *\return true because this block is an end block.
+ */
+bool data_block_3::is_endblock(){
+  return true;
+}