diff options
| author | Andy Polyakov <appro@openssl.org> | 2013-10-15 00:31:45 +0200 |
|---|---|---|
| committer | Andy Polyakov <appro@openssl.org> | 2013-10-15 00:31:45 +0200 |
| commit | 43ce9cdde9f6db26982c5727141f6475fb7a28ab (patch) | |
| tree | 76899337abe9d5afcf3d0d47bfa555c8cba6888f /crypto/perlasm | |
| parent | 011f89893cda9eb616ff370fb70b00cb8c59bf07 (diff) | |
PPC assembly pack: update from master branch.
Includes multiple updates: AES module to comply with more ABI
flavors, SHA512 for PPC32, .size directives.
Diffstat (limited to 'crypto/perlasm')
| -rwxr-xr-x | crypto/perlasm/ppc-xlate.pl | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/crypto/perlasm/ppc-xlate.pl b/crypto/perlasm/ppc-xlate.pl index a3edd982b6..3ed7bd9665 100755 --- a/crypto/perlasm/ppc-xlate.pl +++ b/crypto/perlasm/ppc-xlate.pl @@ -37,7 +37,6 @@ my $globl = sub { $ret .= ".align 3\n"; $ret .= "$name:\n"; $ret .= ".quad .$name,.TOC.\@tocbase,0\n"; - $ret .= ".size $name,24\n"; $ret .= ".previous\n"; $name = ".$name"; @@ -62,9 +61,12 @@ my $machine = sub { ".machine $arch"; }; my $size = sub { - if ($flavour =~ /linux.*32/) + if ($flavour =~ /linux/) { shift; - ".size " . join(",",@_); + my $name = shift; $name =~ s|^[\.\_]||; + my $ret = ".size $name,.-".($flavour=~/64/?".":"").$name; + $ret .= "\n.size .$name,.-.$name" if ($flavour=~/64/); + $ret; } else { ""; } |