瀏覽代碼

* committed fix that swaps int64 parameters hi and lo.

marco 22 年之前
父節點
當前提交
152b525419
共有 1 個文件被更改,包括 10 次插入6 次删除
  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
                         begin
                            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
                                hp.paraloc.registerhigh:=nextintreg;
                                inc(nextintreg.number,NR_R1-NR_R0);
                                if target_info.abi=abi_powerpc_aix then
                                  inc(stack_offset,4);
                              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
                       else
                          begin
@@ -333,7 +334,10 @@ begin
 end.
 {
   $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
 
   Revision 1.30  2003/05/19 12:15:28  florian