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

bn/asm/rsaz-avx2.pl: Windows-specific fix.

Browse Source
This commit is contained in:
Andy Polyakov 2013-07-12 18:59:17 +02:00
parent 4b26645c1a
commit 5c57c69f9e
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
crypto/bn/asm/rsaz-avx2.pl
View File

@ -70,7 +70,7 @@ if (`$ENV{CC} -Wa,-v -c -o /dev/null -x assembler /dev/null 2>&1`
if (!$avx && $win64 && ($flavour =~ /nasm/ || $ENV{ASM} =~ /nasm/) && if (!$avx && $win64 && ($flavour =~ /nasm/ || $ENV{ASM} =~ /nasm/) &&
`nasm -v 2>&1` =~ /NASM version ([2-9]\.[0-9]+)/) { `nasm -v 2>&1` =~ /NASM version ([2-9]\.[0-9]+)/) {
$avx = ($1>=2.09) + ($1>=2.11); $avx = ($1>=2.09) + ($1>=2.10);
} }
if (!$avx && $win64 && ($flavour =~ /masm/ || $ENV{ASM} =~ /ml64/) && if (!$avx && $win64 && ($flavour =~ /masm/ || $ENV{ASM} =~ /ml64/) &&
@ -129,6 +129,8 @@ my $tp1=$r3;
$np="%r13"; # reassigned argument $np="%r13"; # reassigned argument
$code.=<<___; $code.=<<___;
.text
.globl rsaz_1024_sqr_avx2 .globl rsaz_1024_sqr_avx2
.type rsaz_1024_sqr_avx2,\@function,5 .type rsaz_1024_sqr_avx2,\@function,5
.align 64 .align 64
@ -263,7 +265,7 @@ $code.=<<___;
xor $tmp, $tmp xor $tmp, $tmp
mov \$4, $i mov \$4, $i
jmp .Lentry_1024 jmp .Lsqr_entry_1024
___ ___
$TEMP0=$Y1; $TEMP0=$Y1;
$TEMP2=$Y2; $TEMP2=$Y2;
@ -299,7 +301,7 @@ $code.=<<___;
vpmuludq 32*7-128($aap), $B1, $ACC8 vpmuludq 32*7-128($aap), $B1, $ACC8
vpbroadcastq 32*2-128($ap,$tmp), $B1 vpbroadcastq 32*2-128($ap,$tmp), $B1
vpaddq $TEMP2, $ACC8, $ACC8 vpaddq $TEMP2, $ACC8, $ACC8
.Lentry_1024: .Lsqr_entry_1024:
vmovdqu $ACC0, 32*0(%rsp,$tmp) # 32*0-192($tp0,$tmp) vmovdqu $ACC0, 32*0(%rsp,$tmp) # 32*0-192($tp0,$tmp)
vmovdqu $ACC1, 32*1(%rsp,$tmp) # 32*1-192($tp0,$tmp) vmovdqu $ACC1, 32*1(%rsp,$tmp) # 32*1-192($tp0,$tmp)