Browse Source

* fix interface wrappers on sparc

git-svn-id: trunk@10999 -
florian 17 years ago
parent
commit
5c18145632
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/sparc/cgcpu.pas

+ 1 - 1
compiler/sparc/cgcpu.pas

@@ -1355,7 +1355,7 @@ implementation
             href.refaddr := addr_high;
             href.refaddr := addr_high;
             list.concat(taicpu.op_ref_reg(A_SETHI,href,NR_G1));
             list.concat(taicpu.op_ref_reg(A_SETHI,href,NR_G1));
             href.refaddr := addr_low;
             href.refaddr := addr_low;
-            list.concat(taicpu.op_reg_ref_reg(A_OR,NR_G0,href,NR_G1));
+            list.concat(taicpu.op_reg_ref_reg(A_OR,NR_G1,href,NR_G1));
             list.concat(taicpu.op_reg(A_JMP,NR_G1));
             list.concat(taicpu.op_reg(A_JMP,NR_G1));
           end;
           end;
         { Delay slot }
         { Delay slot }