diff options
| author | Andy Polyakov <appro@openssl.org> | 2008-01-04 22:58:50 +0000 |
|---|---|---|
| committer | Andy Polyakov <appro@openssl.org> | 2008-01-04 22:58:50 +0000 |
| commit | 26e71a1850b053ec6c1d2b67023d9e3a9d179008 (patch) | |
| tree | 894f2c749dffdb5ee8da787f6f63bc6b835bdcc3 /crypto/perlasm | |
| parent | db01bad30f173382441211dffe5d7b99bf51fa9c (diff) | |
x86gas.pl update.
Diffstat (limited to 'crypto/perlasm')
| -rw-r--r-- | crypto/perlasm/x86gas.pl | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/crypto/perlasm/x86gas.pl b/crypto/perlasm/x86gas.pl index 3f2eb7ae05..5347bf80a0 100644 --- a/crypto/perlasm/x86gas.pl +++ b/crypto/perlasm/x86gas.pl @@ -160,9 +160,7 @@ sub ::comment } sub ::external_label -{ foreach(@_) - { push(@out,".extern\t".&::LABEL($_,$nmdecor.$_)."\n"); } -} +{ foreach(@_) { &::LABEL($_,$nmdecor.$_); } } sub ::public_label { push(@out,".globl\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); } @@ -174,8 +172,7 @@ sub ::file_end else { push (@out,"$tmp\n"); } } if ($::macosx) - { grep {s/^\.extern\s+.*$//} @out; - if (%non_lazy_ptr) + { if (%non_lazy_ptr) { push(@out,".section __IMPORT,__pointers,non_lazy_symbol_pointers\n"); foreach $i (keys %non_lazy_ptr) { push(@out,"$non_lazy_ptr{$i}:\n.indirect_symbol\t$i\n.long\t0\n"); } @@ -214,9 +211,9 @@ sub ::picmeup $non_lazy_ptr{"$nmdecor$sym"}=$indirect; } else - { &::lea($dst,&::DWP("${nmdecor}_GLOBAL_OFFSET_TABLE_+[.-$reflabel]", + { &::lea($dst,&::DWP("_GLOBAL_OFFSET_TABLE_+[.-$reflabel]", $base)); - &::mov($dst,&::DWP("$nmdecor$sym\@GOT",$dst)); + &::mov($dst,&::DWP("$sym\@GOT",$dst)); } } else |