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

This commit is contained in:
Andy Polyakov 2003-01-24 09:39:31 +00:00
parent d3b5cb5343
commit 02bf9a151a
2 changed files with 12 additions and 0 deletions

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

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