Bläddra i källkod

* fixed 'int64 shl/shr 0' on ppc32

git-svn-id: trunk@21841 -
Jonas Maebe 13 år sedan
förälder
incheckning
92b4c84dae
1 ändrade filer med 7 tillägg och 1 borttagningar
  1. 7 1
      compiler/powerpc/nppcmat.pas

+ 7 - 1
compiler/powerpc/nppcmat.pas

@@ -403,7 +403,13 @@ end;
                      cg.a_load_const_reg(current_asmdata.CurrAsmList,OS_32,0,location.register64.reglo);
                      cg.a_load_const_reg(current_asmdata.CurrAsmList,OS_32,0,location.register64.reglo);
                    end
-                 else } if shiftval > 31 then
+                 else }
+                 if shiftval = 0 then
+                   begin
+                     cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_32,OS_32,left.location.register64.reghi,location.register64.reghi);
+                     cg.a_load_reg_reg(current_asmdata.CurrAsmList,OS_32,OS_32,left.location.register64.reglo,location.register64.reglo);
+                   end
+                 else if shiftval > 31 then
                    begin
                      if nodetype = shln then
                        begin