From: Andy Polyakov <appro@openssl.org>
Date: Fri, 24 Jan 2003 09:38:18 +0000 (+0000)
Subject: Provide "dummy" &main::picmeup even in Windows perlasm modules.
X-Git-Tag: OpenSSL_0_9_7a~40
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=0f618d057631093b32dba36a32385123d1aaaf65;p=openssl

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",@_); }