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

Support for IA-32 SSE2 instruction set.

Browse Source
This commit is contained in:
Andy Polyakov 2004-05-06 10:31:09 +00:00
parent 8d472bdd84
commit 10e7d6d526
3 changed files with 160 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
crypto/perlasm/x86ms.pl
View File

@ -51,6 +51,11 @@ sub main'DWP
&get_mem("DWORD",@_); &get_mem("DWORD",@_);
} }
sub main'QWP
{
&get_mem("QWORD",@_);
}
sub main'BC sub main'BC
{ {
return @_; return @_;
@ -160,6 +165,25 @@ sub main'not { &out1("not",@_); }
sub main'call { &out1("call",($_[0]=~/^\$L/?'':'_').$_[0]); } sub main'call { &out1("call",($_[0]=~/^\$L/?'':'_').$_[0]); }
sub main'ret { &out0("ret"); } sub main'ret { &out0("ret"); }
sub main'nop { &out0("nop"); } sub main'nop { &out0("nop"); }
sub main'test { &out2("test",@_); }
sub main'bt { &out2("bt",@_); }
sub main'leave { &out0("leave"); }
# SSE2
sub main'emms { &out0("emms"); }
sub main'movd { &out2("movd",@_); }
sub main'movq { &out2("movq",@_); }
sub main'movdqu { &out2("movdqu",@_); }
sub main'movdqa { &out2("movdqa",@_); }
sub main'movdq2q{ &out2("movdq2q",@_); }
sub main'movq2dq{ &out2("movq2dq",@_); }
sub main'paddq { &out2("paddq",@_); }
sub main'pmuludq{ &out2("pmuludq",@_); }
sub main'psrlq { &out2("psrlq",@_); }
sub main'psllq { &out2("psllq",@_); }
sub main'pxor { &out2("pxor",@_); }
sub main'por { &out2("por",@_); }
sub main'pand { &out2("pand",@_); }
sub out2 sub out2
{ {
@ -299,6 +323,13 @@ EOF
sub main'file_end sub main'file_end
{ {
# try to detect if SSE2 or MMX extensions were used...
if (grep {/xmm[0-7]\s*,/i} @out) {
grep {s/\.[3-7]86/\.786\n\t\.XMM/} @out;
}
elsif (grep {/mm[0-7]\s*,/i} @out) {
grep {s/\.[3-7]86/\.686\n\t\.MMX/} @out;
}
push(@out,"END\n"); push(@out,"END\n");
} }
@ -359,7 +390,12 @@ sub main'set_label
sub main'data_word sub main'data_word
{ {
push(@out,"\tDD\t$_[0]\n"); push(@out,"\tDD\t".join(',',@_)."\n");
}
sub main'align
{
push(@out,"\tALIGN\t$_[0]\n");
} }
sub out1p sub out1p

31
crypto/perlasm/x86nasm.pl
View File

@ -58,6 +58,11 @@ sub main'DWP
&get_mem("DWORD",@_); &get_mem("DWORD",@_);
} }
sub main'QWP
{
&get_mem("QWORD",@_);
}
sub main'BC sub main'BC
{ {
return "BYTE @_"; return "BYTE @_";
@ -169,6 +174,25 @@ sub main'not { &out1("not",@_); }
sub main'call { &out1("call",($_[0]=~/^\$L/?'':'_').$_[0]); } sub main'call { &out1("call",($_[0]=~/^\$L/?'':'_').$_[0]); }
sub main'ret { &out0("ret"); } sub main'ret { &out0("ret"); }
sub main'nop { &out0("nop"); } sub main'nop { &out0("nop"); }
sub main'test { &out2("test",@_); }
sub main'bt { &out2("bt",@_); }
sub main'leave { &out0("leave"); }
# SSE2
sub main'emms { &out0("emms"); }
sub main'movd { &out2("movd",@_); }
sub main'movq { &out2("movq",@_); }
sub main'movdqu { &out2("movdqu",@_); }
sub main'movdqa { &out2("movdqa",@_); }
sub main'movdq2q{ &out2("movdq2q",@_); }
sub main'movq2dq{ &out2("movq2dq",@_); }
sub main'paddq { &out2("paddq",@_); }
sub main'pmuludq{ &out2("pmuludq",@_); }
sub main'psrlq { &out2("psrlq",@_); }
sub main'psllq { &out2("psllq",@_); }
sub main'pxor { &out2("pxor",@_); }
sub main'por { &out2("por",@_); }
sub main'pand { &out2("pand",@_); }
sub out2 sub out2
{ {
@ -336,7 +360,12 @@ sub main'set_label
sub main'data_word sub main'data_word
{ {
push(@out,"\tDD\t$_[0]\n"); push(@out,"\tDD\t".join(',',@_)."\n");
}
sub main'align
{
push(@out,"\tALIGN\t$_[0]\n");
} }
sub out1p sub out1p

97
crypto/perlasm/x86unix.pl
View File

@ -51,6 +51,24 @@ if ($main'cpp)
'edi', '%edi', 'edi', '%edi',
'ebp', '%ebp', 'ebp', '%ebp',
'esp', '%esp', 'esp', '%esp',
'mm0', '%mm0',
'mm1', '%mm1',
'mm2', '%mm2',
'mm3', '%mm3',
'mm4', '%mm4',
'mm5', '%mm5',
'mm6', '%mm6',
'mm7', '%mm7',
'xmm0', '%xmm0',
'xmm1', '%xmm1',
'xmm2', '%xmm2',
'xmm3', '%xmm3',
'xmm4', '%xmm4',
'xmm5', '%xmm5',
'xmm6', '%xmm6',
'xmm7', '%xmm7',
); );
%reg_val=( %reg_val=(
@ -97,6 +115,11 @@ sub main'DWP
return($ret); return($ret);
} }
sub main'QWP
{
return(&main'DWP(@_));
}
sub main'BP sub main'BP
{ {
return(&main'DWP(@_)); return(&main'DWP(@_));
@ -173,6 +196,25 @@ sub main'not { &out1("notl",@_); }
sub main'call { &out1("call",($_[0]=~/^\.L/?'':$under).$_[0]); } sub main'call { &out1("call",($_[0]=~/^\.L/?'':$under).$_[0]); }
sub main'ret { &out0("ret"); } sub main'ret { &out0("ret"); }
sub main'nop { &out0("nop"); } sub main'nop { &out0("nop"); }
sub main'test { &out2("testl",@_); }
sub main'bt { &out2("btl",@_); }
sub main'leave { &out0("leave"); }
# SSE2
sub main'emms { &out0("emms"); }
sub main'movd { &out2("movd",@_); }
sub main'movq { &out2("movq",@_); }
sub main'movdqu { &out2("movdqu",@_); }
sub main'movdqa { &out2("movdqa",@_); }
sub main'movdq2q{ &out2("movdq2q",@_); }
sub main'movq2dq{ &out2("movq2dq",@_); }
sub main'paddq { &out2("paddq",@_); }
sub main'pmuludq{ &out2("pmuludq",@_); }
sub main'psrlq { &out2("psrlq",@_); }
sub main'psllq { &out2("psllq",@_); }
sub main'pxor { &out2("pxor",@_); }
sub main'por { &out2("por",@_); }
sub main'pand { &out2("pand",@_); }
# 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
@ -388,7 +430,7 @@ sub main'function_end_B
elsif ($main'gaswin) elsif ($main'gaswin)
{ push(@out,"\t.align 4\n"); } { push(@out,"\t.align 4\n"); }
else { push(@out,"\t.size\t$func,.L_${func}_end-$func\n"); } else { push(@out,"\t.size\t$func,.L_${func}_end-$func\n"); }
push(@out,".ident \"desasm.pl\"\n"); push(@out,".ident \"$func\"\n");
$stack=0; $stack=0;
%label=(); %label=();
} }
@ -466,6 +508,48 @@ sub main'set_label
sub main'file_end sub main'file_end
{ {
# try to detect if SSE2 or MMX extensions were used on ELF platform...
if ($main'elf && grep {/%[x]*mm[0-7]/i} @out) {
local($tmp);
push (@out,"\n.comm\t".$under."OPENSSL_ia32cap,8,4\n");
push (@out,".section\t.init\n");
# One can argue that it's wasteful to craft every
# SSE/MMX module with this snippet... Well, it's 72
# bytes long and for the moment we have two modules.
# Let's argue when we have 7 modules or so...
&main'picmeup("edx","OPENSSL_ia32cap");
$tmp=<<___;
cmpl \$0,(%edx)
jne 1f
movl \$1,(%edx)
pushf
popl %eax
movl %eax,%ecx
xorl \$1<<21,%eax
pushl %eax
popf
pushf
popl %eax
xorl %ecx,%eax
bt \$21,%eax
jnc 1f
pushl %edi
pushl %ebx
movl %edx,%edi
movl \$1,%eax
cpuid
orl \$1,%edx
movl %edx,0(%edi)
movl %ecx,4(%edi)
popl %ebx
popl %edi
1:
___
push (@out,$tmp);
}
if ($const ne "") if ($const ne "")
{ {
push(@out,".section .rodata\n"); push(@out,".section .rodata\n");
@ -476,7 +560,12 @@ sub main'file_end
sub main'data_word sub main'data_word
{ {
push(@out,"\t.long $_[0]\n"); push(@out,"\t.long\t".join(',',@_)."\n");
}
sub main'align
{
push(@out,".align $_[0]\n");
} }
# debug output functions: puts, putx, printf # debug output functions: puts, putx, printf
@ -558,7 +647,7 @@ sub main'picmeup
{ {
local($tmp)=<<___; local($tmp)=<<___;
#if (defined(ELF) || defined(SOL)) && defined(PIC) #if (defined(ELF) || defined(SOL)) && defined(PIC)
.align 8 .align 4
call 1f call 1f
1: popl $regs{$dst} 1: popl $regs{$dst}
addl \$_GLOBAL_OFFSET_TABLE_+[.-1b],$regs{$dst} addl \$_GLOBAL_OFFSET_TABLE_+[.-1b],$regs{$dst}
@ -571,7 +660,7 @@ ___
} }
elsif ($main'pic && ($main'elf || $main'aout)) elsif ($main'pic && ($main'elf || $main'aout))
{ {
push(@out,"\t.align\t8\n"); push(@out,"\t.align\t4\n");
&main'call(&main'label("PIC_me_up")); &main'call(&main'label("PIC_me_up"));
&main'set_label("PIC_me_up"); &main'set_label("PIC_me_up");
&main'blindpop($dst); &main'blindpop($dst);