kris/boringssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

This change merges upstream's updated ppc-xlate.pl.

Browse Source
This commit is contained in:
Adam Langley 2014-06-20 12:00:00 -07:00
parent 01797e309f
commit cd8128d618
1 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
crypto/perlasm/ppc-xlate.pl
View File

@ -27,7 +27,8 @@ my $globl = sub {
/osx/ && do { $name = "_$name"; /osx/ && do { $name = "_$name";
last; last;
}; };
/linux.*32/ && do { $ret .= ".globl $name\n"; /linux.*(32|64le)/
&& do { $ret .= ".globl $name\n";
$ret .= ".type $name,\@function"; $ret .= ".type $name,\@function";
last; last;
}; };
@ -49,7 +50,9 @@ my $globl = sub {
$ret; $ret;
}; };
my $text = sub { my $text = sub {
($flavour =~ /aix/) ? ".csect" : ".text"; my $ret = ($flavour =~ /aix/) ? ".csect" : ".text";
$ret = ".abiversion 2\n".$ret if ($flavour =~ /linux.*64le/);
$ret;
}; };
my $machine = sub { my $machine = sub {
my $junk = shift; my $junk = shift;
@ -64,8 +67,8 @@ my $size = sub {
if ($flavour =~ /linux/) if ($flavour =~ /linux/)
{ shift; { shift;
my $name = shift; $name =~ s|^[\.\_]||; my $name = shift; $name =~ s|^[\.\_]||;
my $ret = ".size $name,.-".($flavour=~/64/?".":"").$name; my $ret = ".size $name,.-".($flavour=~/64$/?".":"").$name;
$ret .= "\n.size .$name,.-.$name" if ($flavour=~/64/); $ret .= "\n.size .$name,.-.$name" if ($flavour=~/64$/);
$ret; $ret;
} }
else else
@ -140,7 +143,10 @@ while($line=<>) {
{ {
$line =~ s|(^[\.\w]+)\:\s*||; $line =~ s|(^[\.\w]+)\:\s*||;
my $label = $1; my $label = $1;
printf "%s:",($GLOBALS{$label} or $label) if ($label); if ($label) {
printf "%s:",($GLOBALS{$label} or $label);
printf "\n.localentry\t$GLOBALS{$label},0" if ($GLOBALS{$label} && $flavour =~ /linux.*64le/);
}
} }
{ {