Browse Source

Best approach for AbstractMem on core

Albert Molina 3 years ago
parent
commit
389ef2fc43
1 changed files with 2 additions and 2 deletions
  1. 2 2
      src/core/UPCAbstractMem.pas

+ 2 - 2
src/core/UPCAbstractMem.pas

@@ -404,7 +404,7 @@ begin
   end;
   end;
   if (Not FAbstractMem.ReadOnly) and (AIsNewStructure) then begin
   if (Not FAbstractMem.ReadOnly) and (AIsNewStructure) then begin
     // Initialize struct
     // Initialize struct
-    FAbstractMem.ClearContent(False);
+    FAbstractMem.ClearContent(FAbstractMem.Is64Bytes);
     LZone := FAbstractMem.New( CT_HEADER_MIN_SIZE );  // Header zone
     LZone := FAbstractMem.New( CT_HEADER_MIN_SIZE );  // Header zone
     SetLength(LHeader,100);
     SetLength(LHeader,100);
     FillChar(LHeader[0],Length(LHeader),0);
     FillChar(LHeader[0],Length(LHeader),0);
@@ -482,7 +482,7 @@ var
   LIsNewStructure : Boolean;
   LIsNewStructure : Boolean;
 begin
 begin
   FlushCache;
   FlushCache;
-  FAbstractMem.ClearContent(False);
+  FAbstractMem.ClearContent(FAbstractMem.Is64Bytes);
   DoInit(LIsNewStructure);
   DoInit(LIsNewStructure);
 end;
 end;