2 # Copyright 2009-2018 The OpenSSL Project Authors. All Rights Reserved.
4 # Licensed under the OpenSSL license (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
11 if ($flavour =~ /3[12]/) {
19 while (($output=shift) && ($output!~/\w[\w\-]*\.\w+$/)) {}
20 open STDOUT,">$output";
24 $stdframe=16*$SIZE_T+4*8;
27 #include "s390x_arch.h"
31 .globl OPENSSL_s390x_facilities
32 .type OPENSSL_s390x_facilities,\@function
34 OPENSSL_s390x_facilities:
36 larl %r4,OPENSSL_s390xcap_P
38 stg %r0,S390X_STFLE+8(%r4) # wipe capability vectors
39 stg %r0,S390X_STFLE+16(%r4)
40 stg %r0,S390X_STFLE+24(%r4)
41 stg %r0,S390X_KIMD(%r4)
42 stg %r0,S390X_KIMD+8(%r4)
43 stg %r0,S390X_KLMD(%r4)
44 stg %r0,S390X_KLMD+8(%r4)
46 stg %r0,S390X_KM+8(%r4)
47 stg %r0,S390X_KMC(%r4)
48 stg %r0,S390X_KMC+8(%r4)
49 stg %r0,S390X_KMAC(%r4)
50 stg %r0,S390X_KMAC+8(%r4)
51 stg %r0,S390X_KMCTR(%r4)
52 stg %r0,S390X_KMCTR+8(%r4)
53 stg %r0,S390X_KMO(%r4)
54 stg %r0,S390X_KMO+8(%r4)
55 stg %r0,S390X_KMF(%r4)
56 stg %r0,S390X_KMF+8(%r4)
57 stg %r0,S390X_PRNO(%r4)
58 stg %r0,S390X_PRNO+8(%r4)
59 stg %r0,S390X_KMA(%r4)
60 stg %r0,S390X_KMA+8(%r4)
62 .long 0xb2b04000 # stfle 0(%r4)
65 .long 0xb2b04000 # stfle 0(%r4)
68 .long 0xb2b04000 # stfle 0(%r4)
70 lmg %r2,%r3,S390X_STFLE(%r4)
71 tmhl %r2,0x4000 # check for message-security-assist
74 lghi %r0,S390X_QUERY # query kimd capabilities
75 la %r1,S390X_KIMD(%r4)
76 .long 0xb93e0002 # kimd %r0,%r2
78 lghi %r0,S390X_QUERY # query klmd capabilities
79 la %r1,S390X_KLMD(%r4)
80 .long 0xb93f0002 # klmd %r0,%r2
82 lghi %r0,S390X_QUERY # query km capability vector
84 .long 0xb92e0042 # km %r4,%r2
86 lghi %r0,S390X_QUERY # query kmc capability vector
88 .long 0xb92f0042 # kmc %r4,%r2
90 lghi %r0,S390X_QUERY # query kmac capability vector
91 la %r1,S390X_KMAC(%r4)
92 .long 0xb91e0042 # kmac %r4,%r2
94 tmhh %r3,0x0004 # check for message-security-assist-4
97 lghi %r0,S390X_QUERY # query kmctr capability vector
98 la %r1,S390X_KMCTR(%r4)
99 .long 0xb92d2042 # kmctr %r4,%r2,%r2
101 lghi %r0,S390X_QUERY # query kmo capability vector
102 la %r1,S390X_KMO(%r4)
103 .long 0xb92b0042 # kmo %r4,%r2
105 lghi %r0,S390X_QUERY # query kmf capability vector
106 la %r1,S390X_KMF(%r4)
107 .long 0xb92a0042 # kmf %r4,%r2
109 tml %r2,0x40 # check for message-security-assist-5
112 lghi %r0,S390X_QUERY # query prno capability vector
113 la %r1,S390X_PRNO(%r4)
114 .long 0xb93c0042 # prno %r4,%r2
116 lg %r2,S390X_STFLE+16(%r4)
117 tmhl %r2,0x2000 # check for message-security-assist-8
120 lghi %r0,S390X_QUERY # query kma capability vector
121 la %r1,S390X_KMA(%r4)
122 .long 0xb9294022 # kma %r2,%r4,%r2
126 .size OPENSSL_s390x_facilities,.-OPENSSL_s390x_facilities
129 .type OPENSSL_rdtsc,\@function
135 .size OPENSSL_rdtsc,.-OPENSSL_rdtsc
137 .globl OPENSSL_atomic_add
138 .type OPENSSL_atomic_add,\@function
146 lgfr %r2,%r0 # OpenSSL expects the new value
148 .size OPENSSL_atomic_add,.-OPENSSL_atomic_add
150 .globl OPENSSL_wipe_cpu
151 .type OPENSSL_wipe_cpu,\@function
168 .size OPENSSL_wipe_cpu,.-OPENSSL_wipe_cpu
170 .globl OPENSSL_cleanse
171 .type OPENSSL_cleanse,\@function
174 #if !defined(__s390x__) && !defined(__s390x)
196 .Loop: stg %r0,0(%r2)
203 .size OPENSSL_cleanse,.-OPENSSL_cleanse
206 .type CRYPTO_memcmp,\@function
209 #if !defined(__s390x__) && !defined(__s390x)
230 .size CRYPTO_memcmp,.-CRYPTO_memcmp
232 .globl OPENSSL_instrument_bus
233 .type OPENSSL_instrument_bus,\@function
235 OPENSSL_instrument_bus:
238 .size OPENSSL_instrument_bus,.-OPENSSL_instrument_bus
240 .globl OPENSSL_instrument_bus2
241 .type OPENSSL_instrument_bus2,\@function
243 OPENSSL_instrument_bus2:
246 .size OPENSSL_instrument_bus2,.-OPENSSL_instrument_bus2
248 .globl OPENSSL_vx_probe
249 .type OPENSSL_vx_probe,\@function
252 .word 0xe700,0x0000,0x0044 # vzero %v0
254 .size OPENSSL_vx_probe,.-OPENSSL_vx_probe
258 # void s390x_km(const unsigned char *in, size_t len, unsigned char *out,
259 # unsigned int fc, void *param)
261 my ($in,$len,$out,$fc,$param) = map("%r$_",(2..6));
264 .type s390x_km,\@function
270 .long 0xb92e0042 # km $out,$in
271 brc 1,.-4 # pay attention to "partial completion"
274 .size s390x_km,.-s390x_km
279 # void s390x_kma(const unsigned char *aad, size_t alen,
280 # const unsigned char *in, size_t len,
281 # unsigned char *out, unsigned int fc, void *param)
283 my ($aad,$alen,$in,$len,$out) = map("%r$_",(2..6));
286 .type s390x_kma,\@function
289 st${g} $out,6*$SIZE_T($sp)
290 lm${g} %r0,%r1,$stdframe($sp)
292 .long 0xb9292064 # kma $out,$aad,$in
293 brc 1,.-4 # pay attention to "partial completion"
295 l${g} $out,6*$SIZE_T($sp)
297 .size s390x_kma,.-s390x_kma
303 brasl $ra,OPENSSL_cpuid_setup
306 $code =~ s/\`([^\`]*)\`/eval $1/gem;
308 close STDOUT; # force flush