crypto/err/err_blocks.c

   1 /*
   2  * Copyright 2019 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 /* TODO: When ERR_STATE becomes opaque, this musts be removed */
  11 #define OSSL_FORCE_ERR_STATE
  12
  13 #include <string.h>
  14 #include <openssl/err.h>
  15 #include "err_local.h"
  16
  17 void ERR_new(void)
  18 {
  19     ERR_STATE *es;
  20
  21     es = err_get_state_int();
  22     if (es == NULL)
  23         return;
  24
  25     /* Allocate a slot */
  26     err_get_slot(es);
  27     err_clear(es, es->top, 0);
  28 }
  29
  30 void ERR_set_debug(const char *file, int line, const char *func)
  31 {
  32     ERR_STATE *es;
  33
  34     es = err_get_state_int();
  35     if (es == NULL)
  36         return;
  37
  38     err_set_debug(es, es->top, file, line, func);
  39 }
  40
  41 void ERR_set_error(int lib, int reason, const char *fmt, ...)
  42 {
  43     va_list args;
  44
  45     va_start(args, fmt);
  46     ERR_vset_error(lib, reason, fmt, args);
  47     va_end(args);
  48 }
  49
  50 void ERR_vset_error(int lib, int reason, const char *fmt, va_list args)
  51 {
  52     ERR_STATE *es;
  53     char *buf = NULL;
  54     size_t buf_size = 0;
  55     unsigned long flags = 0;
  56     size_t i;
  57
  58     es = err_get_state_int();
  59     if (es == NULL)
  60         return;
  61     i = es->top;
  62
  63     if (fmt != NULL) {
  64         int printed_len = 0;
  65         char *rbuf = NULL;
  66
  67         buf = es->err_data[i];
  68         buf_size = es->err_data_size[i];
  69
  70         /*
  71          * To protect the string we just grabbed from tampering by other
  72          * functions we may call, or to protect them from freeing a pointer
  73          * that may no longer be valid at that point, we clear away the
  74          * data pointer and the flags.  We will set them again at the end
  75          * of this function.
  76          */
  77         es->err_data[i] = NULL;
  78         es->err_data_flags[i] = 0;
  79
  80         /*
  81          * Try to maximize the space available.  If that fails, we use what
  82          * we have.
  83          */
  84         if (buf_size < ERR_MAX_DATA_SIZE
  85             && (rbuf = OPENSSL_realloc(buf, ERR_MAX_DATA_SIZE)) != NULL) {
  86             buf = rbuf;
  87             buf_size = ERR_MAX_DATA_SIZE;
  88         }
  89
  90         if (buf != NULL) {
  91             printed_len = BIO_vsnprintf(buf, buf_size, fmt, args);
  92         }
  93         if (printed_len < 0)
  94             printed_len = 0;
  95         buf[printed_len] = '\0';
  96
  97         /*
  98          * Try to reduce the size, but only if we maximized above.  If that
  99          * fails, we keep what we have.
 100          * (According to documentation, realloc leaves the old buffer untouched
 101          * if it fails)
 102          */
 103         if ((rbuf = OPENSSL_realloc(buf, printed_len + 1)) != NULL) {
 104             buf = rbuf;
 105             buf_size = printed_len + 1;
 106         }
 107
 108         if (buf != NULL)
 109             flags = ERR_TXT_MALLOCED | ERR_TXT_STRING;
 110     }
 111
 112     err_clear_data(es, es->top, 0);
 113     err_set_error(es, es->top, lib, reason);
 114     if (fmt != NULL)
 115         err_set_data(es, es->top, buf, buf_size, flags);
 116 }