Browse Source

* committed fix that swaps int64 parameters hi and lo.

marco 22 years ago
parent
commit
152b525419
1 changed files with 10 additions and 6 deletions
  1. 10 6
      compiler/powerpc/cpupara.pas

+ 10 - 6
compiler/powerpc/cpupara.pas

@@ -214,17 +214,18 @@ unit cpupara;
                       if nextintreg.number<=(NR_R10-ord(is_64bit)*(NR_R1-NR_R0))  then
                       if nextintreg.number<=(NR_R10-ord(is_64bit)*(NR_R1-NR_R0))  then
                         begin
                         begin
                            hp.paraloc.loc:=LOC_REGISTER;
                            hp.paraloc.loc:=LOC_REGISTER;
-                           hp.paraloc.registerlow:=nextintreg;
-                           inc(nextintreg.number,NR_R1-NR_R0);
-                           if target_info.abi=abi_powerpc_aix then
-                             inc(stack_offset,4);
-                           if is_64bit then
+		           if is_64bit then
                              begin
                              begin
                                hp.paraloc.registerhigh:=nextintreg;
                                hp.paraloc.registerhigh:=nextintreg;
                                inc(nextintreg.number,NR_R1-NR_R0);
                                inc(nextintreg.number,NR_R1-NR_R0);
                                if target_info.abi=abi_powerpc_aix then
                                if target_info.abi=abi_powerpc_aix then
                                  inc(stack_offset,4);
                                  inc(stack_offset,4);
                              end;
                              end;
+                           hp.paraloc.registerlow:=nextintreg;
+                           inc(nextintreg.number,NR_R1-NR_R0);
+                           if target_info.abi=abi_powerpc_aix then
+                             inc(stack_offset,4);
+
                         end
                         end
                       else
                       else
                          begin
                          begin
@@ -333,7 +334,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.31  2003-05-24 11:48:40  jonas
+  Revision 1.32  2003-05-30 22:35:03  marco
+   * committed fix that swaps int64 parameters hi and lo.
+
+  Revision 1.31  2003/05/24 11:48:40  jonas
     * added some missing paralocation size settings
     * added some missing paralocation size settings
 
 
   Revision 1.30  2003/05/19 12:15:28  florian
   Revision 1.30  2003/05/19 12:15:28  florian