From: Andy Polyakov <appro@openssl.org>
Date: Wed, 13 Jul 2011 06:20:30 +0000 (+0000)
Subject: perlasm/cbc.pl: fix tail processing bug.
X-Git-Tag: OpenSSL-fips-2_0-rc1~260
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=4195a369fddbc69b20895c99e3415a61f9c1a378;p=oweals%2Fopenssl.git

perlasm/cbc.pl: fix tail processing bug.
PR: 2557
---

diff --git a/crypto/perlasm/cbc.pl b/crypto/perlasm/cbc.pl
index e43dc9ae15..6fc2510905 100644
--- a/crypto/perlasm/cbc.pl
+++ b/crypto/perlasm/cbc.pl
@@ -158,7 +158,6 @@ sub cbc
 	&jmp_ptr($count);
 
 &set_label("ej7");
-	&xor("edx",		"edx") if $ppro; # ppro friendly
 	&movb(&HB("edx"),	&BP(6,$in,"",0));
 	&shl("edx",8);
 &set_label("ej6");
@@ -170,7 +169,6 @@ sub cbc
 	&jmp(&label("ejend"));
 &set_label("ej3");
 	&movb(&HB("ecx"),	&BP(2,$in,"",0));
-	&xor("ecx",		"ecx") if $ppro; # ppro friendly
 	&shl("ecx",8);
 &set_label("ej2");
 	&movb(&HB("ecx"),	&BP(1,$in,"",0));