wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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