paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 17:29:21 +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

1
rtl/inc/tinyheap.inc
View File

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