~15% better AES x86_64 assembler.

[openssl.git] / crypto / perlasm / x86_64-xlate.pl

diff --git a/crypto/perlasm/x86_64-xlate.pl b/crypto/perlasm/x86_64-xlate.pl
index 166dcec6ace325e14400cce681b30cca5a3d5f14..61dc4c2c3a4f52b1ea0dafaa0c9b953a30458459 100755 (executable)
--- a/crypto/perlasm/x86_64-xlate.pl
+++ b/crypto/perlasm/x86_64-xlate.pl
@@ -167,10 +167,12 @@ my $current_function;
        my $self = shift;
        my $sz = shift;
 
-       # silently convert all EAs to 64-bit, required for elder GNU
-       # assembler and results in more compact code
-       $self->{index} =~ s/^[er](.?[0-9xp])[d]?$/r\1/;
-       $self->{base}  =~ s/^[er](.?[0-9xp])[d]?$/r\1/;
+       # Silently convert all EAs to 64-bit. This is required for
+       # elder GNU assembler and results in more compact code,
+       # *but* most importantly AES module depends on this feature!
+       $self->{index} =~ s/^[er](.?[0-9xpi])[d]?$/r\1/;
+       $self->{base}  =~ s/^[er](.?[0-9xpi])[d]?$/r\1/;
+
        if (!$masm) {
            # Solaris /usr/ccs/bin/as can't handle multiplications
            # in $self->{label}