x86gas.pl update.

[openssl.git] / crypto / perlasm / x86gas.pl

diff --git a/crypto/perlasm/x86gas.pl b/crypto/perlasm/x86gas.pl
index 3f2eb7ae054c6370a4f6456e592aaf416d8f1dd0..5347bf80a03c5501a781684c7645c39a2c5fbe6c 100644 (file)
--- a/crypto/perlasm/x86gas.pl
+++ b/crypto/perlasm/x86gas.pl
@@ -160,9 +160,7 @@ sub ::comment
        }
 
 sub ::external_label
        }
 
 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");   }
 
 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)
        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");   }
        {   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
            $non_lazy_ptr{"$nmdecor$sym"}=$indirect;
        }
        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