Explorar o código

* fixed 'int64 shl/shr 0' on ppc32

git-svn-id: trunk@21841 -
Jonas Maebe %!s(int64=13) %!d(string=hai) anos
pai
achega
92b4c84dae
Modificáronse 1 ficheiros con 7 adicións e 1 borrados
  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