From: Ulf Möller <ulf@openssl.org>
Date: Tue, 5 Dec 2000 05:39:43 +0000 (+0000)
Subject: looks like it works now
X-Git-Tag: OpenSSL_0_9_6a-beta1~107^2~37
X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=commitdiff_plain;h=0c34556cbd509afc84d5a6796d463122408a028b;hp=b50118ca3e1d66a32f96b515b43620e0962558be

looks like it works now
---

diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl
index 51494e2a44..bb9c6925d8 100644
--- a/crypto/perlasm/x86unix.pl
+++ b/crypto/perlasm/x86unix.pl
@@ -4,6 +4,7 @@ package x86unix;
 
 $label="L000";
 $const="";
+$constl=0;
 
 $align=($main'aout)?"4":"16";
 $under=($main'aout)?"_":"";
@@ -484,8 +485,8 @@ sub main'putx
 	&main'push($_[0]);
 	&main'push('$Lstring' . ++$constl);
 	&main'call('printf');
-	$stack-=8;
 	&main'add("esp",8);
+	$stack-=8;
 	&popvars();
 
 	$const .= "Lstring$constl:\n\t.string \"\%X\"\n";
@@ -497,10 +498,9 @@ sub main'printf
 	&pushvars();
 	for ($i = @_ - 1; $i >= 0; $i--)
 		{
-		$constl++;
 		if ($i == 0) # change this to support %s format strings
 			{
-			&main'push('$Lstring' . $constl);
+			&main'push('$Lstring' . ++$constl);
 			$const .= "Lstring$constl:\n\t.string \"@_[$i]\"\n";
 			}
 		else
@@ -517,8 +517,8 @@ sub main'printf
 		}
 	&main'call('printf');
 	$stack-=4*@_;
-	&popvars();
 	&main'add("esp",4*@_);
+	&popvars();
 	}
 
 sub pushvars