소스 검색

Update UBlockChain.pas

PascalCoin 5 년 전
부모
커밋
48cd59697a
1개의 변경된 파일2개의 추가작업 그리고 0개의 파일을 삭제
  1. 2 0
      src/core/UBlockChain.pas

+ 2 - 0
src/core/UBlockChain.pas

@@ -3010,7 +3010,9 @@ begin
   if (Not forceSave) AND (Not TPCSafeBox.MustSafeBoxBeSaved(Bank.BlocksCount)) then exit; // No save
   Try
     Result := DoSaveBank;
+    {$IFnDEF USE_ABSTRACTMEM}
     FBank.SafeBox.CheckMemory;
+    {$ENDIF}
   Except
     On E:Exception do begin
       TLog.NewLog(lterror,Classname,'Error saving Bank: '+E.Message);