fix breakage for Perl versions that do boolean operations on long words
This commit is contained in:
parent
5855038049
commit
8d274837e5
1 changed files with 2 additions and 2 deletions
|
@ -1245,7 +1245,7 @@ sub declast()
|
||||||
&mov ($acc,&wparam(0)); # load inp
|
&mov ($acc,&wparam(0)); # load inp
|
||||||
&mov ($key,&wparam(4)); # load ivp
|
&mov ($key,&wparam(4)); # load ivp
|
||||||
|
|
||||||
&test ($s2,~15);
|
&test ($s2,0xFFFFFFF0);
|
||||||
&jz (&label("enc_tail")); # short input...
|
&jz (&label("enc_tail")); # short input...
|
||||||
|
|
||||||
&mov ($s0,&DWP(0,$key)); # load iv
|
&mov ($s0,&DWP(0,$key)); # load iv
|
||||||
|
@ -1281,7 +1281,7 @@ sub declast()
|
||||||
&mov (&wparam(1),$s3); # save out
|
&mov (&wparam(1),$s3); # save out
|
||||||
|
|
||||||
&sub ($s2,16);
|
&sub ($s2,16);
|
||||||
&test ($s2,~15);
|
&test ($s2,0xFFFFFFF0);
|
||||||
&mov (&wparam(2),$s2); # save len
|
&mov (&wparam(2),$s2); # save len
|
||||||
&jnz (&label("enc_loop"));
|
&jnz (&label("enc_loop"));
|
||||||
&test ($s2,15);
|
&test ($s2,15);
|
||||||
|
|
Loading…
Reference in a new issue