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

#!/usr/bin/env perl

$flavour = shift;
$output  = shift;

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

open OUT,"| \"$^X\" $xlate $flavour $output";
*STDOUT=*OUT;

$code.=<<___;
#include "arm_arch.h"

.text
#if defined(__thumb2__) && !defined(__APPLE__)
.syntax	unified
.thumb
#else
.code	32
#endif

.align	5
.global	OPENSSL_atomic_add
.type	OPENSSL_atomic_add,%function
OPENSSL_atomic_add:
#if __ARM_ARCH__>=6
.Ladd:	ldrex	r2,[r0]
	add	r3,r2,r1
	strex	r2,r3,[r0]
	cmp	r2,#0
	bne	.Ladd
	mov	r0,r3
	bx	lr
#else
	stmdb	sp!,{r4-r6,lr}
	ldr	r2,.Lspinlock
	adr	r3,.Lspinlock
	mov	r4,r0
	mov	r5,r1
	add	r6,r3,r2	@ &spinlock
	b	.+8
.Lspin:	bl	sched_yield
	mov	r0,#-1
	swp	r0,r0,[r6]
	cmp	r0,#0
	bne	.Lspin

	ldr	r2,[r4]
	add	r2,r2,r5
	str	r2,[r4]
	str	r0,[r6]		@ release spinlock
	ldmia	sp!,{r4-r6,lr}
	tst	lr,#1
	moveq	pc,lr
	.word	0xe12fff1e	@ bx	lr
#endif
.size	OPENSSL_atomic_add,.-OPENSSL_atomic_add

.global	OPENSSL_cleanse
.type	OPENSSL_cleanse,%function
OPENSSL_cleanse:
	eor	ip,ip,ip
	cmp	r1,#7
#ifdef	__thumb2__
	itt	hs
#endif
	subhs	r1,r1,#4
	bhs	.Lot
	cmp	r1,#0
	beq	.Lcleanse_done
.Little:
	strb	ip,[r0],#1
	subs	r1,r1,#1
	bhi	.Little
	b	.Lcleanse_done

.Lot:	tst	r0,#3
	beq	.Laligned
	strb	ip,[r0],#1
	sub	r1,r1,#1
	b	.Lot
.Laligned:
	str	ip,[r0],#4
	subs	r1,r1,#4
	bhs	.Laligned
	adds	r1,r1,#4
	bne	.Little
.Lcleanse_done:
#if __ARM_ARCH__>=5
	bx	lr
#else
	tst	lr,#1
	moveq	pc,lr
	.word	0xe12fff1e	@ bx	lr
#endif
.size	OPENSSL_cleanse,.-OPENSSL_cleanse

#if __ARM_MAX_ARCH__>=7
.arch	armv7-a
.fpu	neon

.align	5
.global	_armv7_neon_probe
.type	_armv7_neon_probe,%function
_armv7_neon_probe:
	vorr	q0,q0,q0
	bx	lr
.size	_armv7_neon_probe,.-_armv7_neon_probe

.global	_armv7_tick
.type	_armv7_tick,%function
_armv7_tick:
#ifdef	__APPLE__
	mrrc	p15,0,r0,r1,c14		@ CNTPCT
#else
	mrrc	p15,1,r0,r1,c14		@ CNTVCT
#endif
	bx	lr
.size	_armv7_tick,.-_armv7_tick

.global	_armv8_aes_probe
.type	_armv8_aes_probe,%function
_armv8_aes_probe:
#if defined(__thumb2__) && !defined(__APPLE__)
	.byte	0xb0,0xff,0x00,0x03	@ aese.8	q0,q0
#else
	.byte	0x00,0x03,0xb0,0xf3	@ aese.8	q0,q0
#endif
	bx	lr
.size	_armv8_aes_probe,.-_armv8_aes_probe

.global	_armv8_sha1_probe
.type	_armv8_sha1_probe,%function
_armv8_sha1_probe:
#if defined(__thumb2__) && !defined(__APPLE__)
	.byte	0x00,0xef,0x40,0x0c	@ sha1c.32	q0,q0,q0
#else
	.byte	0x40,0x0c,0x00,0xf2	@ sha1c.32	q0,q0,q0
#endif
	bx	lr
.size	_armv8_sha1_probe,.-_armv8_sha1_probe

.global	_armv8_sha256_probe
.type	_armv8_sha256_probe,%function
_armv8_sha256_probe:
#if defined(__thumb2__) && !defined(__APPLE__)
	.byte	0x00,0xff,0x40,0x0c	@ sha256h.32	q0,q0,q0
#else
	.byte	0x40,0x0c,0x00,0xf3	@ sha256h.32	q0,q0,q0
#endif
	bx	lr
.size	_armv8_sha256_probe,.-_armv8_sha256_probe
.global	_armv8_pmull_probe
.type	_armv8_pmull_probe,%function
_armv8_pmull_probe:
#if defined(__thumb2__) && !defined(__APPLE__)
	.byte	0xa0,0xef,0x00,0x0e	@ vmull.p64	q0,d0,d0
#else
	.byte	0x00,0x0e,0xa0,0xf2	@ vmull.p64	q0,d0,d0
#endif
	bx	lr
.size	_armv8_pmull_probe,.-_armv8_pmull_probe
#endif

.global	OPENSSL_wipe_cpu
.type	OPENSSL_wipe_cpu,%function
OPENSSL_wipe_cpu:
#if __ARM_MAX_ARCH__>=7
	ldr	r0,.LOPENSSL_armcap
	adr	r1,.LOPENSSL_armcap
	ldr	r0,[r1,r0]
#ifdef	__APPLE__
	ldr	r0,[r0]
#endif
#endif
	eor	r2,r2,r2
	eor	r3,r3,r3
	eor	ip,ip,ip
#if __ARM_MAX_ARCH__>=7
	tst	r0,#1
	beq	.Lwipe_done
	veor	q0, q0, q0
	veor	q1, q1, q1
	veor	q2, q2, q2
	veor	q3, q3, q3
	veor	q8, q8, q8
	veor	q9, q9, q9
	veor	q10, q10, q10
	veor	q11, q11, q11
	veor	q12, q12, q12
	veor	q13, q13, q13
	veor	q14, q14, q14
	veor	q15, q15, q15
.Lwipe_done:
#endif
	mov	r0,sp
#if __ARM_ARCH__>=5
	bx	lr
#else
	tst	lr,#1
	moveq	pc,lr
	.word	0xe12fff1e	@ bx	lr
#endif
.size	OPENSSL_wipe_cpu,.-OPENSSL_wipe_cpu

.global	OPENSSL_instrument_bus
.type	OPENSSL_instrument_bus,%function
OPENSSL_instrument_bus:
	eor	r0,r0,r0
#if __ARM_ARCH__>=5
	bx	lr
#else
	tst	lr,#1
	moveq	pc,lr
	.word	0xe12fff1e	@ bx	lr
#endif
.size	OPENSSL_instrument_bus,.-OPENSSL_instrument_bus

.global	OPENSSL_instrument_bus2
.type	OPENSSL_instrument_bus2,%function
OPENSSL_instrument_bus2:
	eor	r0,r0,r0
#if __ARM_ARCH__>=5
	bx	lr
#else
	tst	lr,#1
	moveq	pc,lr
	.word	0xe12fff1e	@ bx	lr
#endif
.size	OPENSSL_instrument_bus2,.-OPENSSL_instrument_bus2

.align	5
#if __ARM_MAX_ARCH__>=7
.LOPENSSL_armcap:
.word	OPENSSL_armcap_P-.
#endif
#if __ARM_ARCH__>=6
.align	5
#else
.Lspinlock:
.word	atomic_add_spinlock-.Lspinlock
.align	5

.data
.align	2
atomic_add_spinlock:
.word	0
#endif

.comm	OPENSSL_armcap_P,4,4
.hidden	OPENSSL_armcap_P
___

print $code;
close STDOUT;
Commit	Line	Data
313e6ec1 AP	1	#!/usr/bin/env perl
	2
	3	$flavour = shift;
	4	$output = shift;
	5
	6	$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
	7	( $xlate="${dir}arm-xlate.pl" and -f $xlate ) or
	8	( $xlate="${dir}perlasm/arm-xlate.pl" and -f $xlate) or
	9	die "can't locate arm-xlate.pl";
	10
	11	open OUT,"\| \"$^X\" $xlate $flavour $output";
	12	STDOUT=OUT;
	13
	14	$code.=<<___;
87873f43 AP	15	#include "arm_arch.h"
	16
	17	.text
11208dcf AP	18	#if defined(__thumb2__) && !defined(__APPLE__)
	19	.syntax unified
	20	.thumb
	21	#else
87873f43	22	.code 32
11208dcf	23	#endif
87873f43	24
4afa9f03	25	.align 5
87873f43 AP	26	.global OPENSSL_atomic_add
	27	.type OPENSSL_atomic_add,%function
	28	OPENSSL_atomic_add:
	29	#if __ARM_ARCH__>=6
	30	.Ladd: ldrex r2,[r0]
	31	add r3,r2,r1
	32	strex r2,r3,[r0]
	33	cmp r2,#0
	34	bne .Ladd
	35	mov r0,r3
5dcf70a1	36	bx lr
87873f43 AP	37	#else
	38	stmdb sp!,{r4-r6,lr}
	39	ldr r2,.Lspinlock
	40	adr r3,.Lspinlock
	41	mov r4,r0
	42	mov r5,r1
	43	add r6,r3,r2 @ &spinlock
	44	b .+8
	45	.Lspin: bl sched_yield
	46	mov r0,#-1
	47	swp r0,r0,[r6]
	48	cmp r0,#0
	49	bne .Lspin
	50
	51	ldr r2,[r4]
29fd6746	52	add r2,r2,r5
87873f43 AP	53	str r2,[r4]
	54	str r0,[r6] @ release spinlock
	55	ldmia sp!,{r4-r6,lr}
	56	tst lr,#1
	57	moveq pc,lr
	58	.word 0xe12fff1e @ bx lr
	59	#endif
	60	.size OPENSSL_atomic_add,.-OPENSSL_atomic_add
	61
	62	.global OPENSSL_cleanse
	63	.type OPENSSL_cleanse,%function
	64	OPENSSL_cleanse:
	65	eor ip,ip,ip
	66	cmp r1,#7
11208dcf AP	67	#ifdef __thumb2__
	68	itt hs
	69	#endif
29fd6746	70	subhs r1,r1,#4
87873f43 AP	71	bhs .Lot
	72	cmp r1,#0
	73	beq .Lcleanse_done
	74	.Little:
	75	strb ip,[r0],#1
29fd6746	76	subs r1,r1,#1
87873f43 AP	77	bhi .Little
	78	b .Lcleanse_done
	79
	80	.Lot: tst r0,#3
	81	beq .Laligned
	82	strb ip,[r0],#1
29fd6746	83	sub r1,r1,#1
87873f43 AP	84	b .Lot
	85	.Laligned:
	86	str ip,[r0],#4
29fd6746	87	subs r1,r1,#4
87873f43	88	bhs .Laligned
29fd6746	89	adds r1,r1,#4
87873f43 AP	90	bne .Little
87873f43 AP	91	.Lcleanse_done:
5dcf70a1 AP	92	#if __ARM_ARCH__>=5
	93	bx lr
	94	#else
87873f43 AP	95	tst lr,#1
	96	moveq pc,lr
	97	.word 0xe12fff1e @ bx lr
5dcf70a1	98	#endif
87873f43 AP	99	.size OPENSSL_cleanse,.-OPENSSL_cleanse
87873f43 AP	100
c1669e1c AP	101	#if __ARM_MAX_ARCH__>=7
	102	.arch armv7-a
	103	.fpu neon
	104
	105	.align 5
	106	.global _armv7_neon_probe
	107	.type _armv7_neon_probe,%function
	108	_armv7_neon_probe:
	109	vorr q0,q0,q0
	110	bx lr
	111	.size _armv7_neon_probe,.-_armv7_neon_probe
	112
	113	.global _armv7_tick
	114	.type _armv7_tick,%function
	115	_armv7_tick:
313e6ec1 AP	116	#ifdef __APPLE__
	117	mrrc p15,0,r0,r1,c14 @ CNTPCT
	118	#else
c1669e1c	119	mrrc p15,1,r0,r1,c14 @ CNTVCT
313e6ec1	120	#endif
c1669e1c AP	121	bx lr
	122	.size _armv7_tick,.-_armv7_tick
	123
	124	.global _armv8_aes_probe
	125	.type _armv8_aes_probe,%function
	126	_armv8_aes_probe:
11208dcf AP	127	#if defined(__thumb2__) && !defined(__APPLE__)
	128	.byte 0xb0,0xff,0x00,0x03 @ aese.8 q0,q0
	129	#else
c1669e1c	130	.byte 0x00,0x03,0xb0,0xf3 @ aese.8 q0,q0
11208dcf	131	#endif
c1669e1c AP	132	bx lr
	133	.size _armv8_aes_probe,.-_armv8_aes_probe
	134
	135	.global _armv8_sha1_probe
	136	.type _armv8_sha1_probe,%function
	137	_armv8_sha1_probe:
11208dcf AP	138	#if defined(__thumb2__) && !defined(__APPLE__)
	139	.byte 0x00,0xef,0x40,0x0c @ sha1c.32 q0,q0,q0
	140	#else
c1669e1c	141	.byte 0x40,0x0c,0x00,0xf2 @ sha1c.32 q0,q0,q0
11208dcf	142	#endif
c1669e1c AP	143	bx lr
	144	.size _armv8_sha1_probe,.-_armv8_sha1_probe
	145
	146	.global _armv8_sha256_probe
	147	.type _armv8_sha256_probe,%function
	148	_armv8_sha256_probe:
11208dcf AP	149	#if defined(__thumb2__) && !defined(__APPLE__)
	150	.byte 0x00,0xff,0x40,0x0c @ sha256h.32 q0,q0,q0
	151	#else
c1669e1c	152	.byte 0x40,0x0c,0x00,0xf3 @ sha256h.32 q0,q0,q0
11208dcf	153	#endif
c1669e1c AP	154	bx lr
	155	.size _armv8_sha256_probe,.-_armv8_sha256_probe
	156	.global _armv8_pmull_probe
	157	.type _armv8_pmull_probe,%function
	158	_armv8_pmull_probe:
11208dcf AP	159	#if defined(__thumb2__) && !defined(__APPLE__)
	160	.byte 0xa0,0xef,0x00,0x0e @ vmull.p64 q0,d0,d0
	161	#else
c1669e1c	162	.byte 0x00,0x0e,0xa0,0xf2 @ vmull.p64 q0,d0,d0
11208dcf	163	#endif
c1669e1c AP	164	bx lr
	165	.size _armv8_pmull_probe,.-_armv8_pmull_probe
	166	#endif
	167
87873f43 AP	168	.global OPENSSL_wipe_cpu
	169	.type OPENSSL_wipe_cpu,%function
	170	OPENSSL_wipe_cpu:
c1669e1c	171	#if __ARM_MAX_ARCH__>=7
87873f43 AP	172	ldr r0,.LOPENSSL_armcap
	173	adr r1,.LOPENSSL_armcap
	174	ldr r0,[r1,r0]
313e6ec1 AP	175	#ifdef __APPLE__
	176	ldr r0,[r0]
	177	#endif
c1669e1c	178	#endif
87873f43 AP	179	eor r2,r2,r2
	180	eor r3,r3,r3
	181	eor ip,ip,ip
c1669e1c	182	#if __ARM_MAX_ARCH__>=7
87873f43 AP	183	tst r0,#1
87873f43 AP	184	beq .Lwipe_done
c1669e1c AP	185	veor q0, q0, q0
	186	veor q1, q1, q1
	187	veor q2, q2, q2
	188	veor q3, q3, q3
	189	veor q8, q8, q8
	190	veor q9, q9, q9
	191	veor q10, q10, q10
	192	veor q11, q11, q11
	193	veor q12, q12, q12
	194	veor q13, q13, q13
	195	veor q14, q14, q14
	196	veor q15, q15, q15
87873f43	197	.Lwipe_done:
c1669e1c	198	#endif
87873f43	199	mov r0,sp
5dcf70a1 AP	200	#if __ARM_ARCH__>=5
	201	bx lr
	202	#else
87873f43 AP	203	tst lr,#1
	204	moveq pc,lr
	205	.word 0xe12fff1e @ bx lr
5dcf70a1	206	#endif
87873f43 AP	207	.size OPENSSL_wipe_cpu,.-OPENSSL_wipe_cpu
	208
	209	.global OPENSSL_instrument_bus
	210	.type OPENSSL_instrument_bus,%function
	211	OPENSSL_instrument_bus:
	212	eor r0,r0,r0
5dcf70a1 AP	213	#if __ARM_ARCH__>=5
	214	bx lr
	215	#else
87873f43 AP	216	tst lr,#1
	217	moveq pc,lr
	218	.word 0xe12fff1e @ bx lr
5dcf70a1	219	#endif
87873f43 AP	220	.size OPENSSL_instrument_bus,.-OPENSSL_instrument_bus
	221
	222	.global OPENSSL_instrument_bus2
	223	.type OPENSSL_instrument_bus2,%function
	224	OPENSSL_instrument_bus2:
	225	eor r0,r0,r0
5dcf70a1 AP	226	#if __ARM_ARCH__>=5
	227	bx lr
	228	#else
87873f43 AP	229	tst lr,#1
	230	moveq pc,lr
	231	.word 0xe12fff1e @ bx lr
5dcf70a1	232	#endif
87873f43 AP	233	.size OPENSSL_instrument_bus2,.-OPENSSL_instrument_bus2
	234
	235	.align 5
c1669e1c	236	#if __ARM_MAX_ARCH__>=7
87873f43	237	.LOPENSSL_armcap:
313e6ec1	238	.word OPENSSL_armcap_P-.
c1669e1c	239	#endif
87873f43 AP	240	#if __ARM_ARCH__>=6
	241	.align 5
	242	#else
	243	.Lspinlock:
	244	.word atomic_add_spinlock-.Lspinlock
	245	.align 5
	246
	247	.data
	248	.align 2
	249	atomic_add_spinlock:
	250	.word 0
	251	#endif
	252
	253	.comm OPENSSL_armcap_P,4,4
	254	.hidden OPENSSL_armcap_P
313e6ec1 AP	255	___
	256
	257	print $code;
	258	close STDOUT;