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