From b50118ca3e1d66a32f96b515b43620e0962558be Mon Sep 17 00:00:00 2001
From: =?utf8?q?Ulf=20M=C3=B6ller?= <ulf@openssl.org>
Date: Tue, 5 Dec 2000 05:10:05 +0000
Subject: [PATCH] save registers in the debug output code (return value is
 overwritten too)

---
 crypto/perlasm/x86unix.pl | 24 +++++++++++++++++++++++-
 1 file changed, 23 insertions(+), 1 deletion(-)

diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl
index 560da0a708..51494e2a44 100644
--- a/crypto/perlasm/x86unix.pl
+++ b/crypto/perlasm/x86unix.pl
@@ -464,23 +464,29 @@ sub main'data_word
 	push(@out,"\t.long $_[0]\n");
 	}
 
+# debug output functions: puts, putx, printf
+
 sub main'puts
 	{
+	&pushvars();
 	&main'push('$Lstring' . ++$constl);
 	&main'call('puts');
 	$stack-=4;
 	&main'add("esp",4);
+	&popvars();
 
 	$const .= "Lstring$constl:\n\t.string \"@_[0]\"\n";
 	}
 
 sub main'putx
 	{
+	&pushvars();
 	&main'push($_[0]);
 	&main'push('$Lstring' . ++$constl);
 	&main'call('printf');
 	$stack-=8;
 	&main'add("esp",8);
+	&popvars();
 
 	$const .= "Lstring$constl:\n\t.string \"\%X\"\n";
 	}
@@ -488,6 +494,7 @@ sub main'putx
 sub main'printf
 	{
 	$ostack = $stack;
+	&pushvars();
 	for ($i = @_ - 1; $i >= 0; $i--)
 		{
 		$constl++;
@@ -509,6 +516,21 @@ sub main'printf
 			}
 		}
 	&main'call('printf');
-	$stack=$ostack;
+	$stack-=4*@_;
+	&popvars();
 	&main'add("esp",4*@_);
 	}
+
+sub pushvars
+	{
+	&main'push("edx");
+	&main'push("ecx");
+	&main'push("eax");
+	}
+
+sub popvars
+	{
+	&main'pop("eax");
+	&main'pop("ecx");
+	&main'pop("edx");
+	}
-- 
2.25.1