generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ppc-xlate.pl: get linux64 declaration right.

Browse Source
This commit is contained in:
Andy Polyakov 2011-05-16 19:52:41 +00:00
parent 9c437e2fad
commit a3e07010b4
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -31,10 +31,9 @@ my $globl = sub {
$ret .= ".type $name,\@function"; $ret .= ".type $name,\@function";
last; last;
}; };
/linux.*64/ && do { $ret .= ".globl .$name\n"; /linux.*64/ && do { $ret .= ".globl $name\n";
$ret .= ".type .$name,\@function\n"; $ret .= ".type $name,\@function\n";
$ret .= ".section \".opd\",\"aw\"\n"; $ret .= ".section \".opd\",\"aw\"\n";
$ret .= ".globl $name\n";
$ret .= ".align 3\n"; $ret .= ".align 3\n";
$ret .= "$name:\n"; $ret .= "$name:\n";
$ret .= ".quad .$name,.TOC.\@tocbase,0\n"; $ret .= ".quad .$name,.TOC.\@tocbase,0\n";
@ -62,6 +61,14 @@ my $machine = sub {
} }
".machine $arch"; ".machine $arch";
}; };
my $size = sub {
if ($flavour =~ /linux.*32/)
{ shift;
".size " . join(",",@_);
}
else
{ ""; }
};
my $asciz = sub { my $asciz = sub {
shift; shift;
my $line = join(",",@_); my $line = join(",",@_);