diff options
author | djm <> | 2012-10-13 21:23:50 +0000 |
---|---|---|
committer | djm <> | 2012-10-13 21:23:50 +0000 |
commit | e9d65189905c6e99c1062d65e26bf83eebb0a26a (patch) | |
tree | 10ebe51c3542099b0ab8325d8f322372375dc3b4 /src/lib/libcrypto/perlasm | |
parent | 59625e84c89bf82e1c6d20c55785b618eb56ea72 (diff) | |
parent | 228cae30b117c2493f69ad3c195341cd6ec8d430 (diff) | |
download | openbsd-e9d65189905c6e99c1062d65e26bf83eebb0a26a.tar.gz openbsd-e9d65189905c6e99c1062d65e26bf83eebb0a26a.tar.bz2 openbsd-e9d65189905c6e99c1062d65e26bf83eebb0a26a.zip |
This commit was generated by cvs2git to track changes on a CVS vendor
branch.
Diffstat (limited to 'src/lib/libcrypto/perlasm')
-rwxr-xr-x | src/lib/libcrypto/perlasm/ppc-xlate.pl | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/src/lib/libcrypto/perlasm/ppc-xlate.pl b/src/lib/libcrypto/perlasm/ppc-xlate.pl index 4579671c97..a3edd982b6 100755 --- a/src/lib/libcrypto/perlasm/ppc-xlate.pl +++ b/src/lib/libcrypto/perlasm/ppc-xlate.pl | |||
@@ -31,10 +31,9 @@ my $globl = sub { | |||
31 | $ret .= ".type $name,\@function"; | 31 | $ret .= ".type $name,\@function"; |
32 | last; | 32 | last; |
33 | }; | 33 | }; |
34 | /linux.*64/ && do { $ret .= ".globl .$name\n"; | 34 | /linux.*64/ && do { $ret .= ".globl $name\n"; |
35 | $ret .= ".type .$name,\@function\n"; | 35 | $ret .= ".type $name,\@function\n"; |
36 | $ret .= ".section \".opd\",\"aw\"\n"; | 36 | $ret .= ".section \".opd\",\"aw\"\n"; |
37 | $ret .= ".globl $name\n"; | ||
38 | $ret .= ".align 3\n"; | 37 | $ret .= ".align 3\n"; |
39 | $ret .= "$name:\n"; | 38 | $ret .= "$name:\n"; |
40 | $ret .= ".quad .$name,.TOC.\@tocbase,0\n"; | 39 | $ret .= ".quad .$name,.TOC.\@tocbase,0\n"; |
@@ -62,6 +61,14 @@ my $machine = sub { | |||
62 | } | 61 | } |
63 | ".machine $arch"; | 62 | ".machine $arch"; |
64 | }; | 63 | }; |
64 | my $size = sub { | ||
65 | if ($flavour =~ /linux.*32/) | ||
66 | { shift; | ||
67 | ".size " . join(",",@_); | ||
68 | } | ||
69 | else | ||
70 | { ""; } | ||
71 | }; | ||
65 | my $asciz = sub { | 72 | my $asciz = sub { |
66 | shift; | 73 | shift; |
67 | my $line = join(",",@_); | 74 | my $line = join(",",@_); |