diff options
| author | Ulf Möller <ulf@openssl.org> | 2000-12-06 04:14:37 +0000 |
|---|---|---|
| committer | Ulf Möller <ulf@openssl.org> | 2000-12-06 04:14:37 +0000 |
| commit | ef8f14a88212dff6d251575dafb01cd1b40f9d37 (patch) | |
| tree | f61e1e58a6fa5f4614f66191b37a24f2fffe7ee4 /crypto/perlasm | |
| parent | aecb0b018fcf4906ff43174622a42b5f672d889b (diff) | |
| download | openssl-ef8f14a88212dff6d251575dafb01cd1b40f9d37.tar.gz | |
another fix for the debug print
Diffstat (limited to 'crypto/perlasm')
| -rw-r--r-- | crypto/perlasm/x86unix.pl | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl index a22994490d..573d4f1126 100644 --- a/crypto/perlasm/x86unix.pl +++ b/crypto/perlasm/x86unix.pl @@ -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(); } |