[thirdparty/openssl.git] / crypto / ppccpuid.pl

#!/usr/bin/env perl

$flavour = shift;

$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
( $xlate="${dir}ppc-xlate.pl" and -f $xlate ) or
( $xlate="${dir}perlasm/ppc-xlate.pl" and -f $xlate) or
die "can't locate ppc-xlate.pl";

open STDOUT,"| $^X $xlate $flavour ".shift || die "can't call $xlate: $!";

if ($flavour=~/64/) {
    $CMPLI="cmpldi";
    $SHRLI="srdi";
    $SIGNX="extsw";
} else {
    $CMPLI="cmplwi";
    $SHRLI="srwi";
    $SIGNX="mr";
}

$code=<<___;
.machine	"any"
.text

.globl	.OPENSSL_ppc64_probe
.align	4
.OPENSSL_ppc64_probe:
	fcfid	f1,f1
	extrdi	r0,r0,32,0
	blr
	.long	0
	.byte	0,12,0x14,0,0,0,0,0
.size	.OPENSSL_ppc64_probe,.-.OPENSSL_ppc64_probe

.globl	.OPENSSL_altivec_probe
.align	4
.OPENSSL_altivec_probe:
	.long	0x10000484	# vor	v0,v0,v0
	blr
	.long	0
	.byte	0,12,0x14,0,0,0,0,0
.size	.OPENSSL_altivec_probe,.-..OPENSSL_altivec_probe

.globl	.OPENSSL_crypto207_probe
.align	4
.OPENSSL_crypto207_probe:
	lvx_u	v0,0,r1
	vcipher	v0,v0,v0
	blr
	.long	0
	.byte	0,12,0x14,0,0,0,0,0
.size	.OPENSSL_crypto207_probe,.-.OPENSSL_crypto207_probe

.globl	.OPENSSL_wipe_cpu
.align	4
.OPENSSL_wipe_cpu:
	xor	r0,r0,r0
	fmr	f0,f31
	fmr	f1,f31
	fmr	f2,f31
	mr	r3,r1
	fmr	f3,f31
	xor	r4,r4,r4
	fmr	f4,f31
	xor	r5,r5,r5
	fmr	f5,f31
	xor	r6,r6,r6
	fmr	f6,f31
	xor	r7,r7,r7
	fmr	f7,f31
	xor	r8,r8,r8
	fmr	f8,f31
	xor	r9,r9,r9
	fmr	f9,f31
	xor	r10,r10,r10
	fmr	f10,f31
	xor	r11,r11,r11
	fmr	f11,f31
	xor	r12,r12,r12
	fmr	f12,f31
	fmr	f13,f31
	blr
	.long	0
	.byte	0,12,0x14,0,0,0,0,0
.size	.OPENSSL_wipe_cpu,.-.OPENSSL_wipe_cpu

.globl	.OPENSSL_atomic_add
.align	4
.OPENSSL_atomic_add:
Ladd:	lwarx	r5,0,r3
	add	r0,r4,r5
	stwcx.	r0,0,r3
	bne-	Ladd
	$SIGNX	r3,r0
	blr
	.long	0
	.byte	0,12,0x14,0,0,0,2,0
	.long	0
.size	.OPENSSL_atomic_add,.-.OPENSSL_atomic_add

.globl	.OPENSSL_rdtsc
.align	4
.OPENSSL_rdtsc:
	mftb	r3
	mftbu	r4
	blr
	.long	0
	.byte	0,12,0x14,0,0,0,0,0
.size	.OPENSSL_rdtsc,.-.OPENSSL_rdtsc

.globl	.OPENSSL_cleanse
.align	4
.OPENSSL_cleanse:
	$CMPLI	r4,7
	li	r0,0
	bge	Lot
	$CMPLI	r4,0
	beqlr-
Little:	mtctr	r4
	stb	r0,0(r3)
	addi	r3,r3,1
	bdnz	\$-8
	blr
Lot:	andi.	r5,r3,3
	beq	Laligned
	stb	r0,0(r3)
	subi	r4,r4,1
	addi	r3,r3,1
	b	Lot
Laligned:
	$SHRLI	r5,r4,2
	mtctr	r5
	stw	r0,0(r3)
	addi	r3,r3,4
	bdnz	\$-8
	andi.	r4,r4,3
	bne	Little
	blr
	.long	0
	.byte	0,12,0x14,0,0,0,2,0
	.long	0
.size	.OPENSSL_cleanse,.-.OPENSSL_cleanse
___

$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
close STDOUT;
Commit	Line	Data
9c9c83cc AP	1	#!/usr/bin/env perl
9c9c83cc AP	2
addd641f	3	$flavour = shift;
9c9c83cc AP	4
	5	$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
	6	( $xlate="${dir}ppc-xlate.pl" and -f $xlate ) or
	7	( $xlate="${dir}perlasm/ppc-xlate.pl" and -f $xlate) or
	8	die "can't locate ppc-xlate.pl";
	9
addd641f	10	open STDOUT,"\| $^X $xlate $flavour ".shift \|\| die "can't call $xlate: $!";
9c9c83cc	11
addd641f	12	if ($flavour=~/64/) {
9c9c83cc AP	13	$CMPLI="cmpldi";
	14	$SHRLI="srdi";
	15	$SIGNX="extsw";
	16	} else {
	17	$CMPLI="cmplwi";
	18	$SHRLI="srwi";
	19	$SIGNX="mr";
	20	}
	21
	22	$code=<<___;
492279f6	23	.machine "any"
9c9c83cc AP	24	.text
9c9c83cc AP	25
cf96d71c	26	.globl .OPENSSL_ppc64_probe
9c9c83cc	27	.align 4
cf96d71c AP	28	.OPENSSL_ppc64_probe:
	29	fcfid f1,f1
	30	extrdi r0,r0,32,0
9c9c83cc	31	blr
cf96d71c AP	32	.long 0
cf96d71c AP	33	.byte 0,12,0x14,0,0,0,0,0
43ce9cdd	34	.size .OPENSSL_ppc64_probe,.-.OPENSSL_ppc64_probe
cf96d71c AP	35
	36	.globl .OPENSSL_altivec_probe
	37	.align 4
	38	.OPENSSL_altivec_probe:
	39	.long 0x10000484 # vor v0,v0,v0
	40	blr
	41	.long 0
	42	.byte 0,12,0x14,0,0,0,0,0
43ce9cdd	43	.size .OPENSSL_altivec_probe,.-..OPENSSL_altivec_probe
9c9c83cc	44
c991d8ae AP	45	.globl .OPENSSL_crypto207_probe
	46	.align 4
	47	.OPENSSL_crypto207_probe:
	48	lvx_u v0,0,r1
	49	vcipher v0,v0,v0
	50	blr
	51	.long 0
	52	.byte 0,12,0x14,0,0,0,0,0
	53	.size .OPENSSL_crypto207_probe,.-.OPENSSL_crypto207_probe
	54
9c9c83cc AP	55	.globl .OPENSSL_wipe_cpu
	56	.align 4
	57	.OPENSSL_wipe_cpu:
	58	xor r0,r0,r0
cf96d71c AP	59	fmr f0,f31
	60	fmr f1,f31
	61	fmr f2,f31
9c9c83cc	62	mr r3,r1
cf96d71c	63	fmr f3,f31
9c9c83cc	64	xor r4,r4,r4
cf96d71c	65	fmr f4,f31
9c9c83cc	66	xor r5,r5,r5
cf96d71c	67	fmr f5,f31
9c9c83cc	68	xor r6,r6,r6
cf96d71c	69	fmr f6,f31
9c9c83cc	70	xor r7,r7,r7
cf96d71c	71	fmr f7,f31
9c9c83cc	72	xor r8,r8,r8
cf96d71c	73	fmr f8,f31
9c9c83cc	74	xor r9,r9,r9
cf96d71c	75	fmr f9,f31
9c9c83cc	76	xor r10,r10,r10
cf96d71c	77	fmr f10,f31
9c9c83cc	78	xor r11,r11,r11
cf96d71c	79	fmr f11,f31
9c9c83cc	80	xor r12,r12,r12
cf96d71c AP	81	fmr f12,f31
cf96d71c AP	82	fmr f13,f31
9c9c83cc	83	blr
cf96d71c AP	84	.long 0
cf96d71c AP	85	.byte 0,12,0x14,0,0,0,0,0
43ce9cdd	86	.size .OPENSSL_wipe_cpu,.-.OPENSSL_wipe_cpu
9c9c83cc AP	87
	88	.globl .OPENSSL_atomic_add
	89	.align 4
	90	.OPENSSL_atomic_add:
cf96d71c	91	Ladd: lwarx r5,0,r3
9c9c83cc AP	92	add r0,r4,r5
9c9c83cc AP	93	stwcx. r0,0,r3
cf96d71c	94	bne- Ladd
9c9c83cc AP	95	$SIGNX r3,r0
9c9c83cc AP	96	blr
cf96d71c AP	97	.long 0
	98	.byte 0,12,0x14,0,0,0,2,0
	99	.long 0
43ce9cdd	100	.size .OPENSSL_atomic_add,.-.OPENSSL_atomic_add
9c9c83cc AP	101
	102	.globl .OPENSSL_rdtsc
	103	.align 4
	104	.OPENSSL_rdtsc:
	105	mftb r3
	106	mftbu r4
	107	blr
cf96d71c AP	108	.long 0
cf96d71c AP	109	.byte 0,12,0x14,0,0,0,0,0
43ce9cdd	110	.size .OPENSSL_rdtsc,.-.OPENSSL_rdtsc
9c9c83cc AP	111
	112	.globl .OPENSSL_cleanse
	113	.align 4
	114	.OPENSSL_cleanse:
	115	$CMPLI r4,7
	116	li r0,0
	117	bge Lot
1d8fa09c DSH	118	$CMPLI r4,0
1d8fa09c DSH	119	beqlr-
9c9c83cc AP	120	Little: mtctr r4
	121	stb r0,0(r3)
	122	addi r3,r3,1
95416ce5	123	bdnz \$-8
9c9c83cc AP	124	blr
	125	Lot: andi. r5,r3,3
	126	beq Laligned
	127	stb r0,0(r3)
	128	subi r4,r4,1
	129	addi r3,r3,1
	130	b Lot
	131	Laligned:
	132	$SHRLI r5,r4,2
	133	mtctr r5
	134	stw r0,0(r3)
	135	addi r3,r3,4
95416ce5	136	bdnz \$-8
9c9c83cc AP	137	andi. r4,r4,3
	138	bne Little
	139	blr
cf96d71c AP	140	.long 0
	141	.byte 0,12,0x14,0,0,0,2,0
	142	.long 0
43ce9cdd	143	.size .OPENSSL_cleanse,.-.OPENSSL_cleanse
9c9c83cc AP	144	___
	145
	146	$code =~ s/\`([^\`]*)\`/eval $1/gem;
	147	print $code;
	148	close STDOUT;