362c362,371
<                         emit_const_reg(A_LSL,S_L,l2,ind);
---
>                        if l2 < 9 then 
>                          emit_const_reg(A_LSL,S_L,l2,ind)
>                        else begin
>                          getexplicitregister32(R_D0);
> 
>                          emit_const_reg(A_MOVEQ,S_L,l2,R_D0);
>                          emit_reg_reg(A_LSL,S_L,R_D0,ind);
> 
>                          ungetregister(R_D0);
>                        end;
