From 25435fe881fe3c55497ac8390cc77b5e93ff6844 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Fri, 23 May 2003 19:52:28 +0000
Subject: [PATCH]   * corrected fix for endian differences in tcginnode

---
 compiler/ncgset.pas | 14 +++++++++-----
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/compiler/ncgset.pas b/compiler/ncgset.pas
index 057c5ef8b6..a6c69e9446 100644
--- a/compiler/ncgset.pas
+++ b/compiler/ncgset.pas
@@ -595,10 +595,11 @@ implementation
                else if left.nodetype=ordconstn then
                 begin
                   { use location.register as scratch register here }
-                  inc(right.location.reference.offset,tordconstnode(left).value shr 3);
-                  { adjust for endianess differences }
-                  if (source_info.endian <> target_info.endian) then
-                    right.location.reference.offset := right.location.reference.offset xor 3;
+                  if (source_info.endian = target_info.endian) then
+                    inc(right.location.reference.offset,tordconstnode(left).value shr 3)
+                  else
+                    { adjust for endianess differences }
+                    inc(right.location.reference.offset,(tordconstnode(left).value shr 3) xor 3);
                   cg.a_load_ref_reg(exprasmlist, OS_8, right.location.reference, location.register);
                   location_release(exprasmlist,right.location);
                   cg.a_op_const_reg(exprasmlist,OP_SHR, tordconstnode(left).value and 7,
@@ -1124,7 +1125,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.33  2003-05-17 19:17:35  jonas
+  Revision 1.34  2003-05-23 19:52:28  jonas
+    * corrected fix for endian differences in tcginnode
+
+  Revision 1.33  2003/05/17 19:17:35  jonas
     * fixed size setting of result location of innodes
 
   Revision 1.32  2003/05/01 12:26:50  jonas