| From 07a0bbdd179a52907485fd793f0df31c097447af Mon Sep 17 00:00:00 2001 |
| From: Andy Polyakov <appro@openssl.org> |
| Date: Sun, 5 May 2019 18:25:50 +0200 |
| Subject: [PATCH] crypto/perlasm/ppc-xlate.pl: add linux64v2 flavour |
| MIME-Version: 1.0 |
| Content-Type: text/plain; charset=UTF-8 |
| Content-Transfer-Encoding: 8bit |
| |
| This is a big endian ELFv2 configuration. ELFv2 was already being |
| used for little endian, and big endian was traditionally ELFv1 |
| but there are practical configurations that use ELFv2 with big |
| endian nowadays (Adélie Linux, Void Linux, possibly Gentoo, etc.) |
| |
| Reviewed-by: Paul Dale <paul.dale@oracle.com> |
| Reviewed-by: Richard Levitte <levitte@openssl.org> |
| (Merged from https://github.com/openssl/openssl/pull/8883) |
| Signed-off-by: Vincent Fazio <vfazio@xes-inc.com> |
| --- |
| crypto/perlasm/ppc-xlate.pl | 8 ++++---- |
| 1 file changed, 4 insertions(+), 4 deletions(-) |
| |
| diff --git a/crypto/perlasm/ppc-xlate.pl b/crypto/perlasm/ppc-xlate.pl |
| index d220c6245b..eec82b8d48 100755 |
| --- a/crypto/perlasm/ppc-xlate.pl |
| +++ b/crypto/perlasm/ppc-xlate.pl |
| @@ -49,7 +49,7 @@ my $globl = sub { |
| /osx/ && do { $name = "_$name"; |
| last; |
| }; |
| - /linux.*(32|64le)/ |
| + /linux.*(32|64(le|v2))/ |
| && do { $ret .= ".globl $name"; |
| if (!$$type) { |
| $ret .= "\n.type $name,\@function"; |
| @@ -80,7 +80,7 @@ my $globl = sub { |
| }; |
| my $text = sub { |
| my $ret = ($flavour =~ /aix/) ? ".csect\t.text[PR],7" : ".text"; |
| - $ret = ".abiversion 2\n".$ret if ($flavour =~ /linux.*64le/); |
| + $ret = ".abiversion 2\n".$ret if ($flavour =~ /linux.*64(le|v2)/); |
| $ret; |
| }; |
| my $machine = sub { |
| @@ -186,7 +186,7 @@ my $vmr = sub { |
| |
| # Some ABIs specify vrsave, special-purpose register #256, as reserved |
| # for system use. |
| -my $no_vrsave = ($flavour =~ /aix|linux64le/); |
| +my $no_vrsave = ($flavour =~ /aix|linux64(le|v2)/); |
| my $mtspr = sub { |
| my ($f,$idx,$ra) = @_; |
| if ($idx == 256 && $no_vrsave) { |
| @@ -318,7 +318,7 @@ while($line=<>) { |
| if ($label) { |
| my $xlated = ($GLOBALS{$label} or $label); |
| print "$xlated:"; |
| - if ($flavour =~ /linux.*64le/) { |
| + if ($flavour =~ /linux.*64(le|v2)/) { |
| if ($TYPES{$label} =~ /function/) { |
| printf "\n.localentry %s,0\n",$xlated; |
| } |
| -- |
| 2.25.0 |
| |