From 26e71a1850b053ec6c1d2b67023d9e3a9d179008 Mon Sep 17 00:00:00 2001 From: Andy Polyakov Date: Fri, 4 Jan 2008 22:58:50 +0000 Subject: [PATCH] x86gas.pl update. --- crypto/perlasm/x86gas.pl | 11 ++++------- 1 file 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 -- 2.25.1