Fix bug in x86unix.pl introduced in latest update.

PR: 1380

diff --git a/crypto/perlasm/x86unix.pl b/crypto/perlasm/x86unix.pl
index 6b90848497ce2c69f87b6d77e7c88eefbe230339..72b2c7b1a841fdba1e31780964a08cfa10691637 100644 (file)
--- a/crypto/perlasm/x86unix.pl
+++ b/crypto/perlasm/x86unix.pl
@@ -699,7 +699,7 @@ sub popvars
 
 sub main'picmeup
        {
 
 sub main'picmeup
        {

-       local($dst,$sym,$base,$label)=@_;
+       local($dst,$sym,$base,$reflabel)=@_;

 
        if ($main'cpp)
                {
 
        if ($main'cpp)
                {


@@ -720,7 +720,7 @@ ___
                else    {
                        $tmp=<<___;
 #if (defined(ELF) || defined(SOL)) && defined(PIC)
                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}
        movl    $sym\@GOT($regs{$dst}),$regs{$dst}
 #else
        leal    $sym,$regs{$dst}


@@ -741,7 +741,7 @@ ___
                        }
                else    {
                        &main'lea($dst,&main'DWP(
                        }
                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));
                                $base));
                        }
                &main'mov($dst,&main'DWP($under.$sym."\@GOT",$dst));