From: Andy Polyakov <appro@openssl.org>
Date: Thu, 31 Aug 2006 21:12:17 +0000 (+0000)
Subject: Fix bug in x86unix.pl introduced in latest update.
X-Git-Tag: OpenSSL_0_9_8k^2~1161
X-Git-Url: https://git.openssl.org/gitweb/?p=openssl.git;a=commitdiff_plain;h=2f35ae90fe6a7320c495a9f54ce0744f2a6928b7

Fix bug in x86unix.pl introduced in latest update.
PR: 1380
---

diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl
index 6b90848497..72b2c7b1a8 100644
--- a/crypto/perlasm/x86unix.pl
+++ b/crypto/perlasm/x86unix.pl
@@ -699,7 +699,7 @@ sub popvars
 
 sub main'picmeup
 	{
-	local($dst,$sym,$base,$label)=@_;
+	local($dst,$sym,$base,$reflabel)=@_;
 
 	if ($main'cpp)
 		{
@@ -720,7 +720,7 @@ ___
 		else	{
 			$tmp=<<___;
 #if (defined(ELF) || defined(SOL)) && defined(PIC)
-	leal	_GLOBAL_OFFSET_TABLE_+[.-$label]($regs{$base}),$regs{$dst}
+	leal	_GLOBAL_OFFSET_TABLE_+[.-$reflabel]($regs{$base}),$regs{$dst}
 	movl	$sym\@GOT($regs{$dst}),$regs{$dst}
 #else
 	leal	$sym,$regs{$dst}
@@ -741,7 +741,7 @@ ___
 			}
 		else	{
 			&main'lea($dst,&main'DWP(
-				"${under}_GLOBAL_OFFSET_TABLE_+[.-$label]",
+				"${under}_GLOBAL_OFFSET_TABLE_+[.-$reflabel]",
 				$base));
 			}
 		&main'mov($dst,&main'DWP($under.$sym."\@GOT",$dst));