xref: /openssl/ssl/ssl_init.c (revision 1c8787d5)
1 /*
2  * Copyright 2016-2022 The OpenSSL Project Authors. All Rights Reserved.
3  *
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
8  */
9 
10 #include "internal/e_os.h"
11 
12 #include "internal/err.h"
13 #include <openssl/crypto.h>
14 #include <openssl/evp.h>
15 #include <openssl/trace.h>
16 #include "ssl_local.h"
17 #include "sslerr.h"
18 #include "internal/thread_once.h"
19 
20 static int stopped;
21 
22 static void ssl_library_stop(void);
23 
24 static CRYPTO_ONCE ssl_base = CRYPTO_ONCE_STATIC_INIT;
25 static int ssl_base_inited = 0;
DEFINE_RUN_ONCE_STATIC(ossl_init_ssl_base)26 DEFINE_RUN_ONCE_STATIC(ossl_init_ssl_base)
27 {
28 #ifndef OPENSSL_NO_COMP
29     OSSL_TRACE(INIT, "ossl_init_ssl_base: "
30                "SSL_COMP_get_compression_methods()\n");
31     /*
32      * This will initialise the built-in compression algorithms. The value
33      * returned is a STACK_OF(SSL_COMP), but that can be discarded safely
34      */
35     SSL_COMP_get_compression_methods();
36 #endif
37     ssl_sort_cipher_list();
38     OSSL_TRACE(INIT, "ossl_init_ssl_base: SSL_add_ssl_module()\n");
39     /*
40      * We ignore an error return here. Not much we can do - but not that bad
41      * either. We can still safely continue.
42      */
43     OPENSSL_atexit(ssl_library_stop);
44     ssl_base_inited = 1;
45     return 1;
46 }
47 
48 static CRYPTO_ONCE ssl_strings = CRYPTO_ONCE_STATIC_INIT;
49 
DEFINE_RUN_ONCE_STATIC(ossl_init_load_ssl_strings)50 DEFINE_RUN_ONCE_STATIC(ossl_init_load_ssl_strings)
51 {
52     /*
53      * OPENSSL_NO_AUTOERRINIT is provided here to prevent at compile time
54      * pulling in all the error strings during static linking
55      */
56 #if !defined(OPENSSL_NO_ERR) && !defined(OPENSSL_NO_AUTOERRINIT)
57     OSSL_TRACE(INIT, "ossl_init_load_ssl_strings: ossl_err_load_SSL_strings()\n");
58     ossl_err_load_SSL_strings();
59 #endif
60     return 1;
61 }
62 
DEFINE_RUN_ONCE_STATIC_ALT(ossl_init_no_load_ssl_strings,ossl_init_load_ssl_strings)63 DEFINE_RUN_ONCE_STATIC_ALT(ossl_init_no_load_ssl_strings,
64                            ossl_init_load_ssl_strings)
65 {
66     /* Do nothing in this case */
67     return 1;
68 }
69 
ssl_library_stop(void)70 static void ssl_library_stop(void)
71 {
72     /* Might be explicitly called and also by atexit */
73     if (stopped)
74         return;
75     stopped = 1;
76 
77     if (ssl_base_inited) {
78 #ifndef OPENSSL_NO_COMP
79         OSSL_TRACE(INIT, "ssl_library_stop: "
80                    "ssl_comp_free_compression_methods_int()\n");
81         ssl_comp_free_compression_methods_int();
82 #endif
83     }
84 }
85 
86 /*
87  * If this function is called with a non NULL settings value then it must be
88  * called prior to any threads making calls to any OpenSSL functions,
89  * i.e. passing a non-null settings value is assumed to be single-threaded.
90  */
OPENSSL_init_ssl(uint64_t opts,const OPENSSL_INIT_SETTINGS * settings)91 int OPENSSL_init_ssl(uint64_t opts, const OPENSSL_INIT_SETTINGS * settings)
92 {
93     static int stoperrset = 0;
94 
95     if (stopped) {
96         if (!stoperrset) {
97             /*
98              * We only ever set this once to avoid getting into an infinite
99              * loop where the error system keeps trying to init and fails so
100              * sets an error etc
101              */
102             stoperrset = 1;
103             ERR_raise(ERR_LIB_SSL, ERR_R_INIT_FAIL);
104         }
105         return 0;
106     }
107 
108     opts |= OPENSSL_INIT_ADD_ALL_CIPHERS
109          |  OPENSSL_INIT_ADD_ALL_DIGESTS;
110 #ifndef OPENSSL_NO_AUTOLOAD_CONFIG
111     if ((opts & OPENSSL_INIT_NO_LOAD_CONFIG) == 0)
112         opts |= OPENSSL_INIT_LOAD_CONFIG;
113 #endif
114 
115     if (!OPENSSL_init_crypto(opts, settings))
116         return 0;
117 
118     if (!RUN_ONCE(&ssl_base, ossl_init_ssl_base))
119         return 0;
120 
121     if ((opts & OPENSSL_INIT_NO_LOAD_SSL_STRINGS)
122         && !RUN_ONCE_ALT(&ssl_strings, ossl_init_no_load_ssl_strings,
123                          ossl_init_load_ssl_strings))
124         return 0;
125 
126     if ((opts & OPENSSL_INIT_LOAD_SSL_STRINGS)
127         && !RUN_ONCE(&ssl_strings, ossl_init_load_ssl_strings))
128         return 0;
129 
130     return 1;
131 }
132