diff options
| author | djm <> | 2012-10-13 21:23:50 +0000 |
|---|---|---|
| committer | djm <> | 2012-10-13 21:23:50 +0000 |
| commit | d56dbc3c72494d4b68c03f5bcc3ae1f9df7b17df (patch) | |
| tree | 10ebe51c3542099b0ab8325d8f322372375dc3b4 /src/lib/libcrypto/perlasm | |
| parent | bc685bd401e5657f7fb51b4e1a62a7a5c5ea4098 (diff) | |
| parent | 228cae30b117c2493f69ad3c195341cd6ec8d430 (diff) | |
| download | openbsd-d56dbc3c72494d4b68c03f5bcc3ae1f9df7b17df.tar.gz openbsd-d56dbc3c72494d4b68c03f5bcc3ae1f9df7b17df.tar.bz2 openbsd-d56dbc3c72494d4b68c03f5bcc3ae1f9df7b17df.zip | |
This commit was generated by cvs2git to track changes on a CVS vendor
branch.
Diffstat (limited to '')
| -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(",",@_); |
