c88b19966c
- new LIBTCC API tcc_setjmp() to allow longjmps & signals from compiled code back to libtcc per TCCState - new LIBTCC API tcc_set_backtrace_func() to handle backtrace output - move c/dtor/atexit stuff to runtime (lib/runmain.c) - move bt-log.o into libtcc1.a - add timeouts to github action (beware, it did happen to hang infinitely in the signal handler at some point)
56 lines
1.4 KiB
C
56 lines
1.4 KiB
C
/* ------------------------------------------------------------- */
|
|
/* function to get a stack backtrace on demand with a message */
|
|
|
|
#include <stdarg.h>
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#undef __attribute__
|
|
|
|
#ifdef _WIN32
|
|
# define DLL_EXPORT __declspec(dllexport)
|
|
#else
|
|
# define DLL_EXPORT
|
|
#endif
|
|
|
|
/* Needed when using ...libtcc1-usegcc=yes in lib/Makefile */
|
|
#if (defined(__GNUC__) && (__GNUC__ >= 6)) || defined(__clang__)
|
|
#pragma GCC diagnostic push
|
|
#pragma GCC diagnostic ignored "-Wframe-address"
|
|
#endif
|
|
|
|
typedef struct rt_frame {
|
|
void *ip, *fp, *sp;
|
|
} rt_frame;
|
|
|
|
__attribute__((weak))
|
|
int __rt_dump(rt_frame *f, const char *msg, const char *fmt, va_list ap);
|
|
|
|
DLL_EXPORT int tcc_backtrace(const char *fmt, ...)
|
|
{
|
|
va_list ap;
|
|
int ret;
|
|
|
|
if (__rt_dump) {
|
|
rt_frame f;
|
|
f.fp = __builtin_frame_address(1);
|
|
f.ip = __builtin_return_address(0);
|
|
va_start(ap, fmt);
|
|
ret = __rt_dump(&f, NULL, fmt, ap);
|
|
va_end(ap);
|
|
} else {
|
|
const char *p, *nl = "\n";
|
|
if (fmt[0] == '^' && (p = strchr(fmt + 1, fmt[0])))
|
|
fmt = p + 1;
|
|
if (fmt[0] == '\001')
|
|
++fmt, nl = "";
|
|
va_start(ap, fmt);
|
|
ret = vfprintf(stderr, fmt, ap);
|
|
va_end(ap);
|
|
fprintf(stderr, "%s", nl), fflush(stderr);
|
|
}
|
|
return ret;
|
|
}
|
|
|
|
#if (defined(__GNUC__) && (__GNUC__ >= 6)) || defined(__clang__)
|
|
#pragma GCC diagnostic pop
|
|
#endif
|