Pārlūkot izejas kodu

rtl/osheap: fixed a dumb reversed condition in osheap/SysAllocMem()

Karoly Balogh 4 gadi atpakaļ
vecāks
revīzija
c298c0e0da
1 mainītis faili ar 1 papildinājumiem un 1 dzēšanām
  1. 1 1
      rtl/inc/osheap.inc

+ 1 - 1
rtl/inc/osheap.inc

@@ -79,7 +79,7 @@
     function SysAllocMem(size: ptruint): pointer;
     function SysAllocMem(size: ptruint): pointer;
       begin
       begin
         result := SysGetMem(size);
         result := SysGetMem(size);
-        if not assigned(result) then
+        if assigned(result) then
           FillChar(result^,SysMemSize(result),0);
           FillChar(result^,SysMemSize(result),0);
       end;
       end;