projects
/
openssl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9c437e2
)
ppc-xlate.pl: get linux64 declaration right.
author
Andy Polyakov
<appro@openssl.org>
Mon, 16 May 2011 19:52:41 +0000
(19:52 +0000)
committer
Andy Polyakov
<appro@openssl.org>
Mon, 16 May 2011 19:52:41 +0000
(19:52 +0000)
crypto/perlasm/ppc-xlate.pl
patch
|
blob
|
history
diff --git
a/crypto/perlasm/ppc-xlate.pl
b/crypto/perlasm/ppc-xlate.pl
index 4579671c9701107d0bf04c59a81fc3fde010d01b..a3edd982b664778e17b89b45f644e6133451744e 100755
(executable)
--- a/
crypto/perlasm/ppc-xlate.pl
+++ b/
crypto/perlasm/ppc-xlate.pl
@@
-31,10
+31,9
@@
my $globl = sub {
$ret .= ".type $name,\@function";
last;
};
$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 .= ".section \".opd\",\"aw\"\n";
- $ret .= ".globl $name\n";
$ret .= ".align 3\n";
$ret .= "$name:\n";
$ret .= ".quad .$name,.TOC.\@tocbase,0\n";
$ret .= ".align 3\n";
$ret .= "$name:\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 {
shift;
my $line = join(",",@_);
my $asciz = sub {
shift;
my $line = join(",",@_);