mirror of
https://github.com/openssl/openssl.git
synced 2024-12-15 06:01:37 +08:00
360f6dcc5a
RISC-V cpuid implementation allows bitmanip extensions Zb[abcs] to be enabled at runtime using OPENSSL_riscvcap environment variable. For example, to specify 64-bit RISC-V with the G,C,Zba,Zbb,Zbc extensions, one could write: OPENSSL_riscvcap="rv64gc_zba_zbb_zbc" Architecture string parsing is still very primitive, but can be expanded in the future. Currently, only bitmanip extensions Zba, Zbb, Zbc and Zbs are supported. Includes implementation of constant-time CRYPTO_memcmp in riscv64 asm, as well as OPENSSL_cleanse. Assembly implementations are written using perlasm. Reviewed-by: Philipp Tomsich <philipp.tomsich@vrull.eu> Signed-off-by: Henry Brausen <henry.brausen@vrull.eu> Reviewed-by: Tomas Mraz <tomas@openssl.org> Reviewed-by: Paul Dale <pauli@openssl.org> (Merged from https://github.com/openssl/openssl/pull/17640)
90 lines
2.4 KiB
Raku
90 lines
2.4 KiB
Raku
#! /usr/bin/env perl
|
|
# Copyright 2022 The OpenSSL Project Authors. All Rights Reserved.
|
|
#
|
|
# Licensed under the Apache License 2.0 (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
|
|
|
|
|
|
# $output is the last argument if it looks like a file (it has an extension)
|
|
# $flavour is the first argument if it doesn't look like a file
|
|
$output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m|\.\w+$| ? pop : undef;
|
|
$flavour = $#ARGV >= 0 && $ARGV[0] !~ m|\.| ? shift : undef;
|
|
|
|
$output and open STDOUT,">$output";
|
|
|
|
{
|
|
my ($in_a,$in_b,$len,$x,$temp1,$temp2) = ('a0','a1','a2','t0','t1','t2');
|
|
$code.=<<___;
|
|
################################################################################
|
|
# int CRYPTO_memcmp(const void * in_a, const void * in_b, size_t len)
|
|
################################################################################
|
|
.text
|
|
.balign 16
|
|
.globl CRYPTO_memcmp
|
|
.type CRYPTO_memcmp,\@function
|
|
CRYPTO_memcmp:
|
|
li $x,0
|
|
beqz $len,2f # len == 0
|
|
1:
|
|
lbu $temp1,0($in_a)
|
|
lbu $temp2,0($in_b)
|
|
addi $in_a,$in_a,1
|
|
addi $in_b,$in_b,1
|
|
addi $len,$len,-1
|
|
xor $temp1,$temp1,$temp2
|
|
or $x,$x,$temp1
|
|
bgtz $len,1b
|
|
2:
|
|
mv a0,$x
|
|
ret
|
|
___
|
|
}
|
|
{
|
|
my ($ptr,$len,$temp1,$temp2) = ('a0','a1','t0','t1');
|
|
$code.=<<___;
|
|
################################################################################
|
|
# void OPENSSL_cleanse(void *ptr, size_t len)
|
|
################################################################################
|
|
.text
|
|
.balign 16
|
|
.globl OPENSSL_cleanse
|
|
.type OPENSSL_cleanse,\@function
|
|
OPENSSL_cleanse:
|
|
beqz $len,2f # len == 0, return
|
|
srli $temp1,$len,4
|
|
bnez $temp1,3f # len > 15
|
|
|
|
1: # Store <= 15 individual bytes
|
|
sb x0,0($ptr)
|
|
addi $ptr,$ptr,1
|
|
addi $len,$len,-1
|
|
bnez $len,1b
|
|
2:
|
|
ret
|
|
|
|
3: # Store individual bytes until we are aligned
|
|
andi $temp1,$ptr,0x7
|
|
beqz $temp1,4f
|
|
sb x0,0($ptr)
|
|
addi $ptr,$ptr,1
|
|
addi $len,$len,-1
|
|
j 3b
|
|
|
|
4: # Store aligned dwords
|
|
li $temp2,8
|
|
4:
|
|
sd x0,0($ptr)
|
|
addi $ptr,$ptr,8
|
|
addi $len,$len,-8
|
|
bge $len,$temp2,4b # if len>=8 loop
|
|
bnez $len,1b # if len<8 and len != 0, store remaining bytes
|
|
ret
|
|
___
|
|
}
|
|
|
|
|
|
print $code;
|
|
close STDOUT or die "error closing STDOUT: $!";
|