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

#! /usr/bin/env perl
# Copyright 2007-2016 The OpenSSL Project Authors. All Rights Reserved.
#
# Licensed under the Apache License 2.0 (the "License").  You may not use
# this file except in compliance with the License.  You can obtain a copy
# in the file LICENSE in the source distribution or at
# https://www.openssl.org/source/license.html


$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_fpu_probe
.align	4
.OPENSSL_fpu_probe:
	fmr	f0,f0
	blr
	.long	0
	.byte	0,12,0x14,0,0,0,0,0
.size	.OPENSSL_fpu_probe,.-.OPENSSL_fpu_probe
.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_madd300_probe
.align	4
.OPENSSL_madd300_probe:
	xor	r0,r0,r0
	maddld	r3,r0,r0,r0
	maddhdu	r3,r0,r0,r0
	blr
	.long	0
	.byte	0,12,0x14,0,0,0,0,0

.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_mftb
.align	4
.OPENSSL_rdtsc_mftb:
	mftb	r3
	blr
	.long	0
	.byte	0,12,0x14,0,0,0,0,0
.size	.OPENSSL_rdtsc_mftb,.-.OPENSSL_rdtsc_mftb

.globl	.OPENSSL_rdtsc_mfspr268
.align	4
.OPENSSL_rdtsc_mfspr268:
	mfspr	r3,268
	blr
	.long	0
	.byte	0,12,0x14,0,0,0,0,0
.size	.OPENSSL_rdtsc_mfspr268,.-.OPENSSL_rdtsc_mfspr268

.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

globl	.CRYPTO_memcmp
.align	4
.CRYPTO_memcmp:
	$CMPLI	r5,0
	li	r0,0
	beq	Lno_data
	mtctr	r5
Loop_cmp:
	lbz	r6,0(r3)
	addi	r3,r3,1
	lbz	r7,0(r4)
	addi	r4,r4,1
	xor	r6,r6,r7
	or	r0,r0,r6
	bdnz	Loop_cmp

Lno_data:
	li	r3,0
	sub	r3,r3,r0
	extrwi	r3,r3,1,0
	blr
	.long	0
	.byte	0,12,0x14,0,0,0,3,0
	.long	0
.size	.CRYPTO_memcmp,.-.CRYPTO_memcmp
___
{
my ($out,$cnt,$max)=("r3","r4","r5");
my ($tick,$lasttick)=("r6","r7");
my ($diff,$lastdiff)=("r8","r9");

$code.=<<___;
.globl	.OPENSSL_instrument_bus_mftb
.align	4
.OPENSSL_instrument_bus_mftb:
	mtctr	$cnt

	mftb	$lasttick		# collect 1st tick
	li	$diff,0

	dcbf	0,$out			# flush cache line
	lwarx	$tick,0,$out		# load and lock
	add	$tick,$tick,$diff
	stwcx.	$tick,0,$out
	stwx	$tick,0,$out

Loop:	mftb	$tick
	sub	$diff,$tick,$lasttick
	mr	$lasttick,$tick
	dcbf	0,$out			# flush cache line
	lwarx	$tick,0,$out		# load and lock
	add	$tick,$tick,$diff
	stwcx.	$tick,0,$out
	stwx	$tick,0,$out
	addi	$out,$out,4		# ++$out
	bdnz	Loop

	mr	r3,$cnt
	blr
	.long	0
	.byte	0,12,0x14,0,0,0,2,0
	.long	0
.size	.OPENSSL_instrument_bus_mftb,.-.OPENSSL_instrument_bus_mftb

.globl	.OPENSSL_instrument_bus2_mftb
.align	4
.OPENSSL_instrument_bus2_mftb:
	mr	r0,$cnt
	slwi	$cnt,$cnt,2

	mftb	$lasttick		# collect 1st tick
	li	$diff,0

	dcbf	0,$out			# flush cache line
	lwarx	$tick,0,$out		# load and lock
	add	$tick,$tick,$diff
	stwcx.	$tick,0,$out
	stwx	$tick,0,$out

	mftb	$tick			# collect 1st diff
	sub	$diff,$tick,$lasttick
	mr	$lasttick,$tick
	mr	$lastdiff,$diff
Loop2:
	dcbf	0,$out			# flush cache line
	lwarx	$tick,0,$out		# load and lock
	add	$tick,$tick,$diff
	stwcx.	$tick,0,$out
	stwx	$tick,0,$out

	addic.	$max,$max,-1
	beq	Ldone2

	mftb	$tick
	sub	$diff,$tick,$lasttick
	mr	$lasttick,$tick
	cmplw	7,$diff,$lastdiff
	mr	$lastdiff,$diff

	mfcr	$tick			# pull cr
	not	$tick,$tick		# flip bits
	rlwinm	$tick,$tick,1,29,29	# isolate flipped eq bit and scale

	sub.	$cnt,$cnt,$tick		# conditional --$cnt
	add	$out,$out,$tick		# conditional ++$out
	bne	Loop2

Ldone2:
	srwi	$cnt,$cnt,2
	sub	r3,r0,$cnt
	blr
	.long	0
	.byte	0,12,0x14,0,0,0,3,0
	.long	0
.size	.OPENSSL_instrument_bus2_mftb,.-.OPENSSL_instrument_bus2_mftb

.globl	.OPENSSL_instrument_bus_mfspr268
.align	4
.OPENSSL_instrument_bus_mfspr268:
	mtctr	$cnt

	mfspr	$lasttick,268		# collect 1st tick
	li	$diff,0

	dcbf	0,$out			# flush cache line
	lwarx	$tick,0,$out		# load and lock
	add	$tick,$tick,$diff
	stwcx.	$tick,0,$out
	stwx	$tick,0,$out

Loop3:	mfspr	$tick,268
	sub	$diff,$tick,$lasttick
	mr	$lasttick,$tick
	dcbf	0,$out			# flush cache line
	lwarx	$tick,0,$out		# load and lock
	add	$tick,$tick,$diff
	stwcx.	$tick,0,$out
	stwx	$tick,0,$out
	addi	$out,$out,4		# ++$out
	bdnz	Loop3

	mr	r3,$cnt
	blr
	.long	0
	.byte	0,12,0x14,0,0,0,2,0
	.long	0
.size	.OPENSSL_instrument_bus_mfspr268,.-.OPENSSL_instrument_bus_mfspr268

.globl	.OPENSSL_instrument_bus2_mfspr268
.align	4
.OPENSSL_instrument_bus2_mfspr268:
	mr	r0,$cnt
	slwi	$cnt,$cnt,2

	mfspr	$lasttick,268		# collect 1st tick
	li	$diff,0

	dcbf	0,$out			# flush cache line
	lwarx	$tick,0,$out		# load and lock
	add	$tick,$tick,$diff
	stwcx.	$tick,0,$out
	stwx	$tick,0,$out

	mfspr	$tick,268		# collect 1st diff
	sub	$diff,$tick,$lasttick
	mr	$lasttick,$tick
	mr	$lastdiff,$diff
Loop4:
	dcbf	0,$out			# flush cache line
	lwarx	$tick,0,$out		# load and lock
	add	$tick,$tick,$diff
	stwcx.	$tick,0,$out
	stwx	$tick,0,$out

	addic.	$max,$max,-1
	beq	Ldone4

	mfspr	$tick,268
	sub	$diff,$tick,$lasttick
	mr	$lasttick,$tick
	cmplw	7,$diff,$lastdiff
	mr	$lastdiff,$diff

	mfcr	$tick			# pull cr
	not	$tick,$tick		# flip bits
	rlwinm	$tick,$tick,1,29,29	# isolate flipped eq bit and scale

	sub.	$cnt,$cnt,$tick		# conditional --$cnt
	add	$out,$out,$tick		# conditional ++$out
	bne	Loop4

Ldone4:
	srwi	$cnt,$cnt,2
	sub	r3,r0,$cnt
	blr
	.long	0
	.byte	0,12,0x14,0,0,0,3,0
	.long	0
.size	.OPENSSL_instrument_bus2_mfspr268,.-.OPENSSL_instrument_bus2_mfspr268
___
}

$code =~ s/\`([^\`]*)\`/eval $1/gem;
print $code;
close STDOUT;
Commit	Line	Data
e0a65194 RS	1	#! /usr/bin/env perl
	2	# Copyright 2007-2016 The OpenSSL Project Authors. All Rights Reserved.
	3	#
0e9725bc	4	# Licensed under the Apache License 2.0 (the "License"). You may not use
e0a65194 RS	5	# this file except in compliance with the License. You can obtain a copy
	6	# in the file LICENSE in the source distribution or at
	7	# https://www.openssl.org/source/license.html
	8
9c9c83cc	9
addd641f	10	$flavour = shift;
9c9c83cc AP	11
	12	$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
	13	( $xlate="${dir}ppc-xlate.pl" and -f $xlate ) or
	14	( $xlate="${dir}perlasm/ppc-xlate.pl" and -f $xlate) or
	15	die "can't locate ppc-xlate.pl";
	16
addd641f	17	open STDOUT,"\| $^X $xlate $flavour ".shift \|\| die "can't call $xlate: $!";
9c9c83cc	18
addd641f	19	if ($flavour=~/64/) {
9c9c83cc AP	20	$CMPLI="cmpldi";
	21	$SHRLI="srdi";
	22	$SIGNX="extsw";
	23	} else {
	24	$CMPLI="cmplwi";
	25	$SHRLI="srwi";
	26	$SIGNX="mr";
	27	}
	28
	29	$code=<<___;
492279f6	30	.machine "any"
9c9c83cc AP	31	.text
9c9c83cc AP	32
81eae077 AP	33	.globl .OPENSSL_fpu_probe
	34	.align 4
	35	.OPENSSL_fpu_probe:
	36	fmr f0,f0
	37	blr
	38	.long 0
	39	.byte 0,12,0x14,0,0,0,0,0
	40	.size .OPENSSL_fpu_probe,.-.OPENSSL_fpu_probe
b4b48a10	41	.globl .OPENSSL_ppc64_probe
9c9c83cc	42	.align 4
b4b48a10 AP	43	.OPENSSL_ppc64_probe:
	44	fcfid f1,f1
	45	extrdi r0,r0,32,0
9c9c83cc	46	blr
67150340 AP	47	.long 0
67150340 AP	48	.byte 0,12,0x14,0,0,0,0,0
d6019e16	49	.size .OPENSSL_ppc64_probe,.-.OPENSSL_ppc64_probe
9c9c83cc	50
6415dd7b AP	51	.globl .OPENSSL_altivec_probe
	52	.align 4
	53	.OPENSSL_altivec_probe:
	54	.long 0x10000484 # vor v0,v0,v0
	55	blr
67150340 AP	56	.long 0
67150340 AP	57	.byte 0,12,0x14,0,0,0,0,0
d6019e16	58	.size .OPENSSL_altivec_probe,.-..OPENSSL_altivec_probe
6415dd7b	59
de51e830 AP	60	.globl .OPENSSL_crypto207_probe
de51e830 AP	61	.align 4
d86689e1	62	.OPENSSL_crypto207_probe:
de51e830 AP	63	lvx_u v0,0,r1
	64	vcipher v0,v0,v0
	65	blr
	66	.long 0
	67	.byte 0,12,0x14,0,0,0,0,0
	68	.size .OPENSSL_crypto207_probe,.-.OPENSSL_crypto207_probe
	69
e0e53282 AP	70	.globl .OPENSSL_madd300_probe
	71	.align 4
	72	.OPENSSL_madd300_probe:
	73	xor r0,r0,r0
	74	maddld r3,r0,r0,r0
	75	maddhdu r3,r0,r0,r0
	76	blr
	77	.long 0
	78	.byte 0,12,0x14,0,0,0,0,0
	79
9c9c83cc AP	80	.globl .OPENSSL_wipe_cpu
	81	.align 4
	82	.OPENSSL_wipe_cpu:
	83	xor r0,r0,r0
78a533cb AP	84	fmr f0,f31
	85	fmr f1,f31
	86	fmr f2,f31
9c9c83cc	87	mr r3,r1
78a533cb	88	fmr f3,f31
9c9c83cc	89	xor r4,r4,r4
78a533cb	90	fmr f4,f31
9c9c83cc	91	xor r5,r5,r5
78a533cb	92	fmr f5,f31
9c9c83cc	93	xor r6,r6,r6
78a533cb	94	fmr f6,f31
9c9c83cc	95	xor r7,r7,r7
78a533cb	96	fmr f7,f31
9c9c83cc	97	xor r8,r8,r8
78a533cb	98	fmr f8,f31
9c9c83cc	99	xor r9,r9,r9
78a533cb	100	fmr f9,f31
9c9c83cc	101	xor r10,r10,r10
78a533cb	102	fmr f10,f31
9c9c83cc	103	xor r11,r11,r11
78a533cb	104	fmr f11,f31
9c9c83cc	105	xor r12,r12,r12
78a533cb AP	106	fmr f12,f31
78a533cb AP	107	fmr f13,f31
9c9c83cc	108	blr
67150340 AP	109	.long 0
67150340 AP	110	.byte 0,12,0x14,0,0,0,0,0
d6019e16	111	.size .OPENSSL_wipe_cpu,.-.OPENSSL_wipe_cpu
9c9c83cc AP	112
	113	.globl .OPENSSL_atomic_add
	114	.align 4
	115	.OPENSSL_atomic_add:
5fabb88a	116	Ladd: lwarx r5,0,r3
9c9c83cc AP	117	add r0,r4,r5
9c9c83cc AP	118	stwcx. r0,0,r3
5fabb88a	119	bne- Ladd
9c9c83cc AP	120	$SIGNX r3,r0
9c9c83cc AP	121	blr
67150340 AP	122	.long 0
	123	.byte 0,12,0x14,0,0,0,2,0
	124	.long 0
d6019e16	125	.size .OPENSSL_atomic_add,.-.OPENSSL_atomic_add
9c9c83cc	126
c8f37048	127	.globl .OPENSSL_rdtsc_mftb
9c9c83cc	128	.align 4
c8f37048	129	.OPENSSL_rdtsc_mftb:
9c9c83cc	130	mftb r3
9c9c83cc	131	blr
67150340 AP	132	.long 0
67150340 AP	133	.byte 0,12,0x14,0,0,0,0,0
c8f37048 BE	134	.size .OPENSSL_rdtsc_mftb,.-.OPENSSL_rdtsc_mftb
	135
	136	.globl .OPENSSL_rdtsc_mfspr268
	137	.align 4
	138	.OPENSSL_rdtsc_mfspr268:
	139	mfspr r3,268
	140	blr
	141	.long 0
	142	.byte 0,12,0x14,0,0,0,0,0
	143	.size .OPENSSL_rdtsc_mfspr268,.-.OPENSSL_rdtsc_mfspr268
9c9c83cc AP	144
	145	.globl .OPENSSL_cleanse
	146	.align 4
	147	.OPENSSL_cleanse:
	148	$CMPLI r4,7
	149	li r0,0
	150	bge Lot
7676eebf AP	151	$CMPLI r4,0
7676eebf AP	152	beqlr-
9c9c83cc AP	153	Little: mtctr r4
	154	stb r0,0(r3)
	155	addi r3,r3,1
9474483a	156	bdnz \$-8
9c9c83cc AP	157	blr
	158	Lot: andi. r5,r3,3
	159	beq Laligned
	160	stb r0,0(r3)
	161	subi r4,r4,1
	162	addi r3,r3,1
	163	b Lot
	164	Laligned:
	165	$SHRLI r5,r4,2
	166	mtctr r5
	167	stw r0,0(r3)
	168	addi r3,r3,4
9474483a	169	bdnz \$-8
9c9c83cc AP	170	andi. r4,r4,3
	171	bne Little
	172	blr
67150340 AP	173	.long 0
	174	.byte 0,12,0x14,0,0,0,2,0
	175	.long 0
d6019e16	176	.size .OPENSSL_cleanse,.-.OPENSSL_cleanse
e33826f0 AP	177
	178	globl .CRYPTO_memcmp
	179	.align 4
	180	.CRYPTO_memcmp:
	181	$CMPLI r5,0
	182	li r0,0
	183	beq Lno_data
	184	mtctr r5
	185	Loop_cmp:
	186	lbz r6,0(r3)
	187	addi r3,r3,1
	188	lbz r7,0(r4)
	189	addi r4,r4,1
	190	xor r6,r6,r7
	191	or r0,r0,r6
	192	bdnz Loop_cmp
	193
	194	Lno_data:
	195	li r3,0
	196	sub r3,r3,r0
	197	extrwi r3,r3,1,0
	198	blr
	199	.long 0
	200	.byte 0,12,0x14,0,0,0,3,0
	201	.long 0
	202	.size .CRYPTO_memcmp,.-.CRYPTO_memcmp
9c9c83cc	203	___
5fabb88a AP	204	{
	205	my ($out,$cnt,$max)=("r3","r4","r5");
	206	my ($tick,$lasttick)=("r6","r7");
	207	my ($diff,$lastdiff)=("r8","r9");
	208
	209	$code.=<<___;
c8f37048	210	.globl .OPENSSL_instrument_bus_mftb
5fabb88a	211	.align 4
c8f37048	212	.OPENSSL_instrument_bus_mftb:
5fabb88a AP	213	mtctr $cnt
	214
	215	mftb $lasttick # collect 1st tick
	216	li $diff,0
	217
	218	dcbf 0,$out # flush cache line
	219	lwarx $tick,0,$out # load and lock
	220	add $tick,$tick,$diff
	221	stwcx. $tick,0,$out
	222	stwx $tick,0,$out
	223
	224	Loop: mftb $tick
	225	sub $diff,$tick,$lasttick
	226	mr $lasttick,$tick
	227	dcbf 0,$out # flush cache line
	228	lwarx $tick,0,$out # load and lock
	229	add $tick,$tick,$diff
	230	stwcx. $tick,0,$out
	231	stwx $tick,0,$out
	232	addi $out,$out,4 # ++$out
	233	bdnz Loop
	234
	235	mr r3,$cnt
	236	blr
67150340 AP	237	.long 0
	238	.byte 0,12,0x14,0,0,0,2,0
	239	.long 0
c8f37048	240	.size .OPENSSL_instrument_bus_mftb,.-.OPENSSL_instrument_bus_mftb
5fabb88a	241
c8f37048	242	.globl .OPENSSL_instrument_bus2_mftb
5fabb88a	243	.align 4
c8f37048	244	.OPENSSL_instrument_bus2_mftb:
5fabb88a AP	245	mr r0,$cnt
	246	slwi $cnt,$cnt,2
	247
	248	mftb $lasttick # collect 1st tick
	249	li $diff,0
	250
	251	dcbf 0,$out # flush cache line
	252	lwarx $tick,0,$out # load and lock
	253	add $tick,$tick,$diff
	254	stwcx. $tick,0,$out
	255	stwx $tick,0,$out
	256
	257	mftb $tick # collect 1st diff
	258	sub $diff,$tick,$lasttick
	259	mr $lasttick,$tick
	260	mr $lastdiff,$diff
	261	Loop2:
	262	dcbf 0,$out # flush cache line
	263	lwarx $tick,0,$out # load and lock
	264	add $tick,$tick,$diff
	265	stwcx. $tick,0,$out
	266	stwx $tick,0,$out
	267
	268	addic. $max,$max,-1
	269	beq Ldone2
	270
	271	mftb $tick
	272	sub $diff,$tick,$lasttick
	273	mr $lasttick,$tick
	274	cmplw 7,$diff,$lastdiff
	275	mr $lastdiff,$diff
	276
	277	mfcr $tick # pull cr
	278	not $tick,$tick # flip bits
	279	rlwinm $tick,$tick,1,29,29 # isolate flipped eq bit and scale
	280
	281	sub. $cnt,$cnt,$tick # conditional --$cnt
	282	add $out,$out,$tick # conditional ++$out
	283	bne Loop2
	284
	285	Ldone2:
	286	srwi $cnt,$cnt,2
	287	sub r3,r0,$cnt
	288	blr
67150340 AP	289	.long 0
	290	.byte 0,12,0x14,0,0,0,3,0
	291	.long 0
c8f37048 BE	292	.size .OPENSSL_instrument_bus2_mftb,.-.OPENSSL_instrument_bus2_mftb
	293
	294	.globl .OPENSSL_instrument_bus_mfspr268
	295	.align 4
	296	.OPENSSL_instrument_bus_mfspr268:
	297	mtctr $cnt
	298
	299	mfspr $lasttick,268 # collect 1st tick
	300	li $diff,0
	301
	302	dcbf 0,$out # flush cache line
	303	lwarx $tick,0,$out # load and lock
	304	add $tick,$tick,$diff
	305	stwcx. $tick,0,$out
	306	stwx $tick,0,$out
	307
	308	Loop3: mfspr $tick,268
	309	sub $diff,$tick,$lasttick
	310	mr $lasttick,$tick
	311	dcbf 0,$out # flush cache line
	312	lwarx $tick,0,$out # load and lock
	313	add $tick,$tick,$diff
	314	stwcx. $tick,0,$out
	315	stwx $tick,0,$out
	316	addi $out,$out,4 # ++$out
	317	bdnz Loop3
	318
	319	mr r3,$cnt
	320	blr
	321	.long 0
	322	.byte 0,12,0x14,0,0,0,2,0
	323	.long 0
	324	.size .OPENSSL_instrument_bus_mfspr268,.-.OPENSSL_instrument_bus_mfspr268
	325
	326	.globl .OPENSSL_instrument_bus2_mfspr268
	327	.align 4
	328	.OPENSSL_instrument_bus2_mfspr268:
	329	mr r0,$cnt
	330	slwi $cnt,$cnt,2
	331
	332	mfspr $lasttick,268 # collect 1st tick
	333	li $diff,0
	334
	335	dcbf 0,$out # flush cache line
	336	lwarx $tick,0,$out # load and lock
	337	add $tick,$tick,$diff
	338	stwcx. $tick,0,$out
	339	stwx $tick,0,$out
	340
	341	mfspr $tick,268 # collect 1st diff
	342	sub $diff,$tick,$lasttick
	343	mr $lasttick,$tick
	344	mr $lastdiff,$diff
	345	Loop4:
	346	dcbf 0,$out # flush cache line
	347	lwarx $tick,0,$out # load and lock
	348	add $tick,$tick,$diff
	349	stwcx. $tick,0,$out
	350	stwx $tick,0,$out
	351
	352	addic. $max,$max,-1
	353	beq Ldone4
	354
	355	mfspr $tick,268
356	sub $diff,$tick,$lasttick
357	mr $lasttick,$tick
358	cmplw 7,$diff,$lastdiff
359	mr $lastdiff,$diff
360
361	mfcr $tick # pull cr
362	not $tick,$tick # flip bits
363	rlwinm $tick,$tick,1,29,29 # isolate flipped eq bit and scale
364
365	sub. $cnt,$cnt,$tick # conditional --$cnt
366	add $out,$out,$tick # conditional ++$out
367	bne Loop4
368
369	Ldone4:
370	srwi $cnt,$cnt,2
371	sub r3,r0,$cnt
372	blr
373	.long 0
374	.byte 0,12,0x14,0,0,0,3,0
375	.long 0
376	.size .OPENSSL_instrument_bus2_mfspr268,.-.OPENSSL_instrument_bus2_mfspr268
5fabb88a AP	377	___
5fabb88a AP	378	}
9c9c83cc AP	379
	380	$code =~ s/\`([^\`]*)\`/eval $1/gem;
	381	print $code;
	382	close STDOUT;