2 * Copyright 2019 The OpenSSL Project Authors. All Rights Reserved.
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
10 #include "internal/cryptlib.h"
11 #include "internal/thread_once.h"
13 struct openssl_ctx_onfree_list_st {
14 openssl_ctx_onfree_fn fn;
15 struct openssl_ctx_onfree_list_st *next;
18 struct openssl_ctx_st {
21 int run_once_done[MAX_OPENSSL_CTX_RUN_ONCE];
22 int run_once_ret[MAX_OPENSSL_CTX_RUN_ONCE];
23 struct openssl_ctx_onfree_list_st *onfreelist;
26 static OPENSSL_CTX default_context;
28 static int context_init(OPENSSL_CTX *ctx)
30 return (ctx->lock = CRYPTO_THREAD_lock_new()) != NULL
31 && CRYPTO_new_ex_data(CRYPTO_EX_INDEX_OPENSSL_CTX, NULL,
35 static int context_deinit(OPENSSL_CTX *ctx)
37 struct openssl_ctx_onfree_list_st *tmp, *onfree = ctx->onfreelist;
39 while (onfree != NULL) {
42 onfree = onfree->next;
45 CRYPTO_free_ex_data(CRYPTO_EX_INDEX_OPENSSL_CTX, NULL, &ctx->data);
46 CRYPTO_THREAD_lock_free(ctx->lock);
50 static CRYPTO_ONCE default_context_init = CRYPTO_ONCE_STATIC_INIT;
51 static void do_default_context_deinit(void)
53 context_deinit(&default_context);
55 DEFINE_RUN_ONCE_STATIC(do_default_context_init)
57 return OPENSSL_init_crypto(0, NULL)
58 && context_init(&default_context)
59 && OPENSSL_atexit(do_default_context_deinit);
62 OPENSSL_CTX *OPENSSL_CTX_new(void)
64 OPENSSL_CTX *ctx = OPENSSL_zalloc(sizeof(*ctx));
66 if (ctx != NULL && !context_init(ctx)) {
67 OPENSSL_CTX_free(ctx);
73 void OPENSSL_CTX_free(OPENSSL_CTX *ctx)
80 static void openssl_ctx_generic_new(void *parent_ign, void *ptr_ign,
81 CRYPTO_EX_DATA *ad, int index,
82 long argl_ign, void *argp)
84 const OPENSSL_CTX_METHOD *meth = argp;
85 void *ptr = meth->new_func();
88 CRYPTO_set_ex_data(ad, index, ptr);
90 static void openssl_ctx_generic_free(void *parent_ign, void *ptr,
91 CRYPTO_EX_DATA *ad, int index,
92 long argl_ign, void *argp)
94 const OPENSSL_CTX_METHOD *meth = argp;
98 int openssl_ctx_new_index(const OPENSSL_CTX_METHOD *meth)
100 return CRYPTO_get_ex_new_index(CRYPTO_EX_INDEX_OPENSSL_CTX, 0, (void *)meth,
101 openssl_ctx_generic_new, NULL,
102 openssl_ctx_generic_free);
105 void *openssl_ctx_get_data(OPENSSL_CTX *ctx, int index)
110 if (!RUN_ONCE(&default_context_init, do_default_context_init))
112 ctx = &default_context;
117 CRYPTO_THREAD_read_lock(ctx->lock);
119 /* The alloc call ensures there's a value there */
120 if (CRYPTO_alloc_ex_data(CRYPTO_EX_INDEX_OPENSSL_CTX, NULL,
122 data = CRYPTO_get_ex_data(&ctx->data, index);
124 CRYPTO_THREAD_unlock(ctx->lock);
129 int openssl_ctx_run_once(OPENSSL_CTX *ctx, unsigned int idx,
130 openssl_ctx_run_once_fn run_once_fn)
132 int done = 0, ret = 0;
136 if (!RUN_ONCE(&default_context_init, do_default_context_init))
138 ctx = &default_context;
144 CRYPTO_THREAD_read_lock(ctx->lock);
145 done = ctx->run_once_done[idx];
147 ret = ctx->run_once_ret[idx];
148 CRYPTO_THREAD_unlock(ctx->lock);
153 CRYPTO_THREAD_write_lock(ctx->lock);
154 if (ctx->run_once_done[idx]) {
155 ret = ctx->run_once_ret[idx];
156 CRYPTO_THREAD_unlock(ctx->lock);
160 ret = run_once_fn(ctx);
161 ctx->run_once_done[idx] = 1;
162 ctx->run_once_ret[idx] = ret;
163 CRYPTO_THREAD_unlock(ctx->lock);
168 int openssl_ctx_onfree(OPENSSL_CTX *ctx, openssl_ctx_onfree_fn onfreefn)
170 struct openssl_ctx_onfree_list_st *newonfree
171 = OPENSSL_malloc(sizeof(*newonfree));
173 if (newonfree == NULL)
176 newonfree->fn = onfreefn;
177 newonfree->next = ctx->onfreelist;
178 ctx->onfreelist = newonfree;