perlasm/cbc.pl: fix tail processing bug [from HEAD].
authorAndy Polyakov <appro@openssl.org>
Wed, 13 Jul 2011 06:25:15 +0000 (06:25 +0000)
committerAndy Polyakov <appro@openssl.org>
Wed, 13 Jul 2011 06:25:15 +0000 (06:25 +0000)
PR: 2557

crypto/perlasm/cbc.pl

index e43dc9ae15edbb90597ac6613c2923421822f12f..6fc2510905befc7701506e51aea5b523778cc795 100644 (file)
@@ -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));