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

git-svn-id: trunk@36239 -
This commit is contained in:
pierre 2017-05-18 08:19:17 +00:00
parent 84e4b5258c
commit 570f159e65

View File

@ -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];