From c6149e2f02dde61b6fd16c6ec9962f65d7eb37d8 Mon Sep 17 00:00:00 2001 From: Andy Polyakov Date: Sat, 19 May 2007 17:32:06 +0000 Subject: [PATCH] ppc-xlate.pl update. --- crypto/perlasm/ppc-xlate.pl | 4 +--- 1 file changed, 1 insertion(+), 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; }; } -- 2.34.1