浏览代码

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

git-svn-id: trunk@36239 -
pierre 8 年之前
父节点
当前提交
570f159e65
共有 1 个文件被更改,包括 7 次插入4 次删除
  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];