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.
This commit is contained in:
parent
0654bba39f
commit
717c5cdcc7
@ -163,7 +163,7 @@ sub main'push { &out1("push",@_); $stack+=4; }
|
|||||||
sub main'pop { &out1("pop",@_); $stack-=4; }
|
sub main'pop { &out1("pop",@_); $stack-=4; }
|
||||||
sub main'bswap { &out1("bswap",@_); &using486(); }
|
sub main'bswap { &out1("bswap",@_); &using486(); }
|
||||||
sub main'not { &out1("not",@_); }
|
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'ret { &out0("ret"); }
|
||||||
sub main'nop { &out0("nop"); }
|
sub main'nop { &out0("nop"); }
|
||||||
|
|
||||||
@ -315,7 +315,7 @@ sub main'label
|
|||||||
{
|
{
|
||||||
if (!defined($label{$_[0]}))
|
if (!defined($label{$_[0]}))
|
||||||
{
|
{
|
||||||
$label{$_[0]}=".${label}${_[0]}";
|
$label{$_[0]}="\$${label}${_[0]}";
|
||||||
$label++;
|
$label++;
|
||||||
}
|
}
|
||||||
return($label{$_[0]});
|
return($label{$_[0]});
|
||||||
@ -325,7 +325,7 @@ sub main'set_label
|
|||||||
{
|
{
|
||||||
if (!defined($label{$_[0]}))
|
if (!defined($label{$_[0]}))
|
||||||
{
|
{
|
||||||
$label{$_[0]}=".${label}${_[0]}";
|
$label{$_[0]}="\$${label}${_[0]}";
|
||||||
$label++;
|
$label++;
|
||||||
}
|
}
|
||||||
push(@out,"$label{$_[0]}:\n");
|
push(@out,"$label{$_[0]}:\n");
|
||||||
|
Loading…
x
Reference in New Issue
Block a user