libdwarf_macinfo.c revision 1.2.4.2
1 1.2.4.2 yamt /* $NetBSD: libdwarf_macinfo.c,v 1.2.4.2 2014/05/22 15:44:46 yamt Exp $ */ 2 1.2.4.2 yamt 3 1.2.4.2 yamt /*- 4 1.2.4.2 yamt * Copyright (c) 2009-2011 Kai Wang 5 1.2.4.2 yamt * All rights reserved. 6 1.2.4.2 yamt * 7 1.2.4.2 yamt * Redistribution and use in source and binary forms, with or without 8 1.2.4.2 yamt * modification, are permitted provided that the following conditions 9 1.2.4.2 yamt * are met: 10 1.2.4.2 yamt * 1. Redistributions of source code must retain the above copyright 11 1.2.4.2 yamt * notice, this list of conditions and the following disclaimer. 12 1.2.4.2 yamt * 2. Redistributions in binary form must reproduce the above copyright 13 1.2.4.2 yamt * notice, this list of conditions and the following disclaimer in the 14 1.2.4.2 yamt * documentation and/or other materials provided with the distribution. 15 1.2.4.2 yamt * 16 1.2.4.2 yamt * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 17 1.2.4.2 yamt * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 18 1.2.4.2 yamt * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 19 1.2.4.2 yamt * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 20 1.2.4.2 yamt * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 21 1.2.4.2 yamt * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 22 1.2.4.2 yamt * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 23 1.2.4.2 yamt * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 24 1.2.4.2 yamt * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 25 1.2.4.2 yamt * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 26 1.2.4.2 yamt * SUCH DAMAGE. 27 1.2.4.2 yamt */ 28 1.2.4.2 yamt 29 1.2.4.2 yamt #include "_libdwarf.h" 30 1.2.4.2 yamt 31 1.2.4.2 yamt __RCSID("$NetBSD: libdwarf_macinfo.c,v 1.2.4.2 2014/05/22 15:44:46 yamt Exp $"); 32 1.2.4.2 yamt ELFTC_VCSID("Id: libdwarf_macinfo.c 2974 2013-12-23 06:46:22Z kaiwang27 "); 33 1.2.4.2 yamt 34 1.2.4.2 yamt #define _FILEINDEX_STACK_SIZE 16384 35 1.2.4.2 yamt 36 1.2.4.2 yamt static int 37 1.2.4.2 yamt _dwarf_macinfo_parse(Dwarf_Debug dbg, Dwarf_Section *ds, uint64_t *off, 38 1.2.4.2 yamt Dwarf_Macro_Details *dmd, Dwarf_Unsigned *cnt, Dwarf_Error *error) 39 1.2.4.2 yamt { 40 1.2.4.2 yamt Dwarf_Unsigned lineno; 41 1.2.4.2 yamt Dwarf_Signed fileindex[_FILEINDEX_STACK_SIZE]; 42 1.2.4.2 yamt char *p; 43 1.2.4.2 yamt int i, type, sp; 44 1.2.4.2 yamt 45 1.2.4.2 yamt i = 0; 46 1.2.4.2 yamt sp = 0; 47 1.2.4.2 yamt fileindex[sp] = -1; 48 1.2.4.2 yamt while (*off < ds->ds_size) { 49 1.2.4.2 yamt 50 1.2.4.2 yamt if (dmd != NULL) 51 1.2.4.2 yamt dmd[i].dmd_offset = *off; 52 1.2.4.2 yamt 53 1.2.4.2 yamt type = dbg->read(ds->ds_data, off, 1); 54 1.2.4.2 yamt 55 1.2.4.2 yamt if (dmd != NULL) { 56 1.2.4.2 yamt dmd[i].dmd_type = type; 57 1.2.4.2 yamt dmd[i].dmd_fileindex = fileindex[sp]; 58 1.2.4.2 yamt } 59 1.2.4.2 yamt 60 1.2.4.2 yamt switch (type) { 61 1.2.4.2 yamt case 0: 62 1.2.4.2 yamt break; 63 1.2.4.2 yamt case DW_MACINFO_define: 64 1.2.4.2 yamt case DW_MACINFO_undef: 65 1.2.4.2 yamt case DW_MACINFO_vendor_ext: 66 1.2.4.2 yamt lineno = _dwarf_read_uleb128(ds->ds_data, off); 67 1.2.4.2 yamt p = (char *) ds->ds_data; 68 1.2.4.2 yamt if (dmd != NULL) { 69 1.2.4.2 yamt dmd[i].dmd_lineno = lineno; 70 1.2.4.2 yamt dmd[i].dmd_macro = p + *off; 71 1.2.4.2 yamt 72 1.2.4.2 yamt } 73 1.2.4.2 yamt while (p[(*off)++] != '\0') 74 1.2.4.2 yamt ; 75 1.2.4.2 yamt break; 76 1.2.4.2 yamt case DW_MACINFO_start_file: 77 1.2.4.2 yamt lineno = _dwarf_read_uleb128(ds->ds_data, off); 78 1.2.4.2 yamt if (sp >= _FILEINDEX_STACK_SIZE - 1) { 79 1.2.4.2 yamt assert(0); 80 1.2.4.2 yamt } 81 1.2.4.2 yamt fileindex[++sp] = _dwarf_read_uleb128(ds->ds_data, off); 82 1.2.4.2 yamt if (dmd != NULL) { 83 1.2.4.2 yamt dmd[i].dmd_lineno = lineno; 84 1.2.4.2 yamt dmd[i].dmd_fileindex = fileindex[sp]; 85 1.2.4.2 yamt } 86 1.2.4.2 yamt break; 87 1.2.4.2 yamt case DW_MACINFO_end_file: 88 1.2.4.2 yamt if (sp > 0) { 89 1.2.4.2 yamt sp--; 90 1.2.4.2 yamt break; 91 1.2.4.2 yamt } 92 1.2.4.2 yamt /* FALLTHROUGH */ 93 1.2.4.2 yamt default: 94 1.2.4.2 yamt DWARF_SET_ERROR(dbg, error, 95 1.2.4.2 yamt DW_DLE_DEBUG_MACRO_INCONSISTENT); 96 1.2.4.2 yamt return (DW_DLE_DEBUG_MACRO_INCONSISTENT); 97 1.2.4.2 yamt } 98 1.2.4.2 yamt 99 1.2.4.2 yamt i++; 100 1.2.4.2 yamt 101 1.2.4.2 yamt if (type == 0) 102 1.2.4.2 yamt break; 103 1.2.4.2 yamt } 104 1.2.4.2 yamt 105 1.2.4.2 yamt if (cnt != NULL) 106 1.2.4.2 yamt *cnt = i; 107 1.2.4.2 yamt 108 1.2.4.2 yamt return (DW_DLE_NONE); 109 1.2.4.2 yamt } 110 1.2.4.2 yamt 111 1.2.4.2 yamt void 112 1.2.4.2 yamt _dwarf_macinfo_cleanup(Dwarf_Debug dbg) 113 1.2.4.2 yamt { 114 1.2.4.2 yamt Dwarf_MacroSet ms, tms; 115 1.2.4.2 yamt 116 1.2.4.2 yamt if (STAILQ_EMPTY(&dbg->dbg_mslist)) 117 1.2.4.2 yamt return; 118 1.2.4.2 yamt 119 1.2.4.2 yamt STAILQ_FOREACH_SAFE(ms, &dbg->dbg_mslist, ms_next, tms) { 120 1.2.4.2 yamt STAILQ_REMOVE(&dbg->dbg_mslist, ms, _Dwarf_MacroSet, ms_next); 121 1.2.4.2 yamt if (ms->ms_mdlist) 122 1.2.4.2 yamt free(ms->ms_mdlist); 123 1.2.4.2 yamt free(ms); 124 1.2.4.2 yamt } 125 1.2.4.2 yamt } 126 1.2.4.2 yamt 127 1.2.4.2 yamt int 128 1.2.4.2 yamt _dwarf_macinfo_init(Dwarf_Debug dbg, Dwarf_Error *error) 129 1.2.4.2 yamt { 130 1.2.4.2 yamt Dwarf_MacroSet ms; 131 1.2.4.2 yamt Dwarf_Unsigned cnt; 132 1.2.4.2 yamt Dwarf_Section *ds; 133 1.2.4.2 yamt uint64_t offset, entry_off; 134 1.2.4.2 yamt int ret; 135 1.2.4.2 yamt 136 1.2.4.2 yamt if ((ds = _dwarf_find_section(dbg, ".debug_macinfo")) == NULL) 137 1.2.4.2 yamt return (DW_DLE_NONE); 138 1.2.4.2 yamt 139 1.2.4.2 yamt offset = 0; 140 1.2.4.2 yamt while (offset < ds->ds_size) { 141 1.2.4.2 yamt 142 1.2.4.2 yamt entry_off = offset; 143 1.2.4.2 yamt 144 1.2.4.2 yamt ret = _dwarf_macinfo_parse(dbg, ds, &offset, NULL, &cnt, error); 145 1.2.4.2 yamt if (ret != DW_DLE_NONE) 146 1.2.4.2 yamt return (ret); 147 1.2.4.2 yamt 148 1.2.4.2 yamt if (cnt == 0) 149 1.2.4.2 yamt break; 150 1.2.4.2 yamt 151 1.2.4.2 yamt if ((ms = calloc(1, sizeof(struct _Dwarf_MacroSet))) == NULL) { 152 1.2.4.2 yamt DWARF_SET_ERROR(dbg, error, DW_DLE_MEMORY); 153 1.2.4.2 yamt ret = DW_DLE_MEMORY; 154 1.2.4.2 yamt goto fail_cleanup; 155 1.2.4.2 yamt } 156 1.2.4.2 yamt STAILQ_INSERT_TAIL(&dbg->dbg_mslist, ms, ms_next); 157 1.2.4.2 yamt 158 1.2.4.2 yamt if ((ms->ms_mdlist = calloc(cnt, sizeof(Dwarf_Macro_Details))) 159 1.2.4.2 yamt == NULL) { 160 1.2.4.2 yamt DWARF_SET_ERROR(dbg, error, DW_DLE_MEMORY); 161 1.2.4.2 yamt ret = DW_DLE_MEMORY; 162 1.2.4.2 yamt goto fail_cleanup; 163 1.2.4.2 yamt } 164 1.2.4.2 yamt 165 1.2.4.2 yamt ms->ms_cnt = cnt; 166 1.2.4.2 yamt 167 1.2.4.2 yamt offset = entry_off; 168 1.2.4.2 yamt 169 1.2.4.2 yamt ret = _dwarf_macinfo_parse(dbg, ds, &offset, ms->ms_mdlist, 170 1.2.4.2 yamt NULL, error); 171 1.2.4.2 yamt 172 1.2.4.2 yamt if (ret != DW_DLE_NONE) { 173 1.2.4.2 yamt DWARF_SET_ERROR(dbg, error, DW_DLE_MEMORY); 174 1.2.4.2 yamt ret = DW_DLE_MEMORY; 175 1.2.4.2 yamt goto fail_cleanup; 176 1.2.4.2 yamt } 177 1.2.4.2 yamt } 178 1.2.4.2 yamt 179 1.2.4.2 yamt return (DW_DLE_NONE); 180 1.2.4.2 yamt 181 1.2.4.2 yamt fail_cleanup: 182 1.2.4.2 yamt 183 1.2.4.2 yamt _dwarf_macinfo_cleanup(dbg); 184 1.2.4.2 yamt 185 1.2.4.2 yamt return (ret); 186 1.2.4.2 yamt } 187 1.2.4.2 yamt 188 1.2.4.2 yamt int 189 1.2.4.2 yamt _dwarf_macinfo_gen(Dwarf_P_Debug dbg, Dwarf_Error *error) 190 1.2.4.2 yamt { 191 1.2.4.2 yamt Dwarf_P_Section ds; 192 1.2.4.2 yamt Dwarf_Macro_Details *md; 193 1.2.4.2 yamt int i, ret; 194 1.2.4.2 yamt 195 1.2.4.2 yamt if (dbg->dbgp_mdcnt == 0) 196 1.2.4.2 yamt return (DW_DLE_NONE); 197 1.2.4.2 yamt 198 1.2.4.2 yamt /* Create .debug_frame section. */ 199 1.2.4.2 yamt RCHECK(_dwarf_section_init(dbg, &ds, ".debug_macinfo", 0, error)); 200 1.2.4.2 yamt 201 1.2.4.2 yamt /* Write the list of Dwarf_Macro_Details. */ 202 1.2.4.2 yamt for (i = 0; (Dwarf_Unsigned) i < dbg->dbgp_mdcnt; i++) { 203 1.2.4.2 yamt md = &dbg->dbgp_mdlist[i]; 204 1.2.4.2 yamt md->dmd_offset = ds->ds_size; 205 1.2.4.2 yamt RCHECK(WRITE_VALUE(md->dmd_type, 1)); 206 1.2.4.2 yamt switch (md->dmd_type) { 207 1.2.4.2 yamt case DW_MACINFO_define: 208 1.2.4.2 yamt case DW_MACINFO_undef: 209 1.2.4.2 yamt case DW_MACINFO_vendor_ext: 210 1.2.4.2 yamt RCHECK(WRITE_ULEB128(md->dmd_lineno)); 211 1.2.4.2 yamt assert(md->dmd_macro != NULL); 212 1.2.4.2 yamt RCHECK(WRITE_STRING(md->dmd_macro)); 213 1.2.4.2 yamt break; 214 1.2.4.2 yamt case DW_MACINFO_start_file: 215 1.2.4.2 yamt RCHECK(WRITE_ULEB128(md->dmd_lineno)); 216 1.2.4.2 yamt RCHECK(WRITE_ULEB128(md->dmd_fileindex)); 217 1.2.4.2 yamt break; 218 1.2.4.2 yamt case DW_MACINFO_end_file: 219 1.2.4.2 yamt break; 220 1.2.4.2 yamt default: 221 1.2.4.2 yamt assert(0); 222 1.2.4.2 yamt break; 223 1.2.4.2 yamt } 224 1.2.4.2 yamt } 225 1.2.4.2 yamt RCHECK(WRITE_VALUE(0, 1)); 226 1.2.4.2 yamt 227 1.2.4.2 yamt /* Inform application the creation of .debug_macinfo ELF section. */ 228 1.2.4.2 yamt RCHECK(_dwarf_section_callback(dbg, ds, SHT_PROGBITS, 0, 0, 0, error)); 229 1.2.4.2 yamt 230 1.2.4.2 yamt return (DW_DLE_NONE); 231 1.2.4.2 yamt 232 1.2.4.2 yamt gen_fail: 233 1.2.4.2 yamt _dwarf_section_free(dbg, &ds); 234 1.2.4.2 yamt 235 1.2.4.2 yamt return (ret); 236 1.2.4.2 yamt } 237 1.2.4.2 yamt 238 1.2.4.2 yamt void 239 1.2.4.2 yamt _dwarf_macinfo_pro_cleanup(Dwarf_P_Debug dbg) 240 1.2.4.2 yamt { 241 1.2.4.2 yamt Dwarf_Macro_Details *md; 242 1.2.4.2 yamt int i; 243 1.2.4.2 yamt 244 1.2.4.2 yamt assert(dbg != NULL && dbg->dbg_mode == DW_DLC_WRITE); 245 1.2.4.2 yamt if (dbg->dbgp_mdlist == NULL) 246 1.2.4.2 yamt return; 247 1.2.4.2 yamt 248 1.2.4.2 yamt assert(dbg->dbgp_mdcnt > 0); 249 1.2.4.2 yamt for (i = 0; (Dwarf_Unsigned) i < dbg->dbgp_mdcnt; i++) { 250 1.2.4.2 yamt md = &dbg->dbgp_mdlist[i]; 251 1.2.4.2 yamt if (md->dmd_macro) 252 1.2.4.2 yamt free(md->dmd_macro); 253 1.2.4.2 yamt } 254 1.2.4.2 yamt free(dbg->dbgp_mdlist); 255 1.2.4.2 yamt dbg->dbgp_mdlist = NULL; 256 1.2.4.2 yamt dbg->dbgp_mdcnt = 0; 257 1.2.4.2 yamt } 258
Indexes created Tue Oct 27 00:25:24 UTC 2026