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

perlasm/x86unix.pl update.

Browse Source
This commit is contained in:
Andy Polyakov 2006-07-31 22:26:40 +00:00
parent 22c268e6c9
commit 0cc46efa09
1 changed files with 38 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

44
crypto/perlasm/x86unix.pl
View File

@ -234,6 +234,15 @@ sub main'movq {
{ push(@out,"\tpshufw\t\$0xe4,%$p2,%$p1\n"); } { push(@out,"\tpshufw\t\$0xe4,%$p2,%$p1\n"); }
else { &out2("movq",@_); } else { &out2("movq",@_); }
} }
sub main'pshufw {
local ($dst,$src,$magic)=@_;
push(@out,"\tpshufw\t\$$magic,%$src,%$dst\n");
}
sub main'punpckldq { &out2("punpckldq",@_); }
sub main'pcmpgtb { &out2("pcmpgtb",@_); }
sub main'paddb { &out2("paddb",@_); }
sub main'psrld { &out2("psrld",@_); }
sub main'pslld { &out2("pslld",@_); }
# The bswapl instruction is new for the 486. Emulate if i386. # The bswapl instruction is new for the 486. Emulate if i386.
sub main'bswap sub main'bswap
@ -690,10 +699,14 @@ sub popvars
sub main'picmeup sub main'picmeup
{ {
local($dst,$sym)=@_; local($dst,$sym,$base,$label)=@_;
if ($main'cpp) if ($main'cpp)
{ {
local($tmp)=<<___; local($tmp);
if (!defined($base))
{
$tmp=<<___;
#if (defined(ELF) || defined(SOL)) && defined(PIC) #if (defined(ELF) || defined(SOL)) && defined(PIC)
call 1f call 1f
1: popl $regs{$dst} 1: popl $regs{$dst}
@ -703,15 +716,34 @@ sub main'picmeup
leal $sym,$regs{$dst} leal $sym,$regs{$dst}
#endif #endif
___ ___
}
else {
$tmp=<<___;
#if (defined(ELF) || defined(SOL)) && defined(PIC)
leal _GLOBAL_OFFSET_TABLE_+[.-$label]($regs{$base}),$regs{$dst}
movl $sym\@GOT($regs{$dst}),$regs{$dst}
#else
leal $sym,$regs{$dst}
#endif
___
}
push(@out,$tmp); push(@out,$tmp);
} }
elsif ($main'pic && ($main'elf || $main'aout)) elsif ($main'pic && ($main'elf || $main'aout))
{ {
&main'call(&main'label("PIC_me_up")); if (!defined($base))
&main'set_label("PIC_me_up"); {
&main'blindpop($dst); &main'call(&main'label("PIC_me_up"));
&main'add($dst,"\$${under}_GLOBAL_OFFSET_TABLE_+[.-". &main'set_label("PIC_me_up");
&main'blindpop($dst);
&main'add($dst,"\$${under}_GLOBAL_OFFSET_TABLE_+[.-".
&main'label("PIC_me_up") . "]"); &main'label("PIC_me_up") . "]");
}
else {
&main'lea($dst,&main'DWP(
"${under}_GLOBAL_OFFSET_TABLE_+[.-$label]",
$base));
}
&main'mov($dst,&main'DWP($under.$sym."\@GOT",$dst)); &main'mov($dst,&main'DWP($under.$sym."\@GOT",$dst));
} }
else else