ppc-xlate.pl update.
[openssl.git] / crypto / perlasm / ppc-xlate.pl
index e36b5aedb257770a9d6d0a707a794457bb749d95..c2a4621f868a24c72f36d00248cb35ceed356543 100755 (executable)
@@ -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;
                              };
     }