From 936cfe106b67920e8a06af1e7f110e2398f1945d Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 12 Jul 2002 10:14:26 +0000
Subject: [PATCH]   * some big-endian fixes

---
 compiler/cg64f32.pas | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/compiler/cg64f32.pas b/compiler/cg64f32.pas
index 15357280ec..bfdd09dd96 100644
--- a/compiler/cg64f32.pas
+++ b/compiler/cg64f32.pas
@@ -97,7 +97,7 @@ unit cg64f32;
         tmpreg: tregister;
         tmpref: treference;
       begin
-        if target_info.endian=endian_big then
+        if target_info.endian = endian_big then
           begin
             tmpreg:=reg.reglo;
             reg.reglo:=reg.reghi;
@@ -114,7 +114,7 @@ unit cg64f32;
         tmpvalue : DWord;
         tmpref: treference;
       begin
-        if target_info.endian<>source_info.endian then
+        if target_info.endian = endian_big then
           swap_qword(value);
         cg.a_load_const_ref(list,OS_32,lo(value),ref);
         tmpref := ref;
@@ -173,7 +173,7 @@ unit cg64f32;
     procedure tcg64f32.a_load64_const_reg(list : taasmoutput;value : qword;reg : tregister64);
 
       begin
-        if target_info.endian<>source_info.endian then
+        if target_info.endian = endian_big then
           swap_qword(value);
         cg.a_load_const_reg(list,OS_32,lo(value),reg.reglo);
         cg.a_load_const_reg(list,OS_32,hi(value),reg.reghi);
@@ -408,7 +408,7 @@ unit cg64f32;
     procedure tcg64f32.a_param64_const(list : taasmoutput;value : qword;const locpara : tparalocation);
       begin
 {$warning FIX ME}
-        if target_info.endian<>source_info.endian then
+        if target_info.endian = endian_big then
           swap_qword(value);
          cg.a_param_const(list,OS_32,hi(value),locpara);
          { the nr+1 needs definitivly a fix FK }
@@ -620,7 +620,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.19  2002-07-11 07:23:17  jonas
+  Revision 1.20  2002-07-12 10:14:26  jonas
+    * some big-endian fixes
+
+  Revision 1.19  2002/07/11 07:23:17  jonas
     + generic implementations of a_op64_ref_reg() and a_op64_const_ref()
       (only works for processors with >2 scratch registers)