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

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

diff --git a/crypto/perlasm/x86nasm.pl b/crypto/perlasm/x86nasm.pl
index 796556159ca6d162d028535f57c2f07622ecdf6a..f30b7466d45da4cc7afda1276a9db790bd233a46 100644 (file)
--- 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",@_); }