diff options
author | Andy Polyakov <appro@openssl.org> | 2002-12-14 23:14:00 +0000 |
---|---|---|
committer | Andy Polyakov <appro@openssl.org> | 2002-12-14 23:14:00 +0000 |
commit | 717c5cdcc79daf0c16c62828619da247de9236a7 (patch) | |
tree | de0f3689c6c71e8ee9b4ed161bf1c61dc57fdad7 /crypto/perlasm/x86nasm.pl | |
parent | 0654bba39f2bae505a51f8d61eca97d4c96ec9fa (diff) |
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.
Diffstat (limited to 'crypto/perlasm/x86nasm.pl')
-rw-r--r-- | crypto/perlasm/x86nasm.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/crypto/perlasm/x86nasm.pl b/crypto/perlasm/x86nasm.pl index 85cb3885ec..796556159c 100644 --- 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"); |