paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 14:09:20 +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 TYPE
WordRec = packed RECORD WordRec = packed RECORD
{$ifdef ENDIAN_LITTLE}
Lo, Hi: Byte; { Word to bytes } Lo, Hi: Byte; { Word to bytes }
{$else}
Hi,Lo: Byte;
{$endif}
END; END;
LongRec = packed RECORD LongRec = packed RECORD
{$ifdef ENDIAN_LITTLE}
Lo, Hi: Word; { LongInt to words } Lo, Hi: Word; { LongInt to words }
{$else}
Hi,Lo: Word; { LongInt to words }
{$endif}
END; END;
PtrRec = packed RECORD PtrRec = packed RECORD
@ -2833,7 +2841,10 @@ END;
END. END.
{ {
$Log$ $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 * m68k updates merged
Revision 1.6 2001/07/15 11:57:16 peter Revision 1.6 2001/07/15 11:57:16 peter