From: Ulf Möller <ulf@openssl.org>
Date: Wed, 6 Dec 2000 04:14:37 +0000 (+0000)
Subject: another fix for the debug print
X-Git-Tag: OpenSSL_0_9_6a-beta1~107^2~28
X-Git-Url: https://git.openssl.org/?p=openssl.git;a=commitdiff_plain;h=ef8f14a88212dff6d251575dafb01cd1b40f9d37;ds=sidebyside

another fix for the debug print
---

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();
 	}