sha/asm/sha512-ppc.pl

69 	$SZ=8;
81 	$SZ=4;
93 $FRAME=32*$SIZE_T+16*$SZ;
122 $inp="r31" if($SZ==4 || $SIZE_T==8);	# reassigned $inp! aliases with @X[15]
153 	$LD	$t1,`($i+1)*$SZ`($Tbl)
177 	$LD	$t1,`$i*$SZ`($Tbl)
193 	$SHL	$num,$num,`log(16*$SZ)/log(2)`
218 if ($SZ==4 || $SIZE_T==8) {
220 	$LD	$A,`0*$SZ`($ctx)
222 	$LD	$B,`1*$SZ`($ctx)
223 	$LD	$C,`2*$SZ`($ctx)
224 	$LD	$D,`3*$SZ`($ctx)
225 	$LD	$E,`4*$SZ`($ctx)
226 	$LD	$F,`5*$SZ`($ctx)
227 	$LD	$G,`6*$SZ`($ctx)
228 	$LD	$H,`7*$SZ`($ctx)
259 	andi.	$t1,$t1,`4096-16*$SZ`	; distance to closest page boundary
272 	li	$t1,`16*$SZ/4`
275 if ($SZ==4 || $SIZE_T==8) {
311 	addi	$t1,$sp,`$LOCALS+16*$SZ`	; fictitious end pointer
319 	addic.	$num,$num,`-16*$SZ`		; num--
350 if ($SZ==4 || $SIZE_T==8) {
357 $code.=<<___ if ($SZ==4 && !$LITTLE_ENDIAN);
358 	lwz	@X[$i],`$i*$SZ`($inp)
360 $code.=<<___ if ($SZ==4 && $LITTLE_ENDIAN);
361 	lwz	$a0,`$i*$SZ`($inp)
368 $code.=<<___ if ($SZ==8 && !$LITTLE_ENDIAN);
369 	lwz	$t0,`$i*$SZ`($inp)
370 	lwz	@X[$i],`$i*$SZ+4`($inp)
373 $code.=<<___ if ($SZ==8 && $LITTLE_ENDIAN);
374 	lwz	$a0,`$i*$SZ`($inp)
375 	 lwz	$a1,`$i*$SZ+4`($inp)
392 	addi	$Tbl,$Tbl,`16*$SZ`
404 	subi	$Tbl,$Tbl,`($rounds-16)*$SZ`	; rewind Tbl
406 	$LD	r16,`0*$SZ`($ctx)
407 	$LD	r17,`1*$SZ`($ctx)
408 	$LD	r18,`2*$SZ`($ctx)
409 	$LD	r19,`3*$SZ`($ctx)
410 	$LD	r20,`4*$SZ`($ctx)
411 	$LD	r21,`5*$SZ`($ctx)
412 	$LD	r22,`6*$SZ`($ctx)
413 	addi	$inp,$inp,`16*$SZ`		; advance inp
414 	$LD	r23,`7*$SZ`($ctx)
419 	$ST	$A,`0*$SZ`($ctx)
421 	$ST	$B,`1*$SZ`($ctx)
423 	$ST	$C,`2*$SZ`($ctx)
425 	$ST	$D,`3*$SZ`($ctx)
427 	$ST	$E,`4*$SZ`($ctx)
429 	$ST	$F,`5*$SZ`($ctx)
430 	$ST	$G,`6*$SZ`($ctx)
432 	$ST	$H,`7*$SZ`($ctx)
466 	lwz	$t2,`$SZ*($i%16)+($LITTLE_ENDIAN^4)`($Tbl)
468 	lwz	$t3,`$SZ*($i%16)+($LITTLE_ENDIAN^0)`($Tbl)
471 	stw	$t0,`$XOFF+0+$SZ*($i%16)`($sp)	; save x[i]
478 	stw	$t1,`$XOFF+4+$SZ*($i%16)`($sp)
528 	lwz	$t0,`$XOFF+0+$SZ*(($i+2)%16)`($sp)
529 	lwz	$t1,`$XOFF+4+$SZ*(($i+2)%16)`($sp)
532 	lwz	$t1,`$SZ*($i+1)+0`($inp)
533 	lwz	$t0,`$SZ*($i+1)+4`($inp)
536 	lwz	$a2,`$SZ*($i+1)+0`($inp)
537 	 lwz	$a3,`$SZ*($i+1)+4`($inp)
552 	lwz	$x0,`$XOFF+0+$SZ*(($i+1)%16)`($sp)
553 	lwz	$x1,`$XOFF+4+$SZ*(($i+1)%16)`($sp)
572 	 lwz	$t2,`$XOFF+0+$SZ*(($i+14)%16)`($sp)
575 	 lwz	$t3,`$XOFF+4+$SZ*(($i+14)%16)`($sp)
592 	 lwz	$a0,`$XOFF+0+$SZ*(($i+9)%16)`($sp)
595 	 lwz	$a1,`$XOFF+4+$SZ*(($i+9)%16)`($sp)
639 	addi	$Tbl,$Tbl,`16*$SZ`
652 	subi	$Tbl,$Tbl,`($rounds-16)*$SZ`	; rewind Tbl
703 	addi	$inp,$inp,`16*$SZ`		; advance inp
729 $code.=<<___ if ($SZ==8);
771 $code.=<<___ if ($SZ==4);