arm/crypto/sha512-armv4.pl

73 $t0="r9";
97 	mov	$t0,$Elo,lsr#14
101 	eor	$t0,$t0,$Ehi,lsl#18
105 	eor	$t0,$t0,$Elo,lsr#18
107 	eor	$t0,$t0,$Ehi,lsl#14
109 	eor	$t0,$t0,$Ehi,lsr#9
111 	eor	$t0,$t0,$Elo,lsl#23
113 	adds	$Tlo,$Tlo,$t0
114 	ldr	$t0,[sp,#$Foff+0]	@ f.lo
122 	eor	$t0,$t0,$t2
126 	and	$t0,$t0,$Elo
130 	eor	$t0,$t0,$t2
135 	adds	$Tlo,$Tlo,$t0
140 	and	$t0,$t2,#0xff
145 	teq	$t0,#$magic
155 	mov	$t0,$Alo,lsr#28
157 	eor	$t0,$t0,$Ahi,lsl#4
159 	eor	$t0,$t0,$Ahi,lsr#2
161 	eor	$t0,$t0,$Alo,lsl#30
163 	eor	$t0,$t0,$Ahi,lsr#7
165 	eor	$t0,$t0,$Alo,lsl#25
167 	adds	$Tlo,$Tlo,$t0
168 	and	$t0,$Alo,$t2
177 	orr	$Alo,$Alo,$t0		@ Maj(a,b,c).lo
295 	ldr	$t0, [$ctx,#$Goff+$lo]
300 	str	$t0, [sp,#$Goff+0]
308 	ldr	$t0, [$ctx,#$Coff+$lo]
314 	str	$t0, [sp,#$Coff+0]
326 	ldrb	$t0, [$inp,#6]
331 	orr	$Tlo,$Tlo,$t0,lsl#8
332 	ldrb	$t0, [$inp,#1]
337 	orr	$Thi,$Thi,$t0,lsl#16
352 	ldr	$t0,[sp,#`$Xoff+8*(16-1)`+0]
359 	mov	$Tlo,$t0,lsr#1
364 	eor	$Thi,$Thi,$t0,lsl#31
365 	eor	$Tlo,$Tlo,$t0,lsr#8
368 	eor	$Thi,$Thi,$t0,lsl#24
369 	eor	$Tlo,$Tlo,$t0,lsr#7
376 	mov	$t0,$t2,lsr#19
378 	eor	$t0,$t0,$t3,lsl#13
380 	eor	$t0,$t0,$t3,lsr#29
382 	eor	$t0,$t0,$t2,lsl#3
384 	eor	$t0,$t0,$t2,lsr#6
387 	eor	$t0,$t0,$t3,lsl#26
390 	adds	$Tlo,$Tlo,$t0
391 	ldr	$t0,[sp,#`$Xoff+8*16`+0]
397 	adds	$Tlo,$Tlo,$t0
405 	ldreq	$t0,[sp,#`$Xoff+8*(16-1)`+0]
412 	ldr	$t0, [$ctx,#$Aoff+$lo]
416 	adds	$t0,$Alo,$t0
417 	str	$t0, [$ctx,#$Aoff+$lo]
429 	ldr	$t0, [$ctx,#$Coff+$lo]
433 	adds	$t0,$Alo,$t0
434 	str	$t0, [$ctx,#$Coff+$lo]
444 	ldr	$t0, [$ctx,#$Eoff+$lo]
448 	adds	$Elo,$Elo,$t0
461 	ldr	$t0, [$ctx,#$Goff+$lo]
465 	adds	$t0,$Alo,$t0
466 	str	$t0, [$ctx,#$Goff+$lo]
507 my ($t0,$t1,$t2,$T1,$K,$Ch,$Maj)=map("d$_",(24..31));	# temps
510 	vshr.u64	$t0,$e,#@Sigma1[0]	@ $i
522 	vsli.64		$t0,$e,#`64-@Sigma1[0]`
529 	veor		$t1,$t0
531 	vshr.u64	$t0,$a,#@Sigma0[0]
535 	vsli.64		$t0,$a,#`64-@Sigma0[0]`
542 	veor		$h,$t0,$t1
559 my ($t0,$t1,$s0,$s1) = map("q$_",(12..15));	# temps
564 	vshr.u64	$t0,@X[($i+7)%8],#@sigma1[0]
568 	vsli.64		$t0,@X[($i+7)%8],#`64-@sigma1[0]`
571 	veor		$s1,$t0
572 	vshr.u64	$t0,$s0,#@sigma0[0]
577 	vsli.64		$t0,$s0,#`64-@sigma0[0]`
580 	veor		$s1,$t0