Provide "dummy" &main::picmeup even in Windows perlasm modules.
This commit is contained in:
parent
624feae8af
commit
0f618d0576
2 changed files with 12 additions and 0 deletions
|
@ -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",@_); }
|
||||
|
|
|
@ -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",@_); }
|
||||
|
|
Loading…
Reference in a new issue