powerpc/crypto/aesp10-ppc.pl

103 $LITTLE_ENDIAN = ($flavour=~/le$/) ? $SIZE_T : 0;
105 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
121 my ($zero,$in0,$in1,$key,$rcon,$mask,$tmp)=map("v$_",(0..6));
131 .long	0x01000000, 0x01000000, 0x01000000, 0x01000000	?rev
132 .long	0x1b000000, 0x1b000000, 0x1b000000, 0x1b000000	?rev
133 .long	0x0d0e0f0c, 0x0d0e0f0c, 0x0d0e0f0c, 0x0d0e0f0c	?rev
134 .long	0,0,0,0						?asis
139 	addi	$ptr,$ptr,-0x48
142 	.long	0
143 	.byte	0,12,0x14,0,0,0,0,0
152 	${UCMP}i	$inp,0
153 	beq-		Lenc_key_abort		# if ($inp==0) return -1;
154 	${UCMP}i	$out,0
155 	beq-		Lenc_key_abort		# if ($out==0) return -1;
161 	andi.		r0,$bits,0x3f
164 	lis		r0,0xfff0
172 	lvx		$in0,0,$inp
174 	lvsr		$key,0,r9		# borrow $key
175 	li		r8,0x20
177 	lvx		$in1,0,$inp
178 	le?vspltisb	$mask,0x0f		# borrow $mask
179 	lvx		$rcon,0,$ptr
182 	addi		$ptr,$ptr,0x10
188 	?lvsr		$outperm,0,$out
190 	lvx		$outhead,0,$out
207 	 stvx		$stage,0,$out
219 	lvx		$rcon,0,$ptr		# last two round keys
227 	 stvx		$stage,0,$out
244 	 stvx		$stage,0,$out
256 	 stvx		$stage,0,$out
259 	addi		$out,$out,0x50
266 	lvx		$tmp,0,$inp
271 	 stvx		$stage,0,$out
305 	 stvx		$stage,0,$out
317 	 stvx		$stage,0,$out
330 	 stvx		$stage,0,$out
336 	addi		$out,$out,0x20
341 	lvx		$tmp,0,$inp
347 	 stvx		$stage,0,$out
359 	 stvx		$stage,0,$out
372 	 stvx		$stage,0,$out
392 	lvx		$in1,0,$inp		# redundant in aligned case
394 	stvx		$in1,0,$inp
395 	li		$ptr,0
397 	stw		$rounds,0($out)
402 	.long		0
403 	.byte		0,12,0x14,1,0,0,3,0
404 	.long		0
414 	cmpwi		r3,0
424 	lwz		r0, 0($inp)
429 	lwz		r9, 0($out)
433 	stw		r0, 0($out)
448 	.long		0
449 	.byte		0,12,4,1,0x80,0,3,0
450 	.long		0
464 	lis		r0,0xfc00
469 	lvx		v0,0,$inp
472 	lvsl		v2,0,$inp		# inpperm
473 	le?vspltisb	v4,0x0f
474 	?lvsl		v3,0,r11		# outperm
478 	lvx		v1,0,$key
479 	?lvsl		v5,0,$key		# keyperm
513 	lvx		v1,0,$out		# outhead
517 	stvx		v1,0,$out
523 	.long		0
524 	.byte		0,12,0x14,0,0,0,3,0
525 	.long		0
545 		my $l = /^0/?oct:int;
546 		push @bytes,($l>>24)&0xff,($l>>16)&0xff,($l>>8)&0xff,$l&0xff;
549 		@bytes = map(/^0/?oct:int,split(/,\s*/,$2));
555 		    /\?inv/ && do   { @bytes=map($_^0xf,@bytes); last; };
561 	    print ".byte\t",join(',',map (sprintf("0x%02x",$_),@bytes)),"\n";
564 	$consts=0 if (m/Lconsts:/o);	# end of table
573 	    s/\?(vperm\s+v[0-9]+,\s*)(v[0-9]+,\s*)(v[0-9]+,\s*)(v[0-9]+)/$1$3$2$4/o or
574 	    s/\?(vsldoi\s+v[0-9]+,\s*)(v[0-9]+,)\s*(v[0-9]+,\s*)([0-9]+)/$1$3$2 16-$4/o or
575 	    s/\?(vspltw\s+v[0-9]+,\s*)(v[0-9]+,)\s*([0-9])/$1$2 3-$3/o;