From: Ulf Möller <ulf@openssl.org>
Date: Sat, 19 Mar 2005 11:13:30 +0000 (+0000)
Subject: fix breakage for Perl versions that do boolean operations on long words
X-Git-Tag: OpenSSL_0_9_7g~17^2~25
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=8d274837e5a23ac8eba410cf533578daeb8cdb5b;p=oweals%2Fopenssl.git

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 ee02ded463..d5f53f45d8 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);