Commit 02bf9a15 authored by Andy Polyakov's avatar Andy Polyakov
Browse files

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

parent d3b5cb53

crypto/perlasm/x86ms.pl

+6 −0
Original line number Diff line number Diff line
@@ -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",@_); }

crypto/perlasm/x86nasm.pl

+6 −0
Original line number Diff line number Diff line
@@ -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",@_); }