diff options
author | Andy Polyakov <appro@openssl.org> | 2007-05-19 17:32:06 +0000 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2007-05-19 17:32:06 +0000 |
commit | c6149e2f02dde61b6fd16c6ec9962f65d7eb37d8 (patch) | |
tree | 9fac19d1ef5070280cf2574be0ff61964d1b6166 /crypto/perlasm/ppc-xlate.pl | |
parent | aa5c99fa0182399cdb5e6faad7bdf44c767bcd35 (diff) |
ppc-xlate.pl update.
Diffstat (limited to 'crypto/perlasm/ppc-xlate.pl')
-rwxr-xr-x | crypto/perlasm/ppc-xlate.pl | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/crypto/perlasm/ppc-xlate.pl b/crypto/perlasm/ppc-xlate.pl index e36b5aedb2..c2a4621f86 100755 --- a/crypto/perlasm/ppc-xlate.pl +++ b/crypto/perlasm/ppc-xlate.pl @@ -7,7 +7,7 @@ open STDOUT,">$output" || die "can't open $output: $!"; my $flavour = $output; my %GLOBALS; -my $dotinlocallabels=0; +my $dotinlocallabels=($flavour=~/linux/)?1:0; ################################################################ # directives which need special treatment on different platforms @@ -29,7 +29,6 @@ my $globl = sub { }; /linux.*32/ && do { $ret .= ".globl $name\n"; $ret .= ".type $name,\@function"; - $dotinlocallabels = 1; last; }; /linux.*64/ && do { $ret .= ".globl .$name\n"; @@ -43,7 +42,6 @@ my $globl = sub { $ret .= ".previous\n"; $name = ".$name"; - $dotinlocallabels = 1; last; }; } |