diff options
-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; }; } |