From: Nando D. <na...@us...> - 2004-09-16 11:38:18
|
Update of /cvsroot/instantobjects/Source/Brokers/NexusDb In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5797/Brokers/NexusDb Modified Files: InstantNexusDb.pas Log Message: Fixed inherited call chain in InternalBuildDatabase Index: InstantNexusDb.pas =================================================================== RCS file: /cvsroot/instantobjects/Source/Brokers/NexusDb/InstantNexusDb.pas,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** InstantNexusDb.pas 6 Aug 2004 14:47:47 -0000 1.3 --- InstantNexusDb.pas 16 Sep 2004 11:38:08 -0000 1.4 *************** *** 355,362 **** I: Integer; begin /// CodeSite.SendMsg('internal build db'); if not Assigned(Scheme) then Exit; - Scheme.BlobStreamFormat := BlobStreamFormat; //CB with Scheme do for I := 0 to Pred(TableMetadataCount) do --- 355,362 ---- I: Integer; begin + inherited; /// CodeSite.SendMsg('internal build db'); if not Assigned(Scheme) then Exit; with Scheme do for I := 0 to Pred(TableMetadataCount) do |