diff options
author | Andy Polyakov <appro@openssl.org> | 2013-05-13 16:06:25 +0200 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2013-05-13 16:06:25 +0200 |
commit | 22de0e6583b7f8764e383cf818db45863281eeec (patch) | |
tree | a16694f4aa2c607af1bd891d30125a00f763efbd /crypto/perlasm | |
parent | cd54249c2125479105a47be705ec15ba302d5e15 (diff) | |
download | openssl-22de0e6583b7f8764e383cf818db45863281eeec.tar.gz |
x86_64-xlate.pl: minor size/performance improvement.
Diffstat (limited to 'crypto/perlasm')
-rwxr-xr-x | crypto/perlasm/x86_64-xlate.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/crypto/perlasm/x86_64-xlate.pl b/crypto/perlasm/x86_64-xlate.pl index 444a1f6177..d44afe1f5c 100755 --- a/crypto/perlasm/x86_64-xlate.pl +++ b/crypto/perlasm/x86_64-xlate.pl @@ -253,6 +253,11 @@ my %globals; $self->{label} =~ s/([0-9]+\s*[\*\/\%]\s*[0-9]+)/eval($1)/eg; $self->{label} =~ s/([0-9]+)/$1<<32>>32/eg; + if (!$self->{label} && $self->{index} && $self->{scale}==1 && + $self->{base} =~ /(rbp|r13)/) { + $self->{base} = $self->{index}; $self->{index} = $1; + } + if ($gas) { $self->{label} =~ s/^___imp_/__imp__/ if ($flavour eq "mingw64"); |