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

[openssl.git] / crypto / perlasm / x86ms.pl

diff --git a/crypto/perlasm/x86ms.pl b/crypto/perlasm/x86ms.pl
index abcb7c1303edc0bc97ca4efa8fafc50dfb6e9807..35f1a4ddb931bc10e737b2272e0abccdb72a9fd1 100644 (file)
--- 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",@_); }