瀏覽代碼

Memory leak fix on PCAbstractMem object

Pascal Coin 4 年之前
父節點
當前提交
98c367fca2
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      src/core/UPCAbstractMem.pas

+ 1 - 0
src/core/UPCAbstractMem.pas

@@ -545,6 +545,7 @@ begin
   FreeAndNil(FBufferBlocksHash);
   FreeAndNil(FAggregatedHashrate);
   FreeAndNil(FAccountsOrderedByUpdatedBlock);
+  FreeAndNil(FAccountsOrderedBySalePrice);
   if (FFileName<>'') And (FAbstractMem is TMem) And (Not FAbstractMem.ReadOnly) then begin
     LFile := TFileStream.Create(FFileName,fmCreate);
     try