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