github-repos/tinycc
1
0
Fork 0
mirror of https://github.com/mirror/tinycc.git synced 2025-03-10 08:50:07 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix vla type bug for stabs/dwarf

Browse Source 
The wrong vla stabs code was accepted by gdb.
The dwarf vla code was fatal.
This commit is contained in:
herman ten brugge 2022-05-10 07:16:38 +02:00
parent 2caaff20fb
commit 9a81e6366b
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tccdbg.c
View File

@ -1266,7 +1266,7 @@ static void tcc_get_debug_info(TCCState *s1, Sym *s, CString *result)
CString str; CString str;
for (;;) { for (;;) {
type = t->type.t & ~(VT_STORAGE | VT_CONSTANT | VT_VOLATILE); type = t->type.t & ~(VT_STORAGE | VT_CONSTANT | VT_VOLATILE | VT_VLA);
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))
@ -1351,7 +1351,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_STORAGE | VT_CONSTANT | VT_VOLATILE); type = t->type.t & ~(VT_STORAGE | VT_CONSTANT | VT_VOLATILE | VT_VLA);
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)
@ -1381,7 +1381,7 @@ static int tcc_get_dwarf_info(TCCState *s1, Sym *s)
int retval; int retval;
for (;;) { for (;;) {
type = t->type.t & ~(VT_STORAGE | VT_CONSTANT | VT_VOLATILE); type = t->type.t & ~(VT_STORAGE | VT_CONSTANT | VT_VOLATILE | VT_VLA);
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))
@ -1523,7 +1523,7 @@ static int tcc_get_dwarf_info(TCCState *s1, Sym *s)
retval = debug_type; retval = debug_type;
t = s; t = s;
for (;;) { for (;;) {
type = t->type.t & ~(VT_STORAGE | VT_CONSTANT | VT_VOLATILE); type = t->type.t & ~(VT_STORAGE | VT_CONSTANT | VT_VOLATILE) | VT_VLA;
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) {