1392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom#!/usr/bin/env perl 2392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# 3392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# ==================================================================== 4392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# Written by Andy Polyakov <appro@openssl.org> for the OpenSSL 5392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# project. The module is, however, dual licensed under OpenSSL and 6392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# CRYPTOGAMS licenses depending on where you obtain it. For further 7392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# details see http://www.openssl.org/~appro/cryptogams/. 8392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# ==================================================================== 9392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# 10392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# May 2011 11392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# 12392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# The module implements bn_GF2m_mul_2x2 polynomial multiplication used 13392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# in bn_gf2m.c. It's kind of low-hanging mechanical port from C for 14392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# the time being... Except that it has two code paths: code suitable 15392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# for any x86_64 CPU and PCLMULQDQ one suitable for Westmere and 161762a559ef393f9c15300398433598989033385fDavid 'Digit' Turner# later. Improvement varies from one benchmark and µ-arch to another. 17392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# Vanilla code path is at most 20% faster than compiler-generated code 18392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# [not very impressive], while PCLMULQDQ - whole 85%-160% better on 19392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# 163- and 571-bit ECDH benchmarks on Intel CPUs. Keep in mind that 20392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# these coefficients are not ones for bn_GF2m_mul_2x2 itself, as not 21392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# all CPU time is burnt in it... 22392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 23392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$flavour = shift; 24392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$output = shift; 25392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromif ($flavour =~ /\./) { $output = $flavour; undef $flavour; } 26392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 27392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$win64=0; $win64=1 if ($flavour =~ /[nm]asm|mingw64/ || $output =~ /\.asm$/); 28392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 29392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1; 30392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom( $xlate="${dir}x86_64-xlate.pl" and -f $xlate ) or 31392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom( $xlate="${dir}../../perlasm/x86_64-xlate.pl" and -f $xlate) or 32392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromdie "can't locate x86_64-xlate.pl"; 33392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 34ff41a4bc41ae1e1391f9b05117623ff70b985983Kenny Rootopen OUT,"| \"$^X\" $xlate $flavour $output"; 35ff41a4bc41ae1e1391f9b05117623ff70b985983Kenny Root*STDOUT=*OUT; 36392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 37392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom($lo,$hi)=("%rax","%rdx"); $a=$lo; 38392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom($i0,$i1)=("%rsi","%rdi"); 39392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom($t0,$t1)=("%rbx","%rcx"); 40392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom($b,$mask)=("%rbp","%r8"); 41392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom($a1,$a2,$a4,$a8,$a12,$a48)=map("%r$_",(9..15)); 42392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom($R,$Tx)=("%xmm0","%xmm1"); 43392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 44392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 45392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.text 46392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 47392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.type _mul_1x1,\@abi-omnipotent 48392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.align 16 49392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom_mul_1x1: 50392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom sub \$128+8,%rsp 51392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov \$-1,$a1 52392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea ($a,$a),$i0 53392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$3,$a1 54392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea (,$a,4),$i1 55392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $a,$a1 # a1=a&0x1fffffffffffffff 56392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea (,$a,8),$a8 57392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom sar \$63,$a # broadcast 63rd bit 58392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea ($a1,$a1),$a2 59392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom sar \$63,$i0 # broadcast 62nd bit 60392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea (,$a1,4),$a4 61392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$a 62392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom sar \$63,$i1 # boardcast 61st bit 63392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a,$hi # $a is $lo 64392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shl \$63,$lo 65392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$i0 66392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$1,$hi 67392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $i0,$t1 68392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shl \$62,$i0 69392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$i1 70392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$2,$t1 71392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $i0,$lo 72392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $i1,$t0 73392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shl \$61,$i1 74392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $t1,$hi 75392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$3,$t0 76392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $i1,$lo 77392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $t0,$hi 78392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 79392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a1,$a12 80392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq \$0,0(%rsp) # tab[0]=0 81392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a2,$a12 # a1^a2 82392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a1,8(%rsp) # tab[1]=a1 83392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a4,$a48 84392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a2,16(%rsp) # tab[2]=a2 85392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a8,$a48 # a4^a8 86392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a12,24(%rsp) # tab[3]=a1^a2 87392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 88392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a4,$a1 89392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a4,32(%rsp) # tab[4]=a4 90392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a4,$a2 91392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a1,40(%rsp) # tab[5]=a1^a4 92392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a4,$a12 93392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a2,48(%rsp) # tab[6]=a2^a4 94392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a48,$a1 # a1^a4^a4^a8=a1^a8 95392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a12,56(%rsp) # tab[7]=a1^a2^a4 96392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a48,$a2 # a2^a4^a4^a8=a1^a8 97392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 98392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a8,64(%rsp) # tab[8]=a8 99392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a48,$a12 # a1^a2^a4^a4^a8=a1^a2^a8 100392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a1,72(%rsp) # tab[9]=a1^a8 101392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a4,$a1 # a1^a8^a4 102392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a2,80(%rsp) # tab[10]=a2^a8 103392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a4,$a2 # a2^a8^a4 104392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a12,88(%rsp) # tab[11]=a1^a2^a8 105392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 106392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a4,$a12 # a1^a2^a8^a4 107392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a48,96(%rsp) # tab[12]=a4^a8 108392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $mask,$i0 109392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a1,104(%rsp) # tab[13]=a1^a4^a8 110392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$i0 111392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a2,112(%rsp) # tab[14]=a2^a4^a8 112392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$4,$b 113392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a12,120(%rsp) # tab[15]=a1^a2^a4^a8 114392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $mask,$i1 115392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$i1 116392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$4,$b 117392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 118392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq (%rsp,$i0,8),$R # half of calculations is done in SSE2 119392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $mask,$i0 120392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$i0 121392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$4,$b 122392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 123392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom for ($n=1;$n<8;$n++) { 124392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $code.=<<___; 125392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov (%rsp,$i1,8),$t1 126392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $mask,$i1 127392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $t1,$t0 128392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shl \$`8*$n-4`,$t1 129392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$i1 130392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq (%rsp,$i0,8),$Tx 131392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$`64-(8*$n-4)`,$t0 132392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $t1,$lo 133392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pslldq \$$n,$Tx 134392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $mask,$i0 135392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$4,$b 136392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $t0,$hi 137392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$i0 138392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$4,$b 139392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pxor $Tx,$R 140392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 141392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom } 142392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 143392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov (%rsp,$i1,8),$t1 144392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $t1,$t0 145392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shl \$`8*$n-4`,$t1 146392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq $R,$i0 147392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$`64-(8*$n-4)`,$t0 148392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $t1,$lo 149392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom psrldq \$8,$R 150392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $t0,$hi 151392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq $R,$i1 152392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $i0,$lo 153392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $i1,$hi 154392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 155392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom add \$128+8,%rsp 156392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ret 157392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.Lend_mul_1x1: 158392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.size _mul_1x1,.-_mul_1x1 159392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 160392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 161392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom($rp,$a1,$a0,$b1,$b0) = $win64? ("%rcx","%rdx","%r8", "%r9","%r10") : # Win64 order 162392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ("%rdi","%rsi","%rdx","%rcx","%r8"); # Unix order 163392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 164392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 165392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.extern OPENSSL_ia32cap_P 166392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.globl bn_GF2m_mul_2x2 167392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.type bn_GF2m_mul_2x2,\@abi-omnipotent 168392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.align 16 169392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrombn_GF2m_mul_2x2: 170392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov OPENSSL_ia32cap_P(%rip),%rax 171392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom bt \$33,%rax 172392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom jnc .Lvanilla_mul_2x2 173392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 174392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq $a1,%xmm0 175392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq $b1,%xmm1 176392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq $a0,%xmm2 177392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 178392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___ if ($win64); 179392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq 40(%rsp),%xmm3 180392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 181392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___ if (!$win64); 182392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq $b0,%xmm3 183392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 184392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 185392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movdqa %xmm0,%xmm4 186392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movdqa %xmm1,%xmm5 1871762a559ef393f9c15300398433598989033385fDavid 'Digit' Turner pclmulqdq \$0,%xmm1,%xmm0 # a1·b1 188392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pxor %xmm2,%xmm4 189392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pxor %xmm3,%xmm5 1901762a559ef393f9c15300398433598989033385fDavid 'Digit' Turner pclmulqdq \$0,%xmm3,%xmm2 # a0·b0 1911762a559ef393f9c15300398433598989033385fDavid 'Digit' Turner pclmulqdq \$0,%xmm5,%xmm4 # (a0+a1)·(b0+b1) 192392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xorps %xmm0,%xmm4 1931762a559ef393f9c15300398433598989033385fDavid 'Digit' Turner xorps %xmm2,%xmm4 # (a0+a1)·(b0+b1)-a0·b0-a1·b1 194392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movdqa %xmm4,%xmm5 195392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pslldq \$8,%xmm4 196392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom psrldq \$8,%xmm5 197392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pxor %xmm4,%xmm2 198392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pxor %xmm5,%xmm0 199392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movdqu %xmm2,0($rp) 200392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movdqu %xmm0,16($rp) 201392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ret 202392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 203392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.align 16 204392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.Lvanilla_mul_2x2: 205392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea -8*17(%rsp),%rsp 206392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 207392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___ if ($win64); 208392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov `8*17+40`(%rsp),$b0 209392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rdi,8*15(%rsp) 210392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rsi,8*16(%rsp) 211392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 212392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 213392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r14,8*10(%rsp) 214392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r13,8*11(%rsp) 215392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r12,8*12(%rsp) 216392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rbp,8*13(%rsp) 217392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rbx,8*14(%rsp) 218392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.Lbody_mul_2x2: 219392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $rp,32(%rsp) # save the arguments 220392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a1,40(%rsp) 221392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a0,48(%rsp) 222392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $b1,56(%rsp) 223392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $b0,64(%rsp) 224392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 225392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov \$0xf,$mask 226392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a1,$a 227392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $b1,$b 2281762a559ef393f9c15300398433598989033385fDavid 'Digit' Turner call _mul_1x1 # a1·b1 229392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $lo,16(%rsp) 230392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $hi,24(%rsp) 231392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 232392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 48(%rsp),$a 233392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 64(%rsp),$b 2341762a559ef393f9c15300398433598989033385fDavid 'Digit' Turner call _mul_1x1 # a0·b0 235392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $lo,0(%rsp) 236392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $hi,8(%rsp) 237392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 238392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 40(%rsp),$a 239392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 56(%rsp),$b 240392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor 48(%rsp),$a 241392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor 64(%rsp),$b 2421762a559ef393f9c15300398433598989033385fDavid 'Digit' Turner call _mul_1x1 # (a0+a1)·(b0+b1) 243392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 244392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom @r=("%rbx","%rcx","%rdi","%rsi"); 245392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 246392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 0(%rsp),@r[0] 247392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8(%rsp),@r[1] 248392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 16(%rsp),@r[2] 249392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 24(%rsp),@r[3] 250392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 32(%rsp),%rbp 251392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 252392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $hi,$lo 253392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @r[1],$hi 254392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @r[0],$lo 255392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov @r[0],0(%rbp) 256392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @r[2],$hi 257392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov @r[3],24(%rbp) 258392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @r[3],$lo 259392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @r[3],$hi 260392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $hi,$lo 261392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $hi,16(%rbp) 262392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $lo,8(%rbp) 263392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 264392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*10(%rsp),%r14 265392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*11(%rsp),%r13 266392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*12(%rsp),%r12 267392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*13(%rsp),%rbp 268392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*14(%rsp),%rbx 269392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 270392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___ if ($win64); 271392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*15(%rsp),%rdi 272392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*16(%rsp),%rsi 273392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 274392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 275392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea 8*17(%rsp),%rsp 276392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ret 277392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.Lend_mul_2x2: 278392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.size bn_GF2m_mul_2x2,.-bn_GF2m_mul_2x2 279392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.asciz "GF(2^m) Multiplication for x86_64, CRYPTOGAMS by <appro\@openssl.org>" 280392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.align 16 281392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 282392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 283392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# EXCEPTION_DISPOSITION handler (EXCEPTION_RECORD *rec,ULONG64 frame, 284392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# CONTEXT *context,DISPATCHER_CONTEXT *disp) 285392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromif ($win64) { 286392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$rec="%rcx"; 287392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$frame="%rdx"; 288392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$context="%r8"; 289392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$disp="%r9"; 290392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 291392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 292392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.extern __imp_RtlVirtualUnwind 293392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 294392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.type se_handler,\@abi-omnipotent 295392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.align 16 296392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromse_handler: 297392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom push %rsi 298392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom push %rdi 299392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom push %rbx 300392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom push %rbp 301392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom push %r12 302392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom push %r13 303392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom push %r14 304392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom push %r15 305392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pushfq 306392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom sub \$64,%rsp 307392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 308392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 152($context),%rax # pull context->Rsp 309392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 248($context),%rbx # pull context->Rip 310392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 311392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea .Lbody_mul_2x2(%rip),%r10 312392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom cmp %r10,%rbx # context->Rip<"prologue" label 313392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom jb .Lin_prologue 314392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 315392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*10(%rax),%r14 # mimic epilogue 316392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*11(%rax),%r13 317392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*12(%rax),%r12 318392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*13(%rax),%rbp 319392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*14(%rax),%rbx 320392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*15(%rax),%rdi 321392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*16(%rax),%rsi 322392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 323392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rbx,144($context) # restore context->Rbx 324392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rbp,160($context) # restore context->Rbp 325392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rsi,168($context) # restore context->Rsi 326392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rdi,176($context) # restore context->Rdi 327392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r12,216($context) # restore context->R12 328392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r13,224($context) # restore context->R13 329392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r14,232($context) # restore context->R14 330392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 331392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.Lin_prologue: 332392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea 8*17(%rax),%rax 333392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rax,152($context) # restore context->Rsp 334392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 335392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 40($disp),%rdi # disp->ContextRecord 336392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $context,%rsi # context 337392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov \$154,%ecx # sizeof(CONTEXT) 338392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .long 0xa548f3fc # cld; rep movsq 339392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 340392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $disp,%rsi 341392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor %rcx,%rcx # arg1, UNW_FLAG_NHANDLER 342392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8(%rsi),%rdx # arg2, disp->ImageBase 343392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 0(%rsi),%r8 # arg3, disp->ControlPc 344392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 16(%rsi),%r9 # arg4, disp->FunctionEntry 345392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 40(%rsi),%r10 # disp->ContextRecord 346392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea 56(%rsi),%r11 # &disp->HandlerData 347392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea 24(%rsi),%r12 # &disp->EstablisherFrame 348392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r10,32(%rsp) # arg5 349392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r11,40(%rsp) # arg6 350392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r12,48(%rsp) # arg7 351392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rcx,56(%rsp) # arg8, (NULL) 352392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom call *__imp_RtlVirtualUnwind(%rip) 353392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 354392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov \$1,%eax # ExceptionContinueSearch 355392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom add \$64,%rsp 356392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom popfq 357392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pop %r15 358392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pop %r14 359392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pop %r13 360392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pop %r12 361392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pop %rbp 362392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pop %rbx 363392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pop %rdi 364392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pop %rsi 365392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ret 366392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.size se_handler,.-se_handler 367392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 368392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.section .pdata 369392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.align 4 370392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .rva _mul_1x1 371392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .rva .Lend_mul_1x1 372392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .rva .LSEH_info_1x1 373392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 374392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .rva .Lvanilla_mul_2x2 375392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .rva .Lend_mul_2x2 376392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .rva .LSEH_info_2x2 377392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.section .xdata 378392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.align 8 379392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.LSEH_info_1x1: 380392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .byte 0x01,0x07,0x02,0x00 381392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .byte 0x07,0x01,0x11,0x00 # sub rsp,128+8 382392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.LSEH_info_2x2: 383392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .byte 9,0,0,0 384392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .rva se_handler 385392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 386392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom} 387392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 388392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code =~ s/\`([^\`]*)\`/eval($1)/gem; 389392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromprint $code; 390392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromclose STDOUT; 391