another fix for the debug print

[openssl.git] / crypto / perlasm / x86unix.pl

diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl
index a22994490d9b640dbe72a41cc4a7110f34202029..573d4f1126e95cb939832a9f2da0eb1f2b9499ec 100644 (file)
--- 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'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"); }
 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
        {
 
 sub pushvars
        {

-       &out0("pushf");
+       &main'pushf();

        &main'push("edx");
        &main'push("ecx");
        &main'push("eax");
        &main'push("edx");
        &main'push("ecx");
        &main'push("eax");


@@ -538,5 +540,5 @@ sub popvars
        &main'pop("eax");
        &main'pop("ecx");
        &main'pop("edx");
        &main'pop("eax");
        &main'pop("ecx");
        &main'pop("edx");

-       &out0("popf");
+       &main'popf();

        }
        }