paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 20:14:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* after r34939, it was not taken care of the extra storage needed for the size field, fixed, should fix #32875

Browse Source 
git-svn-id: trunk@37883 -
This commit is contained in:
florian 2017-12-30 16:38:13 +00:00
parent acf6fde3cf
commit d315d3cc96
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/embedded/heapmgr.pp
View File

@ -49,10 +49,10 @@ Unit heapmgr;
p, prev: PHeapBlock; p, prev: PHeapBlock;
AllocSize, RestSize: ptruint; AllocSize, RestSize: ptruint;
begin begin
if size<MinBlock then if size+sizeof(PtrUInt)<MinBlock then
AllocSize := MinBlock AllocSize := MinBlock
else else
AllocSize := align(size, sizeof(pointer)); AllocSize := align(size+sizeof(PtrUInt), sizeof(pointer));
p := Blocks; p := Blocks;
prev := nil; prev := nil;