fix breakage for Perl versions that do boolean operations on long words

diff --git a/crypto/aes/asm/aes-586.pl b/crypto/aes/asm/aes-586.pl
index ee02ded463c0a71e5d57f8f2d98e6fe13ee578b2..d5f53f45d89a07f0acc782742512499544dee1f0 100755 (executable)
--- a/crypto/aes/asm/aes-586.pl
+++ b/crypto/aes/asm/aes-586.pl
@@ -1245,7 +1245,7 @@ sub declast()
        &mov    ($acc,&wparam(0));              # load inp
        &mov    ($key,&wparam(4));              # load ivp
 
        &mov    ($acc,&wparam(0));              # load inp
        &mov    ($key,&wparam(4));              # load ivp
 

-       &test   ($s2,~15);
+       &test   ($s2,0xFFFFFFF0);

        &jz     (&label("enc_tail"));           # short input...
 
        &mov    ($s0,&DWP(0,$key));             # load iv
        &jz     (&label("enc_tail"));           # short input...
 
        &mov    ($s0,&DWP(0,$key));             # load iv


@@ -1281,7 +1281,7 @@ sub declast()
                &mov    (&wparam(1),$s3);               # save out
 
                &sub    ($s2,16);
                &mov    (&wparam(1),$s3);               # save out
 
                &sub    ($s2,16);

-               &test   ($s2,~15);
+               &test   ($s2,0xFFFFFFF0);

                &mov    (&wparam(2),$s2);               # save len
        &jnz    (&label("enc_loop"));
        &test   ($s2,15);
                &mov    (&wparam(2),$s2);               # save len
        &jnz    (&label("enc_loop"));
        &test   ($s2,15);