Return an error if no recipient type matches.
[openssl.git] / crypto / s390xcap.c
1 #include <stdio.h>
2 #include <stdlib.h>
3 #include <string.h>
4 #include <setjmp.h>
5 #include <signal.h>
6
7 extern unsigned long OPENSSL_s390xcap_P[];
8
9 static sigjmp_buf ill_jmp;
10 static void ill_handler (int sig) { siglongjmp(ill_jmp,sig); }
11
12 unsigned long OPENSSL_s390x_facilities(void);
13
14 void OPENSSL_cpuid_setup(void)
15         {
16         sigset_t oset;
17         struct sigaction ill_act,oact;
18
19         if (OPENSSL_s390xcap_P[0]) return;
20
21         OPENSSL_s390xcap_P[0] = 1UL<<(8*sizeof(unsigned long)-1);
22
23         memset(&ill_act,0,sizeof(ill_act));
24         ill_act.sa_handler = ill_handler;
25         sigfillset(&ill_act.sa_mask);
26         sigdelset(&ill_act.sa_mask,SIGILL);
27         sigdelset(&ill_act.sa_mask,SIGTRAP);
28         sigprocmask(SIG_SETMASK,&ill_act.sa_mask,&oset);
29         sigaction (SIGILL,&ill_act,&oact);
30
31         /* protection against missing store-facility-list-extended */
32         if (sigsetjmp(ill_jmp,1) == 0)
33                 OPENSSL_s390x_facilities();
34
35         sigaction (SIGILL,&oact,NULL);
36         sigprocmask(SIG_SETMASK,&oset,NULL);
37         }