Lines Matching refs:dw
147 mfgtid_next(dwarf_t *dw)
149 return (++dw->dw_mfgtid_last);
153 tdesc_add(dwarf_t *dw, tdesc_t *tdp)
155 hash_add(dw->dw_tidhash, tdp);
159 tdesc_lookup(dwarf_t *dw, int tid)
166 if (hash_find(dw->dw_tidhash, &tmpl, &tdp))
266 die_off(dwarf_t *dw, Dwarf_Die die)
270 if (dwarf_dieoffset(die, &off, &dw->dw_err) == DW_DLV_OK)
274 dwarf_errmsg(&dw->dw_err));
280 die_sibling(dwarf_t *dw, Dwarf_Die die)
285 if ((rc = dwarf_siblingof(dw->dw_dw, die, &sib, &dw->dw_err)) ==
292 die_off(dw, die), dwarf_errmsg(&dw->dw_err));
298 die_child(dwarf_t *dw, Dwarf_Die die)
303 if ((rc = dwarf_child(die, &child, &dw->dw_err)) == DW_DLV_OK)
309 die_off(dw, die), dwarf_errmsg(&dw->dw_err));
315 die_tag(dwarf_t *dw, Dwarf_Die die)
319 if (dwarf_tag(die, &tag, &dw->dw_err) == DW_DLV_OK)
323 die_off(dw, die), dwarf_errmsg(&dw->dw_err));
329 die_attr(dwarf_t *dw, Dwarf_Die die, Dwarf_Half name, int req)
334 if ((rc = dwarf_attr(die, name, &attr, &dw->dw_err)) == DW_DLV_OK) {
338 terminate("die %llu: no attr 0x%x\n", die_off(dw, die),
346 die_off(dw, die), dwarf_errmsg(&dw->dw_err));
352 die_signed(dwarf_t *dw, Dwarf_Die die, Dwarf_Half name, Dwarf_Signed *valp,
356 if (dwarf_attrval_signed(die, name, valp, &dw->dw_err) != DWARF_E_NONE) {
359 die_off(dw, die), dwarf_errmsg(&dw->dw_err));
367 die_unsigned(dwarf_t *dw, Dwarf_Die die, Dwarf_Half name, Dwarf_Unsigned *valp,
371 if (dwarf_attrval_unsigned(die, name, valp, &dw->dw_err) != DWARF_E_NONE) {
374 die_off(dw, die), dwarf_errmsg(&dw->dw_err));
382 die_bool(dwarf_t *dw, Dwarf_Die die, Dwarf_Half name, Dwarf_Bool *valp, int req)
386 if (dwarf_attrval_flag(die, name, valp, &dw->dw_err) != DWARF_E_NONE) {
389 die_off(dw, die), dwarf_errmsg(&dw->dw_err));
397 die_string(dwarf_t *dw, Dwarf_Die die, Dwarf_Half name, char **strp, int req)
401 if (dwarf_attrval_string(die, name, &str, &dw->dw_err) != DWARF_E_NONE ||
405 die_off(dw, die), dwarf_errmsg(&dw->dw_err));
416 die_attr_ref(dwarf_t *dw, Dwarf_Die die, Dwarf_Half name)
420 if (dwarf_attrval_unsigned(die, name, &off, &dw->dw_err) != DWARF_E_NONE) {
422 die_off(dw, die), dwarf_errmsg(&dw->dw_err));
429 die_name(dwarf_t *dw, Dwarf_Die die)
433 (void) die_string(dw, die, DW_AT_name, &str, 0);
439 die_isdecl(dwarf_t *dw, Dwarf_Die die)
443 return (die_bool(dw, die, DW_AT_declaration, &val, 0) && val);
447 die_isglobal(dwarf_t *dw, Dwarf_Die die)
456 if (die_signed(dw, die, DW_AT_visibility, &vis, 0))
459 return (die_bool(dw, die, DW_AT_external, &ext, 0) && ext);
463 die_add(dwarf_t *dw, Dwarf_Off off)
469 tdesc_add(dw, tdp);
475 die_lookup_pass1(dwarf_t *dw, Dwarf_Die die, Dwarf_Half name)
477 Dwarf_Off ref = die_attr_ref(dw, die, name);
480 if ((tdp = tdesc_lookup(dw, ref)) != NULL)
483 return (die_add(dw, ref));
487 die_mem_offset(dwarf_t *dw, Dwarf_Die die, Dwarf_Half name,
497 "DW_AT_data_member_location\n", die_off(dw, die));
499 if ((at = die_attr(dw, die, name, 0)) == NULL)
502 if (dwarf_whatform(at, &form, &dw->dw_err) != DW_DLV_OK)
516 if (dwarf_locdesc(die, name, &loc, &locnum, &dw->dw_err) !=
521 die_off(dw, die));
536 if (dwarf_attrval_unsigned(die, name, valp, &dw->dw_err) !=
543 "%u\n", die_off(dw, die), form);
547 if (dwarf_locdesc_free(loc, &dw->dw_err) != DW_DLV_OK)
549 die_off(dw, die), dwarf_errmsg(&dw->dw_err));
555 tdesc_intr_common(dwarf_t *dw, int tid, const char *name, size_t sz)
573 tdesc_add(dw, tdp);
588 tdesc_intr_void(dwarf_t *dw)
590 if (dw->dw_void == NULL)
591 dw->dw_void = tdesc_intr_common(dw, TID_VOID, "void", 0);
593 return (dw->dw_void);
597 tdesc_intr_long(dwarf_t *dw)
599 if (dw->dw_long == NULL) {
600 dw->dw_long = tdesc_intr_common(dw, TID_LONG, "long",
601 dw->dw_ptrsz);
604 return (dw->dw_long);
613 tdesc_intr_clone(dwarf_t *dw, tdesc_t *old, size_t bitsz)
624 new->t_id = mfgtid_next(dw);
632 tdesc_add(dw, new);
638 tdesc_array_create(dwarf_t *dw, Dwarf_Die dim, tdesc_t *arrtdp,
647 if ((dim2 = die_sibling(dw, dim)) == NULL) {
649 } else if (die_tag(dw, dim2) == DW_TAG_subrange_type) {
651 ctdp->t_id = mfgtid_next(dw);
653 die_off(dw, dim2), ctdp->t_id);
654 tdesc_array_create(dw, dim2, arrtdp, ctdp);
657 die_off(dw, dim2));
674 if (die_unsigned(dw, dim, DW_AT_upper_bound, &uval, 0))
676 else if (die_signed(dw, dim, DW_AT_upper_bound, &sval, 0))
685 ar->ad_idxtype = tdesc_intr_long(dw);
700 die_array_create(dwarf_t *dw, Dwarf_Die arr, Dwarf_Off off, tdesc_t *tdp)
702 tdesc_t *arrtdp = die_lookup_pass1(dw, arr, DW_AT_type);
708 if ((dim = die_child(dw, arr)) == NULL ||
709 die_tag(dw, dim) != DW_TAG_subrange_type)
712 tdesc_array_create(dw, dim, arrtdp, tdp);
714 if (die_unsigned(dw, arr, DW_AT_byte_size, &uval, 0)) {
745 dwarf_t *dw = private;
759 dw->dw_nunres++;
793 die_enum_create(dwarf_t *dw, Dwarf_Die die, Dwarf_Off off, tdesc_t *tdp)
803 (void) die_unsigned(dw, die, DW_AT_byte_size, &uval, DW_ATTR_REQ);
806 if ((mem = die_child(dw, die)) != NULL) {
812 if (die_tag(dw, mem) != DW_TAG_enumerator) {
814 die_create_one(dw, mem);
819 el->el_name = die_name(dw, mem);
821 if (die_signed(dw, mem, DW_AT_const_value, &sval, 0)) {
823 } else if (die_unsigned(dw, mem, DW_AT_const_value,
828 "value\n", off, die_off(dw, mem));
832 die_off(dw, mem), el->el_name, el->el_number);
837 } while ((mem = die_sibling(dw, mem)) != NULL);
839 hash_add(dw->dw_enumhash, tdp);
849 iidesc_add(dw->dw_td->td_iihash, ii);
871 dwarf_t *dw = private;
877 (void) hash_find_iter(dw->dw_enumhash, tdp, die_enum_match, &full);
914 die_sou_create(dwarf_t *dw, Dwarf_Die str, Dwarf_Off off, tdesc_t *tdp,
925 tdp->t_type = (die_isdecl(dw, str) ? FORWARD : type);
932 hash_add(dw->dw_fwdhash, tdp);
936 (void) hash_find_iter(dw->dw_fwdhash, tdp, die_fwd_map, tdp);
938 (void) die_unsigned(dw, str, DW_AT_byte_size, &sz, DW_ATTR_REQ);
944 if ((mem = die_child(dw, str)) == NULL) {
951 Dwarf_Off memoff = die_off(dw, mem);
952 Dwarf_Half tag = die_tag(dw, mem);
957 die_create_one(dw, mem);
972 if ((ml->ml_name = die_name(dw, mem)) == NULL)
975 ml->ml_type = die_lookup_pass1(dw, mem, DW_AT_type);
977 if (die_mem_offset(dw, mem, DW_AT_data_member_location,
984 if (die_unsigned(dw, mem, DW_AT_bit_size, &bitsz, 0))
989 if (die_unsigned(dw, mem, DW_AT_bit_offset, &bitoff, 0)) {
1006 if (die_unsigned(dw, mem, DW_AT_byte_size, &bysz, 0) &&
1021 } while ((mem = die_sibling(dw, mem)) != NULL);
1064 iidesc_add(dw->dw_td->td_iihash, ii);
1069 die_struct_create(dwarf_t *dw, Dwarf_Die die, Dwarf_Off off, tdesc_t *tdp)
1071 die_sou_create(dw, die, off, tdp, STRUCT, "struct");
1075 die_union_create(dwarf_t *dw, Dwarf_Die die, Dwarf_Off off, tdesc_t *tdp)
1077 die_sou_create(dw, die, off, tdp, UNION, "union");
1084 dwarf_t *dw = private;
1109 dw->dw_nunres++;
1114 dw->dw_nunres++;
1130 ml->ml_type = tdesc_intr_clone(dw, mt, ml->ml_size);
1163 die_funcptr_create(dwarf_t *dw, Dwarf_Die die, Dwarf_Off off, tdesc_t *tdp)
1177 for (arg = die_child(dw, die); arg != NULL;
1178 arg = die_sibling(dw, arg)) {
1179 if ((tag = die_tag(dw, arg)) != DW_TAG_formal_parameter &&
1182 die_create_one(dw, arg);
1186 if (die_isdecl(dw, die)) {
1200 if ((attr = die_attr(dw, die, DW_AT_type, 0)) != NULL) {
1201 fn->fn_ret = die_lookup_pass1(dw, die, DW_AT_type);
1203 fn->fn_ret = tdesc_intr_void(dw);
1209 for (fn->fn_nargs = 0, arg = die_child(dw, die); arg != NULL;
1210 arg = die_sibling(dw, arg)) {
1211 if ((tag = die_tag(dw, arg)) == DW_TAG_formal_parameter)
1223 for (i = 0, arg = die_child(dw, die);
1225 arg = die_sibling(dw, arg)) {
1226 if (die_tag(dw, arg) != DW_TAG_formal_parameter)
1229 fn->fn_args[i++] = die_lookup_pass1(dw, arg,
1338 die_base_type2enc(dwarf_t *dw, Dwarf_Off off, Dwarf_Signed enc, size_t sz)
1341 uint_t szidx = dw->dw_ptrsz == sizeof (uint64_t);
1366 die_base_from_dwarf(dwarf_t *dw, Dwarf_Die base, Dwarf_Off off, size_t sz)
1371 (void) die_signed(dw, base, DW_AT_encoding, &enc, DW_ATTR_REQ);
1405 intr->intr_fformat = die_base_type2enc(dw, off, enc, sz);
1416 die_base_create(dwarf_t *dw, Dwarf_Die base, Dwarf_Off off, tdesc_t *tdp)
1433 (void) die_unsigned(dw, base, DW_AT_byte_size, &sz, DW_ATTR_REQ);
1454 intr = die_base_from_dwarf(dw, base, off, sz);
1467 die_through_create(dwarf_t *dw, Dwarf_Die die, Dwarf_Off off, tdesc_t *tdp,
1476 if ((attr = die_attr(dw, die, DW_AT_type, 0)) != NULL) {
1477 tdp->t_tdesc = die_lookup_pass1(dw, die, DW_AT_type);
1479 tdp->t_tdesc = tdesc_intr_void(dw);
1483 tdp->t_size = dw->dw_ptrsz;
1493 iidesc_add(dw->dw_td->td_iihash, ii);
1498 die_typedef_create(dwarf_t *dw, Dwarf_Die die, Dwarf_Off off, tdesc_t *tdp)
1500 die_through_create(dw, die, off, tdp, TYPEDEF, "typedef");
1504 die_const_create(dwarf_t *dw, Dwarf_Die die, Dwarf_Off off, tdesc_t *tdp)
1506 die_through_create(dw, die, off, tdp, CONST, "const");
1510 die_pointer_create(dwarf_t *dw, Dwarf_Die die, Dwarf_Off off, tdesc_t *tdp)
1512 die_through_create(dw, die, off, tdp, POINTER, "pointer");
1516 die_restrict_create(dwarf_t *dw, Dwarf_Die die, Dwarf_Off off, tdesc_t *tdp)
1518 die_through_create(dw, die, off, tdp, RESTRICT, "restrict");
1522 die_volatile_create(dwarf_t *dw, Dwarf_Die die, Dwarf_Off off, tdesc_t *tdp)
1524 die_through_create(dw, die, off, tdp, VOLATILE, "volatile");
1529 die_function_create(dwarf_t *dw, Dwarf_Die die, Dwarf_Off off, tdesc_t *tdp __unused)
1542 for (arg = die_child(dw, die); arg != NULL;
1543 arg = die_sibling(dw, arg)) {
1544 if ((tag = die_tag(dw, arg)) != DW_TAG_formal_parameter &&
1547 die_create_one(dw, arg);
1551 if (die_isdecl(dw, die) || (name = die_name(dw, die)) == NULL) {
1560 ii->ii_type = die_isglobal(dw, die) ? II_GFUN : II_SFUN;
1563 ii->ii_owner = xstrdup(dw->dw_cuname);
1568 if (die_attr(dw, die, DW_AT_type, 0) != NULL)
1569 ii->ii_dtype = die_lookup_pass1(dw, die, DW_AT_type);
1571 ii->ii_dtype = tdesc_intr_void(dw);
1573 for (arg = die_child(dw, die); arg != NULL;
1574 arg = die_sibling(dw, arg)) {
1578 off, die_off(dw, die));
1580 if (die_tag(dw, arg) != DW_TAG_formal_parameter)
1583 if ((name1 = die_name(dw, arg)) == NULL) {
1605 for (arg = die_child(dw, die), i = 0;
1607 arg = die_sibling(dw, arg)) {
1608 if (die_tag(dw, arg) != DW_TAG_formal_parameter)
1611 ii->ii_args[i++] = die_lookup_pass1(dw, arg,
1616 iidesc_add(dw->dw_td->td_iihash, ii);
1621 die_variable_create(dwarf_t *dw, Dwarf_Die die, Dwarf_Off off, tdesc_t *tdp __unused)
1628 if (die_isdecl(dw, die) || (name = die_name(dw, die)) == NULL)
1632 ii->ii_type = die_isglobal(dw, die) ? II_GVAR : II_SVAR;
1634 ii->ii_dtype = die_lookup_pass1(dw, die, DW_AT_type);
1636 ii->ii_owner = xstrdup(dw->dw_cuname);
1638 iidesc_add(dw->dw_td->td_iihash, ii);
1661 die_lexblk_descend(dwarf_t *dw, Dwarf_Die die, Dwarf_Off off __unused, tdesc_t *tdp __unused)
1663 Dwarf_Die child = die_child(dw, die);
1666 die_create(dw, child);
1716 die_create_one(dwarf_t *dw, Dwarf_Die die)
1718 Dwarf_Off off = die_off(dw, die);
1725 if (off > dw->dw_maxoff) {
1727 dw->dw_maxoff);
1730 tag = die_tag(dw, die);
1737 if ((tdp = tdesc_lookup(dw, off)) == NULL &&
1741 tdesc_add(dw, tdp);
1745 tdp->t_name = die_name(dw, die);
1747 dc->dc_create(dw, die, off, tdp);
1751 die_create(dwarf_t *dw, Dwarf_Die die)
1754 die_create_one(dw, die);
1755 } while ((die = die_sibling(dw, die)) != NULL);
1793 die_resolve(dwarf_t *dw)
1800 dw->dw_nunres = 0;
1802 (void) iitraverse_hash(dw->dw_td->td_iihash,
1803 &dw->dw_td->td_curvgen, NULL, NULL, die_resolvers, dw);
1805 debug(3, "resolve: pass %d, %u left\n", pass, dw->dw_nunres);
1807 if ((int) dw->dw_nunres == last) {
1811 (void) iitraverse_hash(dw->dw_td->td_iihash,
1812 &dw->dw_td->td_curvgen, NULL, NULL,
1813 die_fail_reporters, dw);
1818 last = dw->dw_nunres;
1820 } while (dw->dw_nunres != 0);
1884 dwarf_t dw;
1888 bzero(&dw, sizeof (dwarf_t));
1889 dw.dw_td = td;
1890 dw.dw_ptrsz = elf_ptrsz(elf);
1891 dw.dw_mfgtid_last = TID_MFGTID_BASE;
1892 dw.dw_tidhash = hash_new(TDESC_HASH_BUCKETS, tdesc_idhash, tdesc_idcmp);
1893 dw.dw_fwdhash = hash_new(TDESC_HASH_BUCKETS, tdesc_namehash,
1895 dw.dw_enumhash = hash_new(TDESC_HASH_BUCKETS, tdesc_namehash,
1898 if ((rc = dwarf_elf_init(elf, DW_DLC_READ, &dw.dw_dw,
1899 &dw.dw_err)) == DW_DLV_NO_ENTRY) {
1907 if (dwarf_errno(&dw.dw_err) == DW_DLE_DEBUG_INFO_NULL) {
1916 dwarf_errmsg(&dw.dw_err));
1919 if ((rc = dwarf_next_cu_header(dw.dw_dw, &hdrlen, &vers, &abboff,
1920 &addrsz, &nxthdr, &dw.dw_err)) != DW_DLV_OK)
1921 terminate("rc = %d %s\n", rc, dwarf_errmsg(&dw.dw_err));
1923 if ((cu = die_sibling(&dw, NULL)) == NULL ||
1924 (((child = die_child(&dw, cu)) == NULL) &&
1932 dw.dw_maxoff = nxthdr - 1;
1934 if (dw.dw_maxoff > TID_FILEMAX)
1943 if (die_string(&dw, cu, DW_AT_producer, &prod, 0)) {
1948 if ((dw.dw_cuname = die_name(&dw, cu)) != NULL) {
1949 char *base = xstrdup(basename(dw.dw_cuname));
1950 free(dw.dw_cuname);
1951 dw.dw_cuname = base;
1953 debug(1, "CU name: %s\n", dw.dw_cuname);
1956 if ((child = die_child(&dw, cu)) != NULL)
1957 die_create(&dw, child);
1959 if ((rc = dwarf_next_cu_header(dw.dw_dw, &hdrlen, &vers, &abboff,
1960 &addrsz, &nxthdr, &dw.dw_err)) != DW_DLV_NO_ENTRY)
1963 (void) dwarf_finish(&dw.dw_dw, &dw.dw_err);
1965 die_resolve(&dw);
1967 cvt_fixups(td, dw.dw_ptrsz);