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

* simplify RegisterTinyHeapBlock by calling InternalTinyFreeMem directly,

Browse Source 
instead of FreeMem. We already do the alignments correctly, so going through
  FreeMem is no longer necessary.

git-svn-id: trunk@28428 -
This commit is contained in:
nickysn 2014-08-16 22:51:06 +00:00
parent d72e46f199
commit 7986d0c2ca
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/tinyheap.inc
View File

@ -271,8 +271,7 @@
Inc(AAddress,alignment_inc);
Dec(ASize,alignment_inc);
Dec(ASize,ASize mod TinyHeapAllocGranularity);
PTinyHeapMemBlockSize(AAddress)^ := ASize - SizeOf(TTinyHeapMemBlockSize);
FreeMem(Pointer(PTinyHeapMemBlockSize(AAddress) + 1), ASize - SizeOf(TTinyHeapMemBlockSize));
InternalTinyFreeMem(AAddress, ASize);
end;
const