debug.c

 
#include <winpr/config.h>
#include <winpr/platform.h>
 
WINPR_PRAGMA_DIAG_PUSH
WINPR_PRAGMA_DIAG_IGNORED_RESERVED_ID_MACRO
WINPR_PRAGMA_DIAG_IGNORED_UNUSED_MACRO
 
#define __STDC_WANT_LIB_EXT1__ 1 // NOLINT(bugprone-reserved-identifier,cert-dcl37-c,cert-dcl51-cpp)
 
WINPR_PRAGMA_DIAG_POP
 
#include <stdio.h>
#include <string.h>
#include <fcntl.h>
 
#include <winpr/crt.h>
#include <winpr/string.h>
 
#if defined(USE_EXECINFO)
#include <execinfo/debug.h>
#endif
 
#if defined(USE_UNWIND)
#include <unwind/debug.h>
#endif
 
#if defined(WINPR_HAVE_CORKSCREW)
#include <corkscrew/debug.h>
#endif
 
#if defined(_WIN32) || defined(_WIN64)
#include <io.h>
#include <windows/debug.h>
#endif
 
#include <winpr/wlog.h>
#include <winpr/debug.h>
 
#define TAG "com.winpr.utils.debug"
 
#define LINE_LENGTH_MAX 2048
 
static const char support_msg[] = "Invalid stacktrace buffer! check if platform is supported!";
 
void winpr_backtrace_free(void* buffer)
{
  if (!buffer)
    return;
 
#if defined(USE_UNWIND)
  winpr_unwind_backtrace_free(buffer);
#elif defined(USE_EXECINFO)
  winpr_execinfo_backtrace_free(buffer);
#elif defined(WINPR_HAVE_CORKSCREW)
  winpr_corkscrew_backtrace_free(buffer);
#elif defined(_WIN32) || defined(_WIN64)
  winpr_win_backtrace_free(buffer);
#else
  free(buffer);
  WLog_FATAL(TAG, "%s", support_msg);
#endif
}
 
void* winpr_backtrace(DWORD size)
{
#if defined(USE_UNWIND)
  return winpr_unwind_backtrace(size);
#elif defined(USE_EXECINFO)
  return winpr_execinfo_backtrace(size);
#elif defined(WINPR_HAVE_CORKSCREW)
  return winpr_corkscrew_backtrace(size);
#elif (defined(_WIN32) || defined(_WIN64)) && !defined(_UWP)
  return winpr_win_backtrace(size);
#else
  WLog_FATAL(TAG, "%s", support_msg);
  /* return a non NULL buffer to allow the backtrace function family to succeed without failing
   */
  return strndup(support_msg, sizeof(support_msg));
#endif
}
 
char** winpr_backtrace_symbols(void* buffer, size_t* used)
{
  if (used)
    *used = 0;
 
  if (!buffer)
  {
    WLog_FATAL(TAG, "%s", support_msg);
    return NULL;
  }
 
#if defined(USE_UNWIND)
  return winpr_unwind_backtrace_symbols(buffer, used);
#elif defined(USE_EXECINFO)
  return winpr_execinfo_backtrace_symbols(buffer, used);
#elif defined(WINPR_HAVE_CORKSCREW)
  return winpr_corkscrew_backtrace_symbols(buffer, used);
#elif (defined(_WIN32) || defined(_WIN64)) && !defined(_UWP)
  return winpr_win_backtrace_symbols(buffer, used);
#else
  WLog_FATAL(TAG, "%s", support_msg);
 
  /* We return a char** on heap that is compatible with free:
   *
   * 1. We allocate sizeof(char*) + strlen + 1 bytes.
   * 2. The first sizeof(char*) bytes contain the pointer to the string following the pointer.
   * 3. The at data + sizeof(char*) contains the actual string
   */
  size_t len = strnlen(support_msg, sizeof(support_msg));
  char* ppmsg = calloc(sizeof(char*) + len + 1, sizeof(char));
  if (!ppmsg)
    return NULL;
  char** msgptr = (char**)ppmsg;
  char* msg = &ppmsg[sizeof(char*)];
 
  *msgptr = msg;
  strncpy(msg, support_msg, len);
  *used = 1;
  return msgptr;
#endif
}
 
void winpr_backtrace_symbols_fd(void* buffer, int fd)
{
  if (!buffer)
  {
    WLog_FATAL(TAG, "%s", support_msg);
    return;
  }
 
#if defined(USE_EXECINFO) && !defined(USE_UNWIND)
  winpr_execinfo_backtrace_symbols_fd(buffer, fd);
#elif !defined(ANDROID)
  {
    size_t used = 0;
    char** lines = winpr_backtrace_symbols(buffer, &used);
 
    if (!lines)
      return;
 
    for (size_t i = 0; i < used; i++)
      (void)_write(fd, lines[i], (unsigned)strnlen(lines[i], LINE_LENGTH_MAX));
    free((void*)lines);
  }
#else
  WLog_FATAL(TAG, "%s", support_msg);
#endif
}
 
void winpr_log_backtrace(const char* tag, DWORD level, DWORD size)
{
  winpr_log_backtrace_ex(WLog_Get(tag), level, size);
}
 
void winpr_log_backtrace_ex(wLog* log, DWORD level, WINPR_ATTR_UNUSED DWORD size)
{
  size_t used = 0;
  char** msg = NULL;
  void* stack = winpr_backtrace(20);
 
  if (!stack)
  {
    WLog_Print(log, WLOG_ERROR, "winpr_backtrace failed!\n");
    goto fail;
  }
 
  msg = winpr_backtrace_symbols(stack, &used);
 
  if (msg)
  {
    for (size_t x = 0; x < used; x++)
      WLog_Print(log, level, "%" PRIuz ": %s", x, msg[x]);
  }
  free((void*)msg);
 
fail:
  winpr_backtrace_free(stack);
}
 
char* winpr_strerror(INT32 dw, char* dmsg, size_t size)
{
#ifdef __STDC_LIB_EXT1__
  (void)strerror_s(dw, dmsg, size);
#elif defined(WINPR_HAVE_STRERROR_R)
  (void)strerror_r(dw, dmsg, size);
#else
  (void)_snprintf(dmsg, size, "%s", strerror(dw));
#endif
  return dmsg;
}