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

* win16 global heap block ID field made a constant

Browse Source 
git-svn-id: trunk@37679 -
This commit is contained in:
nickysn 2017-12-05 15:29:38 +00:00
parent d7b966c7eb
commit 68121a7858
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/win16/glbheap.inc
View File

@ -25,10 +25,12 @@ such heap block starts with a header of type TGlobalHeapBlockHeader, which is
always located at offset 0 of the heap block segment. These heap blocks form a
circular linked list.
}
const
GlobalHeapBlockID=20564;
type
PGlobalHeapBlockHeader=^TGlobalHeapBlockHeader;far;
TGlobalHeapBlockHeader=record
ID: LongWord; { 20564 }
ID: LongWord; { =GlobalHeapBlockID }
FirstFreeOfs: Word;
Unknown: Word; { don't know what this is; seems to be 0 }
TotalFreeSpaceInBlock: Word;
@ -59,7 +61,7 @@ circular linked list.
HandleError(204);
with pb^ do
begin
ID:=20564;
ID:=GlobalHeapBlockID;
FirstFreeOfs:=SizeOf(TGlobalHeapBlockHeader);
Unknown:=0;
TotalFreeSpaceInBlock:=HeapBlock-SizeOf(TGlobalHeapBlockHeader);