1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
/*
* DWARF2 debugging format - address range table
*
* Copyright (C) 2006 Peter Johnson
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS''
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE
* LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/
#include <util.h>
/*@unused@*/ RCSID("$Id$");
#define YASM_LIB_INTERNAL
#define YASM_BC_INTERNAL
#include <libyasm.h>
#include "dwarf2-dbgfmt.h"
static void
dwarf2_append_arange(yasm_section *debug_aranges, /*@only@*/ yasm_expr *start,
/*@only@*/ yasm_expr *length, size_t sizeof_address)
{
yasm_datavalhead dvs;
yasm_bytecode *bc;
yasm_dvs_initialize(&dvs);
yasm_dvs_append(&dvs, yasm_dv_create_expr(start));
yasm_dvs_append(&dvs, yasm_dv_create_expr(length));
bc = yasm_bc_create_data(&dvs, sizeof_address, 0, NULL, 0);
yasm_bc_finalize(bc, yasm_dwarf2__append_bc(debug_aranges, bc));
yasm_bc_calc_len(bc, NULL, NULL);
}
typedef struct dwarf2_aranges_info {
yasm_section *debug_aranges; /* section to which address ranges go */
yasm_dbgfmt_dwarf2 *dbgfmt_dwarf2;
} dwarf2_aranges_info;
static int
dwarf2_generate_aranges_section(yasm_section *sect, /*@null@*/ void *d)
{
dwarf2_aranges_info *info = (dwarf2_aranges_info *)d;
yasm_dbgfmt_dwarf2 *dbgfmt_dwarf2 = info->dbgfmt_dwarf2;
/*@null@*/ dwarf2_section_data *dsd;
/*@only@*/ yasm_expr *start, *length;
dsd = yasm_section_get_data(sect, &yasm_dwarf2__section_data_cb);
if (!dsd)
return 0; /* no line data for this section */
/* Create address range descriptor */
start = yasm_expr_create_ident(
yasm_expr_sym(yasm_dwarf2__bc_sym(dbgfmt_dwarf2->symtab,
yasm_section_bcs_first(sect))), 0);
length = yasm_expr_create_ident(
yasm_expr_int(yasm_common_calc_bc_dist(
yasm_section_bcs_first(sect), yasm_section_bcs_last(sect))), 0);
dwarf2_append_arange(info->debug_aranges, start, length,
dbgfmt_dwarf2->sizeof_address);
return 0;
}
yasm_section *
yasm_dwarf2__generate_aranges(yasm_dbgfmt_dwarf2 *dbgfmt_dwarf2,
yasm_section *debug_info)
{
int new;
yasm_section *debug_aranges;
yasm_bytecode *bc;
dwarf2_head *head;
dwarf2_aranges_info info;
debug_aranges =
yasm_object_get_general(dbgfmt_dwarf2->object, ".debug_aranges", 0,
2*dbgfmt_dwarf2->sizeof_address, 0, 0, &new,
0);
/* header */
head = yasm_dwarf2__add_head(dbgfmt_dwarf2, debug_aranges, debug_info, 1,
1);
/* align ranges to 2x address size (range size) */
bc = yasm_bc_create_align(
yasm_expr_create_ident(yasm_expr_int(
yasm_intnum_create_uint(dbgfmt_dwarf2->sizeof_address*2)), 0),
NULL, NULL, NULL, 0);
yasm_bc_finalize(bc, yasm_dwarf2__append_bc(debug_aranges, bc));
yasm_bc_calc_len(bc, NULL, NULL);
info.debug_aranges = debug_aranges;
info.dbgfmt_dwarf2 = dbgfmt_dwarf2;
yasm_object_sections_traverse(dbgfmt_dwarf2->object, (void *)&info,
dwarf2_generate_aranges_section);
/* Terminate with empty address range descriptor */
dwarf2_append_arange(debug_aranges,
yasm_expr_create_ident(yasm_expr_int(yasm_intnum_create_uint(0)), 0),
yasm_expr_create_ident(yasm_expr_int(yasm_intnum_create_uint(0)), 0),
dbgfmt_dwarf2->sizeof_address);
/* mark end of aranges information */
yasm_dwarf2__set_head_end(head, yasm_section_bcs_last(debug_aranges));
return debug_aranges;
}
|
