1 /*
2 * Copyright 2010-2022 The OpenSSL Project Authors. All Rights Reserved.
3 *
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
8 */
9
10 #include <stdio.h>
11 #include <stdlib.h>
12 #include <string.h>
13 #include <setjmp.h>
14 #include <signal.h>
15 #include "internal/cryptlib.h"
16 #include "s390x_arch.h"
17
18 static sigjmp_buf ill_jmp;
ill_handler(int sig)19 static void ill_handler(int sig)
20 {
21 siglongjmp(ill_jmp, sig);
22 }
23
24 void OPENSSL_s390x_facilities(void);
25 void OPENSSL_vx_probe(void);
26
27 struct OPENSSL_s390xcap_st OPENSSL_s390xcap_P;
28
29 #if defined(__GNUC__) && defined(__linux)
30 __attribute__ ((visibility("hidden")))
31 #endif
OPENSSL_cpuid_setup(void)32 void OPENSSL_cpuid_setup(void)
33 {
34 sigset_t oset;
35 struct sigaction ill_act, oact_ill, oact_fpe;
36
37 if (OPENSSL_s390xcap_P.stfle[0])
38 return;
39
40 /* set a bit that will not be tested later */
41 OPENSSL_s390xcap_P.stfle[0] |= S390X_CAPBIT(0);
42
43 memset(&ill_act, 0, sizeof(ill_act));
44 ill_act.sa_handler = ill_handler;
45 sigfillset(&ill_act.sa_mask);
46 sigdelset(&ill_act.sa_mask, SIGILL);
47 sigdelset(&ill_act.sa_mask, SIGFPE);
48 sigdelset(&ill_act.sa_mask, SIGTRAP);
49 sigprocmask(SIG_SETMASK, &ill_act.sa_mask, &oset);
50 sigaction(SIGILL, &ill_act, &oact_ill);
51 sigaction(SIGFPE, &ill_act, &oact_fpe);
52
53 /* protection against missing store-facility-list-extended */
54 if (sigsetjmp(ill_jmp, 1) == 0)
55 OPENSSL_s390x_facilities();
56
57 /* protection against disabled vector facility */
58 if ((OPENSSL_s390xcap_P.stfle[2] & S390X_CAPBIT(S390X_VX))
59 && (sigsetjmp(ill_jmp, 1) == 0)) {
60 OPENSSL_vx_probe();
61 } else {
62 OPENSSL_s390xcap_P.stfle[2] &= ~(S390X_CAPBIT(S390X_VX)
63 | S390X_CAPBIT(S390X_VXD)
64 | S390X_CAPBIT(S390X_VXE));
65 }
66
67 sigaction(SIGFPE, &oact_fpe, NULL);
68 sigaction(SIGILL, &oact_ill, NULL);
69 sigprocmask(SIG_SETMASK, &oset, NULL);
70 }
71