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

* wordrec for big endian

Browse Source
This commit is contained in:
peter 2001-07-31 19:36:09 +00:00
parent eaa720a4ff
commit 84a34f3a25
1 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/inc/objects.pp
View File

@ -247,11 +247,19 @@ TYPE
{---------------------------------------------------------------------------}
TYPE
WordRec = packed RECORD
{$ifdef ENDIAN_LITTLE}
Lo, Hi: Byte; { Word to bytes }
{$else}
Hi,Lo: Byte;
{$endif}
END;
LongRec = packed RECORD
{$ifdef ENDIAN_LITTLE}
Lo, Hi: Word; { LongInt to words }
{$else}
Hi,Lo: Word; { LongInt to words }
{$endif}
END;
PtrRec = packed RECORD
@ -2833,7 +2841,10 @@ END;
END.
{
$Log$
Revision 1.7 2001-07-30 21:38:55 peter
Revision 1.8 2001-07-31 19:36:09 peter
* wordrec for big endian
Revision 1.7 2001/07/30 21:38:55 peter
* m68k updates merged
Revision 1.6 2001/07/15 11:57:16 peter