wbrawner/openssl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

another fix for the debug print

Browse source
This commit is contained in:
Ulf Möller 2000-12-06 04:14:37 +00:00
parent aecb0b018f
commit ef8f14a882
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
crypto/perlasm/x86unix.pl
View file

@ -164,6 +164,8 @@ sub main'dec { &out1("decl",@_); }
sub main'inc { &out1("incl",@_); } sub main'inc { &out1("incl",@_); }
sub main'push { &out1("pushl",@_); $stack+=4; } sub main'push { &out1("pushl",@_); $stack+=4; }
sub main'pop { &out1("popl",@_); $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'not { &out1("notl",@_); }
sub main'call { &out1("call",$under.$_[0]); } sub main'call { &out1("call",$under.$_[0]); }
sub main'ret { &out0("ret"); } sub main'ret { &out0("ret"); }
@ -527,7 +529,7 @@ sub main'printf
sub pushvars sub pushvars
{ {
&out0("pushf"); &main'pushf();
&main'push("edx"); &main'push("edx");
&main'push("ecx"); &main'push("ecx");
&main'push("eax"); &main'push("eax");
@ -538,5 +540,5 @@ sub popvars
&main'pop("eax"); &main'pop("eax");
&main'pop("ecx"); &main'pop("ecx");
&main'pop("edx"); &main'pop("edx");
&out0("popf"); &main'popf();
} }