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

* packed records

Browse Source
This commit is contained in:
peter 1998-07-08 12:33:26 +00:00
parent a375e73795
commit f61c64bd1e
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/dos/go32.pp
View File

@ -41,7 +41,7 @@ const
overflowflag = $800;
type
tmeminfo = record
tmeminfo = packed record
available_memory,
available_pages,
available_lockable_pages,
@ -56,12 +56,12 @@ type
reserved2 : longint;
end;
tseginfo = record
tseginfo = packed record
offset : pointer;
segment : word;
end;
trealregs = record
trealregs = packed record
case integer of
1: { 32-bit } (EDI, ESI, EBP, Res, EBX, EDX, ECX, EAX: longint;
Flags, ES, DS, FS, GS, IP, CS, SP, SS: word);
@ -1220,7 +1220,10 @@ end.
{
$Log$
Revision 1.7 1998-07-07 12:25:20 carl
Revision 1.8 1998-07-08 12:33:26 peter
* packed records
Revision 1.7 1998/07/07 12:25:20 carl
* compiles under fpc v0995, don't modify now now! :)
Revision 1.6 1998/07/04 10:04:41 peter