Browse Source

* fix trange5 for big endian machines

pierre 22 years ago
parent
commit
6f8c7b37c4
1 changed files with 11 additions and 1 deletions
  1. 11 1
      tests/test/trange5.pp

+ 11 - 1
tests/test/trange5.pp

@@ -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,