2 # Copyright 2015-2020 The OpenSSL Project Authors. All Rights Reserved.
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
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;
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
18 die "can't locate arm-xlate.pl";
20 open OUT,"| \"$^X\" $xlate $flavour \"$output\""
21 or die "can't call $xlate: $!";
31 .globl _armv7_neon_probe
32 .type _armv7_neon_probe,%function
34 orr v15.16b, v15.16b, v15.16b
36 .size _armv7_neon_probe,.-_armv7_neon_probe
39 .type _armv7_tick,%function
47 .size _armv7_tick,.-_armv7_tick
49 .globl _armv8_aes_probe
50 .type _armv8_aes_probe,%function
54 .size _armv8_aes_probe,.-_armv8_aes_probe
56 .globl _armv8_sha1_probe
57 .type _armv8_sha1_probe,%function
61 .size _armv8_sha1_probe,.-_armv8_sha1_probe
63 .globl _armv8_sha256_probe
64 .type _armv8_sha256_probe,%function
66 sha256su0 v0.4s, v0.4s
68 .size _armv8_sha256_probe,.-_armv8_sha256_probe
70 .globl _armv8_pmull_probe
71 .type _armv8_pmull_probe,%function
73 pmull v0.1q, v0.1d, v0.1d
75 .size _armv8_pmull_probe,.-_armv8_pmull_probe
77 .globl _armv8_sha512_probe
78 .type _armv8_sha512_probe,%function
80 .long 0xcec08000 // sha512su0 v0.2d,v0.2d
82 .size _armv8_sha512_probe,.-_armv8_sha512_probe
84 .globl OPENSSL_cleanse
85 .type OPENSSL_cleanse,%function
88 cbz x1,.Lret // len==0?
93 strb wzr,[x0],#1 // store byte-by-byte
100 b.eq .Laligned // inp is aligned
101 strb wzr,[x0],#1 // store byte-by-byte
107 str xzr,[x0],#8 // store word-by-word
110 b.ne .Laligned // len>=8
111 cbnz x1,.Little // len!=0?
113 .size OPENSSL_cleanse,.-OPENSSL_cleanse
116 .type CRYPTO_memcmp,%function
120 cbz x2,.Lno_data // len==0?
146 .size CRYPTO_memcmp,.-CRYPTO_memcmp
150 close STDOUT or die "error closing STDOUT: $!";