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 3404ef91b390dfcc6125913e2f2af502d23d7a5112Brian Carlstromopen STDOUT,"| \"$^X\" $xlate $flavour $output"; 35392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 36392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom($lo,$hi)=("%rax","%rdx"); $a=$lo; 37392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom($i0,$i1)=("%rsi","%rdi"); 38392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom($t0,$t1)=("%rbx","%rcx"); 39392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom($b,$mask)=("%rbp","%r8"); 40392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom($a1,$a2,$a4,$a8,$a12,$a48)=map("%r$_",(9..15)); 41392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom($R,$Tx)=("%xmm0","%xmm1"); 42392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 43392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 44392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.text 45392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 46392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.type _mul_1x1,\@abi-omnipotent 47392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.align 16 48392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom_mul_1x1: 49392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom sub \$128+8,%rsp 50392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov \$-1,$a1 51392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea ($a,$a),$i0 52392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$3,$a1 53392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea (,$a,4),$i1 54392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $a,$a1 # a1=a&0x1fffffffffffffff 55392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea (,$a,8),$a8 56392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom sar \$63,$a # broadcast 63rd bit 57392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea ($a1,$a1),$a2 58392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom sar \$63,$i0 # broadcast 62nd bit 59392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea (,$a1,4),$a4 60392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$a 61392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom sar \$63,$i1 # boardcast 61st bit 62392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a,$hi # $a is $lo 63392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shl \$63,$lo 64392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$i0 65392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$1,$hi 66392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $i0,$t1 67392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shl \$62,$i0 68392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$i1 69392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$2,$t1 70392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $i0,$lo 71392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $i1,$t0 72392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shl \$61,$i1 73392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $t1,$hi 74392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$3,$t0 75392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $i1,$lo 76392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $t0,$hi 77392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 78392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a1,$a12 79392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq \$0,0(%rsp) # tab[0]=0 80392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a2,$a12 # a1^a2 81392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a1,8(%rsp) # tab[1]=a1 82392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a4,$a48 83392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a2,16(%rsp) # tab[2]=a2 84392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a8,$a48 # a4^a8 85392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a12,24(%rsp) # tab[3]=a1^a2 86392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 87392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a4,$a1 88392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a4,32(%rsp) # tab[4]=a4 89392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a4,$a2 90392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a1,40(%rsp) # tab[5]=a1^a4 91392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a4,$a12 92392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a2,48(%rsp) # tab[6]=a2^a4 93392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a48,$a1 # a1^a4^a4^a8=a1^a8 94392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a12,56(%rsp) # tab[7]=a1^a2^a4 95392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a48,$a2 # a2^a4^a4^a8=a1^a8 96392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 97392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a8,64(%rsp) # tab[8]=a8 98392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a48,$a12 # a1^a2^a4^a4^a8=a1^a2^a8 99392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a1,72(%rsp) # tab[9]=a1^a8 100392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a4,$a1 # a1^a8^a4 101392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a2,80(%rsp) # tab[10]=a2^a8 102392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a4,$a2 # a2^a8^a4 103392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a12,88(%rsp) # tab[11]=a1^a2^a8 104392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 105392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $a4,$a12 # a1^a2^a8^a4 106392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a48,96(%rsp) # tab[12]=a4^a8 107392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $mask,$i0 108392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a1,104(%rsp) # tab[13]=a1^a4^a8 109392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$i0 110392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a2,112(%rsp) # tab[14]=a2^a4^a8 111392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$4,$b 112392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a12,120(%rsp) # tab[15]=a1^a2^a4^a8 113392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $mask,$i1 114392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$i1 115392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$4,$b 116392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 117392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq (%rsp,$i0,8),$R # half of calculations is done in SSE2 118392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $mask,$i0 119392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$i0 120392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$4,$b 121392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 122392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom for ($n=1;$n<8;$n++) { 123392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom $code.=<<___; 124392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov (%rsp,$i1,8),$t1 125392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $mask,$i1 126392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $t1,$t0 127392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shl \$`8*$n-4`,$t1 128392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$i1 129392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq (%rsp,$i0,8),$Tx 130392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$`64-(8*$n-4)`,$t0 131392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $t1,$lo 132392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pslldq \$$n,$Tx 133392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $mask,$i0 134392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$4,$b 135392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $t0,$hi 136392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom and $b,$i0 137392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$4,$b 138392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pxor $Tx,$R 139392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 140392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom } 141392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 142392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov (%rsp,$i1,8),$t1 143392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $t1,$t0 144392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shl \$`8*$n-4`,$t1 145392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq $R,$i0 146392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom shr \$`64-(8*$n-4)`,$t0 147392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $t1,$lo 148392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom psrldq \$8,$R 149392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $t0,$hi 150392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq $R,$i1 151392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $i0,$lo 152392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $i1,$hi 153392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 154392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom add \$128+8,%rsp 155392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ret 156392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.Lend_mul_1x1: 157392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.size _mul_1x1,.-_mul_1x1 158392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 159392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 160392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom($rp,$a1,$a0,$b1,$b0) = $win64? ("%rcx","%rdx","%r8", "%r9","%r10") : # Win64 order 161392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ("%rdi","%rsi","%rdx","%rcx","%r8"); # Unix order 162392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 163392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 164392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.extern OPENSSL_ia32cap_P 165392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.globl bn_GF2m_mul_2x2 166392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.type bn_GF2m_mul_2x2,\@abi-omnipotent 167392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.align 16 168392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrombn_GF2m_mul_2x2: 169392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov OPENSSL_ia32cap_P(%rip),%rax 170392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom bt \$33,%rax 171392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom jnc .Lvanilla_mul_2x2 172392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 173392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq $a1,%xmm0 174392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq $b1,%xmm1 175392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq $a0,%xmm2 176392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 177392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___ if ($win64); 178392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq 40(%rsp),%xmm3 179392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 180392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___ if (!$win64); 181392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movq $b0,%xmm3 182392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 183392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 184392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movdqa %xmm0,%xmm4 185392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movdqa %xmm1,%xmm5 1861762a559ef393f9c15300398433598989033385fDavid 'Digit' Turner pclmulqdq \$0,%xmm1,%xmm0 # a1·b1 187392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pxor %xmm2,%xmm4 188392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pxor %xmm3,%xmm5 1891762a559ef393f9c15300398433598989033385fDavid 'Digit' Turner pclmulqdq \$0,%xmm3,%xmm2 # a0·b0 1901762a559ef393f9c15300398433598989033385fDavid 'Digit' Turner pclmulqdq \$0,%xmm5,%xmm4 # (a0+a1)·(b0+b1) 191392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xorps %xmm0,%xmm4 1921762a559ef393f9c15300398433598989033385fDavid 'Digit' Turner xorps %xmm2,%xmm4 # (a0+a1)·(b0+b1)-a0·b0-a1·b1 193392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movdqa %xmm4,%xmm5 194392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pslldq \$8,%xmm4 195392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom psrldq \$8,%xmm5 196392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pxor %xmm4,%xmm2 197392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pxor %xmm5,%xmm0 198392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movdqu %xmm2,0($rp) 199392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom movdqu %xmm0,16($rp) 200392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ret 201392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 202392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.align 16 203392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.Lvanilla_mul_2x2: 204392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea -8*17(%rsp),%rsp 205392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 206392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___ if ($win64); 207392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov `8*17+40`(%rsp),$b0 208392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rdi,8*15(%rsp) 209392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rsi,8*16(%rsp) 210392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 211392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 212392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r14,8*10(%rsp) 213392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r13,8*11(%rsp) 214392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r12,8*12(%rsp) 215392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rbp,8*13(%rsp) 216392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rbx,8*14(%rsp) 217392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.Lbody_mul_2x2: 218392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $rp,32(%rsp) # save the arguments 219392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a1,40(%rsp) 220392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a0,48(%rsp) 221392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $b1,56(%rsp) 222392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $b0,64(%rsp) 223392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 224392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov \$0xf,$mask 225392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $a1,$a 226392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $b1,$b 2271762a559ef393f9c15300398433598989033385fDavid 'Digit' Turner call _mul_1x1 # a1·b1 228392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $lo,16(%rsp) 229392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $hi,24(%rsp) 230392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 231392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 48(%rsp),$a 232392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 64(%rsp),$b 2331762a559ef393f9c15300398433598989033385fDavid 'Digit' Turner call _mul_1x1 # a0·b0 234392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $lo,0(%rsp) 235392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $hi,8(%rsp) 236392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 237392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 40(%rsp),$a 238392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 56(%rsp),$b 239392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor 48(%rsp),$a 240392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor 64(%rsp),$b 2411762a559ef393f9c15300398433598989033385fDavid 'Digit' Turner call _mul_1x1 # (a0+a1)·(b0+b1) 242392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 243392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom @r=("%rbx","%rcx","%rdi","%rsi"); 244392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 245392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 0(%rsp),@r[0] 246392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8(%rsp),@r[1] 247392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 16(%rsp),@r[2] 248392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 24(%rsp),@r[3] 249392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 32(%rsp),%rbp 250392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 251392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $hi,$lo 252392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @r[1],$hi 253392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @r[0],$lo 254392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov @r[0],0(%rbp) 255392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @r[2],$hi 256392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov @r[3],24(%rbp) 257392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @r[3],$lo 258392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor @r[3],$hi 259392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor $hi,$lo 260392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $hi,16(%rbp) 261392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $lo,8(%rbp) 262392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 263392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*10(%rsp),%r14 264392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*11(%rsp),%r13 265392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*12(%rsp),%r12 266392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*13(%rsp),%rbp 267392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*14(%rsp),%rbx 268392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 269392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___ if ($win64); 270392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*15(%rsp),%rdi 271392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*16(%rsp),%rsi 272392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 273392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 274392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea 8*17(%rsp),%rsp 275392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ret 276392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.Lend_mul_2x2: 277392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.size bn_GF2m_mul_2x2,.-bn_GF2m_mul_2x2 278392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.asciz "GF(2^m) Multiplication for x86_64, CRYPTOGAMS by <appro\@openssl.org>" 279392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.align 16 280392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 281392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 282392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# EXCEPTION_DISPOSITION handler (EXCEPTION_RECORD *rec,ULONG64 frame, 283392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom# CONTEXT *context,DISPATCHER_CONTEXT *disp) 284392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromif ($win64) { 285392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$rec="%rcx"; 286392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$frame="%rdx"; 287392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$context="%r8"; 288392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$disp="%r9"; 289392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 290392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code.=<<___; 291392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.extern __imp_RtlVirtualUnwind 292392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 293392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.type se_handler,\@abi-omnipotent 294392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.align 16 295392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromse_handler: 296392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom push %rsi 297392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom push %rdi 298392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom push %rbx 299392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom push %rbp 300392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom push %r12 301392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom push %r13 302392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom push %r14 303392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom push %r15 304392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pushfq 305392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom sub \$64,%rsp 306392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 307392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 152($context),%rax # pull context->Rsp 308392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 248($context),%rbx # pull context->Rip 309392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 310392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea .Lbody_mul_2x2(%rip),%r10 311392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom cmp %r10,%rbx # context->Rip<"prologue" label 312392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom jb .Lin_prologue 313392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 314392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*10(%rax),%r14 # mimic epilogue 315392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*11(%rax),%r13 316392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*12(%rax),%r12 317392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*13(%rax),%rbp 318392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*14(%rax),%rbx 319392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*15(%rax),%rdi 320392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8*16(%rax),%rsi 321392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 322392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rbx,144($context) # restore context->Rbx 323392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rbp,160($context) # restore context->Rbp 324392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rsi,168($context) # restore context->Rsi 325392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rdi,176($context) # restore context->Rdi 326392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r12,216($context) # restore context->R12 327392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r13,224($context) # restore context->R13 328392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r14,232($context) # restore context->R14 329392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 330392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.Lin_prologue: 331392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea 8*17(%rax),%rax 332392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rax,152($context) # restore context->Rsp 333392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 334392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 40($disp),%rdi # disp->ContextRecord 335392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $context,%rsi # context 336392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov \$154,%ecx # sizeof(CONTEXT) 337392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .long 0xa548f3fc # cld; rep movsq 338392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 339392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov $disp,%rsi 340392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom xor %rcx,%rcx # arg1, UNW_FLAG_NHANDLER 341392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 8(%rsi),%rdx # arg2, disp->ImageBase 342392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 0(%rsi),%r8 # arg3, disp->ControlPc 343392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 16(%rsi),%r9 # arg4, disp->FunctionEntry 344392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov 40(%rsi),%r10 # disp->ContextRecord 345392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea 56(%rsi),%r11 # &disp->HandlerData 346392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom lea 24(%rsi),%r12 # &disp->EstablisherFrame 347392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r10,32(%rsp) # arg5 348392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r11,40(%rsp) # arg6 349392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %r12,48(%rsp) # arg7 350392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov %rcx,56(%rsp) # arg8, (NULL) 351392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom call *__imp_RtlVirtualUnwind(%rip) 352392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 353392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom mov \$1,%eax # ExceptionContinueSearch 354392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom add \$64,%rsp 355392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom popfq 356392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pop %r15 357392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pop %r14 358392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pop %r13 359392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pop %r12 360392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pop %rbp 361392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pop %rbx 362392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pop %rdi 363392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom pop %rsi 364392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom ret 365392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.size se_handler,.-se_handler 366392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 367392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.section .pdata 368392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.align 4 369392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .rva _mul_1x1 370392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .rva .Lend_mul_1x1 371392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .rva .LSEH_info_1x1 372392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 373392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .rva .Lvanilla_mul_2x2 374392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .rva .Lend_mul_2x2 375392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .rva .LSEH_info_2x2 376392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.section .xdata 377392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.align 8 378392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.LSEH_info_1x1: 379392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .byte 0x01,0x07,0x02,0x00 380392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .byte 0x07,0x01,0x11,0x00 # sub rsp,128+8 381392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom.LSEH_info_2x2: 382392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .byte 9,0,0,0 383392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom .rva se_handler 384392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom___ 385392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom} 386392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom 387392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstrom$code =~ s/\`([^\`]*)\`/eval($1)/gem; 388392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromprint $code; 389392aa7cc7d2b122614c5393c3e357da07fd07af3Brian Carlstromclose STDOUT; 390