d0p1/tcc-stupidos
1
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add typedef debug info

Browse source 
tccgen.c:
- In tcc_get_debug_info mask VT_STORAGE instead of VT_EXTERN | VT_STATIC
- New function tcc_debug_typedef
- Call tcc_debug_typedef in decl0
This commit is contained in:
herman ten brugge 2020-09-27 11:13:37 +02:00
parent 8fd7a384e2
commit 727e24cb0a
1 changed files with 17 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
tccgen.c
View file

@ -496,7 +496,7 @@ static void tcc_get_debug_info(TCCState *s1, Sym *s, CString *result)
CString str; CString str;
for (;;) { for (;;) {
type = t->type.t & ~(VT_EXTERN | VT_STATIC | VT_CONSTANT | VT_VOLATILE); type = t->type.t & ~(VT_STORAGE | VT_CONSTANT | VT_VOLATILE);
if ((type & VT_BTYPE) != VT_BYTE) if ((type & VT_BTYPE) != VT_BYTE)
type &= ~VT_DEFSIGN; type &= ~VT_DEFSIGN;
if (type == VT_PTR || type == (VT_PTR | VT_ARRAY)) if (type == VT_PTR || type == (VT_PTR | VT_ARRAY))
@ -586,7 +586,7 @@ static void tcc_get_debug_info(TCCState *s1, Sym *s, CString *result)
cstr_printf (result, "%d=", ++debug_next_type); cstr_printf (result, "%d=", ++debug_next_type);
t = s; t = s;
for (;;) { for (;;) {
type = t->type.t & ~(VT_EXTERN | VT_STATIC | VT_CONSTANT | VT_VOLATILE); type = t->type.t & ~(VT_STORAGE | VT_CONSTANT | VT_VOLATILE);
if ((type & VT_BTYPE) != VT_BYTE) if ((type & VT_BTYPE) != VT_BYTE)
type &= ~VT_DEFSIGN; type &= ~VT_DEFSIGN;
if (type == VT_PTR) if (type == VT_PTR)
@ -666,6 +666,19 @@ static void tcc_debug_extern_sym(TCCState *s1, Sym *sym, int sh_num, int sym_bin
cstr_free (&str); cstr_free (&str);
} }
static void tcc_debug_typedef(TCCState *s1, Sym *sym)
{
CString str;
cstr_new (&str);
cstr_printf (&str, "%s:t",
(sym->v & ~SYM_FIELD) >= SYM_FIRST_ANOM
? "" : get_tok_str(sym->v & ~SYM_FIELD, NULL));
tcc_get_debug_info(s1, sym, &str);
tcc_debug_stabs(s1, str.data, N_LSYM, 0, NULL, 0);
cstr_free (&str);
}
/* put end of translation unit info */ /* put end of translation unit info */
ST_FUNC void tcc_debug_end(TCCState *s1) ST_FUNC void tcc_debug_end(TCCState *s1)
{ {
@ -8418,6 +8431,8 @@ found:
} }
sym->a = ad.a; sym->a = ad.a;
sym->f = ad.f; sym->f = ad.f;
if (tcc_state->do_debug)
tcc_debug_typedef (tcc_state, sym);
} else if ((type.t & VT_BTYPE) == VT_VOID } else if ((type.t & VT_BTYPE) == VT_VOID
&& !(type.t & VT_EXTERN)) { && !(type.t & VT_EXTERN)) {
tcc_error("declaration of void object"); tcc_error("declaration of void object");