paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-13 00:49:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* embedded heap manager takes care of ReturnNilIfGrowHeapFails

Browse Source 
git-svn-id: trunk@33070 -
This commit is contained in:
florian 2016-02-07 18:28:12 +00:00
parent 9b84581f4c
commit dfd261f2d6
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/embedded/heapmgr.pp
View File

@ -82,7 +82,12 @@ Unit heapmgr;
InternalFreemem(pointer(ptruint(p)+AllocSize), RestSize); InternalFreemem(pointer(ptruint(p)+AllocSize), RestSize);
end end
else else
Result := nil; begin
if ReturnNilIfGrowHeapFails then
Result := nil
else
RunError(203);
end;
end; end;
function GetAlignedMem(Size, Alignment: ptruint): pointer; function GetAlignedMem(Size, Alignment: ptruint): pointer;