another fix for the debug print
authorUlf Möller <ulf@openssl.org>
Wed, 6 Dec 2000 04:14:37 +0000 (04:14 +0000)
committerUlf Möller <ulf@openssl.org>
Wed, 6 Dec 2000 04:14:37 +0000 (04:14 +0000)
crypto/perlasm/x86unix.pl

index a229944..573d4f1 100644 (file)
@@ -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();
        }