Ver Fonte

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

Karoly Balogh há 4 anos atrás
pai
commit
c298c0e0da
1 ficheiros alterados com 1 adições e 1 exclusões
  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;