From 02bf9a151a435ceaa170f4b46387bba3afac0a78 Mon Sep 17 00:00:00 2001 From: Andy Polyakov Date: Fri, 24 Jan 2003 09:39:31 +0000 Subject: [PATCH] Provide "dummy" &main::picmeup even in Windows perlasm modules. --- crypto/perlasm/x86ms.pl | 6 ++++++ crypto/perlasm/x86nasm.pl | 6 ++++++ 2 files changed, 12 insertions(+) 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",@_); } -- 2.25.1