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

x86gas.pl update.

Browse Source
This commit is contained in:
Andy Polyakov 2008-01-04 22:58:50 +00:00
parent db01bad30f
commit 26e71a1850
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
crypto/perlasm/x86gas.pl
View File

@ -160,9 +160,7 @@ sub ::comment
} }
sub ::external_label sub ::external_label
{ foreach(@_) { foreach(@_) { &::LABEL($_,$nmdecor.$_); } }
{ push(@out,".extern\t".&::LABEL($_,$nmdecor.$_)."\n"); }
}
sub ::public_label sub ::public_label
{ push(@out,".globl\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); } { push(@out,".globl\t".&::LABEL($_[0],$nmdecor.$_[0])."\n"); }
@ -174,8 +172,7 @@ sub ::file_end
else { push (@out,"$tmp\n"); } else { push (@out,"$tmp\n"); }
} }
if ($::macosx) 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"); { push(@out,".section __IMPORT,__pointers,non_lazy_symbol_pointers\n");
foreach $i (keys %non_lazy_ptr) foreach $i (keys %non_lazy_ptr)
{ push(@out,"$non_lazy_ptr{$i}:\n.indirect_symbol\t$i\n.long\t0\n"); } { 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; $non_lazy_ptr{"$nmdecor$sym"}=$indirect;
} }
else else
{ &::lea($dst,&::DWP("${nmdecor}_GLOBAL_OFFSET_TABLE_+[.-$reflabel]", { &::lea($dst,&::DWP("_GLOBAL_OFFSET_TABLE_+[.-$reflabel]",
$base)); $base));
&::mov($dst,&::DWP("$nmdecor$sym\@GOT",$dst)); &::mov($dst,&::DWP("$sym\@GOT",$dst));
} }
} }
else else