1 /*
2 * Copyright 1995-2023 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 <string.h>
11 #include <openssl/err.h>
12 #include <openssl/e_os2.h>
13
err_get_slot(ERR_STATE * es)14 static ossl_inline void err_get_slot(ERR_STATE *es)
15 {
16 es->top = (es->top + 1) % ERR_NUM_ERRORS;
17 if (es->top == es->bottom)
18 es->bottom = (es->bottom + 1) % ERR_NUM_ERRORS;
19 }
20
err_clear_data(ERR_STATE * es,size_t i,int deall)21 static ossl_inline void err_clear_data(ERR_STATE *es, size_t i, int deall)
22 {
23 if (es->err_data_flags[i] & ERR_TXT_MALLOCED) {
24 if (deall) {
25 OPENSSL_free(es->err_data[i]);
26 es->err_data[i] = NULL;
27 es->err_data_size[i] = 0;
28 es->err_data_flags[i] = 0;
29 } else if (es->err_data[i] != NULL) {
30 es->err_data[i][0] = '\0';
31 es->err_data_flags[i] = ERR_TXT_MALLOCED;
32 }
33 } else {
34 es->err_data[i] = NULL;
35 es->err_data_size[i] = 0;
36 es->err_data_flags[i] = 0;
37 }
38 }
39
err_set_error(ERR_STATE * es,size_t i,int lib,int reason)40 static ossl_inline void err_set_error(ERR_STATE *es, size_t i,
41 int lib, int reason)
42 {
43 es->err_buffer[i] =
44 lib == ERR_LIB_SYS
45 ? (unsigned int)(ERR_SYSTEM_FLAG | reason)
46 : ERR_PACK(lib, 0, reason);
47 }
48
err_set_debug(ERR_STATE * es,size_t i,const char * file,int line,const char * fn)49 static ossl_inline void err_set_debug(ERR_STATE *es, size_t i,
50 const char *file, int line,
51 const char *fn)
52 {
53 /*
54 * We dup the file and fn strings because they may be provider owned. If the
55 * provider gets unloaded, they may not be valid anymore.
56 */
57 OPENSSL_free(es->err_file[i]);
58 if (file == NULL || file[0] == '\0')
59 es->err_file[i] = NULL;
60 else if ((es->err_file[i] = CRYPTO_malloc(strlen(file) + 1,
61 NULL, 0)) != NULL)
62 /* We cannot use OPENSSL_strdup due to possible recursion */
63 strcpy(es->err_file[i], file);
64
65 es->err_line[i] = line;
66 OPENSSL_free(es->err_func[i]);
67 if (fn == NULL || fn[0] == '\0')
68 es->err_func[i] = NULL;
69 else if ((es->err_func[i] = CRYPTO_malloc(strlen(fn) + 1,
70 NULL, 0)) != NULL)
71 strcpy(es->err_func[i], fn);
72 }
73
err_set_data(ERR_STATE * es,size_t i,void * data,size_t datasz,int flags)74 static ossl_inline void err_set_data(ERR_STATE *es, size_t i,
75 void *data, size_t datasz, int flags)
76 {
77 if ((es->err_data_flags[i] & ERR_TXT_MALLOCED) != 0)
78 OPENSSL_free(es->err_data[i]);
79 es->err_data[i] = data;
80 es->err_data_size[i] = datasz;
81 es->err_data_flags[i] = flags;
82 }
83
err_clear(ERR_STATE * es,size_t i,int deall)84 static ossl_inline void err_clear(ERR_STATE *es, size_t i, int deall)
85 {
86 err_clear_data(es, i, (deall));
87 es->err_marks[i] = 0;
88 es->err_flags[i] = 0;
89 es->err_buffer[i] = 0;
90 es->err_line[i] = -1;
91 OPENSSL_free(es->err_file[i]);
92 es->err_file[i] = NULL;
93 OPENSSL_free(es->err_func[i]);
94 es->err_func[i] = NULL;
95 }
96
97 ERR_STATE *ossl_err_get_state_int(void);
98 void ossl_err_string_int(unsigned long e, const char *func,
99 char *buf, size_t len);
100
