Provide "dummy" &main::picmeup even in Windows perlasm modules.
authorAndy Polyakov <appro@openssl.org>
Fri, 24 Jan 2003 09:39:31 +0000 (09:39 +0000)
committerAndy Polyakov <appro@openssl.org>
Fri, 24 Jan 2003 09:39:31 +0000 (09:39 +0000)
crypto/perlasm/x86ms.pl
crypto/perlasm/x86nasm.pl

index abcb7c1..35f1a4d 100644 (file)
@@ -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",@_); }
index 7965561..f30b746 100644 (file)
@@ -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",@_); }