| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455 |
- From 0000000000000000000000000000000000000000 Mon Sep 17 00:00:00 2001
- From: Andy Polyakov <[email protected]>
- Date: Sun, 5 May 2019 18:25:50 +0200
- Subject: 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 <[email protected]>
- Reviewed-by: Richard Levitte <[email protected]>
- (Merged from https://github.com/openssl/openssl/pull/8883)
- --- 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;
- }
|
