Paze AI
251ee470bf
- 所有 tcc 文件/内容/宏改名为 pcc (tcc.c->pcc.c, tccelf.c->pccelf.c, libtcc.c->libpcc.c 等) - 支持架构: i386, x86_64, ARM, ARM64, RISC-V, C67 - 支持格式: PE, ELF, Mach-O, COFF - 完整预处理、代码生成、链接器、调试信息 - 构建成功: pcc.exe (x86_64 Windows) - 功能测试通过: 递归/结构体/浮点/switch/循环 - 自编译测试通过: pcc 可以编译自身
96 行
2.6 KiB
C
96 行
2.6 KiB
C
/* ------------------------------------------------------------- */
|
|
/* stubs for calling bcheck functions from a dll. */
|
|
|
|
#include <windows.h>
|
|
#include <stdio.h>
|
|
|
|
#define REDIR_ALL \
|
|
REDIR(__bt_init) \
|
|
REDIR(__bt_exit) \
|
|
REDIR(pcc_backtrace) \
|
|
\
|
|
REDIR(__bound_ptr_add) \
|
|
REDIR(__bound_ptr_indir1) \
|
|
REDIR(__bound_ptr_indir2) \
|
|
REDIR(__bound_ptr_indir4) \
|
|
REDIR(__bound_ptr_indir8) \
|
|
REDIR(__bound_ptr_indir12) \
|
|
REDIR(__bound_ptr_indir16) \
|
|
REDIR(__bound_local_new) \
|
|
REDIR(__bound_local_delete) \
|
|
REDIR(__bound_new_region) \
|
|
\
|
|
REDIR(__bound_free) \
|
|
REDIR(__bound_malloc) \
|
|
REDIR(__bound_realloc) \
|
|
REDIR(__bound_memcpy) \
|
|
REDIR(__bound_memcmp) \
|
|
REDIR(__bound_memmove) \
|
|
REDIR(__bound_memset) \
|
|
REDIR(__bound_strlen) \
|
|
REDIR(__bound_strcpy) \
|
|
REDIR(__bound_strncpy) \
|
|
REDIR(__bound_strcmp) \
|
|
REDIR(__bound_strncmp) \
|
|
REDIR(__bound_strcat) \
|
|
REDIR(__bound_strchr) \
|
|
REDIR(__bound_strdup) \
|
|
REDIR(__bound_strncat) \
|
|
REDIR(__bound_strrchr) \
|
|
REDIR(__bound_setjmp) \
|
|
REDIR(__bound_longjmp)
|
|
|
|
#ifdef __leading_underscore
|
|
#define _(s) "_"#s
|
|
#else
|
|
#define _(s) #s
|
|
#endif
|
|
|
|
#define REDIR(s) void *s;
|
|
static struct { REDIR_ALL } all_ptrs;
|
|
#undef REDIR
|
|
|
|
#define REDIR(s) #s"\0"
|
|
static const char all_names[] = REDIR_ALL;
|
|
#undef REDIR
|
|
|
|
#if __aarch64__
|
|
# define REDIR(s) \
|
|
__asm__(".global "_(s)";"_(s)":"); \
|
|
__asm__(".int 0x58000090"); /* ldr x16, [pc, #16] */ \
|
|
__asm__(".int 0xf9400210"); /* ldr x16, [x16] */ \
|
|
__asm__(".int 0xd61f0200"); /* br x16 */ \
|
|
__asm__(".int 0xd503201f"); /* nop for alignment */ \
|
|
__asm__(".quad all_ptrs + (. - all_jmps - 16) / 24 * 8"); \
|
|
__asm__(".type "_(s)",function\n.size "_(s)",.-"_(s));
|
|
|
|
__asm__(".text\n.align 8\nall_jmps:");
|
|
REDIR_ALL
|
|
#else
|
|
# define REDIR(s) \
|
|
__asm__(".global "_(s)";"_(s)":"); goto *all_ptrs.s;
|
|
static void all_jmps() { REDIR_ALL }
|
|
#endif
|
|
#undef REDIR
|
|
|
|
void __bt_init_dll(int bcheck)
|
|
{
|
|
const char *s = all_names;
|
|
void **p = (void**)&all_ptrs;
|
|
do {
|
|
*p = (void*)GetProcAddress(GetModuleHandle(NULL), (char*)s);
|
|
if (NULL == *p) {
|
|
char buf[100];
|
|
sprintf(buf,
|
|
"Error: function '%s()' not found in executable. "
|
|
"(Need -bt or -b for linking the exe.)", s);
|
|
if (GetStdHandle(STD_ERROR_HANDLE))
|
|
fprintf(stderr, "PCC/BCHECK: %s\n", buf), fflush(stderr);
|
|
else
|
|
MessageBox(NULL, buf, "PCC/BCHECK", MB_ICONERROR);
|
|
ExitProcess(1);
|
|
}
|
|
s = strchr(s,'\0') + 1, ++p;
|
|
} while (*s && (bcheck || p < &all_ptrs.__bound_ptr_add));
|
|
}
|