xref: /titanic_52/usr/src/cmd/sgs/liblddbg/common/entry.c (revision 2b24ab6b3865caeede9eeb9db6b83e1d89dcd1ea)
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 2009 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  * Print out a single `entry descriptor' entry.
33  */
34 void
35 Dbg_ent_entry(Lm_list *lml, uchar_t osabi, Half mach, Ent_desc *enp)
36 {
37 	Conv_inv_buf_t		inv_buf;
38 	Conv_sec_flags_buf_t	sec_flags_buf;
39 	Aliste			idx;
40 	char			*cp;
41 
42 	dbg_print(lml, MSG_ORIG(MSG_ECR_NAME),
43 	    (enp->ec_name ? enp->ec_name : MSG_INTL(MSG_STR_NULL)),
44 	    conv_sec_flags(osabi, mach, enp->ec_attrmask, 0, &sec_flags_buf));
45 
46 	dbg_print(lml, MSG_ORIG(MSG_ECR_SEGMENT),
47 	    (enp->ec_segment->sg_name ? enp->ec_segment->sg_name :
48 	    MSG_INTL(MSG_STR_NULL)),
49 	    conv_sec_flags(osabi, mach, enp->ec_attrbits, 0, &sec_flags_buf));
50 
51 	dbg_print(lml, MSG_ORIG(MSG_ECR_NDX), EC_WORD(enp->ec_ordndx),
52 	    conv_sec_type(osabi, mach, enp->ec_type, 0, &inv_buf));
53 
54 	if (enp->ec_files) {
55 		dbg_print(lml, MSG_ORIG(MSG_ECR_FILES));
56 		for (APLIST_TRAVERSE(enp->ec_files, idx, cp))
57 			dbg_print(lml, MSG_ORIG(MSG_ECR_FILE), cp);
58 	}
59 }
60 
61 /*
62  * Print out all `entrance descriptor' entries.
63  */
64 void
65 Dbg_ent_print(Lm_list *lml, uchar_t osabi, Half mach, Alist *alp, Boolean dmode)
66 {
67 	Ent_desc	*enp;
68 	Aliste		ndx;
69 
70 	if (DBG_NOTCLASS(DBG_C_ENTRY))
71 		return;
72 
73 	Dbg_util_nl(lml, DBG_NL_STD);
74 	dbg_print(lml, MSG_INTL(MSG_ECR_TITLE),
75 	    (dmode ? MSG_INTL(MSG_ECR_DYNAMIC) : MSG_INTL(MSG_ECR_STATIC)));
76 
77 	for (ALIST_TRAVERSE(alp, ndx, enp)) {
78 		dbg_print(lml, MSG_INTL(MSG_ECR_DESC), EC_WORD(ndx));
79 		Dbg_ent_entry(lml, osabi, mach, enp);
80 	}
81 }
82