As you might have noticed I tried to change for . prefix, because it's

the one to be used to denote local labels in single function scope.
Problem is that SHA uses same label set across functions, therefore I
have to switch back to $ prefix.

diff --git a/crypto/perlasm/x86nasm.pl b/crypto/perlasm/x86nasm.pl
index 85cb3885ec74c709a45bc24d60a6eeaabfff1920..796556159ca6d162d028535f57c2f07622ecdf6a 100644 (file)
--- a/crypto/perlasm/x86nasm.pl
+++ b/crypto/perlasm/x86nasm.pl
@@ -163,7 +163,7 @@ sub main'push       { &out1("push",@_); $stack+=4; }
 sub main'pop   { &out1("pop",@_); $stack-=4; }
 sub main'bswap { &out1("bswap",@_); &using486(); }
 sub main'not   { &out1("not",@_); }
-sub main'call  { &out1("call",($_[0]=~/^\.L/?'':'_').$_[0]); }
+sub main'call  { &out1("call",($_[0]=~/^\$L/?'':'_').$_[0]); }
 sub main'ret   { &out0("ret"); }
 sub main'nop   { &out0("nop"); }
 
@@ -315,7 +315,7 @@ sub main'label
        {
        if (!defined($label{$_[0]}))
                {
-               $label{$_[0]}=".${label}${_[0]}";
+               $label{$_[0]}="\$${label}${_[0]}";
                $label++;
                }
        return($label{$_[0]});
@@ -325,7 +325,7 @@ sub main'set_label
        {
        if (!defined($label{$_[0]}))
                {
-               $label{$_[0]}=".${label}${_[0]}";
+               $label{$_[0]}="\$${label}${_[0]}";
                $label++;
                }
        push(@out,"$label{$_[0]}:\n");