diff options
| -rw-r--r-- | compiler/ncgmat.pas | 9 |
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 |