sha/asm/sha512-x86_64.pl

150 	@sigma1=(19,61, 6);
162 	@sigma1=(17,19,10);
237 	ror	\$`$sigma1[1]-$sigma1[0]`,$a2
243 	shr	\$$sigma1[2],$a1
245 	ror	\$$sigma1[0],$a2
247 	xor	$a1,$a2			# sigma1(X[(i+14)&0xf])
851 	 '&psrld	($t3,$sigma1[2])',
853 	 '&psrlq	($t2,$sigma1[0])',
855 	 '&psrlq	($t2,$sigma1[1]-$sigma1[0])',
857 	 '&pshufb	($t3,$t4)',		# sigma1(X[14..15])
858 	'&paddd		(@X[0],$t3)',		# X[0..1] += sigma1(X[14..15])
861 	 '&psrld	($t3,$sigma1[2])',
862 	 '&psrlq	($t2,$sigma1[0])',
864 	 '&psrlq	($t2,$sigma1[1]-$sigma1[0])',
868 	'&paddd		(@X[0],$t3)'		# X[2..3] += sigma1(X[16..17])
949 	 &psrld		($t3,$sigma1[2]);
955 	 &psrlq		($t2,$sigma1[0]);
964 	 &psrlq		($t2,$sigma1[1]-$sigma1[0]);
971 	 #&pshufb	($t3,$t4);		# sigma1(X[14..15])
982 	&paddd		(@X[0],$t3);		# X[0..1] += sigma1(X[14..15])
993 	 &psrld		($t3,$sigma1[2]);
996 	 &psrlq		($t2,$sigma1[0]);
1005 	 &psrlq		($t2,$sigma1[1]-$sigma1[0]);
1024 	&paddd		(@X[0],$t3);		# X[2..3] += sigma1(X[16..17])
1208 	 &vprotd	($t3,@X[3],8*$SZ-$sigma1[1]);
1214 	 &vpsrld	($t2,@X[3],$sigma1[2]);
1220 	 &vprotd	($t1,$t3,$sigma1[1]-$sigma1[0]);
1228 	 &vpxor		($t3,$t3,$t1);		# sigma1(X[14..15])
1238 	&vpaddd		(@X[0],@X[0],$t3);	# X[0..1] += sigma1(X[14..15])
1243 	 &vprotd	($t3,@X[0],8*$SZ-$sigma1[1]);
1246 	 &vpsrld	($t2,@X[0],$sigma1[2]);
1249 	 &vprotd	($t1,$t3,$sigma1[1]-$sigma1[0]);
1257 	 &vpxor		($t3,$t3,$t1);		# sigma1(X[16..17])
1267 	&vpaddd		(@X[0],@X[0],$t3);	# X[2..3] += sigma1(X[16..17])
1370 	 &vprotq	($t3,@X[7],8*$SZ-$sigma1[1]);
1376 	 &vpsrlq	($t2,@X[7],$sigma1[2]);
1382 	 &vprotq	($t1,$t3,$sigma1[1]-$sigma1[0]);
1390 	 &vpxor		($t3,$t3,$t1);		# sigma1(X[14..15])
1395 	&vpaddq		(@X[0],@X[0],$t3);	# X[0..1] += sigma1(X[14..15])
1569 	 '&vpsrld	($t2,$t3,$sigma1[2]);',
1571 	 '&vpsrlq	($t3,$t3,$sigma1[0]);',
1574 	 '&vpsrlq	($t3,$t3,$sigma1[1]-$sigma1[0])',
1576 	 '&vpshufb	($t2,$t2,$t4)',		# sigma1(X[14..15])
1577 	'&vpaddd	(@X[0],@X[0],$t2)',	# X[0..1] += sigma1(X[14..15])
1579 	 '&vpsrld	($t2,$t3,$sigma1[2])',
1580 	 '&vpsrlq	($t3,$t3,$sigma1[0])',
1582 	 '&vpsrlq	($t3,$t3,$sigma1[1]-$sigma1[0])',
1585 	'&vpaddd	(@X[0],@X[0],$t2)'	# X[2..3] += sigma1(X[16..17])
1682 	 '&vpsrlq	($t3,@X[7],$sigma1[2]);',
1684 	 '&vpsllq	($t2,@X[7],8*$SZ-$sigma1[1]);',
1686 	 '&vpsrlq	($t1,@X[7],$sigma1[0]);',
1688 	 '&vpsllq	($t2,$t2,$sigma1[1]-$sigma1[0]);',
1690 	 '&vpsrlq	($t1,$t1,$sigma1[1]-$sigma1[0]);',
1692 	 '&vpxor	($t3,$t3,$t1)',		# sigma1(X[14..15])
1693 	'&vpaddq	(@X[0],@X[0],$t3)',	# X[0..1] += sigma1(X[14..15])