From 2f35ae90fe6a7320c495a9f54ce0744f2a6928b7 Mon Sep 17 00:00:00 2001
From: Andy Polyakov <appro@openssl.org>
Date: Thu, 31 Aug 2006 21:12:17 +0000
Subject: [PATCH] Fix bug in x86unix.pl introduced in latest update. PR: 1380

---
 crypto/perlasm/x86unix.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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));
-- 
2.34.1