1/*-
2 * Copyright (c) 2010 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_frame.c 2074 2011-10-27 03:34:33Z jkoshy $");
30
31Dwarf_P_Fde
32dwarf_new_fde(Dwarf_P_Debug dbg, Dwarf_Error *error)
33{
34	Dwarf_P_Fde fde;
35
36	if (dbg == NULL) {
37		DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
38		return (DW_DLV_BADADDR);
39	}
40
41	if ((fde = calloc(1, sizeof(struct _Dwarf_Fde))) == NULL) {
42		DWARF_SET_ERROR(dbg, error, DW_DLE_MEMORY);
43		return (DW_DLV_BADADDR);
44	}
45
46	fde->fde_dbg = dbg;
47
48	return (fde);
49}
50
51Dwarf_Unsigned
52dwarf_add_frame_cie(Dwarf_P_Debug dbg, char *augmenter, Dwarf_Small caf,
53    Dwarf_Small daf, Dwarf_Small ra, Dwarf_Ptr initinst,
54    Dwarf_Unsigned inst_len, Dwarf_Error *error)
55{
56	Dwarf_P_Cie cie;
57
58	if (dbg == NULL) {
59		DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
60		return (DW_DLV_NOCOUNT);
61	}
62
63	if ((cie = calloc(1, sizeof(struct _Dwarf_Cie))) == NULL) {
64		DWARF_SET_ERROR(dbg, error,DW_DLE_MEMORY);
65		return (DW_DLV_NOCOUNT);
66	}
67	STAILQ_INSERT_TAIL(&dbg->dbgp_cielist, cie, cie_next);
68
69	cie->cie_index = dbg->dbgp_cielen++;
70
71	if (augmenter != NULL) {
72		cie->cie_augment = (uint8_t *) strdup(augmenter);
73		if (cie->cie_augment == NULL) {
74			DWARF_SET_ERROR(dbg, error, DW_DLE_MEMORY);
75			return (DW_DLV_NOCOUNT);
76		}
77	}
78
79	cie->cie_caf = caf;
80	cie->cie_daf = (int8_t) daf; /* daf is signed. */
81	cie->cie_ra = ra;
82	if (initinst != NULL && inst_len > 0) {
83		cie->cie_initinst = malloc((size_t) inst_len);
84		if (cie->cie_initinst == NULL) {
85			DWARF_SET_ERROR(dbg, error, DW_DLE_MEMORY);
86			return (DW_DLV_NOCOUNT);
87		}
88		memcpy(cie->cie_initinst, initinst, inst_len);
89		cie->cie_instlen = inst_len;
90	}
91
92	return (cie->cie_index);
93}
94
95Dwarf_Unsigned
96dwarf_add_frame_fde(Dwarf_P_Debug dbg, Dwarf_P_Fde fde, Dwarf_P_Die die,
97    Dwarf_Unsigned cie, Dwarf_Addr virt_addr, Dwarf_Unsigned code_len,
98    Dwarf_Unsigned symbol_index, Dwarf_Error *error)
99{
100
101	return (dwarf_add_frame_fde_b(dbg, fde, die, cie, virt_addr, code_len,
102	    symbol_index, 0, 0, error));
103}
104
105Dwarf_Unsigned
106dwarf_add_frame_fde_b(Dwarf_P_Debug dbg, Dwarf_P_Fde fde, Dwarf_P_Die die,
107    Dwarf_Unsigned cie, Dwarf_Addr virt_addr, Dwarf_Unsigned code_len,
108    Dwarf_Unsigned symbol_index, Dwarf_Unsigned end_symbol_index,
109    Dwarf_Addr offset_from_end_sym, Dwarf_Error *error)
110{
111	Dwarf_P_Cie ciep;
112	int i;
113
114	/*
115	 * XXX SGI libdwarf need the DIE arg because later it will insert a
116	 * DW_AT_MIPS_fde attribute, which points to the offset the
117	 * correspoding FDE, into this DIE. Do we need this?
118	 */
119	(void) die;
120
121	if (dbg == NULL || fde == NULL || fde->fde_dbg != dbg) {
122		DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
123		return (DW_DLV_NOCOUNT);
124	}
125
126	ciep = STAILQ_FIRST(&dbg->dbgp_cielist);
127	for (i = 0; (Dwarf_Unsigned) i < cie; i++) {
128		ciep = STAILQ_NEXT(ciep, cie_next);
129		if (ciep == NULL)
130			break;
131	}
132	if (ciep == NULL) {
133		DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
134		return (DW_DLV_NOCOUNT);
135	}
136
137	if (end_symbol_index > 0 &&
138	    (dbg->dbgp_flags & DW_DLC_SYMBOLIC_RELOCATIONS) == 0) {
139		DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
140		return (DW_DLV_NOCOUNT);
141	}
142
143	fde->fde_cie = ciep;
144	fde->fde_initloc = virt_addr;
145	fde->fde_adrange = code_len;
146	fde->fde_symndx = symbol_index;
147	fde->fde_esymndx = end_symbol_index;
148	fde->fde_eoff = offset_from_end_sym;
149
150	STAILQ_INSERT_TAIL(&dbg->dbgp_fdelist, fde, fde_next);
151
152	return (dbg->dbgp_fdelen++);
153}
154
155Dwarf_P_Fde
156dwarf_fde_cfa_offset(Dwarf_P_Fde fde, Dwarf_Unsigned reg, Dwarf_Signed offset,
157    Dwarf_Error *error)
158{
159	int ret;
160	Dwarf_Debug dbg;
161
162	dbg = fde != NULL ? fde->fde_dbg : NULL;
163
164	if (fde == NULL || reg > 0x3f) {
165		DWARF_SET_ERROR(dbg, error, DW_DLE_ARGUMENT);
166		return (DW_DLV_BADADDR);
167	}
168
169	ret = _dwarf_frame_fde_add_inst(fde, DW_CFA_offset | (reg & 0x3f),
170	    offset, 0, error);
171
172	if (ret != DW_DLE_NONE)
173		return (DW_DLV_BADADDR);
174
175	return (fde);
176}
177
178Dwarf_P_Fde
179dwarf_add_fde_inst(Dwarf_P_Fde fde, Dwarf_Small op, Dwarf_Unsigned val1,
180    Dwarf_Unsigned val2, Dwarf_Error *error)
181{
182	int ret;
183
184	if (fde == NULL) {
185		DWARF_SET_ERROR(NULL, error, DW_DLE_ARGUMENT);
186		return (DW_DLV_BADADDR);
187	}
188
189	ret = _dwarf_frame_fde_add_inst(fde, op, val1, val2, error);
190
191	if (ret != DW_DLE_NONE)
192		return (DW_DLV_BADADDR);
193
194	return (fde);
195}
196