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

* SysTinyFreeMem: terminate with a runtime error if Addr is >= HeapPtr, since

Browse Source 
InternalTinyFreeMem cannot handle that (which causes heap corruption), and it
  indicates a bug in the program anyway, because the area between HeapPtr and
  HeapEnd is free (so it indicates either a double free or freeing an invalid
  pointer).

git-svn-id: trunk@28658 -
This commit is contained in:
nickysn 2014-09-14 14:47:13 +00:00
parent 3b205742b6
commit ad7111ad4d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/inc/tinyheap.inc
View File

@ -237,7 +237,7 @@
exit;
end;
if (TTinyHeapPointerArithmeticType(addr) < TTinyHeapPointerArithmeticType(HeapOrg)) or
(TTinyHeapPointerArithmeticType(addr) >= TTinyHeapPointerArithmeticType(HeapEnd)) then
(TTinyHeapPointerArithmeticType(addr) >= TTinyHeapPointerArithmeticType(HeapPtr)) then
HandleError(204);
sz := Align(FindSize(addr)+SizeOf(TTinyHeapMemBlockSize), TinyHeapAllocGranularity);