1/*-
2 * Copyright (c) 2009 Kai Wang
3 * All rights reserved.
4 *
5 * Redistribution and use in source and binary forms, with or without
6 * modification, are permitted provided that the following conditions
7 * are met:
8 * 1. Redistributions of source code must retain the above copyright
9 *    notice, this list of conditions and the following disclaimer.
10 * 2. Redistributions in binary form must reproduce the above copyright
11 *    notice, this list of conditions and the following disclaimer in the
12 *    documentation and/or other materials provided with the distribution.
13 *
14 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
15 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
16 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
17 * ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
18 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
19 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
20 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
21 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
22 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
23 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
24 * SUCH DAMAGE.
25 */
26
27#include "_libdwarf.h"
28
29ELFTC_VCSID("$Id: dwarf_pro_die.c 2074 2011-10-27 03:34:33Z jkoshy $");
30
31Dwarf_Unsigned
32dwarf_add_die_to_debug(Dwarf_P_Debug dbg, Dwarf_P_Die first_die,
33    Dwarf_Error *error)
34{
35
36	if (dbg == NULL || first_die == NULL) {
37		DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
38		return (DW_DLV_NOCOUNT);
39	}
40
41	dbg->dbgp_root_die = first_die;
42
43	return (DW_DLV_OK);
44}
45
46Dwarf_P_Die
47dwarf_new_die(Dwarf_P_Debug dbg, Dwarf_Tag new_tag,
48    Dwarf_P_Die parent, Dwarf_P_Die child, Dwarf_P_Die left_sibling,
49    Dwarf_P_Die right_sibling, Dwarf_Error *error)
50{
51	Dwarf_P_Die die;
52	int count;
53
54	if (dbg == NULL) {
55		DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
56		return (DW_DLV_BADADDR);
57	}
58
59	count = _dwarf_die_count_links(parent, child, left_sibling,
60	    right_sibling);
61
62	if (count > 1) {
63		DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
64		return (DW_DLV_BADADDR);
65	}
66
67	if (_dwarf_die_alloc(dbg, &die, error) != DW_DLE_NONE)
68		return (DW_DLV_BADADDR);
69
70	die->die_dbg = dbg;
71	die->die_tag = new_tag;
72
73	STAILQ_INSERT_TAIL(&dbg->dbgp_dielist, die, die_pro_next);
74
75	if (count == 0)
76		return (die);
77
78	_dwarf_die_link(die, parent, child, left_sibling, right_sibling);
79
80	return (die);
81}
82
83Dwarf_P_Die
84dwarf_die_link(Dwarf_P_Die die, Dwarf_P_Die parent,
85    Dwarf_P_Die child, Dwarf_P_Die left_sibling, Dwarf_P_Die right_sibling,
86    Dwarf_Error *error)
87{
88	Dwarf_Debug dbg;
89	int count;
90
91
92	if (die == NULL) {
93		DWARF_SET_ERROR(NULL, error, DW_DLE_ARGUMENT);
94		return (DW_DLV_BADADDR);
95	}
96
97	dbg = die->die_dbg;
98	count = _dwarf_die_count_links(parent, child, left_sibling,
99	    right_sibling);
100
101	if (count > 1) {
102		DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
103		return (DW_DLV_BADADDR);
104	} else if (count == 0)
105		return (die);
106
107	_dwarf_die_link(die, parent, child, left_sibling, right_sibling);
108
109	return (die);
110}
111