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

* fixed bug in SysTinyGetMem that caused heap corruption if the free block that's being allocated is followed tightly by an already allocated block

Browse Source 
git-svn-id: trunk@24520 -
This commit is contained in:
nickysn 2013-05-16 22:15:36 +00:00
parent 9312419ce8
commit f0ada1ccc5
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/inc/tinyheap.inc
View File

@ -71,7 +71,8 @@
pptruint(p)^ := size;
InternalTinyFreeMem(pointer(ptruint(p)+AllocSize), RestSize);
if RestSize > 0 then
InternalTinyFreeMem(pointer(ptruint(p)+AllocSize), RestSize);
end
else
Result := nil;