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

* use P/TTinyHeapMemBlockSize in RegisterTinyHeapBlock as well

Browse Source 
git-svn-id: trunk@28248 -
This commit is contained in:
nickysn 2014-07-22 12:51:20 +00:00
parent 6f8a329b4c
commit 9a569b9e57
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/inc/tinyheap.inc
View File

@ -260,8 +260,8 @@
end;
if (ASize and 1) <> 0 then
Dec(ASize);
pptruint(AAddress)^ := ASize - SizeOf(ptruint);
FreeMem(pptruint(AAddress) + 1, ASize - SizeOf(ptruint));
PTinyHeapMemBlockSize(AAddress)^ := ASize - SizeOf(TTinyHeapMemBlockSize);
FreeMem(PTinyHeapMemBlockSize(AAddress) + 1, ASize - SizeOf(TTinyHeapMemBlockSize));
end;
const