Explorar o código

Get SysGetMem to return immediately with Result=Nil if SysOSAlloc fails and RetrunNilIfGrowHeapFails is true

git-svn-id: trunk@36239 -
pierre %!s(int64=8) %!d(string=hai) anos
pai
achega
570f159e65
Modificáronse 1 ficheiros con 7 adicións e 4 borrados
  1. 7 4
      rtl/inc/tinyheap.inc

+ 7 - 4
rtl/inc/tinyheap.inc

@@ -163,10 +163,13 @@
                    end
                  else
                    begin
-              if ReturnNilIfGrowHeapFails then
-                Result := nil
-              else
-                 HandleError(203);
+                     if ReturnNilIfGrowHeapFails then
+                       begin
+                         Result := nil;
+                         exit;
+                       end
+                     else
+                       HandleError(203);
                    end;
               end;
             result := @PTinyHeapMemBlockSize(HeapPtr)[1];