generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ppc-xlate.pl update.

Browse Source
This commit is contained in:
Andy Polyakov 2007-05-19 17:32:06 +00:00
parent aa5c99fa01
commit c6149e2f02
1 changed files with 1 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
crypto/perlasm/ppc-xlate.pl
View File

@ -7,7 +7,7 @@ open STDOUT,">$output" || die "can't open $output: $!";
my $flavour = $output; my $flavour = $output;
my %GLOBALS; my %GLOBALS;
my $dotinlocallabels=0; my $dotinlocallabels=($flavour=~/linux/)?1:0;
################################################################ ################################################################
# directives which need special treatment on different platforms # directives which need special treatment on different platforms
@ -29,7 +29,6 @@ my $globl = sub {
}; };
/linux.*32/ && do { $ret .= ".globl $name\n"; /linux.*32/ && do { $ret .= ".globl $name\n";
$ret .= ".type $name,\@function"; $ret .= ".type $name,\@function";
$dotinlocallabels = 1;
last; last;
}; };
/linux.*64/ && do { $ret .= ".globl .$name\n"; /linux.*64/ && do { $ret .= ".globl .$name\n";
@ -43,7 +42,6 @@ my $globl = sub {
$ret .= ".previous\n"; $ret .= ".previous\n";
$name = ".$name"; $name = ".$name";
$dotinlocallabels = 1;
last; last;
}; };
} }