2 # Copyright 2009-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
9 # $output is the last argument if it looks like a file (it has an extension)
10 # $flavour is the first argument if it doesn't look like a file
11 $output = $#ARGV >= 0 && $ARGV[$#ARGV] =~ m
|\
.\w
+$| ?
pop : undef;
12 $flavour = $#ARGV >= 0 && $ARGV[0] !~ m
|\
.| ?
shift : undef;
14 if ($flavour =~ /3[12]/) {
22 $output and open STDOUT
,">$output";
26 $stdframe=16*$SIZE_T+4*8;
29 #include "s390x_arch.h"
33 .globl OPENSSL_s390x_facilities
34 .type OPENSSL_s390x_facilities
,\
@function
36 OPENSSL_s390x_facilities
:
38 larl
%r4,OPENSSL_s390xcap_P
40 stg
%r0,S390X_STFLE
+8(%r4) # wipe capability vectors
41 stg
%r0,S390X_STFLE
+16(%r4)
42 stg
%r0,S390X_STFLE
+24(%r4)
44 .long
0xb2b04000 # stfle 0(%r4)
47 .long
0xb2b04000 # stfle 0(%r4)
50 .long
0xb2b04000 # stfle 0(%r4)
53 .size OPENSSL_s390x_facilities
,.-OPENSSL_s390x_facilities
55 .globl OPENSSL_s390x_functions
56 .type OPENSSL_s390x_functions
,\
@function
58 OPENSSL_s390x_functions
:
60 larl
%r4,OPENSSL_s390xcap_P
62 stg
%r0,S390X_KIMD
(%r4) # wipe capability vectors
63 stg
%r0,S390X_KIMD
+8(%r4)
64 stg
%r0,S390X_KLMD
(%r4)
65 stg
%r0,S390X_KLMD
+8(%r4)
67 stg
%r0,S390X_KM
+8(%r4)
68 stg
%r0,S390X_KMC
(%r4)
69 stg
%r0,S390X_KMC
+8(%r4)
70 stg
%r0,S390X_KMAC
(%r4)
71 stg
%r0,S390X_KMAC
+8(%r4)
72 stg
%r0,S390X_KMCTR
(%r4)
73 stg
%r0,S390X_KMCTR
+8(%r4)
74 stg
%r0,S390X_KMO
(%r4)
75 stg
%r0,S390X_KMO
+8(%r4)
76 stg
%r0,S390X_KMF
(%r4)
77 stg
%r0,S390X_KMF
+8(%r4)
78 stg
%r0,S390X_PRNO
(%r4)
79 stg
%r0,S390X_PRNO
+8(%r4)
80 stg
%r0,S390X_KMA
(%r4)
81 stg
%r0,S390X_KMA
+8(%r4)
82 stg
%r0,S390X_PCC
(%r4)
83 stg
%r0,S390X_PCC
+8(%r4)
84 stg
%r0,S390X_KDSA
(%r4)
85 stg
%r0,S390X_KDSA
+8(%r4)
87 lmg
%r2,%r3,S390X_STFLE
(%r4)
89 tmhl
%r2,0x4000 # check for message-security-assist
92 lghi
%r0,S390X_QUERY
# query kimd capabilities
93 la
%r1,S390X_KIMD
(%r4)
94 .long
0xb93e0002 # kimd %r0,%r2
96 lghi
%r0,S390X_QUERY
# query klmd capabilities
97 la
%r1,S390X_KLMD
(%r4)
98 .long
0xb93f0002 # klmd %r0,%r2
100 lghi
%r0,S390X_QUERY
# query km capability vector
102 .long
0xb92e0042 # km %r4,%r2
104 lghi
%r0,S390X_QUERY
# query kmc capability vector
105 la
%r1,S390X_KMC
(%r4)
106 .long
0xb92f0042 # kmc %r4,%r2
108 lghi
%r0,S390X_QUERY
# query kmac capability vector
109 la
%r1,S390X_KMAC
(%r4)
110 .long
0xb91e0042 # kmac %r4,%r2
112 tmhh
%r3,0x0008 # check for message-security-assist-3
115 lghi
%r0,S390X_QUERY
# query pcc capability vector
116 la
%r1,S390X_PCC
(%r4)
117 .long
0xb92c0000 # pcc
119 tmhh
%r3,0x0004 # check for message-security-assist-4
122 lghi
%r0,S390X_QUERY
# query kmctr capability vector
123 la
%r1,S390X_KMCTR
(%r4)
124 .long
0xb92d2042 # kmctr %r4,%r2,%r2
126 lghi
%r0,S390X_QUERY
# query kmo capability vector
127 la
%r1,S390X_KMO
(%r4)
128 .long
0xb92b0042 # kmo %r4,%r2
130 lghi
%r0,S390X_QUERY
# query kmf capability vector
131 la
%r1,S390X_KMF
(%r4)
132 .long
0xb92a0042 # kmf %r4,%r2
134 tml
%r2,0x40 # check for message-security-assist-5
137 lghi
%r0,S390X_QUERY
# query prno capability vector
138 la
%r1,S390X_PRNO
(%r4)
139 .long
0xb93c0042 # prno %r4,%r2
141 lg
%r2,S390X_STFLE
+16(%r4)
143 tmhl
%r2,0x2000 # check for message-security-assist-8
146 lghi
%r0,S390X_QUERY
# query kma capability vector
147 la
%r1,S390X_KMA
(%r4)
148 .long
0xb9294022 # kma %r2,%r4,%r2
150 tmhl
%r2,0x0010 # check for message-security-assist-9
153 lghi
%r0,S390X_QUERY
# query kdsa capability vector
154 la
%r1,S390X_KDSA
(%r4)
155 .long
0xb93a0002 # kdsa %r0,%r2
159 .size OPENSSL_s390x_functions
,.-OPENSSL_s390x_functions
162 .type OPENSSL_rdtsc
,\
@function
165 larl
%r4,OPENSSL_s390xcap_P
166 tm S390X_STFLE
+3(%r4),0x40 # check for store-clock-fast facility
169 .long
0xb27cf010 # stckf 16($sp)
176 .size OPENSSL_rdtsc
,.-OPENSSL_rdtsc
178 .globl OPENSSL_atomic_add
179 .type OPENSSL_atomic_add
,\
@function
187 lgfr
%r2,%r0 # OpenSSL expects the new value
189 .size OPENSSL_atomic_add
,.-OPENSSL_atomic_add
191 .globl OPENSSL_wipe_cpu
192 .type OPENSSL_wipe_cpu
,\
@function
209 .size OPENSSL_wipe_cpu
,.-OPENSSL_wipe_cpu
211 .globl OPENSSL_cleanse
212 .type OPENSSL_cleanse
,\
@function
215 #if !defined(__s390x__) && !defined(__s390x)
237 .Loop
: stg
%r0,0(%r2)
244 .size OPENSSL_cleanse
,.-OPENSSL_cleanse
247 .type CRYPTO_memcmp
,\
@function
250 #if !defined(__s390x__) && !defined(__s390x)
271 .size CRYPTO_memcmp
,.-CRYPTO_memcmp
273 .globl OPENSSL_instrument_bus
274 .type OPENSSL_instrument_bus
,\
@function
276 OPENSSL_instrument_bus
:
279 .size OPENSSL_instrument_bus
,.-OPENSSL_instrument_bus
281 .globl OPENSSL_instrument_bus2
282 .type OPENSSL_instrument_bus2
,\
@function
284 OPENSSL_instrument_bus2
:
287 .size OPENSSL_instrument_bus2
,.-OPENSSL_instrument_bus2
289 .globl OPENSSL_vx_probe
290 .type OPENSSL_vx_probe
,\
@function
293 .word
0xe700,0x0000,0x0044 # vzero %v0
295 .size OPENSSL_vx_probe
,.-OPENSSL_vx_probe
300 # void s390x_kimd(const unsigned char *in, size_t len, unsigned int fc,
302 my ($in,$len,$fc,$param) = map("%r$_",(2..5));
305 .type s390x_kimd
,\
@function
311 .long
0xb93e0002 # kimd %r0,%r2
312 brc
1,.-4 # pay attention to "partial completion"
315 .size s390x_kimd
,.-s390x_kimd
321 # void s390x_klmd(const unsigned char *in, size_t inlen, unsigned char *out,
322 # size_t outlen, unsigned int fc, void *param)
323 my ($in,$inlen,$out,$outlen,$fc) = map("%r$_",(2..6));
326 .type s390x_klmd
,\
@function
330 l
${g
} %r1,$stdframe($sp)
332 .long
0xb93f0042 # klmd %r4,%r2
333 brc
1,.-4 # pay attention to "partial completion"
336 .size s390x_klmd
,.-s390x_klmd
341 # void s390x_km(const unsigned char *in, size_t len, unsigned char *out,
342 # unsigned int fc, void *param)
344 my ($in,$len,$out,$fc,$param) = map("%r$_",(2..6));
347 .type s390x_km
,\
@function
353 .long
0xb92e0042 # km $out,$in
354 brc
1,.-4 # pay attention to "partial completion"
357 .size s390x_km
,.-s390x_km
362 # void s390x_kmac(const unsigned char *in, size_t len, unsigned int fc,
365 my ($in,$len,$fc,$param) = map("%r$_",(2..5));
368 .type s390x_kmac
,\
@function
374 .long
0xb91e0002 # kmac %r0,$in
375 brc
1,.-4 # pay attention to "partial completion"
378 .size s390x_kmac
,.-s390x_kmac
383 # void s390x_kmo(const unsigned char *in, size_t len, unsigned char *out,
384 # unsigned int fc, void *param)
386 my ($in,$len,$out,$fc,$param) = map("%r$_",(2..6));
389 .type s390x_kmo
,\
@function
395 .long
0xb92b0042 # kmo $out,$in
396 brc
1,.-4 # pay attention to "partial completion"
399 .size s390x_kmo
,.-s390x_kmo
404 # void s390x_kmf(const unsigned char *in, size_t len, unsigned char *out,
405 # unsigned int fc, void *param)
407 my ($in,$len,$out,$fc,$param) = map("%r$_",(2..6));
410 .type s390x_kmf
,\
@function
416 .long
0xb92a0042 # kmf $out,$in
417 brc
1,.-4 # pay attention to "partial completion"
420 .size s390x_kmf
,.-s390x_kmf
425 # void s390x_kma(const unsigned char *aad, size_t alen,
426 # const unsigned char *in, size_t len,
427 # unsigned char *out, unsigned int fc, void *param)
429 my ($aad,$alen,$in,$len,$out) = map("%r$_",(2..6));
432 .type s390x_kma
,\
@function
435 st
${g
} $out,6*$SIZE_T($sp)
436 lm
${g
} %r0,%r1,$stdframe($sp)
438 .long
0xb9292064 # kma $out,$aad,$in
439 brc
1,.-4 # pay attention to "partial completion"
441 l
${g
} $out,6*$SIZE_T($sp)
443 .size s390x_kma
,.-s390x_kma
448 # int s390x_pcc(unsigned int fc, void *param)
450 my ($fc,$param) = map("%r$_",(2..3));
453 .type s390x_pcc
,\
@function
460 .long
0xb92c0000 # pcc
461 brc
1,.-4 # pay attention to "partial completion"
462 brc
7,.Lpcc_err
# if CC==0 return 0, else return 1
468 .size s390x_pcc
,.-s390x_pcc
473 # int s390x_kdsa(unsigned int fc, void *param,
474 # const unsigned char *in, size_t len)
476 my ($fc,$param,$in,$len) = map("%r$_",(2..5));
479 .type s390x_kdsa
,\
@function
486 .long
0xb93a0004 # kdsa %r0,$in
487 brc
1,.-4 # pay attention to "partial completion"
488 brc
7,.Lkdsa_err
# if CC==0 return 0, else return 1
494 .size s390x_kdsa
,.-s390x_kdsa
499 # void s390x_flip_endian32(unsigned char dst[32], const unsigned char src[32])
501 my ($dst,$src) = map("%r$_",(2..3));
503 .globl s390x_flip_endian32
504 .type s390x_flip_endian32
,\
@function
516 .size s390x_flip_endian32
,.-s390x_flip_endian32
521 # void s390x_flip_endian64(unsigned char dst[64], const unsigned char src[64])
523 my ($dst,$src) = map("%r$_",(2..3));
525 .globl s390x_flip_endian64
526 .type s390x_flip_endian64
,\
@function
529 stmg
%r6,%r9,6*$SIZE_T($sp)
548 lmg
%r6,%r9,6*$SIZE_T($sp)
550 .size s390x_flip_endian64
,.-s390x_flip_endian64
556 brasl
$ra,OPENSSL_cpuid_setup
559 $code =~ s/\`([^\`]*)\`/eval $1/gem;
561 close STDOUT
or die "error closing STDOUT: $!"; # force flush