Browse Source

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

git-svn-id: trunk@36239 -
pierre 8 years ago
parent
commit
570f159e65
1 changed files with 7 additions and 4 deletions
  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];