mips/crypto/poly1305-mips.pl

2 # SPDX-License-Identifier: GPL-1.0+ OR BSD-3-Clause
43 ($gp,$tp,$sp,$fp,$ra)=map("\$$_",(3,28..31));
56 # ($zero,$at,$v0,$v1)=map("\$$_",(0..3));
133 	sll	$tmp0,$tmp0,3		# byte to bit offset
209 	daddiu	$tmp0,-3		# 0x0ffffffc0ffffffc
226 my ($h0,$h1,$h2,$r0,$r1,$rs1,$d0,$d1,$d2) =
273 	sll	$shr,$shr,3		# byte to bit offset
361 	andi	$h2,$h2,3
369 	daddu	$d1,$h1,$in1
371 	sltu	$tmp1,$d1,$h1
372 	daddu	$d1,$tmp0
376 	 sltu	$tmp0,$d1,$tmp0
380 	dmultu	($rs1,$d1)		# h1*5*r1
383 	mflo	($tmp0,$rs1,$d1)
384 	mfhi	($tmp1,$rs1,$d1)
393 	dmultu	($r0,$d1)		# h1*r0
396 	mflo	($tmp0,$r0,$d1)
397 	mfhi	($tmp1,$r0,$d1)
464 	andi	$tmp2,$tmp2,3
511 	sb	$tmp2,3($mac)
579 # define LSB 3
581 # define MSB 3
605 	andi	$tmp0,$inp,3		# $inp % 4
607 	sll	$tmp0,$tmp0,3		# byte to bit offset
706 	subu	$tmp0,3			# 0x0ffffffc
735 my ($d0,$d1,$d2,$d3) =
759 	sw	$s3, 4*3($sp)
772 	andi	$shr,$inp,3
774 	sll	$shr,$shr,3		# byte to bit offset
799 	lw	$d1,4($inp)
808 	srlv	$at,$d1,$t1
809 	sllv	$d1,$d1,$shr
813 	or	$d1,$d1,$at
821 	sllv	$at,$d1,$t1
822 	srlv	$d1,$d1,$shr
826 	or	$d1,$d1,$at
836 	lwl	$d1,4+MSB($inp)
840 	lwr	$d1,4+LSB($inp)
847 	wsbh	$d1,$d1
851 	rotr	$d1,$d1,16
862 	 srl	$at,$d1,24
864 	 srl	$t1,$d1,8
866 	 andi	$t0,$d1,0xFF00
867 	 sll	$d1,$d1,24
870 	 or	$d1,$at
874 	 or	$d1,$t1
894 	andi	$h4,$h4,3
903 	addu	$d1,$d1,$h1
905 	sltu	$h1,$d1,$h1
906 	addu	$d1,$d1,$h0
907 	sltu	$h0,$d1,$h0
923 	maddu	$rs3,$d1		# d1*s3
933 	maddu	$r0,$d1			# d1*r0
942 	maddu	$r1,$d1			# d1*r1
953 	maddu	$r2,$d1			# d1*r2
972 	multu	($rs3,$d1)		# d1*s3
973 	mflo	($at,$rs3,$d1)
974 	mfhi	($t0,$rs3,$d1)
1002 	multu	($r0,$d1)		# d1*r0
1006 	mflo	($at,$r0,$d1)
1007 	mfhi	($t0,$r0,$d1)
1041 	multu	($r1,$d1)		# d1*r1
1044 	mflo	($a3,$r1,$d1)
1045 	mfhi	($t1,$r1,$d1)
1079 	multu	($r2,$d1)		# d1*r2
1082 	mflo	($at,$r2,$d1)
1083 	mfhi	($t0,$r2,$d1)
1141 	lw	$s3, 4*3($sp)
1172 	andi	$tmp4,$tmp4,3
1241 	sb	$tmp2,3($mac)