From 6f8c7b37c4596d8708a2d59730f7a9feacc8024e Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 7 Mar 2003 11:11:04 +0000
Subject: [PATCH]  * fix trange5 for big endian machines

---
 tests/test/trange5.pp | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/tests/test/trange5.pp b/tests/test/trange5.pp
index 3d055f173d..7b9af5cd25 100644
--- a/tests/test/trange5.pp
+++ b/tests/test/trange5.pp
@@ -1,8 +1,18 @@
 {$mode objfpc}
 uses sysutils;
 
+{$ifndef FPC}
+  {$define ENDIAN_LITTLE}
+{$endif}
 type
-  int64rec = record lo,hi:cardinal end;
+  int64rec = record
+{$ifdef ENDIAN_LITTLE}
+    lo,hi:
+{$else }
+    hi,lo :
+{$endif}
+       cardinal;
+   end;
 
 var
   haserror,