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