1#! /usr/bin/env perl
2# Copyright 2015-2020 The OpenSSL Project Authors. All Rights Reserved.
3#
4# Licensed under the Apache License 2.0 (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
9
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;
14
15$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
16( $xlate="${dir}arm-xlate.pl" and -f $xlate ) or
17( $xlate="${dir}perlasm/arm-xlate.pl" and -f $xlate) or
18die "can't locate arm-xlate.pl";
19
20open OUT,"| \"$^X\" $xlate $flavour \"$output\""
21    or die "can't call $xlate: $!";
22*STDOUT=*OUT;
23
24$code.=<<___;
25#include "arm_arch.h"
26
27.text
28.arch	armv8-a+crypto
29
30.align	5
31.globl	_armv7_neon_probe
32.type	_armv7_neon_probe,%function
33_armv7_neon_probe:
34	orr	v15.16b, v15.16b, v15.16b
35	ret
36.size	_armv7_neon_probe,.-_armv7_neon_probe
37
38.globl	_armv7_tick
39.type	_armv7_tick,%function
40_armv7_tick:
41#ifdef	__APPLE__
42	mrs	x0, CNTPCT_EL0
43#else
44	mrs	x0, CNTVCT_EL0
45#endif
46	ret
47.size	_armv7_tick,.-_armv7_tick
48
49.globl	_armv8_aes_probe
50.type	_armv8_aes_probe,%function
51_armv8_aes_probe:
52	aese	v0.16b, v0.16b
53	ret
54.size	_armv8_aes_probe,.-_armv8_aes_probe
55
56.globl	_armv8_sha1_probe
57.type	_armv8_sha1_probe,%function
58_armv8_sha1_probe:
59	sha1h	s0, s0
60	ret
61.size	_armv8_sha1_probe,.-_armv8_sha1_probe
62
63.globl	_armv8_sha256_probe
64.type	_armv8_sha256_probe,%function
65_armv8_sha256_probe:
66	sha256su0	v0.4s, v0.4s
67	ret
68.size	_armv8_sha256_probe,.-_armv8_sha256_probe
69
70.globl	_armv8_pmull_probe
71.type	_armv8_pmull_probe,%function
72_armv8_pmull_probe:
73	pmull	v0.1q, v0.1d, v0.1d
74	ret
75.size	_armv8_pmull_probe,.-_armv8_pmull_probe
76
77.globl	_armv8_sha512_probe
78.type	_armv8_sha512_probe,%function
79_armv8_sha512_probe:
80	.long	0xcec08000	// sha512su0	v0.2d,v0.2d
81	ret
82.size	_armv8_sha512_probe,.-_armv8_sha512_probe
83
84.globl	_armv8_cpuid_probe
85.type	_armv8_cpuid_probe,%function
86_armv8_cpuid_probe:
87	mrs	x0, midr_el1
88	ret
89.size	_armv8_cpuid_probe,.-_armv8_cpuid_probe
90
91.globl	OPENSSL_cleanse
92.type	OPENSSL_cleanse,%function
93.align	5
94OPENSSL_cleanse:
95	cbz	x1,.Lret	// len==0?
96	cmp	x1,#15
97	b.hi	.Lot		// len>15
98	nop
99.Little:
100	strb	wzr,[x0],#1	// store byte-by-byte
101	subs	x1,x1,#1
102	b.ne	.Little
103.Lret:	ret
104
105.align	4
106.Lot:	tst	x0,#7
107	b.eq	.Laligned	// inp is aligned
108	strb	wzr,[x0],#1	// store byte-by-byte
109	sub	x1,x1,#1
110	b	.Lot
111
112.align	4
113.Laligned:
114	str	xzr,[x0],#8	// store word-by-word
115	sub	x1,x1,#8
116	tst	x1,#-8
117	b.ne	.Laligned	// len>=8
118	cbnz	x1,.Little	// len!=0?
119	ret
120.size	OPENSSL_cleanse,.-OPENSSL_cleanse
121
122.globl	CRYPTO_memcmp
123.type	CRYPTO_memcmp,%function
124.align	4
125CRYPTO_memcmp:
126	eor	w3,w3,w3
127	cbz	x2,.Lno_data	// len==0?
128	cmp	x2,#16
129	b.ne	.Loop_cmp
130	ldp	x8,x9,[x0]
131	ldp	x10,x11,[x1]
132	eor	x8,x8,x10
133	eor	x9,x9,x11
134	orr	x8,x8,x9
135	mov	x0,#1
136	cmp	x8,#0
137	csel	x0,xzr,x0,eq
138	ret
139
140.align	4
141.Loop_cmp:
142	ldrb	w4,[x0],#1
143	ldrb	w5,[x1],#1
144	eor	w4,w4,w5
145	orr	w3,w3,w4
146	subs	x2,x2,#1
147	b.ne	.Loop_cmp
148
149.Lno_data:
150	neg	w0,w3
151	lsr	w0,w0,#31
152	ret
153.size	CRYPTO_memcmp,.-CRYPTO_memcmp
154___
155
156print $code;
157close STDOUT or die "error closing STDOUT: $!";
158