Browse Source

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

Karoly Balogh 3 years ago
parent
commit
c298c0e0da
1 changed files with 1 additions and 1 deletions
  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;