From ef8f14a88212dff6d251575dafb01cd1b40f9d37 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Ulf=20M=C3=B6ller?= <ulf@openssl.org>
Date: Wed, 6 Dec 2000 04:14:37 +0000
Subject: [PATCH] another fix for the debug print

---
 crypto/perlasm/x86unix.pl | 6 ++++--
 1 file 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();
 	}
-- 
2.34.1