mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-27 18:27:19 +01:00
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:
parent
84e4b5258c
commit
570f159e65
@ -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];
|
||||
|
||||
Loading…
Reference in New Issue
Block a user