xref: /illumos-gate/usr/src/cmd/sgs/liblddbg/common/map.c (revision 08278a5e)
1 /*
2  * CDDL HEADER START
3  *
4  * The contents of this file are subject to the terms of the
5  * Common Development and Distribution License (the "License").
6  * You may not use this file except in compliance with the License.
7  *
8  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9  * or http://www.opensolaris.org/os/licensing.
10  * See the License for the specific language governing permissions
11  * and limitations under the License.
12  *
13  * When distributing Covered Code, include this CDDL HEADER in each
14  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15  * If applicable, add the following below this CDDL HEADER, with the
16  * fields enclosed by brackets "[]" replaced with your own identifying
17  * information: Portions Copyright [yyyy] [name of copyright owner]
18  *
19  * CDDL HEADER END
20  */
21 
22 /*
23  * Copyright 2010 Sun Microsystems, Inc.  All rights reserved.
24  * Use is subject to license terms.
25  */
26 
27 #include	"msg.h"
28 #include	"_debug.h"
29 #include	"libld.h"
30 
31 
32 /*
33  * Report change in input enable status caused by evaluating
34  * $if/$elif control directives.
35  */
36 void
Dbg_map_pass(Lm_list * lml,Boolean enable,const char * file,Lineno lineno,const char * directive)37 Dbg_map_pass(Lm_list *lml, Boolean enable, const char *file,
38     Lineno lineno, const char *directive)
39 {
40 	const char *fmt;
41 
42 	if (DBG_NOTCLASS(DBG_C_MAP))
43 		return;
44 
45 	fmt = enable ? MSG_INTL(MSG_MAP_PASS) : MSG_INTL(MSG_MAP_NOPASS);
46 	dbg_print(lml, fmt, file, EC_LINENO(lineno), directive);
47 }
48 
49 /*
50  * Report entry/removal of boolean identifier from conditional expression
51  * known values.
52  */
53 void
Dbg_map_cexp_id(Lm_list * lml,Boolean add,const char * file,Lineno lineno,const char * id)54 Dbg_map_cexp_id(Lm_list *lml, Boolean add, const char *file,
55     Lineno lineno, const char *id)
56 {
57 	const char *fmt;
58 
59 	if (DBG_NOTCLASS(DBG_C_MAP))
60 		return;
61 
62 	fmt = add ? MSG_INTL(MSG_MAP_ID_ADD) : MSG_INTL(MSG_MAP_ID_CLEAR);
63 	dbg_print(lml, fmt, file, EC_LINENO(lineno), id);
64 }
65 
66 void
Dbg_map_version(Lm_list * lml,const char * version,const char * name,int scope)67 Dbg_map_version(Lm_list *lml, const char *version, const char *name, int scope)
68 {
69 	const char	*str, *scp;
70 
71 	if (DBG_NOTCLASS(DBG_C_MAP | DBG_C_SYMBOLS))
72 		return;
73 
74 	str = MSG_INTL(MSG_MAP_SYM_SCOPE);
75 	if (scope)
76 		scp = MSG_ORIG(MSG_SYM_GLOBAL);
77 	else
78 		scp = MSG_ORIG(MSG_SYM_LOCAL);
79 
80 	if (version)
81 		dbg_print(lml, MSG_INTL(MSG_MAP_SYM_VER_1), str, version,
82 		    Dbg_demangle_name(name), scp);
83 	else
84 		dbg_print(lml, MSG_INTL(MSG_MAP_SYM_VER_2), str,
85 		    Dbg_demangle_name(name), scp);
86 }
87 
88 void
Dbg_map_size_new(Lm_list * lml,const char * symname,const char * segname,Lineno lineno)89 Dbg_map_size_new(Lm_list *lml, const char *symname, const char *segname,
90     Lineno lineno)
91 {
92 	if (DBG_NOTCLASS(DBG_C_MAP))
93 		return;
94 
95 	Dbg_util_nl(lml, DBG_NL_STD);
96 	dbg_print(lml, MSG_INTL(MSG_MAP_SYM_SIZE), EC_LINENO(lineno), segname,
97 	    Dbg_demangle_name(symname), MSG_INTL(MSG_STR_ADDING));
98 }
99 
100 void
Dbg_map_size_old(Ofl_desc * ofl,Sym_desc * sdp,const char * segname,Lineno lineno)101 Dbg_map_size_old(Ofl_desc *ofl, Sym_desc *sdp, const char *segname,
102     Lineno lineno)
103 {
104 	Conv_inv_buf_t	inv_buf;
105 	Lm_list		*lml = ofl->ofl_lml;
106 
107 	if (DBG_NOTCLASS(DBG_C_MAP))
108 		return;
109 
110 	Dbg_util_nl(lml, DBG_NL_STD);
111 	dbg_print(lml, MSG_INTL(MSG_MAP_SYM_SIZE), EC_LINENO(lineno), segname,
112 	    sdp->sd_name, MSG_INTL(MSG_STR_UP_1));
113 
114 	if (DBG_NOTDETAIL())
115 		return;
116 
117 	Elf_syms_table_entry(lml, ELF_DBG_LD, MSG_INTL(MSG_STR_UP_2),
118 	    ofl->ofl_dehdr->e_ident[EI_OSABI], ofl->ofl_dehdr->e_machine,
119 	    sdp->sd_sym, sdp->sd_aux ? sdp->sd_aux->sa_overndx : 0, 0, NULL,
120 	    conv_def_tag(sdp->sd_ref, &inv_buf));
121 }
122 
123 void
Dbg_map_symbol(Ofl_desc * ofl,Sym_desc * sdp)124 Dbg_map_symbol(Ofl_desc *ofl, Sym_desc *sdp)
125 {
126 	Conv_inv_buf_t	inv_buf;
127 	Lm_list		*lml = ofl->ofl_lml;
128 
129 	if (DBG_NOTCLASS(DBG_C_MAP | DBG_C_SYMBOLS))
130 		return;
131 	if (DBG_NOTDETAIL())
132 		return;
133 
134 	Elf_syms_table_entry(lml, ELF_DBG_LD, MSG_INTL(MSG_STR_ENTERED),
135 	    ofl->ofl_dehdr->e_ident[EI_OSABI],  ofl->ofl_dehdr->e_machine,
136 	    sdp->sd_sym, sdp->sd_aux ? sdp->sd_aux->sa_overndx : 0, 0, NULL,
137 	    conv_def_tag(sdp->sd_ref, &inv_buf));
138 }
139 
140 /*
141  * Object version dependency. In the v1 syntax, this is the 'dash' operator.
142  * In the v2 syntax, the DEPEND_VERSIONS directive.
143  */
144 void
Dbg_map_dv(Lm_list * lml,const char * obj_name,Lineno lineno)145 Dbg_map_dv(Lm_list *lml, const char *obj_name, Lineno lineno)
146 {
147 	if (DBG_NOTCLASS(DBG_C_MAP))
148 		return;
149 
150 	dbg_print(lml, MSG_INTL(MSG_MAP_DV), EC_LINENO(lineno), obj_name);
151 }
152 
153 /*
154  * Add a version to an object dependency
155  */
156 void
Dbg_map_dv_entry(Lm_list * lml,Lineno lineno,int require,const char * version)157 Dbg_map_dv_entry(Lm_list *lml, Lineno lineno, int require, const char *version)
158 {
159 	const char *attr;
160 
161 	if (DBG_NOTCLASS(DBG_C_MAP))
162 		return;
163 
164 	attr = require ? MSG_INTL(MSG_STR_REQUIRE) : MSG_INTL(MSG_STR_ALLOW);
165 	dbg_print(lml, MSG_INTL(MSG_MAP_DV_ENTRY), attr, version,
166 	    EC_LINENO(lineno));
167 }
168 
169 void
Dbg_map_sort_title(Lm_list * lml,Boolean orig)170 Dbg_map_sort_title(Lm_list *lml, Boolean orig)
171 {
172 	if (DBG_NOTCLASS(DBG_C_MAP))
173 		return;
174 	if (DBG_NOTDETAIL())
175 		return;
176 
177 	if (orig) {
178 		Dbg_util_nl(lml, DBG_NL_STD);
179 		dbg_print(lml, MSG_INTL(MSG_MAP_SORT_TITLE));
180 		dbg_print(lml, MSG_INTL(MSG_MAP_SORT_TITLE_O));
181 	} else {
182 		dbg_print(lml, MSG_INTL(MSG_MAP_SORT_TITLE_S));
183 	}
184 }
185 
186 void
Dbg_map_sort_seg(Lm_list * lml,uchar_t osabi,Half mach,Sg_desc * sgp)187 Dbg_map_sort_seg(Lm_list *lml, uchar_t osabi, Half mach, Sg_desc *sgp)
188 {
189 	const char	*type_str;
190 	Conv_inv_buf_t	inv_buf;
191 
192 	if (DBG_NOTCLASS(DBG_C_MAP))
193 		return;
194 	if (DBG_NOTDETAIL())
195 		return;
196 
197 	type_str = conv_phdr_type(osabi, mach, sgp->sg_phdr.p_type,
198 	    0, &inv_buf);
199 
200 	if (sgp->sg_name) {
201 		if (sgp->sg_flags & FLG_SG_P_VADDR) {
202 			dbg_print(lml, MSG_ORIG(MSG_MAP_SORT_SEG_V),
203 			    type_str, sgp->sg_name,
204 			    EC_ADDR(sgp->sg_phdr.p_vaddr));
205 		} else if (sgp->sg_flags & FLG_SG_ORDERED) {
206 			/*
207 			 * All FLG_SG_ORDERED have adjacent sg_id values
208 			 * that start at SGID_TEXT. Subtract out the base
209 			 * in order to present the order values based at 0.
210 			 */
211 			dbg_print(lml, MSG_ORIG(MSG_MAP_SORT_SEG_O),
212 			    type_str, sgp->sg_name,
213 			    EC_WORD(sgp->sg_id - SGID_TEXT));
214 		} else {
215 			dbg_print(lml, MSG_ORIG(MSG_MAP_SORT_SEG_NAME),
216 			    type_str, sgp->sg_name);
217 		}
218 	} else {
219 		dbg_print(lml, MSG_ORIG(MSG_MAP_SORT_SEG), type_str);
220 	}
221 }
222 
223 void
Dbg_map_parse(Lm_list * lml,const char * file,int version)224 Dbg_map_parse(Lm_list *lml, const char *file, int version)
225 {
226 	Conv_inv_buf_t	inv_buf;
227 
228 	if (DBG_NOTCLASS(DBG_C_MAP))
229 		return;
230 
231 	Dbg_util_nl(lml, DBG_NL_STD);
232 	dbg_print(lml, MSG_INTL(MSG_MAP_MAPFILE), file, EC_WORD(version),
233 	    conv_mapfile_version(version, 0, &inv_buf));
234 }
235 
236 void
Dbg_map_ent(Lm_list * lml,Ent_desc * enp,Ofl_desc * ofl,Lineno lineno)237 Dbg_map_ent(Lm_list *lml, Ent_desc *enp, Ofl_desc *ofl, Lineno lineno)
238 {
239 	if (DBG_NOTCLASS(DBG_C_MAP))
240 		return;
241 
242 	Dbg_util_nl(lml, DBG_NL_STD);
243 	dbg_print(lml, MSG_INTL(MSG_MAP_EC), EC_LINENO(lineno));
244 	Dbg_ent_entry(lml, ofl->ofl_dehdr->e_ident[EI_OSABI],
245 	    ofl->ofl_dehdr->e_machine, enp);
246 }
247 
248 void
Dbg_map_ent_ord_title(Lm_list * lml,const char * segname)249 Dbg_map_ent_ord_title(Lm_list *lml, const char *segname)
250 {
251 	if (DBG_NOTCLASS(DBG_C_MAP))
252 		return;
253 
254 	Dbg_util_nl(lml, DBG_NL_STD);
255 	dbg_print(lml, MSG_INTL(MSG_MAP_ENT_ORD_TITLE), segname);
256 }
257 
258 void
Dbg_map_seg_os_order(Lm_list * lml,Sg_desc * sgp,const char * sec_name,Word ndx,Lineno lineno)259 Dbg_map_seg_os_order(Lm_list *lml, Sg_desc *sgp, const char *sec_name,
260     Word ndx, Lineno lineno)
261 {
262 	if (DBG_NOTCLASS(DBG_C_MAP))
263 		return;
264 
265 	dbg_print(lml, MSG_INTL(MSG_MAP_OS_ORDER), EC_LINENO(lineno),
266 	    sgp->sg_name, sec_name, EC_WORD(ndx));
267 }
268 
269 void
Dbg_map_seg(Ofl_desc * ofl,dbg_state_t dbg_state,int ndx,Sg_desc * sgp,Lineno lineno)270 Dbg_map_seg(Ofl_desc *ofl, dbg_state_t dbg_state, int ndx, Sg_desc *sgp,
271     Lineno lineno)
272 {
273 	Lm_list	*lml = ofl->ofl_lml;
274 
275 	if (DBG_NOTCLASS(DBG_C_MAP))
276 		return;
277 
278 	Dbg_util_nl(lml, DBG_NL_STD);
279 	dbg_print(lml, MSG_INTL(MSG_MAP_SEG), EC_LINENO(lineno),
280 	    Dbg_state_str(dbg_state));
281 	Dbg_seg_desc_entry(ofl->ofl_lml, ofl->ofl_dehdr->e_ident[EI_OSABI],
282 	    ofl->ofl_dehdr->e_machine, ndx, sgp, FALSE);
283 	Dbg_util_nl(lml, DBG_NL_STD);
284 }
285 
286 void
Dbg_map_seg_order(Ofl_desc * ofl,uchar_t osabi,Half mach,dbg_state_t dbg_state,Lineno lineno)287 Dbg_map_seg_order(Ofl_desc *ofl, uchar_t osabi, Half mach,
288     dbg_state_t dbg_state, Lineno lineno)
289 {
290 	Lm_list	*lml = ofl->ofl_lml;
291 	Aliste		idx;
292 	Sg_desc		*sgp;
293 	Conv_inv_buf_t	inv_buf;
294 	const char	*type_str;
295 
296 	if (DBG_NOTCLASS(DBG_C_MAP))
297 		return;
298 
299 	Dbg_util_nl(lml, DBG_NL_STD);
300 	dbg_print(lml, MSG_INTL(MSG_MAP_SEG_ORDER), EC_LINENO(lineno),
301 	    EC_XWORD(aplist_nitems(ofl->ofl_segs_order)),
302 	    Dbg_state_str(dbg_state));
303 	for (APLIST_TRAVERSE(ofl->ofl_segs_order, idx, sgp)) {
304 		type_str = conv_phdr_type(osabi, mach, sgp->sg_phdr.p_type,
305 		    0, &inv_buf);
306 		dbg_print(lml, MSG_ORIG(MSG_MAP_SORT_SEG_NAME), type_str,
307 		    sgp->sg_name);
308 	}
309 	Dbg_util_nl(lml, DBG_NL_STD);
310 }
311 
312 void
Dbg_map_post_title(Lm_list * lml)313 Dbg_map_post_title(Lm_list *lml)
314 {
315 	if (DBG_NOTCLASS(DBG_C_MAP))
316 		return;
317 
318 	Dbg_util_nl(lml, DBG_NL_STD);
319 	dbg_print(lml, MSG_INTL(MSG_MAP_POST_TITLE));
320 }
321 
322 void
Dbg_map_hdr_noalloc(Lm_list * lml,Lineno lineno)323 Dbg_map_hdr_noalloc(Lm_list *lml, Lineno lineno)
324 {
325 	if (DBG_NOTCLASS(DBG_C_MAP))
326 		return;
327 
328 	Dbg_util_nl(lml, DBG_NL_STD);
329 	dbg_print(lml, MSG_INTL(MSG_MAP_HDR_NOALLOC), EC_LINENO(lineno));
330 }
331