paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-17 13:39:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

* cleared TODO from the win16 global heap, regarding the value of FirstFreeOfs,

Browse Source 
when TotalFreeSpaceInBlock becomes 0. There's no new code needed to handle
  this in BP7 compatible way; added comment, which explains why.

git-svn-id: trunk@37678 -
This commit is contained in:
nickysn 2017-12-05 15:22:50 +00:00
parent 4e4a4a465b
commit d7b966c7eb
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/win16/glbheap.inc
View File

@ -123,7 +123,11 @@ circular linked list.
CurBlockP^.FirstFreeOfs:=Ofs(CurSubBlock^)+ASize;
end;
Dec(CurBlockP^.TotalFreeSpaceInBlock,ASize);
{ TODO: what is FirstFreeOfs if the entire block is allocated??? }
{ if TotalFreeSpaceInBlock becomes 0, then FirstFreeOfs
should also become 0, but that is already handled
correctly in the code above (in this case, by the
line 'CurBlockP^.FirstFreeOfs:=CurSubBlock^.Next',
so there's no need to set it explicitly here. }
exit;
end;
PrevSubBlock:=CurSubBlock;