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

* fix trange5 for big endian machines

Browse Source
This commit is contained in:
pierre 2003-03-07 11:11:04 +00:00
parent 670c206758
commit 6f8c7b37c4
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
tests/test/trange5.pp
View File

@ -1,8 +1,18 @@
{$mode objfpc} {$mode objfpc}
uses sysutils; uses sysutils;
{$ifndef FPC}
{$define ENDIAN_LITTLE}
{$endif}
type type
int64rec = record lo,hi:cardinal end; int64rec = record
{$ifdef ENDIAN_LITTLE}
lo,hi:
{$else }
hi,lo :
{$endif}
cardinal;
end;
var var
haserror, haserror,