* cleanup

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@26798 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 1 insertions, 8 deletions

diff --git a/compiler/ncgmat.pas b/compiler/ncgmat.pas
index 543ccab3e5..b67f93c876 100644
--- a/compiler/ncgmat.pas
+++ b/compiler/ncgmat.pas
@@ -488,16 +488,9 @@ implementation
          { shifting by a constant directly coded: }
          if (right.nodetype=ordconstn) then
            begin
-              { l shl 32 should 0 imho, but neither TP nor Delphi do it in this way (FK)
-              if right.value<=31 then
-              }
+              { shl/shr must "wrap around", so use ... and 31 }
               cg.a_op_const_reg_reg(current_asmdata.CurrAsmList,op,location.size,
                 tordconstnode(right).value.uvalue and 31,left.location.register,location.register);
-              {
-              else
-                emit_reg_reg(A_XOR,S_L,hregister1,
-                  hregister1);
-              }
            end
          else
            begin