generic-library/openssl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
crypto/perlasm/x86ms.pl
View File

@ -367,4 +367,10 @@ sub out1p
push(@out,"\t$name\t ".&conv($p1)."\n"); 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",@_); } sub main'blindpop { &out1("pop",@_); }

6
crypto/perlasm/x86nasm.pl
View File

@ -344,4 +344,10 @@ sub out1p
push(@out,"\t$name\t ".&conv($p1)."\n"); 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",@_); } sub main'blindpop { &out1("pop",@_); }