12de3b87aSKai Wang /*-
22de3b87aSKai Wang * Copyright (c) 2009 Kai Wang
32de3b87aSKai Wang * All rights reserved.
42de3b87aSKai Wang *
52de3b87aSKai Wang * Redistribution and use in source and binary forms, with or without
62de3b87aSKai Wang * modification, are permitted provided that the following conditions
72de3b87aSKai Wang * are met:
82de3b87aSKai Wang * 1. Redistributions of source code must retain the above copyright
92de3b87aSKai Wang * notice, this list of conditions and the following disclaimer.
102de3b87aSKai Wang * 2. Redistributions in binary form must reproduce the above copyright
112de3b87aSKai Wang * notice, this list of conditions and the following disclaimer in the
122de3b87aSKai Wang * documentation and/or other materials provided with the distribution.
132de3b87aSKai Wang *
142de3b87aSKai Wang * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
152de3b87aSKai Wang * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
162de3b87aSKai Wang * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
172de3b87aSKai Wang * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
182de3b87aSKai Wang * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
192de3b87aSKai Wang * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
202de3b87aSKai Wang * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
212de3b87aSKai Wang * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
222de3b87aSKai Wang * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
232de3b87aSKai Wang * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
242de3b87aSKai Wang * SUCH DAMAGE.
252de3b87aSKai Wang */
262de3b87aSKai Wang
272de3b87aSKai Wang #include "_libdwarf.h"
282de3b87aSKai Wang
292de3b87aSKai Wang ELFTC_VCSID("$Id: dwarf_pro_attr.c 2074 2011-10-27 03:34:33Z jkoshy $");
302de3b87aSKai Wang
312de3b87aSKai Wang Dwarf_P_Attribute
dwarf_add_AT_location_expr(Dwarf_P_Debug dbg,Dwarf_P_Die die,Dwarf_Half attr,Dwarf_P_Expr loc_expr,Dwarf_Error * error)322de3b87aSKai Wang dwarf_add_AT_location_expr(Dwarf_P_Debug dbg, Dwarf_P_Die die, Dwarf_Half attr,
332de3b87aSKai Wang Dwarf_P_Expr loc_expr, Dwarf_Error *error)
342de3b87aSKai Wang {
352de3b87aSKai Wang Dwarf_Attribute at;
362de3b87aSKai Wang
372de3b87aSKai Wang if (dbg == NULL || die == NULL || loc_expr == NULL) {
382de3b87aSKai Wang DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
392de3b87aSKai Wang return (DW_DLV_BADADDR);
402de3b87aSKai Wang }
412de3b87aSKai Wang
422de3b87aSKai Wang if (_dwarf_attr_alloc(die, &at, error) != DW_DLE_NONE)
432de3b87aSKai Wang return (DW_DLV_BADADDR);
442de3b87aSKai Wang
452de3b87aSKai Wang at->at_die = die;
462de3b87aSKai Wang at->at_attrib = attr;
472de3b87aSKai Wang at->at_expr = loc_expr;
482de3b87aSKai Wang
49e5551befSMark Johnston if (_dwarf_expr_into_block(loc_expr, error) != DW_DLE_NONE) {
50e5551befSMark Johnston free(at);
512de3b87aSKai Wang return (DW_DLV_BADADDR);
52e5551befSMark Johnston }
532de3b87aSKai Wang at->u[0].u64 = loc_expr->pe_length;
542de3b87aSKai Wang at->u[1].u8p = loc_expr->pe_block;
552de3b87aSKai Wang if (loc_expr->pe_length <= UCHAR_MAX)
562de3b87aSKai Wang at->at_form = DW_FORM_block1;
572de3b87aSKai Wang else if (loc_expr->pe_length <= USHRT_MAX)
582de3b87aSKai Wang at->at_form = DW_FORM_block2;
592de3b87aSKai Wang else if (loc_expr->pe_length <= UINT_MAX)
602de3b87aSKai Wang at->at_form = DW_FORM_block4;
612de3b87aSKai Wang else
622de3b87aSKai Wang at->at_form = DW_FORM_block;
632de3b87aSKai Wang
642de3b87aSKai Wang STAILQ_INSERT_TAIL(&die->die_attr, at, at_next);
652de3b87aSKai Wang
662de3b87aSKai Wang return (at);
672de3b87aSKai Wang }
682de3b87aSKai Wang
692de3b87aSKai Wang Dwarf_P_Attribute
dwarf_add_AT_name(Dwarf_P_Die die,char * name,Dwarf_Error * error)702de3b87aSKai Wang dwarf_add_AT_name(Dwarf_P_Die die, char *name, Dwarf_Error *error)
712de3b87aSKai Wang {
722de3b87aSKai Wang Dwarf_Attribute at;
732de3b87aSKai Wang
742de3b87aSKai Wang if (_dwarf_add_string_attr(die, &at, DW_AT_name, name, error) !=
752de3b87aSKai Wang DW_DLE_NONE)
762de3b87aSKai Wang return (DW_DLV_BADADDR);
772de3b87aSKai Wang
782de3b87aSKai Wang return (at);
792de3b87aSKai Wang }
802de3b87aSKai Wang
812de3b87aSKai Wang Dwarf_P_Attribute
dwarf_add_AT_comp_dir(Dwarf_P_Die die,char * dir,Dwarf_Error * error)822de3b87aSKai Wang dwarf_add_AT_comp_dir(Dwarf_P_Die die, char *dir, Dwarf_Error *error)
832de3b87aSKai Wang {
842de3b87aSKai Wang Dwarf_Attribute at;
852de3b87aSKai Wang
862de3b87aSKai Wang if (_dwarf_add_string_attr(die, &at, DW_AT_comp_dir, dir, error) !=
872de3b87aSKai Wang DW_DLE_NONE)
882de3b87aSKai Wang return (DW_DLV_BADADDR);
892de3b87aSKai Wang
902de3b87aSKai Wang return (at);
912de3b87aSKai Wang }
922de3b87aSKai Wang
932de3b87aSKai Wang Dwarf_P_Attribute
dwarf_add_AT_producer(Dwarf_P_Die die,char * producer,Dwarf_Error * error)942de3b87aSKai Wang dwarf_add_AT_producer(Dwarf_P_Die die, char *producer, Dwarf_Error *error)
952de3b87aSKai Wang {
962de3b87aSKai Wang Dwarf_Attribute at;
972de3b87aSKai Wang
982de3b87aSKai Wang if (_dwarf_add_string_attr(die, &at, DW_AT_producer, producer, error) !=
992de3b87aSKai Wang DW_DLE_NONE)
1002de3b87aSKai Wang return (DW_DLV_BADADDR);
1012de3b87aSKai Wang
1022de3b87aSKai Wang return (at);
1032de3b87aSKai Wang }
1042de3b87aSKai Wang
1052de3b87aSKai Wang Dwarf_P_Attribute
dwarf_add_AT_const_value_signedint(Dwarf_P_Die die,Dwarf_Signed value,Dwarf_Error * error)1062de3b87aSKai Wang dwarf_add_AT_const_value_signedint(Dwarf_P_Die die, Dwarf_Signed value,
1072de3b87aSKai Wang Dwarf_Error *error)
1082de3b87aSKai Wang {
1092de3b87aSKai Wang Dwarf_Attribute at;
1102de3b87aSKai Wang Dwarf_Debug dbg;
1112de3b87aSKai Wang
1122de3b87aSKai Wang dbg = die != NULL ? die->die_dbg : NULL;
1132de3b87aSKai Wang
1142de3b87aSKai Wang if (die == NULL) {
1152de3b87aSKai Wang DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
1162de3b87aSKai Wang return (DW_DLV_BADADDR);
1172de3b87aSKai Wang }
1182de3b87aSKai Wang
1192de3b87aSKai Wang if (_dwarf_attr_alloc(die, &at, error) != DW_DLE_NONE)
1202de3b87aSKai Wang return (DW_DLV_BADADDR);
1212de3b87aSKai Wang
1222de3b87aSKai Wang at->at_die = die;
1232de3b87aSKai Wang at->at_attrib = DW_AT_const_value;
1242de3b87aSKai Wang at->at_form = DW_FORM_sdata;
1252de3b87aSKai Wang at->u[0].s64 = value;
1262de3b87aSKai Wang
1272de3b87aSKai Wang STAILQ_INSERT_TAIL(&die->die_attr, at, at_next);
1282de3b87aSKai Wang
1292de3b87aSKai Wang return (at);
1302de3b87aSKai Wang }
1312de3b87aSKai Wang
1322de3b87aSKai Wang Dwarf_P_Attribute
dwarf_add_AT_const_value_unsignedint(Dwarf_P_Die die,Dwarf_Unsigned value,Dwarf_Error * error)1332de3b87aSKai Wang dwarf_add_AT_const_value_unsignedint(Dwarf_P_Die die, Dwarf_Unsigned value,
1342de3b87aSKai Wang Dwarf_Error *error)
1352de3b87aSKai Wang {
1362de3b87aSKai Wang Dwarf_Attribute at;
1372de3b87aSKai Wang Dwarf_Debug dbg;
1382de3b87aSKai Wang
1392de3b87aSKai Wang dbg = die != NULL ? die->die_dbg : NULL;
1402de3b87aSKai Wang
1412de3b87aSKai Wang if (die == NULL) {
1422de3b87aSKai Wang DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
1432de3b87aSKai Wang return (DW_DLV_BADADDR);
1442de3b87aSKai Wang }
1452de3b87aSKai Wang
1462de3b87aSKai Wang if (_dwarf_attr_alloc(die, &at, error) != DW_DLE_NONE)
1472de3b87aSKai Wang return (DW_DLV_BADADDR);
1482de3b87aSKai Wang
1492de3b87aSKai Wang at->at_die = die;
1502de3b87aSKai Wang at->at_attrib = DW_AT_const_value;
1512de3b87aSKai Wang at->at_form = DW_FORM_udata;
1522de3b87aSKai Wang at->u[0].u64 = value;
1532de3b87aSKai Wang
1542de3b87aSKai Wang STAILQ_INSERT_TAIL(&die->die_attr, at, at_next);
1552de3b87aSKai Wang
1562de3b87aSKai Wang return (at);
1572de3b87aSKai Wang }
1582de3b87aSKai Wang
1592de3b87aSKai Wang Dwarf_P_Attribute
dwarf_add_AT_const_value_string(Dwarf_P_Die die,char * string,Dwarf_Error * error)1602de3b87aSKai Wang dwarf_add_AT_const_value_string(Dwarf_P_Die die, char *string,
1612de3b87aSKai Wang Dwarf_Error *error)
1622de3b87aSKai Wang {
1632de3b87aSKai Wang Dwarf_Attribute at;
1642de3b87aSKai Wang
1652de3b87aSKai Wang if (_dwarf_add_string_attr(die, &at, DW_AT_const_value, string,
1662de3b87aSKai Wang error) != DW_DLE_NONE)
1672de3b87aSKai Wang return (DW_DLV_BADADDR);
1682de3b87aSKai Wang
1692de3b87aSKai Wang return (at);
1702de3b87aSKai Wang }
1712de3b87aSKai Wang
1722de3b87aSKai Wang Dwarf_P_Attribute
dwarf_add_AT_targ_address(Dwarf_P_Debug dbg,Dwarf_P_Die die,Dwarf_Half attr,Dwarf_Unsigned pc_value,Dwarf_Signed sym_index,Dwarf_Error * error)1732de3b87aSKai Wang dwarf_add_AT_targ_address(Dwarf_P_Debug dbg, Dwarf_P_Die die, Dwarf_Half attr,
1742de3b87aSKai Wang Dwarf_Unsigned pc_value, Dwarf_Signed sym_index, Dwarf_Error *error)
1752de3b87aSKai Wang {
1762de3b87aSKai Wang
1772de3b87aSKai Wang return (dwarf_add_AT_targ_address_b(dbg, die, attr, pc_value, sym_index,
1782de3b87aSKai Wang error));
1792de3b87aSKai Wang }
1802de3b87aSKai Wang
1812de3b87aSKai Wang Dwarf_P_Attribute
dwarf_add_AT_targ_address_b(Dwarf_P_Debug dbg,Dwarf_P_Die die,Dwarf_Half attr,Dwarf_Unsigned pc_value,Dwarf_Unsigned sym_index,Dwarf_Error * error)1822de3b87aSKai Wang dwarf_add_AT_targ_address_b(Dwarf_P_Debug dbg, Dwarf_P_Die die, Dwarf_Half attr,
1832de3b87aSKai Wang Dwarf_Unsigned pc_value, Dwarf_Unsigned sym_index, Dwarf_Error *error)
1842de3b87aSKai Wang {
1852de3b87aSKai Wang Dwarf_Attribute at;
1862de3b87aSKai Wang
1872de3b87aSKai Wang if (dbg == NULL || die == NULL) {
1882de3b87aSKai Wang DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
1892de3b87aSKai Wang return (DW_DLV_BADADDR);
1902de3b87aSKai Wang }
1912de3b87aSKai Wang
1922de3b87aSKai Wang if (_dwarf_attr_alloc(die, &at, error) != DW_DLE_NONE)
1932de3b87aSKai Wang return (DW_DLV_BADADDR);
1942de3b87aSKai Wang
1952de3b87aSKai Wang at->at_die = die;
1962de3b87aSKai Wang at->at_attrib = attr;
1972de3b87aSKai Wang at->at_form = DW_FORM_addr;
1982de3b87aSKai Wang at->at_relsym = sym_index;
1992de3b87aSKai Wang at->u[0].u64 = pc_value;
2002de3b87aSKai Wang
2012de3b87aSKai Wang STAILQ_INSERT_TAIL(&die->die_attr, at, at_next);
2022de3b87aSKai Wang
2032de3b87aSKai Wang return (at);
2042de3b87aSKai Wang }
2052de3b87aSKai Wang
2062de3b87aSKai Wang Dwarf_P_Attribute
dwarf_add_AT_dataref(Dwarf_P_Debug dbg,Dwarf_P_Die die,Dwarf_Half attr,Dwarf_Unsigned pc_value,Dwarf_Unsigned sym_index,Dwarf_Error * error)2072de3b87aSKai Wang dwarf_add_AT_dataref(Dwarf_P_Debug dbg, Dwarf_P_Die die, Dwarf_Half attr,
2082de3b87aSKai Wang Dwarf_Unsigned pc_value, Dwarf_Unsigned sym_index, Dwarf_Error *error)
2092de3b87aSKai Wang {
2102de3b87aSKai Wang Dwarf_Attribute at;
2112de3b87aSKai Wang int ret;
2122de3b87aSKai Wang
2132de3b87aSKai Wang if (dbg == NULL || die == NULL) {
2142de3b87aSKai Wang DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
2152de3b87aSKai Wang return (DW_DLV_BADADDR);
2162de3b87aSKai Wang }
2172de3b87aSKai Wang
2182de3b87aSKai Wang ret = _dwarf_add_AT_dataref(dbg, die, attr, pc_value, sym_index,
2192de3b87aSKai Wang NULL, &at, error);
2202de3b87aSKai Wang if (ret != DW_DLE_NONE)
2212de3b87aSKai Wang return (DW_DLV_BADADDR);
2222de3b87aSKai Wang
2232de3b87aSKai Wang return (at);
2242de3b87aSKai Wang
2252de3b87aSKai Wang }
2262de3b87aSKai Wang
2272de3b87aSKai Wang Dwarf_P_Attribute
dwarf_add_AT_ref_address(Dwarf_P_Debug dbg,Dwarf_P_Die die,Dwarf_Half attr,Dwarf_Unsigned pc_value,Dwarf_Unsigned sym_index,Dwarf_Error * error)2282de3b87aSKai Wang dwarf_add_AT_ref_address(Dwarf_P_Debug dbg, Dwarf_P_Die die, Dwarf_Half attr,
2292de3b87aSKai Wang Dwarf_Unsigned pc_value, Dwarf_Unsigned sym_index, Dwarf_Error *error)
2302de3b87aSKai Wang {
2312de3b87aSKai Wang Dwarf_Attribute at;
2322de3b87aSKai Wang
2332de3b87aSKai Wang if (dbg == NULL || die == NULL) {
2342de3b87aSKai Wang DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
2352de3b87aSKai Wang return (DW_DLV_BADADDR);
2362de3b87aSKai Wang }
2372de3b87aSKai Wang
2382de3b87aSKai Wang if (_dwarf_attr_alloc(die, &at, error) != DW_DLE_NONE)
2392de3b87aSKai Wang return (DW_DLV_BADADDR);
2402de3b87aSKai Wang
2412de3b87aSKai Wang at->at_die = die;
2422de3b87aSKai Wang at->at_attrib = attr;
2432de3b87aSKai Wang at->at_form = DW_FORM_ref_addr;
2442de3b87aSKai Wang at->at_relsym = sym_index;
2452de3b87aSKai Wang at->u[0].u64 = pc_value;
2462de3b87aSKai Wang
2472de3b87aSKai Wang STAILQ_INSERT_TAIL(&die->die_attr, at, at_next);
2482de3b87aSKai Wang
2492de3b87aSKai Wang return (at);
2502de3b87aSKai Wang }
2512de3b87aSKai Wang
2522de3b87aSKai Wang Dwarf_P_Attribute
dwarf_add_AT_unsigned_const(Dwarf_P_Debug dbg,Dwarf_P_Die die,Dwarf_Half attr,Dwarf_Unsigned value,Dwarf_Error * error)2532de3b87aSKai Wang dwarf_add_AT_unsigned_const(Dwarf_P_Debug dbg, Dwarf_P_Die die, Dwarf_Half attr,
2542de3b87aSKai Wang Dwarf_Unsigned value, Dwarf_Error *error)
2552de3b87aSKai Wang {
2562de3b87aSKai Wang Dwarf_Attribute at;
2572de3b87aSKai Wang
2582de3b87aSKai Wang if (dbg == NULL || die == NULL) {
2592de3b87aSKai Wang DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
2602de3b87aSKai Wang return (DW_DLV_BADADDR);
2612de3b87aSKai Wang }
2622de3b87aSKai Wang
2632de3b87aSKai Wang if (_dwarf_attr_alloc(die, &at, error) != DW_DLE_NONE)
2642de3b87aSKai Wang return (DW_DLV_BADADDR);
2652de3b87aSKai Wang
2662de3b87aSKai Wang at->at_die = die;
2672de3b87aSKai Wang at->at_attrib = attr;
2682de3b87aSKai Wang at->u[0].u64 = value;
2692de3b87aSKai Wang
2702de3b87aSKai Wang if (value <= UCHAR_MAX)
2712de3b87aSKai Wang at->at_form = DW_FORM_data1;
2722de3b87aSKai Wang else if (value <= USHRT_MAX)
2732de3b87aSKai Wang at->at_form = DW_FORM_data2;
2742de3b87aSKai Wang else if (value <= UINT_MAX)
2752de3b87aSKai Wang at->at_form = DW_FORM_data4;
2762de3b87aSKai Wang else
2772de3b87aSKai Wang at->at_form = DW_FORM_data8;
2782de3b87aSKai Wang
2792de3b87aSKai Wang STAILQ_INSERT_TAIL(&die->die_attr, at, at_next);
2802de3b87aSKai Wang
2812de3b87aSKai Wang return (at);
2822de3b87aSKai Wang }
2832de3b87aSKai Wang
2842de3b87aSKai Wang Dwarf_P_Attribute
dwarf_add_AT_signed_const(Dwarf_P_Debug dbg,Dwarf_P_Die die,Dwarf_Half attr,Dwarf_Signed value,Dwarf_Error * error)2852de3b87aSKai Wang dwarf_add_AT_signed_const(Dwarf_P_Debug dbg, Dwarf_P_Die die, Dwarf_Half attr,
2862de3b87aSKai Wang Dwarf_Signed value, Dwarf_Error *error)
2872de3b87aSKai Wang {
2882de3b87aSKai Wang Dwarf_Attribute at;
2892de3b87aSKai Wang
2902de3b87aSKai Wang if (dbg == NULL || die == NULL) {
2912de3b87aSKai Wang DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
2922de3b87aSKai Wang return (DW_DLV_BADADDR);
2932de3b87aSKai Wang }
2942de3b87aSKai Wang
2952de3b87aSKai Wang if (_dwarf_attr_alloc(die, &at, error) != DW_DLE_NONE)
2962de3b87aSKai Wang return (DW_DLV_BADADDR);
2972de3b87aSKai Wang
2982de3b87aSKai Wang at->at_die = die;
2992de3b87aSKai Wang at->at_attrib = attr;
3002de3b87aSKai Wang at->u[0].u64 = value;
3012de3b87aSKai Wang
3022de3b87aSKai Wang if (value >= SCHAR_MIN && value <= SCHAR_MAX)
3032de3b87aSKai Wang at->at_form = DW_FORM_data1;
3042de3b87aSKai Wang else if (value >= SHRT_MIN && value <= SHRT_MAX)
3052de3b87aSKai Wang at->at_form = DW_FORM_data2;
3062de3b87aSKai Wang else if (value >= INT_MIN && value <= INT_MAX)
3072de3b87aSKai Wang at->at_form = DW_FORM_data4;
3082de3b87aSKai Wang else
3092de3b87aSKai Wang at->at_form = DW_FORM_data8;
3102de3b87aSKai Wang
3112de3b87aSKai Wang STAILQ_INSERT_TAIL(&die->die_attr, at, at_next);
3122de3b87aSKai Wang
3132de3b87aSKai Wang return (at);
3142de3b87aSKai Wang }
3152de3b87aSKai Wang
3162de3b87aSKai Wang Dwarf_P_Attribute
dwarf_add_AT_reference(Dwarf_P_Debug dbg,Dwarf_P_Die die,Dwarf_Half attr,Dwarf_P_Die ref_die,Dwarf_Error * error)3172de3b87aSKai Wang dwarf_add_AT_reference(Dwarf_P_Debug dbg, Dwarf_P_Die die, Dwarf_Half attr,
3182de3b87aSKai Wang Dwarf_P_Die ref_die, Dwarf_Error *error)
3192de3b87aSKai Wang {
3202de3b87aSKai Wang Dwarf_Attribute at;
3212de3b87aSKai Wang
3222de3b87aSKai Wang if (dbg == NULL || die == NULL) {
3232de3b87aSKai Wang DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
3242de3b87aSKai Wang return (DW_DLV_BADADDR);
3252de3b87aSKai Wang }
3262de3b87aSKai Wang
3272de3b87aSKai Wang if (_dwarf_attr_alloc(die, &at, error) != DW_DLE_NONE)
3282de3b87aSKai Wang return (DW_DLV_BADADDR);
3292de3b87aSKai Wang
3302de3b87aSKai Wang at->at_die = die;
3312de3b87aSKai Wang at->at_attrib = attr;
3322de3b87aSKai Wang if (dbg->dbg_offset_size == 4)
3332de3b87aSKai Wang at->at_form = DW_FORM_ref4;
3342de3b87aSKai Wang else
3352de3b87aSKai Wang at->at_form = DW_FORM_ref8;
3362de3b87aSKai Wang
3372de3b87aSKai Wang at->at_refdie = ref_die;
3382de3b87aSKai Wang
3392de3b87aSKai Wang STAILQ_INSERT_TAIL(&die->die_attr, at, at_next);
3402de3b87aSKai Wang
3412de3b87aSKai Wang return (at);
3422de3b87aSKai Wang }
3432de3b87aSKai Wang
3442de3b87aSKai Wang Dwarf_P_Attribute
dwarf_add_AT_flag(Dwarf_P_Debug dbg,Dwarf_P_Die die,Dwarf_Half attr,Dwarf_Small flag,Dwarf_Error * error)3452de3b87aSKai Wang dwarf_add_AT_flag(Dwarf_P_Debug dbg, Dwarf_P_Die die, Dwarf_Half attr,
3462de3b87aSKai Wang Dwarf_Small flag, Dwarf_Error *error)
3472de3b87aSKai Wang {
3482de3b87aSKai Wang Dwarf_Attribute at;
3492de3b87aSKai Wang
3502de3b87aSKai Wang if (dbg == NULL || die == NULL) {
3512de3b87aSKai Wang DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
3522de3b87aSKai Wang return (DW_DLV_BADADDR);
3532de3b87aSKai Wang }
3542de3b87aSKai Wang
3552de3b87aSKai Wang if (_dwarf_attr_alloc(die, &at, error) != DW_DLE_NONE)
3562de3b87aSKai Wang return (DW_DLV_BADADDR);
3572de3b87aSKai Wang
3582de3b87aSKai Wang at->at_die = die;
3592de3b87aSKai Wang at->at_attrib = attr;
3602de3b87aSKai Wang at->at_form = DW_FORM_flag;
3612de3b87aSKai Wang at->u[0].u64 = flag ? 1 : 0;
3622de3b87aSKai Wang
3632de3b87aSKai Wang STAILQ_INSERT_TAIL(&die->die_attr, at, at_next);
3642de3b87aSKai Wang
3652de3b87aSKai Wang return (at);
3662de3b87aSKai Wang }
3672de3b87aSKai Wang
3682de3b87aSKai Wang Dwarf_P_Attribute
dwarf_add_AT_string(Dwarf_P_Debug dbg,Dwarf_P_Die die,Dwarf_Half attr,char * string,Dwarf_Error * error)3692de3b87aSKai Wang dwarf_add_AT_string(Dwarf_P_Debug dbg, Dwarf_P_Die die, Dwarf_Half attr,
3702de3b87aSKai Wang char *string, Dwarf_Error *error)
3712de3b87aSKai Wang {
3722de3b87aSKai Wang Dwarf_Attribute at;
3732de3b87aSKai Wang
3742de3b87aSKai Wang if (dbg == NULL || die == NULL) {
3752de3b87aSKai Wang DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
3762de3b87aSKai Wang return (DW_DLV_BADADDR);
3772de3b87aSKai Wang }
3782de3b87aSKai Wang
3792de3b87aSKai Wang /* XXX Add DW_FORM_string style string instead? */
3802de3b87aSKai Wang
3812de3b87aSKai Wang if (_dwarf_add_string_attr(die, &at, attr, string, error) !=
3822de3b87aSKai Wang DW_DLE_NONE)
3832de3b87aSKai Wang return (DW_DLV_BADADDR);
3842de3b87aSKai Wang
3852de3b87aSKai Wang return (at);
3862de3b87aSKai Wang }
387