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

This commit is contained in:
Andy Polyakov 2003-01-24 09:38:18 +00:00
parent 624feae8af
commit 0f618d0576
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",@_); }