Browse Source

* fixed endian problem with tlocation.value/valueqword fields

Jonas Maebe 22 years ago
parent
commit
517e16dae7
1 changed files with 8 additions and 1 deletions
  1. 8 1
      compiler/powerpc/cpubase.pas

+ 8 - 1
compiler/powerpc/cpubase.pas

@@ -444,7 +444,11 @@ uses
             LOC_CREFERENCE,LOC_REFERENCE : (reference : treference);
             LOC_CREFERENCE,LOC_REFERENCE : (reference : treference);
             LOC_CONSTANT : (
             LOC_CONSTANT : (
               case longint of
               case longint of
+{$ifdef FPC_BIG_ENDIAN}
+                1 : (_valuedummy,value : AWord);
+{$else FPC_BIG_ENDIAN}
                 1 : (value : AWord);
                 1 : (value : AWord);
+{$endif FPC_BIG_ENDIAN}
                 { can't do this, this layout depends on the host cpu. Use }
                 { can't do this, this layout depends on the host cpu. Use }
                 { lo(valueqword)/hi(valueqword) instead (JM)              }
                 { lo(valueqword)/hi(valueqword) instead (JM)              }
                 { 2 : (valuelow, valuehigh:AWord);                        }
                 { 2 : (valuelow, valuehigh:AWord);                        }
@@ -852,7 +856,10 @@ implementation
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.51  2003-05-16 16:26:05  jonas
+  Revision 1.52  2003-05-24 16:02:01  jonas
+    * fixed endian problem with tlocation.value/valueqword fields
+
+  Revision 1.51  2003/05/16 16:26:05  jonas
     * adapted for Peter's regvar fixes
     * adapted for Peter's regvar fixes
 
 
   Revision 1.50  2003/05/15 22:14:43  florian
   Revision 1.50  2003/05/15 22:14:43  florian