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

* heap manager: do not access chunk after last one

Browse Source 
git-svn-id: trunk@7497 -
This commit is contained in:
micha 2007-05-28 15:06:19 +00:00
parent 9abb852d70
commit eaa598094e
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/heap.inc
View File

@ -1215,8 +1215,9 @@ begin
We first check if the blocks after the current block are free. If not then we
simply call getmem/freemem to get the new block }
pnext:=pmemchunk_var(pointer(pcurr)+currsize);
if ((pnext^.size and usedflag) = 0)
and ((pnext^.size and sizemask) > size-currsize) then
if ((chunksize and lastblockflag) = 0)
and ((pnext^.size and usedflag) = 0)
and ((pnext^.size and sizemask) >= size-currsize) then
begin
concat_two_blocks(pcurr,pnext);
currsize := pcurr^.size and sizemask;