arm/crypto/poly1305-armv4.pl

161 	stmia	r2,{r11,r12}		@ fill functions table
178 my ($h0,$h1,$h2,$h3,$h4,$r0,$r1,$r2,$r3)=map("r$_",(4..12));
179 my ($s1,$s2,$s3)=($r1,$r2,$r3);
208 	mov	$r2,$h2,lsr#12
209 	adcs	$r2,$r2,$h3,lsl#14
220 	movne	$h2,$r2
230 	str	$r2,[sp,#24]
243 	ldrb	r2,[lr,#-14]
247 	orr	r2,r1,r2,lsl#16
249 	orr	r3,r2,r3,lsl#24
250 	ldrb	r2,[lr,#-10]
256 	orr	r2,r1,r2,lsl#16
258 	orr	r3,r2,r3,lsl#24
259 	ldrb	r2,[lr,#-6]
265 	orr	r2,r1,r2,lsl#16
267 	orr	r3,r2,r3,lsl#24
268 	ldrb	r2,[lr,#-2]
274 	orr	r2,r1,r2,lsl#16
276 	orr	r3,r2,r3,lsl#24
282 	ldr	r2,[lr,#-8]
287 	rev	r2,r2
294 	adcs	$h2,$h2,r2
296 	add	$s2,$r2,$r2,lsr#2
300 	umull	r2,r3,$h1,$r0
303 	umlal	r2,r3,$h4,$s1
306 	umlal	r2,r3,$h2,$s3
308 	umlal	r2,r3,$h3,$s2
310 	umlal	r2,r3,$h0,$r1
313 	ldr	$r2,[sp,#24]		@ reload $r2
314 	adds	r2,r2,r1		@ d1+=d0>>32
317 	str	r2,[sp,#4]		@ future $h1
319 	mul	r2,$s3,$h4
323 	umlal	r2,r3,$h3,$r0
325 	umlal	r2,r3,$h2,$r1
327 	umlal	r2,r3,$h1,$r2
328 	umlal	r0,r1,$h0,$r2
329 	umlal	r2,r3,$h0,$r3
337 	adds	$h3,r2,r1		@ d3+=d2>>32
518 	and	r2,r4,#0x03ffffff	@ base 2^32 -> base 2^26
530 	vdup.32	$R0,r2			@ r^1 in both lanes
531 	add	r2,r3,r3,lsl#2		@ *5
534 	vdup.32	$S1,r2
548 	@ d0 = h0*r0 + h4*5*r1 + h3*5*r2 + h2*5*r3 + h1*5*r4
549 	@ d1 = h1*r0 + h0*r1   + h4*5*r2 + h3*5*r3 + h2*5*r4
550 	@ d2 = h2*r0 + h1*r1   + h0*r2   + h4*5*r3 + h3*5*r4
551 	@ d3 = h3*r0 + h2*r1   + h1*r2   + h0*r3   + h4*5*r4
552 	@ d4 = h4*r0 + h3*r1   + h2*r2   + h1*r3   + h0*r4
749 	and	r2,r4,#0x03ffffff	@ base 2^32 -> base 2^26
769 	vmov.32	$D0#lo[0],r2
897 	@ d4 = h4*r0 + h3*r1   + h2*r2   + h1*r3   + h0*r4
898 	@ d3 = h3*r0 + h2*r1   + h1*r2   + h0*r3   + h4*5*r4
899 	@ d2 = h2*r0 + h1*r1   + h0*r2   + h4*5*r3 + h3*5*r4
900 	@ d1 = h1*r0 + h0*r1   + h4*5*r2 + h3*5*r3 + h2*5*r4
901 	@ d0 = h0*r0 + h4*5*r1 + h3*5*r2 + h2*5*r3 + h1*5*r4