From: Andy Polyakov <appro@openssl.org>
Date: Fri, 24 Jan 2003 09:39:31 +0000 (+0000)
Subject: Provide "dummy" &main::picmeup even in Windows perlasm modules.
X-Git-Tag: BEN_FIPS_TEST_1~38^2~363
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=02bf9a151a435ceaa170f4b46387bba3afac0a78;p=oweals%2Fopenssl.git

Provide "dummy" &main::picmeup even in Windows perlasm modules.
---

diff --git a/crypto/perlasm/x86ms.pl b/crypto/perlasm/x86ms.pl
index abcb7c1303..35f1a4ddb9 100644
--- a/crypto/perlasm/x86ms.pl
+++ b/crypto/perlasm/x86ms.pl
@@ -367,4 +367,10 @@ sub out1p
 	push(@out,"\t$name\t ".&conv($p1)."\n");
 	}
 
+sub main'picmeup
+	{
+	local($dst,$sym)=@_;
+	&main'lea($dst,&main'DWP($sym));
+	}
+
 sub main'blindpop { &out1("pop",@_); }
diff --git a/crypto/perlasm/x86nasm.pl b/crypto/perlasm/x86nasm.pl
index 796556159c..f30b7466d4 100644
--- a/crypto/perlasm/x86nasm.pl
+++ b/crypto/perlasm/x86nasm.pl
@@ -344,4 +344,10 @@ sub out1p
 	push(@out,"\t$name\t ".&conv($p1)."\n");
 	}
 
+sub main'picmeup
+	{
+	local($dst,$sym)=@_;
+	&main'lea($dst,&main'DWP($sym));
+	}
+
 sub main'blindpop { &out1("pop",@_); }