mirrors
/
tinycc
mirror of https://github.com/frida/tinycc
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

tccgen.c: cleanup debug support 

from 3e731e3a78

tccgen.c:
- make 'struct default_debug' const
- pass TCCState* as parameter to tcc_debug_xxx functions
- always check tcc_state->do_debug before calling functions
- factor out tcc_debug_extern_sym()
- remove formats "%lld"/"%llu" (not reliable on windows)

xxx-gen files:
- set func_vt/var from caller
This commit is contained in:
grischka 2020-05-05 14:47:00 +02:00
parent 5bc1720776
commit 9c28349757
7 changed files with 85 additions and 78 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
arm-gen.c
View File

@ -1278,8 +1278,6 @@ void gfunc_prolog(Sym *func_sym)
#endif
sym = func_type->ref;
func_vt = sym->type;
func_var = (func_type->ref->f.func_type == FUNC_ELLIPSIS);
n = nf = 0;
if ((func_vt.t & VT_BTYPE) == VT_STRUCT &&

2
arm64-gen.c
View File

@ -1010,8 +1010,6 @@ ST_FUNC void gfunc_prolog(Sym *func_sym)
CType **t;
unsigned long *a;
// Why doesn't the caller (gen_function) set func_vt?
func_vt = func_type->ref->type;
func_vc = 144; // offset of where x8 is stored
for (sym = func_type->ref; sym; sym = sym->next)

2
c67-gen.c
View File

@ -1952,8 +1952,6 @@ void gfunc_prolog(Sym *func_sym)
addr = 8;
/* if the function returns a structure, then add an
implicit pointer parameter */
func_vt = sym->type;
func_var = (sym->f.func_type == FUNC_ELLIPSIS);
if ((func_vt.t & VT_BTYPE) == VT_STRUCT) {
func_vc = addr;
addr += 4;

2
i386-gen.c
View File

@ -533,8 +533,6 @@ ST_FUNC void gfunc_prolog(Sym *func_sym)
func_sub_sp_offset = ind;
/* if the function returns a structure, then add an
implicit pointer parameter */
func_vt = sym->type;
func_var = (sym->f.func_type == FUNC_ELLIPSIS);
#ifdef TCC_TARGET_PE
size = type_size(&func_vt,&align);
if (((func_vt.t & VT_BTYPE) == VT_STRUCT)

3
riscv64-gen.c
View File

@ -627,7 +627,6 @@ ST_FUNC void gfunc_prolog(Sym *func_sym)
CType *type;
sym = func_type->ref;
func_vt = sym->type;
loc = -16; // for ra and s0
func_sub_sp_offset = ind;
ind += 5 * 4;
@ -686,7 +685,7 @@ ST_FUNC void gfunc_prolog(Sym *func_sym)
}
func_va_list_ofs = addr;
num_va_regs = 0;
if (func_type->ref->f.func_type == FUNC_ELLIPSIS) {
if (func_var) {
for (; areg[0] < 8; areg[0]++) {
num_va_regs++;
ES(0x23, 3, 8, 10 + areg[0], -8 + num_va_regs * 8); // sd aX, loc(s0)

145
tccgen.c
View File

@ -122,7 +122,10 @@ static struct scope {
Sym *lstk, *llstk;
} *cur_scope, *loop_scope, *root_scope;
static struct {
/********************************************************/
/* stab debug support */
static const struct {
int type;
const char *name;
} default_debug[] = {
@ -184,8 +187,6 @@ static struct debug_info {
struct debug_info *child, *next, *last, *parent;
} *debug_info, *debug_info_root;
static CString debug_str;
/********************************************************/
#if 1
#define precedence_parser
@ -404,15 +405,19 @@ ST_FUNC void tcc_debug_start(TCCState *s1)
normalize_slashes(buf);
#endif
pstrcat(buf, sizeof(buf), "/");
debug_next_type = sizeof(default_debug) / sizeof(default_debug[0]);
put_stabs_r(s1, buf, N_SO, 0, 0,
text_section->data_offset, text_section, section_sym);
put_stabs_r(s1, file->prev->filename, N_SO, 0, 0,
text_section->data_offset, text_section, section_sym);
for (i = 0; i < sizeof (default_debug) / sizeof (default_debug[0]); i++)
put_stabs(s1, default_debug[i].name, N_LSYM, 0, 0, 0);
new_file = last_line_num = 0;
func_ind = -1;
debug_next_type = sizeof(default_debug) / sizeof(default_debug[0]);
debug_hash = NULL;
n_debug_hash = 0;
/* we're currently 'including' the <command line> */
tcc_debug_bincl(s1);
}
@ -424,7 +429,7 @@ ST_FUNC void tcc_debug_start(TCCState *s1)
SHN_ABS, file->filename);
}
static void tcc_debug_stabs (const char *str, int type, unsigned long value,
static void tcc_debug_stabs (TCCState *s1, const char *str, int type, unsigned long value,
Section *sec, int sym_index)
{
struct debug_sym *s;
@ -442,15 +447,13 @@ static void tcc_debug_stabs (const char *str, int type, unsigned long value,
s->sym_index = sym_index;
}
else if (sec)
put_stabs_r (tcc_state, str, type, 0, 0, value, sec, sym_index);
put_stabs_r (s1, str, type, 0, 0, value, sec, sym_index);
else
put_stabs (tcc_state, str, type, 0, 0, value);
put_stabs (s1, str, type, 0, 0, value);
}
static void tcc_debug_stabn(int type, int value)
{
if (!tcc_state->do_debug)
return;
if (type == N_LBRAC) {
struct debug_info *info =
(struct debug_info *) tcc_mallocz(sizeof (*info));
@ -478,7 +481,7 @@ static void tcc_debug_stabn(int type, int value)
}
}
static void tcc_get_debug_info(Sym *s, CString *result)
static void tcc_get_debug_info(TCCState *s1, Sym *s, CString *result)
{
int type;
int n = 0;
@ -526,7 +529,7 @@ static void tcc_get_debug_info(Sym *s, CString *result)
cstr_printf (&str, "%s:",
(t->v & ~SYM_FIELD) >= SYM_FIRST_ANOM
? "" : get_tok_str(t->v & ~SYM_FIELD, NULL));
tcc_get_debug_info (t, &str);
tcc_get_debug_info (s1, t, &str);
if (t->type.t & VT_BITFIELD) {
pos = t->c * 8 + BIT_POS(t->type.t);
size = BIT_SIZE(t->type.t);
@ -538,7 +541,7 @@ static void tcc_get_debug_info(Sym *s, CString *result)
cstr_printf (&str, ",%d,%d;", pos, size);
}
cstr_printf (&str, ";");
tcc_debug_stabs(str.data, N_LSYM, 0, NULL, 0);
tcc_debug_stabs(s1, str.data, N_LSYM, 0, NULL, 0);
cstr_free (&str);
}
}
@ -556,11 +559,11 @@ static void tcc_get_debug_info(Sym *s, CString *result)
cstr_printf (&str, "%s:",
(t->v & ~SYM_FIELD) >= SYM_FIRST_ANOM
? "" : get_tok_str(t->v & ~SYM_FIELD, NULL));
cstr_printf (&str, e->type.t & VT_UNSIGNED ? "%llu," : "%lld,",
t->enum_val);
cstr_printf (&str, e->type.t & VT_UNSIGNED ? "%u," : "%d,",
(int)t->enum_val);
}
cstr_printf (&str, ";");
tcc_debug_stabs(str.data, N_LSYM, 0, NULL, 0);
tcc_debug_stabs(s1, str.data, N_LSYM, 0, NULL, 0);
cstr_free (&str);
}
else {
@ -592,7 +595,7 @@ static void tcc_get_debug_info(Sym *s, CString *result)
cstr_printf (result, "%d", debug_type);
}
static void tcc_debug_finish (struct debug_info *cur)
static void tcc_debug_finish (TCCState *s1, struct debug_info *cur)
{
while (cur) {
int i;
@ -602,33 +605,54 @@ static void tcc_debug_finish (struct debug_info *cur)
struct debug_sym *s = &cur->sym[i];
if (s->sec)
put_stabs_r(tcc_state, s->str, s->type, 0, 0, s->value,
put_stabs_r(s1, s->str, s->type, 0, 0, s->value,
s->sec, s->sym_index);
else
put_stabs(tcc_state, s->str, s->type, 0, 0, s->value);
put_stabs(s1, s->str, s->type, 0, 0, s->value);
tcc_free (s->str);
}
tcc_free (cur->sym);
put_stabn(tcc_state, N_LBRAC, 0, 0, cur->start);
tcc_debug_finish (cur->child);
put_stabn(tcc_state, N_RBRAC, 0, 0, cur->end);
put_stabn(s1, N_LBRAC, 0, 0, cur->start);
tcc_debug_finish (s1, cur->child);
put_stabn(s1, N_RBRAC, 0, 0, cur->end);
tcc_free (cur);
cur = next;
}
}
static void tcc_add_debug_info(int param, Sym *s, Sym *e)
static void tcc_add_debug_info(TCCState *s1, int param, Sym *s, Sym *e)
{
if (!tcc_state->do_debug)
return;
CString debug_str;
cstr_new (&debug_str);
for (; s != e; s = s->prev) {
if (!s->v || (s->r & VT_VALMASK) != VT_LOCAL)
continue;
cstr_reset (&debug_str);
cstr_printf (&debug_str, "%s:%s", get_tok_str(s->v, NULL), param ? "p" : "");
tcc_get_debug_info(s, &debug_str);
tcc_debug_stabs(debug_str.data, param ? N_PSYM : N_LSYM, s->c, NULL, 0);
tcc_get_debug_info(s1, s, &debug_str);
tcc_debug_stabs(s1, debug_str.data, param ? N_PSYM : N_LSYM, s->c, NULL, 0);
}
cstr_free (&debug_str);
}
static void tcc_debug_extern_sym(TCCState *s1, Sym *sym, int sh_num, int sym_bind)
{
Section *s = s1->sections[sh_num];
CString str;
cstr_new (&str);
cstr_printf (&str, "%s:%c",
get_tok_str(sym->v, NULL),
sym_bind == STB_GLOBAL ? 'G' : local_scope ? 'V' : 'S'
);
tcc_get_debug_info(s1, sym, &str);
if (sym_bind == STB_GLOBAL)
tcc_debug_stabs(s1, str.data, N_GSYM, 0, NULL, 0);
else
tcc_debug_stabs(s1, str.data,
(sym->type.t & VT_STATIC) && data_section == s
? N_STSYM : N_LCSYM, 0, s, sym->c);
cstr_free (&str);
}
/* put end of translation unit info */
@ -639,8 +663,6 @@ ST_FUNC void tcc_debug_end(TCCState *s1)
put_stabs_r(s1, NULL, N_SO, 0, 0,
text_section->data_offset, text_section, section_sym);
tcc_free(debug_hash);
debug_hash = NULL;
n_debug_hash = 0;
}
static BufferedFile* put_new_file(TCCState *s1)
@ -677,14 +699,21 @@ ST_FUNC void tcc_debug_line(TCCState *s1)
/* put function symbol */
ST_FUNC void tcc_debug_funcstart(TCCState *s1, Sym *sym)
{
CString debug_str;
BufferedFile *f;
if (!s1->do_debug || !(f = put_new_file(s1)))
if (!s1->do_debug)
return;
debug_info_root = NULL;
debug_info = NULL;
tcc_debug_stabn(N_LBRAC, ind - func_ind);
cstr_reset (&debug_str);
if (!(f = put_new_file(s1)))
return;
cstr_new (&debug_str);
cstr_printf(&debug_str, "%s:%c", funcname, sym->type.t & VT_STATIC ? 'f' : 'F');
tcc_get_debug_info(sym->type.ref, &debug_str);
tcc_get_debug_info(s1, sym->type.ref, &debug_str);
put_stabs_r(s1, debug_str.data, N_FUN, 0, f->line_num, 0, cur_text_section, sym->c);
cstr_free (&debug_str);
tcc_debug_line(s1);
}
@ -694,10 +723,7 @@ ST_FUNC void tcc_debug_funcend(TCCState *s1, int size)
if (!s1->do_debug)
return;
tcc_debug_stabn(N_RBRAC, size);
tcc_debug_finish (debug_info_root);
debug_info_root = NULL;
debug_info = NULL;
cstr_free (&debug_str);
tcc_debug_finish (s1, debug_info_root);
}
/* put alternative filename */
@ -926,25 +952,12 @@ ST_FUNC void put_extern_sym2(Sym *sym, int sh_num,
name = get_tok_str(sym->asm_label, NULL);
info = ELFW(ST_INFO)(sym_bind, sym_type);
sym->c = put_elf_sym(symtab_section, value, size, info, other, sh_num, name);
if (tcc_state->do_debug && sym_type != STT_FUNC && sym->v < SYM_FIRST_ANOM) {
CString str;
cstr_new (&str);
cstr_printf (&str, "%s:%c", get_tok_str(sym->v, NULL),
debug_info ? 'V' : sym_bind == STB_GLOBAL ? 'G' : 'S');
tcc_get_debug_info(sym, &str);
if (sym_bind == STB_GLOBAL)
tcc_debug_stabs(str.data, N_GSYM, 0, NULL, 0);
else
tcc_debug_stabs(str.data,
(t & VT_STATIC) && data_section->sh_num == sh_num
? N_STSYM : N_LCSYM, 0,
data_section->sh_num == sh_num ? data_section :
bss_section->sh_num == sh_num ? bss_section :
common_section->sh_num == sh_num ? common_section :
text_section, sym->c);
cstr_free (&str);
}
if (tcc_state->do_debug
&& sym_type != STT_FUNC
&& sym->v < SYM_FIRST_ANOM)
tcc_debug_extern_sym(tcc_state, sym, sh_num, sym_bind);
} else {
esym = elfsym(sym);
esym->st_value = value;
@ -1920,13 +1933,14 @@ static void add_local_bounds(Sym *s, Sym *e)
#endif
/* Wrapper around sym_pop, that potentially also registers local bounds. */
static void pop_local_syms(int param, Sym **ptop, Sym *b, int keep, int ellipsis)
static void pop_local_syms(Sym **ptop, Sym *b, int keep, int ellipsis)
{
#ifdef CONFIG_TCC_BCHECK
if (!ellipsis && !keep && tcc_state->do_bounds_check)
if (tcc_state->do_bounds_check && !ellipsis && !keep)
add_local_bounds(*ptop, b);
#endif
tcc_add_debug_info (param, *ptop, b);
if (tcc_state->do_debug)
tcc_add_debug_info (tcc_state, !local_scope, *ptop, b);
sym_pop(ptop, b, keep);
}
@ -6717,7 +6731,9 @@ void new_scope(struct scope *o)
o->llstk = local_label_stack;
++local_scope;
tcc_debug_stabn(N_LBRAC, ind - func_ind);
if (tcc_state->do_debug)
tcc_debug_stabn(N_LBRAC, ind - func_ind);
}
void prev_scope(struct scope *o, int is_expr)
@ -6739,12 +6755,12 @@ void prev_scope(struct scope *o, int is_expr)
tables, though. sym_pop will do that. */
/* pop locally defined symbols */
pop_local_syms(0, &local_stack, o->lstk, is_expr, 0);
tcc_debug_stabn(N_RBRAC, ind - func_ind);
pop_local_syms(&local_stack, o->lstk, is_expr, 0);
cur_scope = o->prev;
--local_scope;
if (tcc_state->do_debug)
tcc_debug_stabn(N_RBRAC, ind - func_ind);
}
/* leave a scope via break/continue(/goto) */
@ -7952,8 +7968,12 @@ static void gen_function(Sym *sym)
add_array (tcc_state, ".init_array", sym->c);
if (sym->type.ref->f.func_dtor)
add_array (tcc_state, ".fini_array", sym->c);
funcname = get_tok_str(sym->v, NULL);
func_ind = ind;
func_vt = sym->type.ref->type;
func_var = sym->type.ref->f.func_type == FUNC_ELLIPSIS;
/* put debug symbol */
tcc_debug_funcstart(tcc_state, sym);
/* push a dummy symbol to enable local sym storage */
@ -7967,8 +7987,7 @@ static void gen_function(Sym *sym)
gsym(rsym);
nocode_wanted = 0;
/* reset local stack */
pop_local_syms(1, &local_stack, NULL, 0,
sym->type.ref->f.func_type == FUNC_ELLIPSIS);
pop_local_syms(&local_stack, NULL, 0, func_var);
gfunc_epilog();
cur_text_section->data_offset = ind;
local_scope = 0;

7
x86_64-gen.c
View File

@ -991,8 +991,6 @@ void gfunc_prolog(Sym *func_sym)
/* if the function returns a structure, then add an
implicit pointer parameter */
func_vt = sym->type;
func_var = (sym->f.func_type == FUNC_ELLIPSIS);
size = gfunc_arg_size(&func_vt);
if (!using_regs(size)) {
gen_modrm64(0x89, arg_regs[reg_param_index], VT_LOCAL, NULL, addr);
@ -1032,7 +1030,7 @@ void gfunc_prolog(Sym *func_sym)
}
while (reg_param_index < REGN) {
if (func_type->ref->f.func_type == FUNC_ELLIPSIS) {
if (func_var) {
gen_modrm64(0x89, arg_regs[reg_param_index], VT_LOCAL, NULL, addr);
addr += 8;
}
@ -1491,7 +1489,7 @@ void gfunc_prolog(Sym *func_sym)
func_sub_sp_offset = ind;
func_ret_sub = 0;
if (sym->f.func_type == FUNC_ELLIPSIS) {
if (func_var) {
int seen_reg_num, seen_sse_num, seen_stack_size;
seen_reg_num = seen_sse_num = 0;
/* frame pointer and return address */
@ -1562,7 +1560,6 @@ void gfunc_prolog(Sym *func_sym)
/* if the function returns a structure, then add an
implicit pointer parameter */
func_vt = sym->type;
mode = classify_x86_64_arg(&func_vt, NULL, &size, &align, &reg_count);
if (mode == x86_64_mode_memory) {
push_arg_reg(reg_param_index);