[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


# $output is the last argument if it looks like a file (it has an extension)
# $flavour is the first argument if it doesn't look like a file
$output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m|\.\w+$| ? pop : undef;
$flavour = $#ARGV >= 0 && $ARGV[0] !~ m|\.| ? shift : undef;

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