perlasm/x86*.pl updates.

2008-01-03 16:21:06 +00:00
parent c8ec4a1b0b
commit 3a87756fed
3 changed files with 14 additions and 4 deletions
--- a/crypto/perlasm/x86nasm.pl
+++ b/crypto/perlasm/x86nasm.pl
@@ -123,7 +123,9 @@ ___
 sub ::comment {   foreach (@_) { push(@out,"\t; $_\n"); }   }

 sub ::external_label
-{   push(@out,"${drdecor}extern\t".&::LABEL($_[0],$nmdecor.$_[0])."\n");   }
+{   foreach(@_)
+    {	push(@out,"${drdecor}extern\t".&::LABEL($_,$nmdecor.$_)."\n");   }
+}

 sub ::public_label
 {   push(@out,"${drdecor}global\t".&::LABEL($_[0],$nmdecor.$_[0])."\n");  }