another fix for the debug print
This commit is contained in:
parent
aecb0b018f
commit
ef8f14a882
1 changed files with 4 additions and 2 deletions
|
@ -164,6 +164,8 @@ sub main'dec { &out1("decl",@_); }
|
|||
sub main'inc { &out1("incl",@_); }
|
||||
sub main'push { &out1("pushl",@_); $stack+=4; }
|
||||
sub main'pop { &out1("popl",@_); $stack-=4; }
|
||||
sub main'pushf { &out0("pushf"); $stack+=4; }
|
||||
sub main'popf { &out0("popf"); $stack-=4; }
|
||||
sub main'not { &out1("notl",@_); }
|
||||
sub main'call { &out1("call",$under.$_[0]); }
|
||||
sub main'ret { &out0("ret"); }
|
||||
|
@ -527,7 +529,7 @@ sub main'printf
|
|||
|
||||
sub pushvars
|
||||
{
|
||||
&out0("pushf");
|
||||
&main'pushf();
|
||||
&main'push("edx");
|
||||
&main'push("ecx");
|
||||
&main'push("eax");
|
||||
|
@ -538,5 +540,5 @@ sub popvars
|
|||
&main'pop("eax");
|
||||
&main'pop("ecx");
|
||||
&main'pop("edx");
|
||||
&out0("popf");
|
||||
&main'popf();
|
||||
}
|
||||
|
|
Loading…
Reference in a new issue