diff options
Diffstat (limited to 'tinycc/tccdbg.c')
| -rw-r--r-- | tinycc/tccdbg.c | 2176 |
1 files changed, 0 insertions, 2176 deletions
diff --git a/tinycc/tccdbg.c b/tinycc/tccdbg.c deleted file mode 100644 index 18c2cb1..0000000 --- a/tinycc/tccdbg.c +++ /dev/null @@ -1,2176 +0,0 @@ -/* - * TCC - Tiny C Compiler - * - * Copyright (c) 2001-2004 Fabrice Bellard - * - * This library is free software; you can redistribute it and/or - * modify it under the terms of the GNU Lesser General Public - * License as published by the Free Software Foundation; either - * version 2 of the License, or (at your option) any later version. - * - * This library is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU - * Lesser General Public License for more details. - * - * You should have received a copy of the GNU Lesser General Public - * License along with this library; if not, write to the Free Software - * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - */ - -#include "tcc.h" - -/* stab debug support */ - -static const struct { - int type; - int size; - int encoding; - const char *name; -} default_debug[] = { - { VT_INT, 4, DW_ATE_signed, "int:t1=r1;-2147483648;2147483647;" }, - { VT_BYTE, 1, DW_ATE_signed_char, "char:t2=r2;0;127;" }, -#if LONG_SIZE == 4 - { VT_LONG | VT_INT, 4, DW_ATE_signed, "long int:t3=r3;-2147483648;2147483647;" }, -#else - { VT_LLONG | VT_LONG, 8, DW_ATE_signed, "long int:t3=r3;-9223372036854775808;9223372036854775807;" }, -#endif - { VT_INT | VT_UNSIGNED, 4, DW_ATE_unsigned, "unsigned int:t4=r4;0;037777777777;" }, -#if LONG_SIZE == 4 - { VT_LONG | VT_INT | VT_UNSIGNED, 4, DW_ATE_unsigned, "long unsigned int:t5=r5;0;037777777777;" }, -#else - /* use octal instead of -1 so size_t works (-gstabs+ in gcc) */ - { VT_LLONG | VT_LONG | VT_UNSIGNED, 8, DW_ATE_unsigned, "long unsigned int:t5=r5;0;01777777777777777777777;" }, -#endif - { VT_QLONG, 16, DW_ATE_signed, "__int128:t6=r6;0;-1;" }, - { VT_QLONG | VT_UNSIGNED, 16, DW_ATE_unsigned, "__int128 unsigned:t7=r7;0;-1;" }, - { VT_LLONG, 8, DW_ATE_signed, "long long int:t8=r8;-9223372036854775808;9223372036854775807;" }, - { VT_LLONG | VT_UNSIGNED, 8, DW_ATE_unsigned, "long long unsigned int:t9=r9;0;01777777777777777777777;" }, - { VT_SHORT, 2, DW_ATE_signed, "short int:t10=r10;-32768;32767;" }, - { VT_SHORT | VT_UNSIGNED, 2, DW_ATE_unsigned, "short unsigned int:t11=r11;0;65535;" }, - { VT_BYTE | VT_DEFSIGN, 1, DW_ATE_signed_char, "signed char:t12=r12;-128;127;" }, - { VT_BYTE | VT_DEFSIGN | VT_UNSIGNED, 1, DW_ATE_unsigned_char, "unsigned char:t13=r13;0;255;" }, - { VT_FLOAT, 4, DW_ATE_float, "float:t14=r1;4;0;" }, - { VT_DOUBLE, 8, DW_ATE_float, "double:t15=r1;8;0;" }, -#ifdef TCC_USING_DOUBLE_FOR_LDOUBLE - { VT_DOUBLE | VT_LONG, 8, DW_ATE_float, "long double:t16=r1;8;0;" }, -#else - { VT_LDOUBLE, 16, DW_ATE_float, "long double:t16=r1;16;0;" }, -#endif - { -1, -1, -1, "_Float32:t17=r1;4;0;" }, - { -1, -1, -1, "_Float64:t18=r1;8;0;" }, - { -1, -1, -1, "_Float128:t19=r1;16;0;" }, - { -1, -1, -1, "_Float32x:t20=r1;8;0;" }, - { -1, -1, -1, "_Float64x:t21=r1;16;0;" }, - { -1, -1, -1, "_Decimal32:t22=r1;4;0;" }, - { -1, -1, -1, "_Decimal64:t23=r1;8;0;" }, - { -1, -1, -1, "_Decimal128:t24=r1;16;0;" }, - /* if default char is unsigned */ - { VT_BYTE | VT_UNSIGNED, 1, DW_ATE_unsigned_char, "unsigned char:t25=r25;0;255;" }, - /* boolean type */ - { VT_BOOL, 1, DW_ATE_boolean, "bool:t26=r26;0;255;" }, -#if LONG_SIZE == 4 - { VT_VOID, 1, DW_ATE_unsigned_char, "void:t27=27" }, -#else - /* bitfields use these */ - { VT_LONG | VT_INT, 8, DW_ATE_signed, "long int:t27=r27;-9223372036854775808;9223372036854775807;" }, - { VT_LONG | VT_INT | VT_UNSIGNED, 8, DW_ATE_unsigned, "long unsigned int:t28=r28;0;01777777777777777777777;" }, - { VT_VOID, 1, DW_ATE_unsigned_char, "void:t29=29" }, -#endif -}; - -#define N_DEFAULT_DEBUG (sizeof (default_debug) / sizeof (default_debug[0])) - -/* dwarf debug */ - -#define DWARF_LINE_BASE -5 -#define DWARF_LINE_RANGE 14 -#define DWARF_OPCODE_BASE 13 - -#if defined TCC_TARGET_ARM64 -#define DWARF_MIN_INSTR_LEN 4 -#elif defined TCC_TARGET_ARM -#define DWARF_MIN_INSTR_LEN 2 -#else -#define DWARF_MIN_INSTR_LEN 1 -#endif - -#define DWARF_ABBREV_COMPILE_UNIT 1 -#define DWARF_ABBREV_BASE_TYPE 2 -#define DWARF_ABBREV_VARIABLE_EXTERNAL 3 -#define DWARF_ABBREV_VARIABLE_STATIC 4 -#define DWARF_ABBREV_VARIABLE_LOCAL 5 -#define DWARF_ABBREV_FORMAL_PARAMETER 6 -#define DWARF_ABBREV_POINTER 7 -#define DWARF_ABBREV_ARRAY_TYPE 8 -#define DWARF_ABBREV_SUBRANGE_TYPE 9 -#define DWARF_ABBREV_TYPEDEF 10 -#define DWARF_ABBREV_ENUMERATOR_SIGNED 11 -#define DWARF_ABBREV_ENUMERATOR_UNSIGNED 12 -#define DWARF_ABBREV_ENUMERATION_TYPE 13 -#define DWARF_ABBREV_MEMBER 14 -#define DWARF_ABBREV_MEMBER_BF 15 -#define DWARF_ABBREV_STRUCTURE_TYPE 16 -#define DWARF_ABBREV_STRUCTURE_EMPTY_TYPE 17 -#define DWARF_ABBREV_UNION_TYPE 18 -#define DWARF_ABBREV_UNION_EMPTY_TYPE 19 -#define DWARF_ABBREV_SUBPROGRAM_EXTERNAL 20 -#define DWARF_ABBREV_SUBPROGRAM_STATIC 21 -#define DWARF_ABBREV_LEXICAL_BLOCK 22 -#define DWARF_ABBREV_LEXICAL_EMPTY_BLOCK 23 -#define DWARF_ABBREV_SUBROUTINE_TYPE 24 -#define DWARF_ABBREV_SUBROUTINE_EMPTY_TYPE 25 -#define DWARF_ABBREV_FORMAL_PARAMETER2 26 - -/* all entries should have been generated with dwarf_uleb128 except - has_children. All values are currently below 128 so this currently - works. */ -static const unsigned char dwarf_abbrev_init[] = { - DWARF_ABBREV_COMPILE_UNIT, DW_TAG_compile_unit, 1, - DW_AT_producer, DW_FORM_strp, - DW_AT_language, DW_FORM_data1, - DW_AT_name, DW_FORM_line_strp, - DW_AT_comp_dir, DW_FORM_line_strp, - DW_AT_low_pc, DW_FORM_addr, -#if PTR_SIZE == 4 - DW_AT_high_pc, DW_FORM_data4, -#else - DW_AT_high_pc, DW_FORM_data8, -#endif - DW_AT_stmt_list, DW_FORM_sec_offset, - 0, 0, - DWARF_ABBREV_BASE_TYPE, DW_TAG_base_type, 0, - DW_AT_byte_size, DW_FORM_udata, - DW_AT_encoding, DW_FORM_data1, - DW_AT_name, DW_FORM_strp, - 0, 0, - DWARF_ABBREV_VARIABLE_EXTERNAL, DW_TAG_variable, 0, - DW_AT_name, DW_FORM_strp, - DW_AT_decl_file, DW_FORM_udata, - DW_AT_decl_line, DW_FORM_udata, - DW_AT_type, DW_FORM_ref4, - DW_AT_external, DW_FORM_flag, - DW_AT_location, DW_FORM_exprloc, - 0, 0, - DWARF_ABBREV_VARIABLE_STATIC, DW_TAG_variable, 0, - DW_AT_name, DW_FORM_strp, - DW_AT_decl_file, DW_FORM_udata, - DW_AT_decl_line, DW_FORM_udata, - DW_AT_type, DW_FORM_ref4, - DW_AT_location, DW_FORM_exprloc, - 0, 0, - DWARF_ABBREV_VARIABLE_LOCAL, DW_TAG_variable, 0, - DW_AT_name, DW_FORM_strp, - DW_AT_type, DW_FORM_ref4, - DW_AT_location, DW_FORM_exprloc, - 0, 0, - DWARF_ABBREV_FORMAL_PARAMETER, DW_TAG_formal_parameter, 0, - DW_AT_name, DW_FORM_strp, - DW_AT_type, DW_FORM_ref4, - DW_AT_location, DW_FORM_exprloc, - 0, 0, - DWARF_ABBREV_POINTER, DW_TAG_pointer_type, 0, - DW_AT_byte_size, DW_FORM_data1, - DW_AT_type, DW_FORM_ref4, - 0, 0, - DWARF_ABBREV_ARRAY_TYPE, DW_TAG_array_type, 1, - DW_AT_type, DW_FORM_ref4, - DW_AT_sibling, DW_FORM_ref4, - 0, 0, - DWARF_ABBREV_SUBRANGE_TYPE, DW_TAG_subrange_type, 0, - DW_AT_type, DW_FORM_ref4, - DW_AT_upper_bound, DW_FORM_udata, - 0, 0, - DWARF_ABBREV_TYPEDEF, DW_TAG_typedef, 0, - DW_AT_name, DW_FORM_strp, - DW_AT_decl_file, DW_FORM_udata, - DW_AT_decl_line, DW_FORM_udata, - DW_AT_type, DW_FORM_ref4, - 0, 0, - DWARF_ABBREV_ENUMERATOR_SIGNED, DW_TAG_enumerator, 0, - DW_AT_name, DW_FORM_strp, - DW_AT_const_value, DW_FORM_sdata, - 0, 0, - DWARF_ABBREV_ENUMERATOR_UNSIGNED, DW_TAG_enumerator, 0, - DW_AT_name, DW_FORM_strp, - DW_AT_const_value, DW_FORM_udata, - 0, 0, - DWARF_ABBREV_ENUMERATION_TYPE, DW_TAG_enumeration_type, 1, - DW_AT_name, DW_FORM_strp, - DW_AT_encoding, DW_FORM_data1, - DW_AT_byte_size, DW_FORM_data1, - DW_AT_type, DW_FORM_ref4, - DW_AT_decl_file, DW_FORM_udata, - DW_AT_decl_line, DW_FORM_udata, - DW_AT_sibling, DW_FORM_ref4, - 0, 0, - DWARF_ABBREV_MEMBER, DW_TAG_member, 0, - DW_AT_name, DW_FORM_strp, - DW_AT_decl_file, DW_FORM_udata, - DW_AT_decl_line, DW_FORM_udata, - DW_AT_type, DW_FORM_ref4, - DW_AT_data_member_location, DW_FORM_udata, - 0, 0, - DWARF_ABBREV_MEMBER_BF, DW_TAG_member, 0, - DW_AT_name, DW_FORM_strp, - DW_AT_decl_file, DW_FORM_udata, - DW_AT_decl_line, DW_FORM_udata, - DW_AT_type, DW_FORM_ref4, - DW_AT_bit_size, DW_FORM_udata, - DW_AT_data_bit_offset, DW_FORM_udata, - 0, 0, - DWARF_ABBREV_STRUCTURE_TYPE, DW_TAG_structure_type, 1, - DW_AT_name, DW_FORM_strp, - DW_AT_byte_size, DW_FORM_udata, - DW_AT_decl_file, DW_FORM_udata, - DW_AT_decl_line, DW_FORM_udata, - DW_AT_sibling, DW_FORM_ref4, - 0, 0, - DWARF_ABBREV_STRUCTURE_EMPTY_TYPE, DW_TAG_structure_type, 0, - DW_AT_name, DW_FORM_strp, - DW_AT_byte_size, DW_FORM_udata, - DW_AT_decl_file, DW_FORM_udata, - DW_AT_decl_line, DW_FORM_udata, - 0, 0, - DWARF_ABBREV_UNION_TYPE, DW_TAG_union_type, 1, - DW_AT_name, DW_FORM_strp, - DW_AT_byte_size, DW_FORM_udata, - DW_AT_decl_file, DW_FORM_udata, - DW_AT_decl_line, DW_FORM_udata, - DW_AT_sibling, DW_FORM_ref4, - 0, 0, - DWARF_ABBREV_UNION_EMPTY_TYPE, DW_TAG_union_type, 0, - DW_AT_name, DW_FORM_strp, - DW_AT_byte_size, DW_FORM_udata, - DW_AT_decl_file, DW_FORM_udata, - DW_AT_decl_line, DW_FORM_udata, - 0, 0, - DWARF_ABBREV_SUBPROGRAM_EXTERNAL, DW_TAG_subprogram, 1, - DW_AT_external, DW_FORM_flag, - DW_AT_name, DW_FORM_strp, - DW_AT_decl_file, DW_FORM_udata, - DW_AT_decl_line, DW_FORM_udata, - DW_AT_type, DW_FORM_ref4, - DW_AT_low_pc, DW_FORM_addr, -#if PTR_SIZE == 4 - DW_AT_high_pc, DW_FORM_data4, -#else - DW_AT_high_pc, DW_FORM_data8, -#endif - DW_AT_sibling, DW_FORM_ref4, - DW_AT_frame_base, DW_FORM_exprloc, - 0, 0, - DWARF_ABBREV_SUBPROGRAM_STATIC, DW_TAG_subprogram, 1, - DW_AT_name, DW_FORM_strp, - DW_AT_decl_file, DW_FORM_udata, - DW_AT_decl_line, DW_FORM_udata, - DW_AT_type, DW_FORM_ref4, - DW_AT_low_pc, DW_FORM_addr, -#if PTR_SIZE == 4 - DW_AT_high_pc, DW_FORM_data4, -#else - DW_AT_high_pc, DW_FORM_data8, -#endif - DW_AT_sibling, DW_FORM_ref4, - DW_AT_frame_base, DW_FORM_exprloc, - 0, 0, - DWARF_ABBREV_LEXICAL_BLOCK, DW_TAG_lexical_block, 1, - DW_AT_low_pc, DW_FORM_addr, -#if PTR_SIZE == 4 - DW_AT_high_pc, DW_FORM_data4, -#else - DW_AT_high_pc, DW_FORM_data8, -#endif - 0, 0, - DWARF_ABBREV_LEXICAL_EMPTY_BLOCK, DW_TAG_lexical_block, 0, - DW_AT_low_pc, DW_FORM_addr, -#if PTR_SIZE == 4 - DW_AT_high_pc, DW_FORM_data4, -#else - DW_AT_high_pc, DW_FORM_data8, -#endif - 0, 0, - DWARF_ABBREV_SUBROUTINE_TYPE, DW_TAG_subroutine_type, 1, - DW_AT_type, DW_FORM_ref4, - DW_AT_sibling, DW_FORM_ref4, - 0, 0, - DWARF_ABBREV_SUBROUTINE_EMPTY_TYPE, DW_TAG_subroutine_type, 0, - DW_AT_type, DW_FORM_ref4, - 0, 0, - DWARF_ABBREV_FORMAL_PARAMETER2, DW_TAG_formal_parameter, 0, - DW_AT_type, DW_FORM_ref4, - 0, 0, - 0 -}; - -static const unsigned char dwarf_line_opcodes[] = { - 0 ,1 ,1 ,1 ,1 ,0 ,0 ,0 ,1 ,0 ,0 ,1 -}; - -/* ------------------------------------------------------------------------- */ -/* debug state */ - -struct _tccdbg { - - int last_line_num, new_file; - int section_sym; - - int debug_next_type; - - struct _debug_hash { - int debug_type; - Sym *type; - } *debug_hash; - - struct _debug_anon_hash { - Sym *type; - int n_debug_type; - int *debug_type; - } *debug_anon_hash; - - int n_debug_hash; - int n_debug_anon_hash; - - struct _debug_info { - int start; - int end; - int n_sym; - struct debug_sym { - int type; - unsigned long value; - char *str; - Section *sec; - int sym_index; - int info; - int file; - int line; - } *sym; - struct _debug_info *child, *next, *last, *parent; - } *debug_info, *debug_info_root; - - struct { - int info; - int abbrev; - int line; - int str; - int line_str; - } dwarf_sym; - - struct { - int start; - int dir_size; - char **dir_table; - int filename_size; - struct dwarf_filename_struct { - int dir_entry; - char *name; - } *filename_table; - int line_size; - int line_max_size; - unsigned char *line_data; - int cur_file; - int last_file; - int last_pc; - int last_line; - } dwarf_line; - - struct { - int start; - Sym *func; - int line; - int base_type_used[N_DEFAULT_DEBUG]; - } dwarf_info; - - /* test coverage */ - struct { - unsigned long offset; - unsigned long last_file_name; - unsigned long last_func_name; - int ind; - int line; - } tcov_data; - -}; - -#define last_line_num s1->dState->last_line_num -#define new_file s1->dState->new_file -#define section_sym s1->dState->section_sym -#define debug_next_type s1->dState->debug_next_type -#define debug_hash s1->dState->debug_hash -#define debug_anon_hash s1->dState->debug_anon_hash -#define n_debug_hash s1->dState->n_debug_hash -#define n_debug_anon_hash s1->dState->n_debug_anon_hash -#define debug_info s1->dState->debug_info -#define debug_info_root s1->dState->debug_info_root -#define dwarf_sym s1->dState->dwarf_sym -#define dwarf_line s1->dState->dwarf_line -#define dwarf_info s1->dState->dwarf_info -#define tcov_data s1->dState->tcov_data - -/* ------------------------------------------------------------------------- */ -static void put_stabs(TCCState *s1, const char *str, int type, int other, - int desc, unsigned long value); - -ST_FUNC void tcc_debug_new(TCCState *s1) -{ - int shf = 0; - if (!s1->dState) - s1->dState = tcc_mallocz(sizeof *s1->dState); -#ifdef CONFIG_TCC_BACKTRACE - /* include stab info with standalone backtrace support */ - if (s1->do_backtrace - && (s1->output_type & (TCC_OUTPUT_EXE | TCC_OUTPUT_DLL))) - shf = SHF_ALLOC | SHF_WRITE; // SHF_WRITE needed for musl/SELINUX -#endif - if (s1->dwarf) { - s1->dwlo = s1->nb_sections; - dwarf_info_section = - new_section(s1, ".debug_info", SHT_PROGBITS, shf); - dwarf_abbrev_section = - new_section(s1, ".debug_abbrev", SHT_PROGBITS, shf); - dwarf_line_section = - new_section(s1, ".debug_line", SHT_PROGBITS, shf); - dwarf_aranges_section = - new_section(s1, ".debug_aranges", SHT_PROGBITS, shf); - shf |= SHF_MERGE | SHF_STRINGS; - dwarf_str_section = - new_section(s1, ".debug_str", SHT_PROGBITS, shf); - dwarf_str_section->sh_entsize = 1; - dwarf_info_section->sh_addralign = - dwarf_abbrev_section->sh_addralign = - dwarf_line_section->sh_addralign = - dwarf_aranges_section->sh_addralign = - dwarf_str_section->sh_addralign = 1; - if (s1->dwarf >= 5) { - dwarf_line_str_section = - new_section(s1, ".debug_line_str", SHT_PROGBITS, shf); - dwarf_line_str_section->sh_entsize = 1; - dwarf_line_str_section->sh_addralign = 1; - } - s1->dwhi = s1->nb_sections; - } - else - { - stab_section = new_section(s1, ".stab", SHT_PROGBITS, shf); - stab_section->sh_entsize = sizeof(Stab_Sym); - stab_section->sh_addralign = sizeof ((Stab_Sym*)0)->n_value; - stab_section->link = new_section(s1, ".stabstr", SHT_STRTAB, shf); - /* put first entry */ - put_stabs(s1, "", 0, 0, 0, 0); - } -} - -/* put stab debug information */ -static void put_stabs(TCCState *s1, const char *str, int type, int other, int desc, - unsigned long value) -{ - Stab_Sym *sym; - - unsigned offset; - if (type == N_SLINE - && (offset = stab_section->data_offset) - && (sym = (Stab_Sym*)(stab_section->data + offset) - 1) - && sym->n_type == type - && sym->n_value == value) { - /* just update line_number in previous entry */ - sym->n_desc = desc; - return; - } - - sym = section_ptr_add(stab_section, sizeof(Stab_Sym)); - if (str) { - sym->n_strx = put_elf_str(stab_section->link, str); - } else { - sym->n_strx = 0; - } - sym->n_type = type; - sym->n_other = other; - sym->n_desc = desc; - sym->n_value = value; -} - -static void put_stabs_r(TCCState *s1, const char *str, int type, int other, int desc, - unsigned long value, Section *sec, int sym_index) -{ - put_elf_reloc(symtab_section, stab_section, - stab_section->data_offset + 8, - sizeof ((Stab_Sym*)0)->n_value == PTR_SIZE ? R_DATA_PTR : R_DATA_32, - sym_index); - put_stabs(s1, str, type, other, desc, value); -} - -static void put_stabn(TCCState *s1, int type, int other, int desc, int value) -{ - put_stabs(s1, NULL, type, other, desc, value); -} - -/* ------------------------------------------------------------------------- */ -#define dwarf_data1(s,data) \ - { unsigned char *p = section_ptr_add((s), 1); *p = (data); } -#define dwarf_data2(s,data) \ - write16le(section_ptr_add((s), 2), (data)) -#define dwarf_data4(s,data) \ - write32le(section_ptr_add((s), 4), (data)) -#define dwarf_data8(s,data) \ - write64le(section_ptr_add((s), 8), (data)) - -static int dwarf_get_section_sym(Section *s) -{ - TCCState *s1 = s->s1; - return put_elf_sym(symtab_section, 0, 0, - ELFW(ST_INFO)(STB_LOCAL, STT_SECTION), 0, - s->sh_num, NULL); -} - -static void dwarf_reloc(Section *s, int sym, int rel) -{ - TCCState *s1 = s->s1; - put_elf_reloca(symtab_section, s, s->data_offset, rel, sym, 0); -} - -static void dwarf_string(Section *s, Section *dw, int sym, const char *str) -{ - TCCState *s1 = s->s1; - int offset, len; - char *ptr; - - len = strlen(str) + 1; - offset = dw->data_offset; - ptr = section_ptr_add(dw, len); - memmove(ptr, str, len); - put_elf_reloca(symtab_section, s, s->data_offset, R_DATA_32DW, sym, - PTR_SIZE == 4 ? 0 : offset); - dwarf_data4(s, PTR_SIZE == 4 ? offset : 0); -} - -static void dwarf_strp(Section *s, const char *str) -{ - TCCState *s1 = s->s1; - dwarf_string(s, dwarf_str_section, dwarf_sym.str, str); -} - -static void dwarf_line_strp(Section *s, const char *str) -{ - TCCState *s1 = s->s1; - dwarf_string(s, dwarf_line_str_section, dwarf_sym.line_str, str); -} - -static void dwarf_line_op(TCCState *s1, unsigned char op) -{ - if (dwarf_line.line_size >= dwarf_line.line_max_size) { - dwarf_line.line_max_size += 1024; - dwarf_line.line_data = - (unsigned char *)tcc_realloc(dwarf_line.line_data, - dwarf_line.line_max_size); - } - dwarf_line.line_data[dwarf_line.line_size++] = op; -} - -static void dwarf_file(TCCState *s1) -{ - int i, j; - char *filename; - int index_offset = s1->dwarf < 5; - - if (!strcmp(file->filename, "<command line>")) { - dwarf_line.cur_file = 1; - return; - } - filename = strrchr(file->filename, '/'); - if (filename == NULL) { - for (i = 1; i < dwarf_line.filename_size; i++) - if (dwarf_line.filename_table[i].dir_entry == 0 && - strcmp(dwarf_line.filename_table[i].name, - file->filename) == 0) { - dwarf_line.cur_file = i + index_offset; - return; - } - i = -index_offset; - filename = file->filename; - } - else { - char *undo = filename; - char *dir = file->filename; - - *filename++ = '\0'; - for (i = 0; i < dwarf_line.dir_size; i++) - if (strcmp(dwarf_line.dir_table[i], dir) == 0) { - for (j = 1; j < dwarf_line.filename_size; j++) - if (dwarf_line.filename_table[j].dir_entry - index_offset - == i && - strcmp(dwarf_line.filename_table[j].name, - filename) == 0) { - *undo = '/'; - dwarf_line.cur_file = j + index_offset; - return; - } - break; - } - if (i == dwarf_line.dir_size) { - dwarf_line.dir_size++; - dwarf_line.dir_table = - (char **) tcc_realloc(dwarf_line.dir_table, - dwarf_line.dir_size * - sizeof (char *)); - dwarf_line.dir_table[i] = tcc_strdup(dir); - } - *undo = '/'; - } - dwarf_line.filename_table = - (struct dwarf_filename_struct *) - tcc_realloc(dwarf_line.filename_table, - (dwarf_line.filename_size + 1) * - sizeof (struct dwarf_filename_struct)); - dwarf_line.filename_table[dwarf_line.filename_size].dir_entry = - i + index_offset; - dwarf_line.filename_table[dwarf_line.filename_size].name = - tcc_strdup(filename); - dwarf_line.cur_file = dwarf_line.filename_size++ + index_offset; - return; -} - -#if 0 -static int dwarf_uleb128_size (unsigned long long value) -{ - int size = 0; - - do { - value >>= 7; - size++; - } while (value != 0); - return size; -} -#endif - -static int dwarf_sleb128_size (long long value) -{ - int size = 0; - long long end = value >> 63; - unsigned char last = end & 0x40; - unsigned char byte; - - do { - byte = value & 0x7f; - value >>= 7; - size++; - } while (value != end || (byte & 0x40) != last); - return size; -} - -static void dwarf_uleb128 (Section *s, unsigned long long value) -{ - do { - unsigned char byte = value & 0x7f; - - value >>= 7; - dwarf_data1(s, byte | (value ? 0x80 : 0)); - } while (value != 0); -} - -static void dwarf_sleb128 (Section *s, long long value) -{ - int more; - long long end = value >> 63; - unsigned char last = end & 0x40; - - do { - unsigned char byte = value & 0x7f; - - value >>= 7; - more = value != end || (byte & 0x40) != last; - dwarf_data1(s, byte | (0x80 * more)); - } while (more); -} - -static void dwarf_uleb128_op (TCCState *s1, unsigned long long value) -{ - do { - unsigned char byte = value & 0x7f; - - value >>= 7; - dwarf_line_op(s1, byte | (value ? 0x80 : 0)); - } while (value != 0); -} - -static void dwarf_sleb128_op (TCCState *s1, long long value) -{ - int more; - long long end = value >> 63; - unsigned char last = end & 0x40; - - do { - unsigned char byte = value & 0x7f; - - value >>= 7; - more = value != end || (byte & 0x40) != last; - dwarf_line_op(s1, byte | (0x80 * more)); - } while (more); -} - -/* start of translation unit info */ -ST_FUNC void tcc_debug_start(TCCState *s1) -{ - int i; - char buf[512]; - char *filename; - - /* an elf symbol of type STT_FILE must be put so that STB_LOCAL - symbols can be safely used */ - filename = file->prev ? file->prev->filename : file->filename; - put_elf_sym(symtab_section, 0, 0, - ELFW(ST_INFO)(STB_LOCAL, STT_FILE), 0, - SHN_ABS, filename); - - if (s1->do_debug) { - - new_file = last_line_num = 0; - debug_next_type = N_DEFAULT_DEBUG; - debug_hash = NULL; - debug_anon_hash = NULL; - n_debug_hash = 0; - n_debug_anon_hash = 0; - - getcwd(buf, sizeof(buf)); -#ifdef _WIN32 - normalize_slashes(buf); -#endif - - if (s1->dwarf) { - int start_abbrev; - unsigned char *ptr; - char *undo; - - /* dwarf_abbrev */ - start_abbrev = dwarf_abbrev_section->data_offset; - ptr = section_ptr_add(dwarf_abbrev_section, sizeof(dwarf_abbrev_init)); - memcpy(ptr, dwarf_abbrev_init, sizeof(dwarf_abbrev_init)); - - if (s1->dwarf < 5) { - while (*ptr) { - ptr += 3; - while (*ptr) { - if (ptr[1] == DW_FORM_line_strp) - ptr[1] = DW_FORM_strp; - if (s1->dwarf < 4) { - /* These are compatable for DW_TAG_compile_unit - DW_AT_stmt_list. */ - if (ptr[1] == DW_FORM_sec_offset) - ptr[1] = DW_FORM_data4; - /* This code uses only size < 0x80 so these are - compatible. */ - if (ptr[1] == DW_FORM_exprloc) - ptr[1] = DW_FORM_block1; - } - ptr += 2; - } - ptr += 2; - } - } - - dwarf_sym.info = dwarf_get_section_sym(dwarf_info_section); - dwarf_sym.abbrev = dwarf_get_section_sym(dwarf_abbrev_section); - dwarf_sym.line = dwarf_get_section_sym(dwarf_line_section); - dwarf_sym.str = dwarf_get_section_sym(dwarf_str_section); - if (tcc_state->dwarf >= 5) - dwarf_sym.line_str = dwarf_get_section_sym(dwarf_line_str_section); - else { - dwarf_line_str_section = dwarf_str_section; - dwarf_sym.line_str = dwarf_sym.str; - } - section_sym = dwarf_get_section_sym(text_section); - - /* dwarf_info */ - dwarf_info.start = dwarf_info_section->data_offset; - dwarf_data4(dwarf_info_section, 0); // size - dwarf_data2(dwarf_info_section, s1->dwarf); // version - if (s1->dwarf >= 5) { - dwarf_data1(dwarf_info_section, DW_UT_compile); // unit type - dwarf_data1(dwarf_info_section, PTR_SIZE); - dwarf_reloc(dwarf_info_section, dwarf_sym.abbrev, R_DATA_32DW); - dwarf_data4(dwarf_info_section, start_abbrev); - } - else { - dwarf_reloc(dwarf_info_section, dwarf_sym.abbrev, R_DATA_32DW); - dwarf_data4(dwarf_info_section, start_abbrev); - dwarf_data1(dwarf_info_section, PTR_SIZE); - } - - dwarf_data1(dwarf_info_section, DWARF_ABBREV_COMPILE_UNIT); - dwarf_strp(dwarf_info_section, "tcc " TCC_VERSION); - dwarf_data1(dwarf_info_section, DW_LANG_C11); - dwarf_line_strp(dwarf_info_section, filename); - dwarf_line_strp(dwarf_info_section, buf); - dwarf_reloc(dwarf_info_section, section_sym, R_DATA_PTR); -#if PTR_SIZE == 4 - dwarf_data4(dwarf_info_section, ind); // low pc - dwarf_data4(dwarf_info_section, 0); // high pc -#else - dwarf_data8(dwarf_info_section, ind); // low pc - dwarf_data8(dwarf_info_section, 0); // high pc -#endif - dwarf_reloc(dwarf_info_section, dwarf_sym.line, R_DATA_32DW); - dwarf_data4(dwarf_info_section, dwarf_line_section->data_offset); // stmt_list - - /* dwarf_line */ - dwarf_line.start = dwarf_line_section->data_offset; - dwarf_data4(dwarf_line_section, 0); // length - dwarf_data2(dwarf_line_section, s1->dwarf); // version - if (s1->dwarf >= 5) { - dwarf_data1(dwarf_line_section, PTR_SIZE); // address size - dwarf_data1(dwarf_line_section, 0); // segment selector - } - dwarf_data4(dwarf_line_section, 0); // prologue Length - dwarf_data1(dwarf_line_section, DWARF_MIN_INSTR_LEN); - if (s1->dwarf >= 4) - dwarf_data1(dwarf_line_section, 1); // maximum ops per instruction - dwarf_data1(dwarf_line_section, 1); // Initial value of 'is_stmt' - dwarf_data1(dwarf_line_section, DWARF_LINE_BASE); - dwarf_data1(dwarf_line_section, DWARF_LINE_RANGE); - dwarf_data1(dwarf_line_section, DWARF_OPCODE_BASE); - ptr = section_ptr_add(dwarf_line_section, sizeof(dwarf_line_opcodes)); - memcpy(ptr, dwarf_line_opcodes, sizeof(dwarf_line_opcodes)); - undo = strrchr(filename, '/'); - if (undo) - *undo = 0; - dwarf_line.dir_size = 1 + (undo != NULL); - dwarf_line.dir_table = (char **) tcc_malloc(sizeof (char *) * - dwarf_line.dir_size); - dwarf_line.dir_table[0] = tcc_strdup(buf); - if (undo) - dwarf_line.dir_table[1] = tcc_strdup(filename); - dwarf_line.filename_size = 2; - dwarf_line.filename_table = - (struct dwarf_filename_struct *) - tcc_malloc(2*sizeof (struct dwarf_filename_struct)); - dwarf_line.filename_table[0].dir_entry = 0; - if (undo) { - dwarf_line.filename_table[0].name = tcc_strdup(undo + 1); - dwarf_line.filename_table[1].dir_entry = 1; - dwarf_line.filename_table[1].name = tcc_strdup(undo + 1); - *undo = '/'; - } - else { - dwarf_line.filename_table[0].name = tcc_strdup(filename); - dwarf_line.filename_table[1].dir_entry = 0; - dwarf_line.filename_table[1].name = tcc_strdup(filename); - } - dwarf_line.line_size = dwarf_line.line_max_size = 0; - dwarf_line.line_data = NULL; - dwarf_line.cur_file = 1; - dwarf_line.last_file = 0; - dwarf_line.last_pc = 0; - dwarf_line.last_line = 1; - dwarf_line_op(s1, 0); // extended - dwarf_uleb128_op(s1, 1 + PTR_SIZE); // extended size - dwarf_line_op(s1, DW_LNE_set_address); - for (i = 0; i < PTR_SIZE; i++) - dwarf_line_op(s1, 0); - memset(&dwarf_info.base_type_used, 0, sizeof(dwarf_info.base_type_used)); - } - else - { - /* file info: full path + filename */ - pstrcat(buf, sizeof(buf), "/"); - section_sym = put_elf_sym(symtab_section, 0, 0, - ELFW(ST_INFO)(STB_LOCAL, STT_SECTION), 0, - text_section->sh_num, NULL); - put_stabs_r(s1, buf, N_SO, 0, 0, - text_section->data_offset, text_section, section_sym); - put_stabs_r(s1, filename, N_SO, 0, 0, - text_section->data_offset, text_section, section_sym); - for (i = 0; i < N_DEFAULT_DEBUG; i++) - put_stabs(s1, default_debug[i].name, N_LSYM, 0, 0, 0); - } - /* we're currently 'including' the <command line> */ - tcc_debug_bincl(s1); - } -} - -/* put end of translation unit info */ -ST_FUNC void tcc_debug_end(TCCState *s1) -{ - if (!s1->do_debug || debug_next_type == 0) - return; - - if (debug_info_root) - tcc_debug_funcend(s1, 0); /* free stuff in case of errors */ - - if (s1->dwarf) { - int i, j; - int start_aranges; - unsigned char *ptr; - int text_size = text_section->data_offset; - - /* dwarf_info */ - for (i = 0; i < n_debug_anon_hash; i++) { - Sym *t = debug_anon_hash[i].type; - int pos = dwarf_info_section->data_offset; - - dwarf_data1(dwarf_info_section, - IS_UNION (t->type.t) ? DWARF_ABBREV_UNION_EMPTY_TYPE - : DWARF_ABBREV_STRUCTURE_EMPTY_TYPE); - dwarf_strp(dwarf_info_section, - (t->v & ~SYM_STRUCT) >= SYM_FIRST_ANOM - ? "" : get_tok_str(t->v & ~SYM_STRUCT, NULL)); - dwarf_uleb128(dwarf_info_section, 0); - dwarf_uleb128(dwarf_info_section, dwarf_line.cur_file); - dwarf_uleb128(dwarf_info_section, file->line_num); - for (j = 0; j < debug_anon_hash[i].n_debug_type; j++) - write32le(dwarf_info_section->data + - debug_anon_hash[i].debug_type[j], - pos - dwarf_info.start); - tcc_free (debug_anon_hash[i].debug_type); - } - tcc_free (debug_anon_hash); - dwarf_data1(dwarf_info_section, 0); - ptr = dwarf_info_section->data + dwarf_info.start; - write32le(ptr, dwarf_info_section->data_offset - dwarf_info.start - 4); - write32le(ptr + 25 + (s1->dwarf >= 5) + PTR_SIZE, text_size); - - /* dwarf_aranges */ - start_aranges = dwarf_aranges_section->data_offset; - dwarf_data4(dwarf_aranges_section, 0); // size - dwarf_data2(dwarf_aranges_section, 2); // version - dwarf_reloc(dwarf_aranges_section, dwarf_sym.info, R_DATA_32DW); - dwarf_data4(dwarf_aranges_section, 0); // dwarf_info -#if PTR_SIZE == 4 - dwarf_data1(dwarf_aranges_section, 4); // address size -#else - dwarf_data1(dwarf_aranges_section, 8); // address size -#endif - dwarf_data1(dwarf_aranges_section, 0); // segment selector size - dwarf_data4(dwarf_aranges_section, 0); // padding - dwarf_reloc(dwarf_aranges_section, section_sym, R_DATA_PTR); -#if PTR_SIZE == 4 - dwarf_data4(dwarf_aranges_section, 0); // Begin - dwarf_data4(dwarf_aranges_section, text_size); // End - dwarf_data4(dwarf_aranges_section, 0); // End list - dwarf_data4(dwarf_aranges_section, 0); // End list -#else - dwarf_data8(dwarf_aranges_section, 0); // Begin - dwarf_data8(dwarf_aranges_section, text_size); // End - dwarf_data8(dwarf_aranges_section, 0); // End list - dwarf_data8(dwarf_aranges_section, 0); // End list -#endif - ptr = dwarf_aranges_section->data + start_aranges; - write32le(ptr, dwarf_aranges_section->data_offset - start_aranges - 4); - - /* dwarf_line */ - if (s1->dwarf >= 5) { - dwarf_data1(dwarf_line_section, 1); /* col */ - dwarf_uleb128(dwarf_line_section, DW_LNCT_path); - dwarf_uleb128(dwarf_line_section, DW_FORM_line_strp); - dwarf_uleb128(dwarf_line_section, dwarf_line.dir_size); - for (i = 0; i < dwarf_line.dir_size; i++) - dwarf_line_strp(dwarf_line_section, dwarf_line.dir_table[i]); - dwarf_data1(dwarf_line_section, 2); /* col */ - dwarf_uleb128(dwarf_line_section, DW_LNCT_path); - dwarf_uleb128(dwarf_line_section, DW_FORM_line_strp); - dwarf_uleb128(dwarf_line_section, DW_LNCT_directory_index); - dwarf_uleb128(dwarf_line_section, DW_FORM_udata); - dwarf_uleb128(dwarf_line_section, dwarf_line.filename_size); - for (i = 0; i < dwarf_line.filename_size; i++) { - dwarf_line_strp(dwarf_line_section, - dwarf_line.filename_table[i].name); - dwarf_uleb128(dwarf_line_section, - dwarf_line.filename_table[i].dir_entry); - } - } - else { - int len; - - for (i = 0; i < dwarf_line.dir_size; i++) { - len = strlen(dwarf_line.dir_table[i]) + 1; - ptr = section_ptr_add(dwarf_line_section, len); - memmove(ptr, dwarf_line.dir_table[i], len); - } - dwarf_data1(dwarf_line_section, 0); /* end dir */ - for (i = 0; i < dwarf_line.filename_size; i++) { - len = strlen(dwarf_line.filename_table[i].name) + 1; - ptr = section_ptr_add(dwarf_line_section, len); - memmove(ptr, dwarf_line.filename_table[i].name, len); - dwarf_uleb128(dwarf_line_section, - dwarf_line.filename_table[i].dir_entry); - dwarf_uleb128(dwarf_line_section, 0); /* time */ - dwarf_uleb128(dwarf_line_section, 0); /* size */ - } - dwarf_data1(dwarf_line_section, 0); /* end file */ - } - for (i = 0; i < dwarf_line.dir_size; i++) - tcc_free(dwarf_line.dir_table[i]); - tcc_free(dwarf_line.dir_table); - for (i = 0; i < dwarf_line.filename_size; i++) - tcc_free(dwarf_line.filename_table[i].name); - tcc_free(dwarf_line.filename_table); - - dwarf_line_op(s1, 0); // extended - dwarf_uleb128_op(s1, 1); // extended size - dwarf_line_op(s1, DW_LNE_end_sequence); - i = (s1->dwarf >= 5) * 2; - write32le(&dwarf_line_section->data[dwarf_line.start + 6 + i], - dwarf_line_section->data_offset - dwarf_line.start - (10 + i)); - section_ptr_add(dwarf_line_section, 3); - dwarf_reloc(dwarf_line_section, section_sym, R_DATA_PTR); - ptr = section_ptr_add(dwarf_line_section, dwarf_line.line_size - 3); - memmove(ptr - 3, dwarf_line.line_data, dwarf_line.line_size); - tcc_free(dwarf_line.line_data); - write32le(dwarf_line_section->data + dwarf_line.start, - dwarf_line_section->data_offset - dwarf_line.start - 4); - } - else - { - put_stabs_r(s1, NULL, N_SO, 0, 0, - text_section->data_offset, text_section, section_sym); - } - tcc_free(debug_hash); - debug_next_type = 0; -} - -static BufferedFile* put_new_file(TCCState *s1) -{ - BufferedFile *f = file; - /* use upper file if from inline ":asm:" */ - if (f->filename[0] == ':') - f = f->prev; - if (f && new_file) { - new_file = last_line_num = 0; - if (s1->dwarf) - dwarf_file(s1); - else - put_stabs_r(s1, f->filename, N_SOL, 0, 0, ind, text_section, section_sym); - } - return f; -} - -/* put alternative filename */ -ST_FUNC void tcc_debug_putfile(TCCState *s1, const char *filename) -{ - if (0 == strcmp(file->filename, filename)) - return; - pstrcpy(file->filename, sizeof(file->filename), filename); - if (!s1->do_debug) - return; - if (s1->dwarf) - dwarf_file(s1); - new_file = 1; -} - -/* begin of #include */ -ST_FUNC void tcc_debug_bincl(TCCState *s1) -{ - if (!s1->do_debug) - return; - if (s1->dwarf) - dwarf_file(s1); - else - put_stabs(s1, file->filename, N_BINCL, 0, 0, 0); - new_file = 1; -} - -/* end of #include */ -ST_FUNC void tcc_debug_eincl(TCCState *s1) -{ - if (!s1->do_debug) - return; - if (s1->dwarf) - dwarf_file(s1); - else - put_stabn(s1, N_EINCL, 0, 0, 0); - new_file = 1; -} - -/* generate line number info */ -ST_FUNC void tcc_debug_line(TCCState *s1) -{ - BufferedFile *f; - - if (!s1->do_debug) - return; - if (cur_text_section != text_section) - return; - f = put_new_file(s1); - if (!f) - return; - if (last_line_num == f->line_num) - return; - last_line_num = f->line_num; - - if (s1->dwarf) { - int len_pc = (ind - dwarf_line.last_pc) / DWARF_MIN_INSTR_LEN; - int len_line = f->line_num - dwarf_line.last_line; - int n = len_pc * DWARF_LINE_RANGE + len_line + DWARF_OPCODE_BASE - DWARF_LINE_BASE; - - if (dwarf_line.cur_file != dwarf_line.last_file) { - dwarf_line.last_file = dwarf_line.cur_file; - dwarf_line_op(s1, DW_LNS_set_file); - dwarf_uleb128_op(s1, dwarf_line.cur_file); - } - if (len_pc && - len_line >= DWARF_LINE_BASE && len_line <= (DWARF_OPCODE_BASE + DWARF_LINE_BASE) && - n >= DWARF_OPCODE_BASE && n <= 255) - dwarf_line_op(s1, n); - else { - if (len_pc) { - n = len_pc * DWARF_LINE_RANGE + 0 + DWARF_OPCODE_BASE - DWARF_LINE_BASE; - if (n >= DWARF_OPCODE_BASE && n <= 255) - dwarf_line_op(s1, n); - else { - dwarf_line_op(s1, DW_LNS_advance_pc); - dwarf_uleb128_op(s1, len_pc); - } - } - if (len_line) { - n = 0 * DWARF_LINE_RANGE + len_line + DWARF_OPCODE_BASE - DWARF_LINE_BASE; - if (len_line >= DWARF_LINE_BASE && len_line <= (DWARF_OPCODE_BASE + DWARF_LINE_BASE) && - n >= DWARF_OPCODE_BASE && n <= 255) - dwarf_line_op(s1, n); - else { - dwarf_line_op(s1, DW_LNS_advance_line); - dwarf_sleb128_op(s1, len_line); - } - } - } - dwarf_line.last_pc = ind; - dwarf_line.last_line = f->line_num; - } - else - { - if (func_ind != -1) { - put_stabn(s1, N_SLINE, 0, f->line_num, ind - func_ind); - } else { - /* from tcc_assemble */ - put_stabs_r(s1, NULL, N_SLINE, 0, f->line_num, ind, text_section, section_sym); - } - } -} - -static void tcc_debug_stabs (TCCState *s1, const char *str, int type, unsigned long value, - Section *sec, int sym_index, int info) -{ - struct debug_sym *s; - - if (debug_info) { - debug_info->sym = - (struct debug_sym *)tcc_realloc (debug_info->sym, - sizeof(struct debug_sym) * - (debug_info->n_sym + 1)); - s = debug_info->sym + debug_info->n_sym++; - s->type = type; - s->value = value; - s->str = tcc_strdup(str); - s->sec = sec; - s->sym_index = sym_index; - s->info = info; - s->file = dwarf_line.cur_file; - s->line = file->line_num; - } - else if (sec) - put_stabs_r (s1, str, type, 0, 0, value, sec, sym_index); - else - put_stabs (s1, str, type, 0, 0, value); -} - -ST_FUNC void tcc_debug_stabn(TCCState *s1, int type, int value) -{ - if (!s1->do_debug) - return; - if (type == N_LBRAC) { - struct _debug_info *info = - (struct _debug_info *) tcc_mallocz(sizeof (*info)); - - info->start = value; - info->parent = debug_info; - if (debug_info) { - if (debug_info->child) { - if (debug_info->child->last) - debug_info->child->last->next = info; - else - debug_info->child->next = info; - debug_info->child->last = info; - } - else - debug_info->child = info; - } - else - debug_info_root = info; - debug_info = info; - } - else { - debug_info->end = value; - debug_info = debug_info->parent; - } -} - -static int tcc_debug_find(TCCState *s1, Sym *t, int dwarf) -{ - int i; - - if (!debug_info && dwarf && - (t->type.t & VT_BTYPE) == VT_STRUCT && t->c == -1) { - for (i = 0; i < n_debug_anon_hash; i++) - if (t == debug_anon_hash[i].type) - return 0; - debug_anon_hash = (struct _debug_anon_hash *) - tcc_realloc (debug_anon_hash, - (n_debug_anon_hash + 1) * sizeof(*debug_anon_hash)); - debug_anon_hash[n_debug_anon_hash].n_debug_type = 0; - debug_anon_hash[n_debug_anon_hash].debug_type = NULL; - debug_anon_hash[n_debug_anon_hash++].type = t; - return 0; - } - for (i = 0; i < n_debug_hash; i++) - if (t == debug_hash[i].type) - return debug_hash[i].debug_type; - return -1; -} - -static int tcc_get_dwarf_info(TCCState *s1, Sym *s); - -static void tcc_debug_check_anon(TCCState *s1, Sym *t, int debug_type) -{ - int i; - - if (!debug_info && (t->type.t & VT_BTYPE) == VT_STRUCT && t->type.ref->c == -1) - for (i = 0; i < n_debug_anon_hash; i++) - if (t->type.ref == debug_anon_hash[i].type) { - debug_anon_hash[i].debug_type = - tcc_realloc(debug_anon_hash[i].debug_type, - (debug_anon_hash[i].n_debug_type + 1) * sizeof(int)); - debug_anon_hash[i].debug_type[debug_anon_hash[i].n_debug_type++] = - debug_type; - } -} - -ST_FUNC void tcc_debug_fix_anon(TCCState *s1, CType *t) -{ - int i, j, debug_type; - - if (!s1->do_debug || !s1->dwarf || debug_info) - return; - if ((t->t & VT_BTYPE) == VT_STRUCT && t->ref->c != -1) - for (i = 0; i < n_debug_anon_hash; i++) - if (t->ref == debug_anon_hash[i].type) { - Sym sym = {0}; sym .type = *t ; - - /* Trick to not hash this struct */ - debug_info = (struct _debug_info *) t; - debug_type = tcc_get_dwarf_info(s1, &sym); - debug_info = NULL; - for (j = 0; j < debug_anon_hash[i].n_debug_type; j++) - write32le(dwarf_info_section->data + - debug_anon_hash[i].debug_type[j], - debug_type - dwarf_info.start); - tcc_free(debug_anon_hash[i].debug_type); - n_debug_anon_hash--; - for (; i < n_debug_anon_hash; i++) - debug_anon_hash[i] = debug_anon_hash[i + 1]; - } -} - -static int tcc_debug_add(TCCState *s1, Sym *t, int dwarf) -{ - int offset = dwarf ? dwarf_info_section->data_offset : ++debug_next_type; - debug_hash = (struct _debug_hash *) - tcc_realloc (debug_hash, - (n_debug_hash + 1) * sizeof(*debug_hash)); - debug_hash[n_debug_hash].debug_type = offset; - debug_hash[n_debug_hash++].type = t; - return offset; -} - -static void tcc_debug_remove(TCCState *s1, Sym *t) -{ - int i; - - for (i = 0; i < n_debug_hash; i++) - if (t == debug_hash[i].type) { - n_debug_hash--; - for (; i < n_debug_hash; i++) - debug_hash[i] = debug_hash[i+1]; - } -} - -#define STRUCT_NODEBUG(s) \ - (s->a.nodebug || \ - ((s->v & ~SYM_FIELD) >= SYM_FIRST_ANOM && \ - ((s->type.t & VT_BTYPE) == VT_BYTE || \ - (s->type.t & VT_BTYPE) == VT_BOOL || \ - (s->type.t & VT_BTYPE) == VT_SHORT || \ - (s->type.t & VT_BTYPE) == VT_INT || \ - (s->type.t & VT_BTYPE) == VT_LLONG))) - -static void tcc_get_debug_info(TCCState *s1, Sym *s, CString *result) -{ - int type; - int n = 0; - int debug_type = -1; - Sym *t = s; - CString str; - - for (;;) { - type = t->type.t & ~(VT_STORAGE | VT_CONSTANT | VT_VOLATILE | VT_VLA); - if ((type & VT_BTYPE) != VT_BYTE) - type &= ~VT_DEFSIGN; - if (type == VT_PTR || type == (VT_PTR | VT_ARRAY)) - n++, t = t->type.ref; - else - break; - } - if ((type & VT_BTYPE) == VT_STRUCT) { - Sym *e = t; - - t = t->type.ref; - debug_type = tcc_debug_find(s1, t, 0); - if (debug_type == -1) { - debug_type = tcc_debug_add(s1, t, 0); - cstr_new (&str); - cstr_printf (&str, "%s:T%d=%c%d", - (t->v & ~SYM_STRUCT) >= SYM_FIRST_ANOM - ? "" : get_tok_str(t->v & ~SYM_STRUCT, NULL), - debug_type, - IS_UNION (t->type.t) ? 'u' : 's', - t->c); - while (t->next) { - int pos, size, align; - - t = t->next; - if (STRUCT_NODEBUG(t)) - continue; - cstr_printf (&str, "%s:", - get_tok_str(t->v & ~SYM_FIELD, NULL)); - 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); - } - else { - pos = t->c * 8; - size = type_size(&t->type, &align) * 8; - } - cstr_printf (&str, ",%d,%d;", pos, size); - } - cstr_printf (&str, ";"); - tcc_debug_stabs(s1, str.data, N_LSYM, 0, NULL, 0, 0); - cstr_free (&str); - if (debug_info) - tcc_debug_remove(s1, e); - } - } - else if (IS_ENUM(type)) { - Sym *e = t = t->type.ref; - - debug_type = tcc_debug_find(s1, t, 0); - if (debug_type == -1) { - debug_type = tcc_debug_add(s1, t, 0); - cstr_new (&str); - cstr_printf (&str, "%s:T%d=e", - (t->v & ~SYM_STRUCT) >= SYM_FIRST_ANOM - ? "" : get_tok_str(t->v & ~SYM_STRUCT, NULL), - debug_type); - while (t->next) { - t = t->next; - 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 ? "%u," : "%d,", - (int)t->enum_val); - } - cstr_printf (&str, ";"); - tcc_debug_stabs(s1, str.data, N_LSYM, 0, NULL, 0, 0); - cstr_free (&str); - if (debug_info) - tcc_debug_remove(s1, e); - } - } - else if ((type & VT_BTYPE) != VT_FUNC) { - type &= ~VT_STRUCT_MASK; - for (debug_type = 1; debug_type <= N_DEFAULT_DEBUG; debug_type++) - if (default_debug[debug_type - 1].type == type) - break; - if (debug_type > N_DEFAULT_DEBUG) - return; - } - if (n > 0) - cstr_printf (result, "%d=", ++debug_next_type); - t = s; - for (;;) { - type = t->type.t & ~(VT_STORAGE | VT_CONSTANT | VT_VOLATILE | VT_VLA); - if ((type & VT_BTYPE) != VT_BYTE) - type &= ~VT_DEFSIGN; - if (type == VT_PTR) - cstr_printf (result, "%d=*", ++debug_next_type); - else if (type == (VT_PTR | VT_ARRAY)) - cstr_printf (result, "%d=ar1;0;%d;", - ++debug_next_type, t->type.ref->c - 1); - else if (type == VT_FUNC) { - cstr_printf (result, "%d=f", ++debug_next_type); - tcc_get_debug_info (s1, t->type.ref, result); - return; - } - else - break; - t = t->type.ref; - } - cstr_printf (result, "%d", debug_type); -} - -static int tcc_get_dwarf_info(TCCState *s1, Sym *s) -{ - int type; - int debug_type = -1; - Sym *e, *t = s; - int i; - int last_pos = -1; - int retval; - - if (new_file) - put_new_file(s1); - for (;;) { - type = t->type.t & ~(VT_STORAGE | VT_CONSTANT | VT_VOLATILE | VT_VLA); - if ((type & VT_BTYPE) != VT_BYTE) - type &= ~VT_DEFSIGN; - if (type == VT_PTR || type == (VT_PTR | VT_ARRAY)) - t = t->type.ref; - else - break; - } - if ((type & VT_BTYPE) == VT_STRUCT) { - t = t->type.ref; - debug_type = tcc_debug_find(s1, t, 1); - if (debug_type == -1) { - int pos_sib = 0, i, *pos_type; - - debug_type = tcc_debug_add(s1, t, 1); - e = t; - i = 0; - while (e->next) { - e = e->next; - if (STRUCT_NODEBUG(e)) - continue; - i++; - } - pos_type = (int *) tcc_malloc(i * sizeof(int)); - dwarf_data1(dwarf_info_section, - IS_UNION (t->type.t) - ? t->next ? DWARF_ABBREV_UNION_TYPE - : DWARF_ABBREV_UNION_EMPTY_TYPE - : t->next ? DWARF_ABBREV_STRUCTURE_TYPE - : DWARF_ABBREV_STRUCTURE_EMPTY_TYPE); - dwarf_strp(dwarf_info_section, - (t->v & ~SYM_STRUCT) >= SYM_FIRST_ANOM - ? "" : get_tok_str(t->v & ~SYM_STRUCT, NULL)); - dwarf_uleb128(dwarf_info_section, t->c); - dwarf_uleb128(dwarf_info_section, dwarf_line.cur_file); - dwarf_uleb128(dwarf_info_section, file->line_num); - if (t->next) { - pos_sib = dwarf_info_section->data_offset; - dwarf_data4(dwarf_info_section, 0); - } - e = t; - i = 0; - while (e->next) { - e = e->next; - if (STRUCT_NODEBUG(e)) - continue; - dwarf_data1(dwarf_info_section, - e->type.t & VT_BITFIELD ? DWARF_ABBREV_MEMBER_BF - : DWARF_ABBREV_MEMBER); - dwarf_strp(dwarf_info_section, - get_tok_str(e->v & ~SYM_FIELD, NULL)); - dwarf_uleb128(dwarf_info_section, dwarf_line.cur_file); - dwarf_uleb128(dwarf_info_section, file->line_num); - pos_type[i++] = dwarf_info_section->data_offset; - dwarf_data4(dwarf_info_section, 0); - if (e->type.t & VT_BITFIELD) { - int pos = e->c * 8 + BIT_POS(e->type.t); - int size = BIT_SIZE(e->type.t); - - dwarf_uleb128(dwarf_info_section, size); - dwarf_uleb128(dwarf_info_section, pos); - } - else - dwarf_uleb128(dwarf_info_section, e->c); - } - if (t->next) { - dwarf_data1(dwarf_info_section, 0); - write32le(dwarf_info_section->data + pos_sib, - dwarf_info_section->data_offset - dwarf_info.start); - } - e = t; - i = 0; - while (e->next) { - e = e->next; - if (STRUCT_NODEBUG(e)) - continue; - type = tcc_get_dwarf_info(s1, e); - tcc_debug_check_anon(s1, e, pos_type[i]); - write32le(dwarf_info_section->data + pos_type[i++], - type - dwarf_info.start); - } - tcc_free(pos_type); - if (debug_info) - tcc_debug_remove(s1, t); - } - } - else if (IS_ENUM(type)) { - t = t->type.ref; - debug_type = tcc_debug_find(s1, t, 1); - if (debug_type == -1) { - int pos_sib, pos_type; - Sym sym = {0}; sym.type.t = VT_INT | (type & VT_UNSIGNED); - - pos_type = tcc_get_dwarf_info(s1, &sym); - debug_type = tcc_debug_add(s1, t, 1); - dwarf_data1(dwarf_info_section, DWARF_ABBREV_ENUMERATION_TYPE); - dwarf_strp(dwarf_info_section, - (t->v & ~SYM_STRUCT) >= SYM_FIRST_ANOM - ? "" : get_tok_str(t->v & ~SYM_STRUCT, NULL)); - dwarf_data1(dwarf_info_section, - type & VT_UNSIGNED ? DW_ATE_unsigned : DW_ATE_signed ); - dwarf_data1(dwarf_info_section, 4); - dwarf_data4(dwarf_info_section, pos_type - dwarf_info.start); - dwarf_uleb128(dwarf_info_section, dwarf_line.cur_file); - dwarf_uleb128(dwarf_info_section, file->line_num); - pos_sib = dwarf_info_section->data_offset; - dwarf_data4(dwarf_info_section, 0); - e = t; - while (e->next) { - e = e->next; - dwarf_data1(dwarf_info_section, - type & VT_UNSIGNED ? DWARF_ABBREV_ENUMERATOR_UNSIGNED - : DWARF_ABBREV_ENUMERATOR_SIGNED); - dwarf_strp(dwarf_info_section, - (e->v & ~SYM_FIELD) >= SYM_FIRST_ANOM - ? "" : get_tok_str(e->v & ~SYM_FIELD, NULL)); - if (type & VT_UNSIGNED) - dwarf_uleb128(dwarf_info_section, e->enum_val); - else - dwarf_sleb128(dwarf_info_section, e->enum_val); - } - dwarf_data1(dwarf_info_section, 0); - write32le(dwarf_info_section->data + pos_sib, - dwarf_info_section->data_offset - dwarf_info.start); - if (debug_info) - tcc_debug_remove(s1, t); - } - } - else if ((type & VT_BTYPE) != VT_FUNC) { - type &= ~VT_STRUCT_MASK; - for (i = 1; i <= N_DEFAULT_DEBUG; i++) - if (default_debug[i - 1].type == type) - break; - if (i > N_DEFAULT_DEBUG) - return 0; - debug_type = dwarf_info.base_type_used[i - 1]; - if (debug_type == 0) { - char name[100]; - - debug_type = dwarf_info_section->data_offset; - dwarf_data1(dwarf_info_section, DWARF_ABBREV_BASE_TYPE); - dwarf_uleb128(dwarf_info_section, default_debug[i - 1].size); - dwarf_data1(dwarf_info_section, default_debug[i - 1].encoding); - strncpy(name, default_debug[i - 1].name, sizeof(name) -1); - *strchr(name, ':') = 0; - dwarf_strp(dwarf_info_section, name); - dwarf_info.base_type_used[i - 1] = debug_type; - } - } - retval = debug_type; - e = NULL; - t = s; - for (;;) { - type = t->type.t & ~(VT_STORAGE | VT_CONSTANT | VT_VOLATILE | VT_VLA); - if ((type & VT_BTYPE) != VT_BYTE) - type &= ~VT_DEFSIGN; - if (type == VT_PTR) { - i = dwarf_info_section->data_offset; - if (retval == debug_type) - retval = i; - dwarf_data1(dwarf_info_section, DWARF_ABBREV_POINTER); - dwarf_data1(dwarf_info_section, PTR_SIZE); - if (last_pos != -1) { - tcc_debug_check_anon(s1, e, last_pos); - write32le(dwarf_info_section->data + last_pos, - i - dwarf_info.start); - } - last_pos = dwarf_info_section->data_offset; - e = t->type.ref; - dwarf_data4(dwarf_info_section, 0); - } - else if (type == (VT_PTR | VT_ARRAY)) { - int sib_pos, sub_type; -#if LONG_SIZE == 4 - Sym sym = {0}; sym.type.t = VT_LONG | VT_INT | VT_UNSIGNED; -#else - Sym sym = {0}; sym.type.t = VT_LLONG | VT_LONG | VT_UNSIGNED; -#endif - - sub_type = tcc_get_dwarf_info(s1, &sym); - i = dwarf_info_section->data_offset; - if (retval == debug_type) - retval = i; - dwarf_data1(dwarf_info_section, DWARF_ABBREV_ARRAY_TYPE); - if (last_pos != -1) { - tcc_debug_check_anon(s1, e, last_pos); - write32le(dwarf_info_section->data + last_pos, - i - dwarf_info.start); - } - last_pos = dwarf_info_section->data_offset; - e = t->type.ref; - dwarf_data4(dwarf_info_section, 0); - sib_pos = dwarf_info_section->data_offset; - dwarf_data4(dwarf_info_section, 0); - for (;;) { - dwarf_data1(dwarf_info_section, DWARF_ABBREV_SUBRANGE_TYPE); - dwarf_data4(dwarf_info_section, sub_type - dwarf_info.start); - dwarf_uleb128(dwarf_info_section, t->type.ref->c - 1); - s = t->type.ref; - type = s->type.t & ~(VT_STORAGE | VT_CONSTANT | VT_VOLATILE); - if (type != (VT_PTR | VT_ARRAY)) - break; - t = s; - } - dwarf_data1(dwarf_info_section, 0); - write32le(dwarf_info_section->data + sib_pos, - dwarf_info_section->data_offset - dwarf_info.start); - } - else if (type == VT_FUNC) { - int sib_pos = 0, *pos_type; - Sym *f; - - i = dwarf_info_section->data_offset; - debug_type = tcc_get_dwarf_info(s1, t->type.ref); - if (retval == debug_type) - retval = i; - dwarf_data1(dwarf_info_section, - t->type.ref->next ? DWARF_ABBREV_SUBROUTINE_TYPE - : DWARF_ABBREV_SUBROUTINE_EMPTY_TYPE); - if (last_pos != -1) { - tcc_debug_check_anon(s1, e, last_pos); - write32le(dwarf_info_section->data + last_pos, - i - dwarf_info.start); - } - last_pos = dwarf_info_section->data_offset; - e = t->type.ref; - dwarf_data4(dwarf_info_section, 0); - if (t->type.ref->next) { - sib_pos = dwarf_info_section->data_offset; - dwarf_data4(dwarf_info_section, 0); - } - f = t->type.ref; - i = 0; - while (f->next) { - f = f->next; - i++; - } - pos_type = (int *) tcc_malloc(i * sizeof(int)); - f = t->type.ref; - i = 0; - while (f->next) { - f = f->next; - dwarf_data1(dwarf_info_section, DWARF_ABBREV_FORMAL_PARAMETER2); - pos_type[i++] = dwarf_info_section->data_offset; - dwarf_data4(dwarf_info_section, 0); - } - if (t->type.ref->next) { - dwarf_data1(dwarf_info_section, 0); - write32le(dwarf_info_section->data + sib_pos, - dwarf_info_section->data_offset - dwarf_info.start); - } - f = t->type.ref; - i = 0; - while (f->next) { - f = f->next; - type = tcc_get_dwarf_info(s1, f); - tcc_debug_check_anon(s1, f, pos_type[i]); - write32le(dwarf_info_section->data + pos_type[i++], - type - dwarf_info.start); - } - tcc_free(pos_type); - } - else { - if (last_pos != -1) { - tcc_debug_check_anon(s1, e, last_pos); - write32le(dwarf_info_section->data + last_pos, - debug_type - dwarf_info.start); - } - break; - } - t = t->type.ref; - } - return retval; -} - -static void tcc_debug_finish (TCCState *s1, struct _debug_info *cur) -{ - while (cur) { - struct _debug_info *next = cur->next; - int i; - - if (s1->dwarf) { - - for (i = cur->n_sym - 1; i >= 0; i--) { - struct debug_sym *s = &cur->sym[i]; - - dwarf_data1(dwarf_info_section, - s->type == N_PSYM - ? DWARF_ABBREV_FORMAL_PARAMETER - : s->type == N_GSYM - ? DWARF_ABBREV_VARIABLE_EXTERNAL - : s->type == N_STSYM - ? DWARF_ABBREV_VARIABLE_STATIC - : DWARF_ABBREV_VARIABLE_LOCAL); - dwarf_strp(dwarf_info_section, s->str); - if (s->type == N_GSYM || s->type == N_STSYM) { - dwarf_uleb128(dwarf_info_section, s->file); - dwarf_uleb128(dwarf_info_section, s->line); - } - dwarf_data4(dwarf_info_section, s->info - dwarf_info.start); - if (s->type == N_GSYM || s->type == N_STSYM) { - /* global/static */ - if (s->type == N_GSYM) - dwarf_data1(dwarf_info_section, 1); - dwarf_data1(dwarf_info_section, PTR_SIZE + 1); - dwarf_data1(dwarf_info_section, DW_OP_addr); - if (s->type == N_STSYM) - dwarf_reloc(dwarf_info_section, section_sym, R_DATA_PTR); -#if PTR_SIZE == 4 - dwarf_data4(dwarf_info_section, s->value); -#else - dwarf_data8(dwarf_info_section, s->value); -#endif - } - else { - /* param/local */ - dwarf_data1(dwarf_info_section, dwarf_sleb128_size(s->value) + 1); - dwarf_data1(dwarf_info_section, DW_OP_fbreg); - dwarf_sleb128(dwarf_info_section, s->value); - } - tcc_free (s->str); - } - tcc_free (cur->sym); - dwarf_data1(dwarf_info_section, - cur->child ? DWARF_ABBREV_LEXICAL_BLOCK - : DWARF_ABBREV_LEXICAL_EMPTY_BLOCK); - dwarf_reloc(dwarf_info_section, section_sym, R_DATA_PTR); -#if PTR_SIZE == 4 - dwarf_data4(dwarf_info_section, func_ind + cur->start); - dwarf_data4(dwarf_info_section, cur->end - cur->start); -#else - dwarf_data8(dwarf_info_section, func_ind + cur->start); - dwarf_data8(dwarf_info_section, cur->end - cur->start); -#endif - tcc_debug_finish (s1, cur->child); - if (cur->child) - dwarf_data1(dwarf_info_section, 0); - } - else - { - for (i = 0; i < cur->n_sym; i++) { - struct debug_sym *s = &cur->sym[i]; - - if (s->sec) - put_stabs_r(s1, s->str, s->type, 0, 0, s->value, - s->sec, s->sym_index); - else - put_stabs(s1, s->str, s->type, 0, 0, s->value); - tcc_free (s->str); - } - tcc_free (cur->sym); - 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; - } -} - -ST_FUNC void tcc_add_debug_info(TCCState *s1, int param, Sym *s, Sym *e) -{ - CString debug_str; - if (!s1->do_debug) - return; - cstr_new (&debug_str); - for (; s != e; s = s->prev) { - if (!s->v || (s->r & VT_VALMASK) != VT_LOCAL) - continue; - if (s1->dwarf) { - tcc_debug_stabs(s1, get_tok_str(s->v, NULL), - param ? N_PSYM : N_LSYM, s->c, NULL, 0, - tcc_get_dwarf_info(s1, s)); - } - else - { - cstr_reset (&debug_str); - cstr_printf (&debug_str, "%s:%s", get_tok_str(s->v, NULL), - param ? "p" : ""); - tcc_get_debug_info(s1, s, &debug_str); - tcc_debug_stabs(s1, debug_str.data, param ? N_PSYM : N_LSYM, - s->c, NULL, 0, 0); - } - } - cstr_free (&debug_str); -} - -/* put function symbol */ -ST_FUNC void tcc_debug_funcstart(TCCState *s1, Sym *sym) -{ - CString debug_str; - BufferedFile *f; - - if (!s1->do_debug) - return; - debug_info_root = NULL; - debug_info = NULL; - tcc_debug_stabn(s1, N_LBRAC, ind - func_ind); - f = put_new_file(s1); - if (!f) - return; - - if (s1->dwarf) { - tcc_debug_line(s1); - dwarf_info.func = sym; - dwarf_info.line = file->line_num; - if (s1->do_backtrace) { - int i, len; - - dwarf_line_op(s1, 0); // extended - dwarf_uleb128_op(s1, strlen(funcname) + 2); - dwarf_line_op(s1, DW_LNE_hi_user - 1); - len = strlen(funcname) + 1; - for (i = 0; i < len; i++) - dwarf_line_op(s1, funcname[i]); - } - } - else - { - cstr_new (&debug_str); - cstr_printf(&debug_str, "%s:%c", funcname, sym->type.t & VT_STATIC ? 'f' : 'F'); - 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); - } -} - -ST_FUNC void tcc_debug_prolog_epilog(TCCState *s1, int value) -{ - if (!s1->do_debug) - return; - if (s1->dwarf) { - dwarf_line_op(s1, value == 0 ? DW_LNS_set_prologue_end - : DW_LNS_set_epilogue_begin); - } -} - -/* put function size */ -ST_FUNC void tcc_debug_funcend(TCCState *s1, int size) -{ - /* lldb does not like function end and next function start at same pc */ - int min_instr_len; - - if (!s1->do_debug) - return; - min_instr_len = dwarf_line.last_pc == ind ? 0 : DWARF_MIN_INSTR_LEN; - ind -= min_instr_len; - tcc_debug_line(s1); - ind += min_instr_len; - tcc_debug_stabn(s1, N_RBRAC, size); - if (s1->dwarf) { - int func_sib = 0; - Sym *sym = dwarf_info.func; - int n_debug_info = tcc_get_dwarf_info(s1, sym->type.ref); - - dwarf_data1(dwarf_info_section, - sym->type.t & VT_STATIC ? DWARF_ABBREV_SUBPROGRAM_STATIC - : DWARF_ABBREV_SUBPROGRAM_EXTERNAL); - if ((sym->type.t & VT_STATIC) == 0) - dwarf_data1(dwarf_info_section, 1); - dwarf_strp(dwarf_info_section, funcname); - dwarf_uleb128(dwarf_info_section, dwarf_line.cur_file); - dwarf_uleb128(dwarf_info_section, dwarf_info.line); - tcc_debug_check_anon(s1, sym->type.ref, dwarf_info_section->data_offset); - dwarf_data4(dwarf_info_section, n_debug_info - dwarf_info.start); - dwarf_reloc(dwarf_info_section, section_sym, R_DATA_PTR); -#if PTR_SIZE == 4 - dwarf_data4(dwarf_info_section, func_ind); // low_pc - dwarf_data4(dwarf_info_section, size); // high_pc -#else - dwarf_data8(dwarf_info_section, func_ind); // low_pc - dwarf_data8(dwarf_info_section, size); // high_pc -#endif - func_sib = dwarf_info_section->data_offset; - dwarf_data4(dwarf_info_section, 0); // sibling - dwarf_data1(dwarf_info_section, 1); -#if defined(TCC_TARGET_I386) - dwarf_data1(dwarf_info_section, DW_OP_reg5); // ebp -#elif defined(TCC_TARGET_X86_64) - dwarf_data1(dwarf_info_section, DW_OP_reg6); // rbp -#elif defined TCC_TARGET_ARM - dwarf_data1(dwarf_info_section, DW_OP_reg13); // sp -#elif defined TCC_TARGET_ARM64 - dwarf_data1(dwarf_info_section, DW_OP_reg29); // reg 29 -#elif defined TCC_TARGET_RISCV64 - dwarf_data1(dwarf_info_section, DW_OP_reg8); // r8(s0) -#else - dwarf_data1(dwarf_info_section, DW_OP_call_frame_cfa); -#endif - tcc_debug_finish (s1, debug_info_root); - dwarf_data1(dwarf_info_section, 0); - write32le(dwarf_info_section->data + func_sib, - dwarf_info_section->data_offset - dwarf_info.start); - } - else - { - tcc_debug_finish (s1, debug_info_root); - } - debug_info_root = 0; -} - - -ST_FUNC void tcc_debug_extern_sym(TCCState *s1, Sym *sym, int sh_num, int sym_bind, int sym_type) -{ - if (!s1->do_debug) - return; - if (sym_type == STT_FUNC || sym->v >= SYM_FIRST_ANOM) - return; - if (s1->dwarf) { - int debug_type; - - debug_type = tcc_get_dwarf_info(s1, sym); - dwarf_data1(dwarf_info_section, - sym_bind == STB_GLOBAL - ? DWARF_ABBREV_VARIABLE_EXTERNAL - : DWARF_ABBREV_VARIABLE_STATIC); - dwarf_strp(dwarf_info_section, get_tok_str(sym->v, NULL)); - dwarf_uleb128(dwarf_info_section, dwarf_line.cur_file); - dwarf_uleb128(dwarf_info_section, file->line_num); - tcc_debug_check_anon(s1, sym, dwarf_info_section->data_offset); - dwarf_data4(dwarf_info_section, debug_type - dwarf_info.start); - if (sym_bind == STB_GLOBAL) - dwarf_data1(dwarf_info_section, 1); - dwarf_data1(dwarf_info_section, PTR_SIZE + 1); - dwarf_data1(dwarf_info_section, DW_OP_addr); - greloca(dwarf_info_section, sym, dwarf_info_section->data_offset, - R_DATA_PTR, 0); -#if PTR_SIZE == 4 - dwarf_data4(dwarf_info_section, 0); -#else - dwarf_data8(dwarf_info_section, 0); -#endif - } - else - { - Section *s = sh_num == SHN_COMMON ? common_section - : 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' : func_ind != -1 ? '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, 0); - else - tcc_debug_stabs(s1, str.data, - (sym->type.t & VT_STATIC) && data_section == s - ? N_STSYM : N_LCSYM, 0, s, sym->c, 0); - cstr_free (&str); - } -} - -ST_FUNC void tcc_debug_typedef(TCCState *s1, Sym *sym) -{ - if (!s1->do_debug) - return; - if (s1->dwarf) { - int debug_type; - - debug_type = tcc_get_dwarf_info(s1, sym); - if (debug_type != -1) { - dwarf_data1(dwarf_info_section, DWARF_ABBREV_TYPEDEF); - dwarf_strp(dwarf_info_section, get_tok_str(sym->v & ~SYM_FIELD, NULL)); - dwarf_uleb128(dwarf_info_section, dwarf_line.cur_file); - dwarf_uleb128(dwarf_info_section, file->line_num); - tcc_debug_check_anon(s1, sym, dwarf_info_section->data_offset); - dwarf_data4(dwarf_info_section, debug_type - dwarf_info.start); - } - } - else - { - 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, 0); - cstr_free (&str); - } -} - -/* ------------------------------------------------------------------------- */ -/* for section layout see lib/tcov.c */ - -ST_FUNC void tcc_tcov_block_end(TCCState *s1, int line); - -ST_FUNC void tcc_tcov_block_begin(TCCState *s1) -{ - SValue sv; - void *ptr; - unsigned long last_offset = tcov_data.offset; - - tcc_tcov_block_end (tcc_state, 0); - if (s1->test_coverage == 0 || nocode_wanted) - return; - - if (tcov_data.last_file_name == 0 || - strcmp ((const char *)(tcov_section->data + tcov_data.last_file_name), - file->true_filename) != 0) { - char wd[1024]; - CString cstr; - - if (tcov_data.last_func_name) - section_ptr_add(tcov_section, 1); - if (tcov_data.last_file_name) - section_ptr_add(tcov_section, 1); - tcov_data.last_func_name = 0; - cstr_new (&cstr); - if (file->true_filename[0] == '/') { - tcov_data.last_file_name = tcov_section->data_offset; - cstr_printf (&cstr, "%s", file->true_filename); - } - else { - getcwd (wd, sizeof(wd)); - tcov_data.last_file_name = tcov_section->data_offset + strlen(wd) + 1; - cstr_printf (&cstr, "%s/%s", wd, file->true_filename); - } - ptr = section_ptr_add(tcov_section, cstr.size + 1); - strcpy((char *)ptr, cstr.data); -#ifdef _WIN32 - normalize_slashes((char *)ptr); -#endif - cstr_free (&cstr); - } - if (tcov_data.last_func_name == 0 || - strcmp ((const char *)(tcov_section->data + tcov_data.last_func_name), - funcname) != 0) { - size_t len; - - if (tcov_data.last_func_name) - section_ptr_add(tcov_section, 1); - tcov_data.last_func_name = tcov_section->data_offset; - len = strlen (funcname); - ptr = section_ptr_add(tcov_section, len + 1); - strcpy((char *)ptr, funcname); - section_ptr_add(tcov_section, -tcov_section->data_offset & 7); - ptr = section_ptr_add(tcov_section, 8); - write64le (ptr, file->line_num); - } - if (ind == tcov_data.ind && tcov_data.line == file->line_num) - tcov_data.offset = last_offset; - else { - Sym label = {0}; - label.type.t = VT_LLONG | VT_STATIC; - - ptr = section_ptr_add(tcov_section, 16); - tcov_data.line = file->line_num; - write64le (ptr, (tcov_data.line << 8) | 0xff); - put_extern_sym(&label, tcov_section, - ((unsigned char *)ptr - tcov_section->data) + 8, 0); - sv.type = label.type; - sv.r = VT_SYM | VT_LVAL | VT_CONST; - sv.r2 = VT_CONST; - sv.c.i = 0; - sv.sym = &label; -#if defined TCC_TARGET_I386 || defined TCC_TARGET_X86_64 || \ - defined TCC_TARGET_ARM || defined TCC_TARGET_ARM64 || \ - defined TCC_TARGET_RISCV64 - gen_increment_tcov (&sv); -#else - vpushv(&sv); - inc(0, TOK_INC); - vpop(); -#endif - tcov_data.offset = (unsigned char *)ptr - tcov_section->data; - tcov_data.ind = ind; - } -} - -ST_FUNC void tcc_tcov_block_end(TCCState *s1, int line) -{ - if (s1->test_coverage == 0) - return; - if (line == -1) - line = tcov_data.line; - if (tcov_data.offset) { - void *ptr = tcov_section->data + tcov_data.offset; - unsigned long long nline = line ? line : file->line_num; - - write64le (ptr, (read64le (ptr) & 0xfffffffffull) | (nline << 36)); - tcov_data.offset = 0; - } -} - -ST_FUNC void tcc_tcov_check_line(TCCState *s1, int start) -{ - if (s1->test_coverage == 0) - return; - if (tcov_data.line != file->line_num) { - if ((tcov_data.line + 1) != file->line_num) { - tcc_tcov_block_end (s1, -1); - if (start) - tcc_tcov_block_begin (s1); - } - else - tcov_data.line = file->line_num; - } -} - -ST_FUNC void tcc_tcov_start(TCCState *s1) -{ - if (s1->test_coverage == 0) - return; - if (!s1->dState) - s1->dState = tcc_mallocz(sizeof *s1->dState); - memset (&tcov_data, 0, sizeof (tcov_data)); - if (tcov_section == NULL) { - tcov_section = new_section(tcc_state, ".tcov", SHT_PROGBITS, - SHF_ALLOC | SHF_WRITE); - section_ptr_add(tcov_section, 4); // pointer to executable name - } -} - -ST_FUNC void tcc_tcov_end(TCCState *s1) -{ - if (s1->test_coverage == 0) - return; - if (tcov_data.last_func_name) - section_ptr_add(tcov_section, 1); - if (tcov_data.last_file_name) - section_ptr_add(tcov_section, 1); -} - -ST_FUNC void tcc_tcov_reset_ind(TCCState *s1) -{ - tcov_data.ind = 0; -} - -/* ------------------------------------------------------------------------- */ -#undef last_line_num -#undef new_file -#undef section_sym -#undef debug_next_type -#undef debug_hash -#undef n_debug_hash -#undef debug_anon_hash -#undef n_debug_anon_hash -#undef debug_info -#undef debug_info_root -#undef dwarf_sym -#undef dwarf_line -#undef dwarf_info -#undef tcov_data |