From 8d274837e5a23ac8eba410cf533578daeb8cdb5b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ulf=20M=C3=B6ller?= <ulf@openssl.org>
Date: Sat, 19 Mar 2005 11:13:30 +0000
Subject: [PATCH] fix breakage for Perl versions that do boolean operations on
 long words

---
 crypto/aes/asm/aes-586.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/crypto/aes/asm/aes-586.pl b/crypto/aes/asm/aes-586.pl
index ee02ded46..d5f53f45d 100755
--- 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
 
-	&test	($s2,~15);
+	&test	($s2,0xFFFFFFF0);
 	&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);
-		&test	($s2,~15);
+		&test	($s2,0xFFFFFFF0);
 		&mov	(&wparam(2),$s2);		# save len
 	&jnz	(&label("enc_loop"));
 	&test	($s2,15);