mirror of
https://github.com/openssl/openssl.git
synced 2024-12-09 05:51:54 +08:00
32be631ca1
If one of the perlasm xlate drivers crashes, OpenSSL's build will currently swallow the error and silently truncate the output to however far the driver got. This will hopefully fail to build, but better to check such things. Handle this by checking for errors when closing STDOUT (which is a pipe to the xlate driver). Reviewed-by: Richard Levitte <levitte@openssl.org> Reviewed-by: Tim Hudson <tjh@openssl.org> Reviewed-by: Tomas Mraz <tmraz@fedoraproject.org> (Merged from https://github.com/openssl/openssl/pull/10883)
562 lines
11 KiB
Raku
Executable File
562 lines
11 KiB
Raku
Executable File
#! /usr/bin/env perl
|
|
# Copyright 2009-2018 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;
|
|
|
|
if ($flavour =~ /3[12]/) {
|
|
$SIZE_T=4;
|
|
$g="";
|
|
} else {
|
|
$SIZE_T=8;
|
|
$g="g";
|
|
}
|
|
|
|
$output and open STDOUT,">$output";
|
|
|
|
$ra="%r14";
|
|
$sp="%r15";
|
|
$stdframe=16*$SIZE_T+4*8;
|
|
|
|
$code=<<___;
|
|
#include "s390x_arch.h"
|
|
|
|
.text
|
|
|
|
.globl OPENSSL_s390x_facilities
|
|
.type OPENSSL_s390x_facilities,\@function
|
|
.align 16
|
|
OPENSSL_s390x_facilities:
|
|
lghi %r0,0
|
|
larl %r4,OPENSSL_s390xcap_P
|
|
|
|
stg %r0,S390X_STFLE+8(%r4) # wipe capability vectors
|
|
stg %r0,S390X_STFLE+16(%r4)
|
|
stg %r0,S390X_STFLE+24(%r4)
|
|
|
|
.long 0xb2b04000 # stfle 0(%r4)
|
|
brc 8,.Ldone
|
|
lghi %r0,1
|
|
.long 0xb2b04000 # stfle 0(%r4)
|
|
brc 8,.Ldone
|
|
lghi %r0,2
|
|
.long 0xb2b04000 # stfle 0(%r4)
|
|
.Ldone:
|
|
br $ra
|
|
.size OPENSSL_s390x_facilities,.-OPENSSL_s390x_facilities
|
|
|
|
.globl OPENSSL_s390x_functions
|
|
.type OPENSSL_s390x_functions,\@function
|
|
.align 16
|
|
OPENSSL_s390x_functions:
|
|
lghi %r0,0
|
|
larl %r4,OPENSSL_s390xcap_P
|
|
|
|
stg %r0,S390X_KIMD(%r4) # wipe capability vectors
|
|
stg %r0,S390X_KIMD+8(%r4)
|
|
stg %r0,S390X_KLMD(%r4)
|
|
stg %r0,S390X_KLMD+8(%r4)
|
|
stg %r0,S390X_KM(%r4)
|
|
stg %r0,S390X_KM+8(%r4)
|
|
stg %r0,S390X_KMC(%r4)
|
|
stg %r0,S390X_KMC+8(%r4)
|
|
stg %r0,S390X_KMAC(%r4)
|
|
stg %r0,S390X_KMAC+8(%r4)
|
|
stg %r0,S390X_KMCTR(%r4)
|
|
stg %r0,S390X_KMCTR+8(%r4)
|
|
stg %r0,S390X_KMO(%r4)
|
|
stg %r0,S390X_KMO+8(%r4)
|
|
stg %r0,S390X_KMF(%r4)
|
|
stg %r0,S390X_KMF+8(%r4)
|
|
stg %r0,S390X_PRNO(%r4)
|
|
stg %r0,S390X_PRNO+8(%r4)
|
|
stg %r0,S390X_KMA(%r4)
|
|
stg %r0,S390X_KMA+8(%r4)
|
|
stg %r0,S390X_PCC(%r4)
|
|
stg %r0,S390X_PCC+8(%r4)
|
|
stg %r0,S390X_KDSA(%r4)
|
|
stg %r0,S390X_KDSA+8(%r4)
|
|
|
|
lmg %r2,%r3,S390X_STFLE(%r4)
|
|
|
|
tmhl %r2,0x4000 # check for message-security-assist
|
|
jz .Lret
|
|
|
|
lghi %r0,S390X_QUERY # query kimd capabilities
|
|
la %r1,S390X_KIMD(%r4)
|
|
.long 0xb93e0002 # kimd %r0,%r2
|
|
|
|
lghi %r0,S390X_QUERY # query klmd capabilities
|
|
la %r1,S390X_KLMD(%r4)
|
|
.long 0xb93f0002 # klmd %r0,%r2
|
|
|
|
lghi %r0,S390X_QUERY # query km capability vector
|
|
la %r1,S390X_KM(%r4)
|
|
.long 0xb92e0042 # km %r4,%r2
|
|
|
|
lghi %r0,S390X_QUERY # query kmc capability vector
|
|
la %r1,S390X_KMC(%r4)
|
|
.long 0xb92f0042 # kmc %r4,%r2
|
|
|
|
lghi %r0,S390X_QUERY # query kmac capability vector
|
|
la %r1,S390X_KMAC(%r4)
|
|
.long 0xb91e0042 # kmac %r4,%r2
|
|
|
|
tmhh %r3,0x0008 # check for message-security-assist-3
|
|
jz .Lret
|
|
|
|
lghi %r0,S390X_QUERY # query pcc capability vector
|
|
la %r1,S390X_PCC(%r4)
|
|
.long 0xb92c0000 # pcc
|
|
|
|
tmhh %r3,0x0004 # check for message-security-assist-4
|
|
jz .Lret
|
|
|
|
lghi %r0,S390X_QUERY # query kmctr capability vector
|
|
la %r1,S390X_KMCTR(%r4)
|
|
.long 0xb92d2042 # kmctr %r4,%r2,%r2
|
|
|
|
lghi %r0,S390X_QUERY # query kmo capability vector
|
|
la %r1,S390X_KMO(%r4)
|
|
.long 0xb92b0042 # kmo %r4,%r2
|
|
|
|
lghi %r0,S390X_QUERY # query kmf capability vector
|
|
la %r1,S390X_KMF(%r4)
|
|
.long 0xb92a0042 # kmf %r4,%r2
|
|
|
|
tml %r2,0x40 # check for message-security-assist-5
|
|
jz .Lret
|
|
|
|
lghi %r0,S390X_QUERY # query prno capability vector
|
|
la %r1,S390X_PRNO(%r4)
|
|
.long 0xb93c0042 # prno %r4,%r2
|
|
|
|
lg %r2,S390X_STFLE+16(%r4)
|
|
|
|
tmhl %r2,0x2000 # check for message-security-assist-8
|
|
jz .Lret
|
|
|
|
lghi %r0,S390X_QUERY # query kma capability vector
|
|
la %r1,S390X_KMA(%r4)
|
|
.long 0xb9294022 # kma %r2,%r4,%r2
|
|
|
|
tmhl %r2,0x0010 # check for message-security-assist-9
|
|
jz .Lret
|
|
|
|
lghi %r0,S390X_QUERY # query kdsa capability vector
|
|
la %r1,S390X_KDSA(%r4)
|
|
.long 0xb93a0002 # kdsa %r0,%r2
|
|
|
|
.Lret:
|
|
br $ra
|
|
.size OPENSSL_s390x_functions,.-OPENSSL_s390x_functions
|
|
|
|
.globl OPENSSL_rdtsc
|
|
.type OPENSSL_rdtsc,\@function
|
|
.align 16
|
|
OPENSSL_rdtsc:
|
|
larl %r4,OPENSSL_s390xcap_P
|
|
tm S390X_STFLE+3(%r4),0x40 # check for store-clock-fast facility
|
|
jz .Lstck
|
|
|
|
.long 0xb27cf010 # stckf 16($sp)
|
|
lg %r2,16($sp)
|
|
br $ra
|
|
.Lstck:
|
|
stck 16($sp)
|
|
lg %r2,16($sp)
|
|
br $ra
|
|
.size OPENSSL_rdtsc,.-OPENSSL_rdtsc
|
|
|
|
.globl OPENSSL_atomic_add
|
|
.type OPENSSL_atomic_add,\@function
|
|
.align 16
|
|
OPENSSL_atomic_add:
|
|
l %r1,0(%r2)
|
|
.Lspin: lr %r0,%r1
|
|
ar %r0,%r3
|
|
cs %r1,%r0,0(%r2)
|
|
brc 4,.Lspin
|
|
lgfr %r2,%r0 # OpenSSL expects the new value
|
|
br $ra
|
|
.size OPENSSL_atomic_add,.-OPENSSL_atomic_add
|
|
|
|
.globl OPENSSL_wipe_cpu
|
|
.type OPENSSL_wipe_cpu,\@function
|
|
.align 16
|
|
OPENSSL_wipe_cpu:
|
|
xgr %r0,%r0
|
|
xgr %r1,%r1
|
|
lgr %r2,$sp
|
|
xgr %r3,%r3
|
|
xgr %r4,%r4
|
|
lzdr %f0
|
|
lzdr %f1
|
|
lzdr %f2
|
|
lzdr %f3
|
|
lzdr %f4
|
|
lzdr %f5
|
|
lzdr %f6
|
|
lzdr %f7
|
|
br $ra
|
|
.size OPENSSL_wipe_cpu,.-OPENSSL_wipe_cpu
|
|
|
|
.globl OPENSSL_cleanse
|
|
.type OPENSSL_cleanse,\@function
|
|
.align 16
|
|
OPENSSL_cleanse:
|
|
#if !defined(__s390x__) && !defined(__s390x)
|
|
llgfr %r3,%r3
|
|
#endif
|
|
lghi %r4,15
|
|
lghi %r0,0
|
|
clgr %r3,%r4
|
|
jh .Lot
|
|
clgr %r3,%r0
|
|
bcr 8,%r14
|
|
.Little:
|
|
stc %r0,0(%r2)
|
|
la %r2,1(%r2)
|
|
brctg %r3,.Little
|
|
br %r14
|
|
.align 4
|
|
.Lot: tmll %r2,7
|
|
jz .Laligned
|
|
stc %r0,0(%r2)
|
|
la %r2,1(%r2)
|
|
brctg %r3,.Lot
|
|
.Laligned:
|
|
srlg %r4,%r3,3
|
|
.Loop: stg %r0,0(%r2)
|
|
la %r2,8(%r2)
|
|
brctg %r4,.Loop
|
|
lghi %r4,7
|
|
ngr %r3,%r4
|
|
jnz .Little
|
|
br $ra
|
|
.size OPENSSL_cleanse,.-OPENSSL_cleanse
|
|
|
|
.globl CRYPTO_memcmp
|
|
.type CRYPTO_memcmp,\@function
|
|
.align 16
|
|
CRYPTO_memcmp:
|
|
#if !defined(__s390x__) && !defined(__s390x)
|
|
llgfr %r4,%r4
|
|
#endif
|
|
lghi %r5,0
|
|
clgr %r4,%r5
|
|
je .Lno_data
|
|
|
|
.Loop_cmp:
|
|
llgc %r0,0(%r2)
|
|
la %r2,1(%r2)
|
|
llgc %r1,0(%r3)
|
|
la %r3,1(%r3)
|
|
xr %r1,%r0
|
|
or %r5,%r1
|
|
brctg %r4,.Loop_cmp
|
|
|
|
lnr %r5,%r5
|
|
srl %r5,31
|
|
.Lno_data:
|
|
lgr %r2,%r5
|
|
br $ra
|
|
.size CRYPTO_memcmp,.-CRYPTO_memcmp
|
|
|
|
.globl OPENSSL_instrument_bus
|
|
.type OPENSSL_instrument_bus,\@function
|
|
.align 16
|
|
OPENSSL_instrument_bus:
|
|
lghi %r2,0
|
|
br %r14
|
|
.size OPENSSL_instrument_bus,.-OPENSSL_instrument_bus
|
|
|
|
.globl OPENSSL_instrument_bus2
|
|
.type OPENSSL_instrument_bus2,\@function
|
|
.align 16
|
|
OPENSSL_instrument_bus2:
|
|
lghi %r2,0
|
|
br $ra
|
|
.size OPENSSL_instrument_bus2,.-OPENSSL_instrument_bus2
|
|
|
|
.globl OPENSSL_vx_probe
|
|
.type OPENSSL_vx_probe,\@function
|
|
.align 16
|
|
OPENSSL_vx_probe:
|
|
.word 0xe700,0x0000,0x0044 # vzero %v0
|
|
br $ra
|
|
.size OPENSSL_vx_probe,.-OPENSSL_vx_probe
|
|
___
|
|
|
|
{
|
|
################
|
|
# void s390x_kimd(const unsigned char *in, size_t len, unsigned int fc,
|
|
# void *param)
|
|
my ($in,$len,$fc,$param) = map("%r$_",(2..5));
|
|
$code.=<<___;
|
|
.globl s390x_kimd
|
|
.type s390x_kimd,\@function
|
|
.align 16
|
|
s390x_kimd:
|
|
llgfr %r0,$fc
|
|
lgr %r1,$param
|
|
|
|
.long 0xb93e0002 # kimd %r0,%r2
|
|
brc 1,.-4 # pay attention to "partial completion"
|
|
|
|
br $ra
|
|
.size s390x_kimd,.-s390x_kimd
|
|
___
|
|
}
|
|
|
|
{
|
|
################
|
|
# void s390x_klmd(const unsigned char *in, size_t inlen, unsigned char *out,
|
|
# size_t outlen, unsigned int fc, void *param)
|
|
my ($in,$inlen,$out,$outlen,$fc) = map("%r$_",(2..6));
|
|
$code.=<<___;
|
|
.globl s390x_klmd
|
|
.type s390x_klmd,\@function
|
|
.align 32
|
|
s390x_klmd:
|
|
llgfr %r0,$fc
|
|
l${g} %r1,$stdframe($sp)
|
|
|
|
.long 0xb93f0042 # klmd %r4,%r2
|
|
brc 1,.-4 # pay attention to "partial completion"
|
|
|
|
br $ra
|
|
.size s390x_klmd,.-s390x_klmd
|
|
___
|
|
}
|
|
|
|
################
|
|
# void s390x_km(const unsigned char *in, size_t len, unsigned char *out,
|
|
# unsigned int fc, void *param)
|
|
{
|
|
my ($in,$len,$out,$fc,$param) = map("%r$_",(2..6));
|
|
$code.=<<___;
|
|
.globl s390x_km
|
|
.type s390x_km,\@function
|
|
.align 16
|
|
s390x_km:
|
|
lr %r0,$fc
|
|
l${g}r %r1,$param
|
|
|
|
.long 0xb92e0042 # km $out,$in
|
|
brc 1,.-4 # pay attention to "partial completion"
|
|
|
|
br $ra
|
|
.size s390x_km,.-s390x_km
|
|
___
|
|
}
|
|
|
|
################
|
|
# void s390x_kmac(const unsigned char *in, size_t len, unsigned int fc,
|
|
# void *param)
|
|
{
|
|
my ($in,$len,$fc,$param) = map("%r$_",(2..5));
|
|
$code.=<<___;
|
|
.globl s390x_kmac
|
|
.type s390x_kmac,\@function
|
|
.align 16
|
|
s390x_kmac:
|
|
lr %r0,$fc
|
|
l${g}r %r1,$param
|
|
|
|
.long 0xb91e0002 # kmac %r0,$in
|
|
brc 1,.-4 # pay attention to "partial completion"
|
|
|
|
br $ra
|
|
.size s390x_kmac,.-s390x_kmac
|
|
___
|
|
}
|
|
|
|
################
|
|
# void s390x_kmo(const unsigned char *in, size_t len, unsigned char *out,
|
|
# unsigned int fc, void *param)
|
|
{
|
|
my ($in,$len,$out,$fc,$param) = map("%r$_",(2..6));
|
|
$code.=<<___;
|
|
.globl s390x_kmo
|
|
.type s390x_kmo,\@function
|
|
.align 16
|
|
s390x_kmo:
|
|
lr %r0,$fc
|
|
l${g}r %r1,$param
|
|
|
|
.long 0xb92b0042 # kmo $out,$in
|
|
brc 1,.-4 # pay attention to "partial completion"
|
|
|
|
br $ra
|
|
.size s390x_kmo,.-s390x_kmo
|
|
___
|
|
}
|
|
|
|
################
|
|
# void s390x_kmf(const unsigned char *in, size_t len, unsigned char *out,
|
|
# unsigned int fc, void *param)
|
|
{
|
|
my ($in,$len,$out,$fc,$param) = map("%r$_",(2..6));
|
|
$code.=<<___;
|
|
.globl s390x_kmf
|
|
.type s390x_kmf,\@function
|
|
.align 16
|
|
s390x_kmf:
|
|
lr %r0,$fc
|
|
l${g}r %r1,$param
|
|
|
|
.long 0xb92a0042 # kmf $out,$in
|
|
brc 1,.-4 # pay attention to "partial completion"
|
|
|
|
br $ra
|
|
.size s390x_kmf,.-s390x_kmf
|
|
___
|
|
}
|
|
|
|
################
|
|
# void s390x_kma(const unsigned char *aad, size_t alen,
|
|
# const unsigned char *in, size_t len,
|
|
# unsigned char *out, unsigned int fc, void *param)
|
|
{
|
|
my ($aad,$alen,$in,$len,$out) = map("%r$_",(2..6));
|
|
$code.=<<___;
|
|
.globl s390x_kma
|
|
.type s390x_kma,\@function
|
|
.align 16
|
|
s390x_kma:
|
|
st${g} $out,6*$SIZE_T($sp)
|
|
lm${g} %r0,%r1,$stdframe($sp)
|
|
|
|
.long 0xb9292064 # kma $out,$aad,$in
|
|
brc 1,.-4 # pay attention to "partial completion"
|
|
|
|
l${g} $out,6*$SIZE_T($sp)
|
|
br $ra
|
|
.size s390x_kma,.-s390x_kma
|
|
___
|
|
}
|
|
|
|
################
|
|
# int s390x_pcc(unsigned int fc, void *param)
|
|
{
|
|
my ($fc,$param) = map("%r$_",(2..3));
|
|
$code.=<<___;
|
|
.globl s390x_pcc
|
|
.type s390x_pcc,\@function
|
|
.align 16
|
|
s390x_pcc:
|
|
lr %r0,$fc
|
|
l${g}r %r1,$param
|
|
lhi %r2,0
|
|
|
|
.long 0xb92c0000 # pcc
|
|
brc 1,.-4 # pay attention to "partial completion"
|
|
brc 7,.Lpcc_err # if CC==0 return 0, else return 1
|
|
.Lpcc_out:
|
|
br $ra
|
|
.Lpcc_err:
|
|
lhi %r2,1
|
|
j .Lpcc_out
|
|
.size s390x_pcc,.-s390x_pcc
|
|
___
|
|
}
|
|
|
|
################
|
|
# int s390x_kdsa(unsigned int fc, void *param,
|
|
# const unsigned char *in, size_t len)
|
|
{
|
|
my ($fc,$param,$in,$len) = map("%r$_",(2..5));
|
|
$code.=<<___;
|
|
.globl s390x_kdsa
|
|
.type s390x_kdsa,\@function
|
|
.align 16
|
|
s390x_kdsa:
|
|
lr %r0,$fc
|
|
l${g}r %r1,$param
|
|
lhi %r2,0
|
|
|
|
.long 0xb93a0004 # kdsa %r0,$in
|
|
brc 1,.-4 # pay attention to "partial completion"
|
|
brc 7,.Lkdsa_err # if CC==0 return 0, else return 1
|
|
.Lkdsa_out:
|
|
br $ra
|
|
.Lkdsa_err:
|
|
lhi %r2,1
|
|
j .Lkdsa_out
|
|
.size s390x_kdsa,.-s390x_kdsa
|
|
___
|
|
}
|
|
|
|
################
|
|
# void s390x_flip_endian32(unsigned char dst[32], const unsigned char src[32])
|
|
{
|
|
my ($dst,$src) = map("%r$_",(2..3));
|
|
$code.=<<___;
|
|
.globl s390x_flip_endian32
|
|
.type s390x_flip_endian32,\@function
|
|
.align 16
|
|
s390x_flip_endian32:
|
|
lrvg %r0,0($src)
|
|
lrvg %r1,8($src)
|
|
lrvg %r4,16($src)
|
|
lrvg %r5,24($src)
|
|
stg %r0,24($dst)
|
|
stg %r1,16($dst)
|
|
stg %r4,8($dst)
|
|
stg %r5,0($dst)
|
|
br $ra
|
|
.size s390x_flip_endian32,.-s390x_flip_endian32
|
|
___
|
|
}
|
|
|
|
################
|
|
# void s390x_flip_endian64(unsigned char dst[64], const unsigned char src[64])
|
|
{
|
|
my ($dst,$src) = map("%r$_",(2..3));
|
|
$code.=<<___;
|
|
.globl s390x_flip_endian64
|
|
.type s390x_flip_endian64,\@function
|
|
.align 16
|
|
s390x_flip_endian64:
|
|
stmg %r6,%r9,6*$SIZE_T($sp)
|
|
|
|
lrvg %r0,0($src)
|
|
lrvg %r1,8($src)
|
|
lrvg %r4,16($src)
|
|
lrvg %r5,24($src)
|
|
lrvg %r6,32($src)
|
|
lrvg %r7,40($src)
|
|
lrvg %r8,48($src)
|
|
lrvg %r9,56($src)
|
|
stg %r0,56($dst)
|
|
stg %r1,48($dst)
|
|
stg %r4,40($dst)
|
|
stg %r5,32($dst)
|
|
stg %r6,24($dst)
|
|
stg %r7,16($dst)
|
|
stg %r8,8($dst)
|
|
stg %r9,0($dst)
|
|
|
|
lmg %r6,%r9,6*$SIZE_T($sp)
|
|
br $ra
|
|
.size s390x_flip_endian64,.-s390x_flip_endian64
|
|
___
|
|
}
|
|
|
|
$code.=<<___;
|
|
.section .init
|
|
brasl $ra,OPENSSL_cpuid_setup
|
|
___
|
|
|
|
$code =~ s/\`([^\`]*)\`/eval $1/gem;
|
|
print $code;
|
|
close STDOUT or die "error closing STDOUT"; # force flush
|