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

#! /usr/bin/env perl
# Copyright 2015-2016 The OpenSSL Project Authors. All Rights Reserved.
#
# Licensed under the OpenSSL license (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;
$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
#undef	__thumb2__
#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

.global	CRYPTO_memcmp
.type	CRYPTO_memcmp,%function
.align	4
CRYPTO_memcmp:
	eor	ip,ip,ip
	cmp	r2,#0
	beq	.Lno_data
	stmdb	sp!,{r4,r5}

.Loop_cmp:
	ldrb	r4,[r0],#1
	ldrb	r5,[r1],#1
	eor	r4,r4,r5
	orr	ip,ip,r4
	subs	r2,r2,#1
	bne	.Loop_cmp

	ldmia	sp!,{r4,r5}
.Lno_data:
	neg	r0,ip
	mov	r0,r0,lsr#31
#if __ARM_ARCH__>=5
	bx	lr
#else
	tst	lr,#1
	moveq	pc,lr
	.word	0xe12fff1e	@ bx	lr
#endif
.size	CRYPTO_memcmp,.-CRYPTO_memcmp

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