0023306: Failures reading some attributes of BinOcaf document

Saving OCAF attribute TColStd_Array1OfExtendedString to binary file is corrected (missing data field written).

diff --git a/src/BinMDataStd/BinMDataStd_ExtStringArrayDriver.cxx b/src/BinMDataStd/BinMDataStd_ExtStringArrayDriver.cxx
index ee70d9c72f94580d9f595f87f409f1505ddd7315..7befd9d2ab7c0a0bbe161e5f7c2b3caa57ba2ddd 100755 (executable)
--- a/src/BinMDataStd/BinMDataStd_ExtStringArrayDriver.cxx
+++ b/src/BinMDataStd/BinMDataStd_ExtStringArrayDriver.cxx
@@ -79,17 +79,21 @@ Standard_Boolean BinMDataStd_ExtStringArrayDriver::Paste
   }
 
   if(ok) {
-#ifdef DEB
-  //cout << "CurDocVersion = " << BinMDataStd::DocumentVersion() <<endl;
-#endif
+//#ifdef DEB
+//  cout << "CurDocVersion = " << BinMDataStd::DocumentVersion() <<endl;
+//#endif
     Standard_Boolean aDelta(Standard_False);
     if(BinMDataStd::DocumentVersion() > 2) {
       Standard_Byte aDeltaValue;
-      if (! (theSource >> aDeltaValue))
-       return Standard_False;
+         if (! (theSource >> aDeltaValue)) {
+//#ifdef DEB
+//      cout <<"DeltaValue = " << (Standard_Integer)aDeltaValue <<endl;
+//#endif
+           return Standard_False;
+         }
       else
        aDelta = (Standard_Boolean)aDeltaValue;
-    }
+       }
     anAtt->SetDelta(aDelta);
   }
   return ok;
@@ -113,4 +117,6 @@ void BinMDataStd_ExtStringArrayDriver::Paste
   theTarget << aFirstInd << aLastInd;
   for (Standard_Integer i = aFirstInd; i <= aLastInd; i ++)
     theTarget << anAtt->Value( i );
+
+  theTarget << (Standard_Byte)anAtt->GetDelta();
 }