3 .globl OPENSSL_s390x_facilities
4 .type OPENSSL_s390x_facilities,@function
6 OPENSSL_s390x_facilities:
8 larl %r4,OPENSSL_s390xcap_P
9 stg %r0,8(%r4) # wipe capability vectors
19 .long 0xb2b04000 # stfle 0(%r4)
22 .long 0xb2b04000 # stfle 0(%r4)
25 tmhl %r2,0x4000 # check for message-security-assist
28 lghi %r0,0 # query kimd capabilities
30 .long 0xb93e0002 # kimd %r0,%r2
32 lghi %r0,0 # query km capability vector
34 .long 0xb92e0042 # km %r4,%r2
36 lghi %r0,0 # query kmc capability vector
38 .long 0xb92f0042 # kmc %r4,%r2
40 tmhh %r3,0x0004 # check for message-security-assist-4
43 lghi %r0,0 # query kmctr capability vector
45 .long 0xb92d2042 # kmctr %r4,%r2,%r2
49 .size OPENSSL_s390x_facilities,.-OPENSSL_s390x_facilities
52 .type OPENSSL_rdtsc,@function
58 .size OPENSSL_rdtsc,.-OPENSSL_rdtsc
60 .globl OPENSSL_atomic_add
61 .type OPENSSL_atomic_add,@function
69 lgfr %r2,%r0 # OpenSSL expects the new value
71 .size OPENSSL_atomic_add,.-OPENSSL_atomic_add
73 .globl OPENSSL_wipe_cpu
74 .type OPENSSL_wipe_cpu,@function
91 .size OPENSSL_wipe_cpu,.-OPENSSL_wipe_cpu
93 .globl OPENSSL_cleanse
94 .type OPENSSL_cleanse,@function
97 #if !defined(__s390x__) && !defined(__s390x)
119 .Loop: stg %r0,0(%r2)
126 .size OPENSSL_cleanse,.-OPENSSL_cleanse
129 brasl %r14,OPENSSL_cpuid_setup
131 .comm OPENSSL_s390xcap_P,80,8