paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 18:25:58 +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 always located at offset 0 of the heap block segment. These heap blocks form a
circular linked list. circular linked list.
} }
const
GlobalHeapBlockID=20564;
type type
PGlobalHeapBlockHeader=^TGlobalHeapBlockHeader;far; PGlobalHeapBlockHeader=^TGlobalHeapBlockHeader;far;
TGlobalHeapBlockHeader=record TGlobalHeapBlockHeader=record
ID: LongWord; { 20564 } ID: LongWord; { =GlobalHeapBlockID }
FirstFreeOfs: Word; FirstFreeOfs: Word;
Unknown: Word; { don't know what this is; seems to be 0 } Unknown: Word; { don't know what this is; seems to be 0 }
TotalFreeSpaceInBlock: Word; TotalFreeSpaceInBlock: Word;
@ -59,7 +61,7 @@ circular linked list.
HandleError(204); HandleError(204);
with pb^ do with pb^ do
begin begin
ID:=20564; ID:=GlobalHeapBlockID;
FirstFreeOfs:=SizeOf(TGlobalHeapBlockHeader); FirstFreeOfs:=SizeOf(TGlobalHeapBlockHeader);
Unknown:=0; Unknown:=0;
TotalFreeSpaceInBlock:=HeapBlock-SizeOf(TGlobalHeapBlockHeader); TotalFreeSpaceInBlock:=HeapBlock-SizeOf(TGlobalHeapBlockHeader);