ef42295fe8
This makes it possible to get backtraces with executables
(including DLLs/SOs) like we had it already with -g -run.
Option -b includes -bt, and -bt includes -g.
- new file lib/bt-exe.c: used to link rt_printline and the
exception handler from tccrun.c into executables/DLLs.
- new file lib/bt-log.c: provides a function that may be
called from user code to print out a backtrace with a
message (currently for i386/x86_64 only):
int (*tcc_backtrace)(const char *fmt, ...);
As an extra hack, if 'fmt' is prefixed like "^file.c^..."
then the backtrace will skip calls from within 'file.c'.
- new file lib/bt-dll.c: used on win32 to link the backtrace
and bcheck functions with the main module at runtime
- bcheck.c: now uses the tcc_backtrace function from above
- tccgen.c: minor cleanups
- tccelf.c: stab sections get SHF_ALLOC for easy access.
Also in relocate_section(): 64bit relocations for stabs
in DLLs cannot work. To find DLL addresses, the DLL base
is added manually in tccrun.c via rc.prog_base instead.
- tccpe.c: there are some changes to allow merging sections,
used to merge .finit_array into .data in the first place.
- tccpp.c: tcc -run now #defines __TCC_RUN__
also: refactor a line in tal_realloc that was incompatible
with bcheck
- tcctest.c: fixed a problem with r12 which tcc cannot preserve
as well as gcc does.
- tests2/112_backtrace.c: test the feature and the bcheck test18
that previously was in boundtest.c
105 lines
2.8 KiB
C
105 lines
2.8 KiB
C
// =============================================
|
|
// crt1.c
|
|
|
|
// _UNICODE for tchar.h, UNICODE for API
|
|
#include <tchar.h>
|
|
|
|
#include <windows.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
|
|
#define _UNKNOWN_APP 0
|
|
#define _CONSOLE_APP 1
|
|
#define _GUI_APP 2
|
|
|
|
#define _MCW_PC 0x00030000 // Precision Control
|
|
#define _PC_24 0x00020000 // 24 bits
|
|
#define _PC_53 0x00010000 // 53 bits
|
|
#define _PC_64 0x00000000 // 64 bits
|
|
|
|
#ifdef _UNICODE
|
|
#define __tgetmainargs __wgetmainargs
|
|
#define _tstart _wstart
|
|
#define _tmain wmain
|
|
#define _runtmain _runwmain
|
|
#else
|
|
#define __tgetmainargs __getmainargs
|
|
#define _tstart _start
|
|
#define _tmain main
|
|
#define _runtmain _runmain
|
|
#endif
|
|
|
|
typedef struct { int newmode; } _startupinfo;
|
|
int __cdecl __tgetmainargs(int *pargc, _TCHAR ***pargv, _TCHAR ***penv, int globb, _startupinfo*);
|
|
void __cdecl __set_app_type(int apptype);
|
|
unsigned int __cdecl _controlfp(unsigned int new_value, unsigned int mask);
|
|
extern int _tmain(int argc, _TCHAR * argv[], _TCHAR * env[]);
|
|
extern void (*__init_array_start[]) (void);
|
|
extern void (*__init_array_end[]) (void);
|
|
extern void (*__fini_array_start[]) (void);
|
|
extern void (*__fini_array_end[]) (void);
|
|
|
|
static int do_main (int argc, _TCHAR * argv[], _TCHAR * env[])
|
|
{
|
|
int retval;
|
|
long i;
|
|
|
|
i = 0;
|
|
while (&__init_array_start[i] != __init_array_end) {
|
|
(*__init_array_start[i++])();
|
|
}
|
|
retval = _tmain(__argc, __targv, _tenviron);
|
|
i = 0;
|
|
while (&__fini_array_end[i] != __fini_array_start) {
|
|
(*__fini_array_end[--i])();
|
|
}
|
|
return retval;
|
|
}
|
|
|
|
/* Allow command-line globbing with "int _dowildcard = 1;" in the user source */
|
|
int _dowildcard;
|
|
|
|
static LONG WINAPI catch_sig(EXCEPTION_POINTERS *ex)
|
|
{
|
|
return _XcptFilter(ex->ExceptionRecord->ExceptionCode, ex);
|
|
}
|
|
|
|
void _tstart(void)
|
|
{
|
|
_startupinfo start_info = {0};
|
|
SetUnhandledExceptionFilter(catch_sig);
|
|
// Sets the current application type
|
|
__set_app_type(_CONSOLE_APP);
|
|
|
|
// Set default FP precision to 53 bits (8-byte double)
|
|
// _MCW_PC (Precision control) is not supported on ARM
|
|
#if defined __i386__ || defined __x86_64__
|
|
_controlfp(_PC_53, _MCW_PC);
|
|
#endif
|
|
|
|
__tgetmainargs( &__argc, &__targv, &_tenviron, _dowildcard, &start_info);
|
|
exit(do_main(__argc, __targv, _tenviron));
|
|
}
|
|
|
|
int _runtmain(int argc, /* as tcc passed in */ char **argv)
|
|
{
|
|
#ifdef UNICODE
|
|
_startupinfo start_info = {0};
|
|
|
|
__tgetmainargs(&__argc, &__targv, &_tenviron, _dowildcard, &start_info);
|
|
/* may be wrong when tcc has received wildcards (*.c) */
|
|
if (argc < __argc) {
|
|
__targv += __argc - argc;
|
|
__argc = argc;
|
|
}
|
|
#else
|
|
__argc = argc;
|
|
__targv = argv;
|
|
#endif
|
|
#if defined __i386__ || defined __x86_64__
|
|
_controlfp(_PC_53, _MCW_PC);
|
|
#endif
|
|
return _tmain(__argc, __targv, _tenviron);
|
|
}
|
|
|
|
// =============================================
|