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 <link.h>
28 #include <libc_int.h>
29 #include <rtld.h>
30 #include <strings.h>
31 #include <debug.h>
32 #include "msg.h"
33 #include "_debug.h"
34
35 #define FLAGSZ CONV_EXPN_FIELD_DEF_PREFIX_SIZE + \
36 MSG_TLS_FLAG_STATIC_SIZE + CONV_EXPN_FIELD_DEF_SEP_SIZE + \
37 CONV_INV_BUFSIZE + CONV_EXPN_FIELD_DEF_SUFFIX_SIZE
38
39 static void
Dbg_tls_modent(Lm_list * lml,TLS_modinfo * tmodent)40 Dbg_tls_modent(Lm_list *lml, TLS_modinfo * tmodent)
41 {
42 /*
43 * MSG_ORIG(MSG_TLS_FLAG_STATIC)
44 */
45 static char flagstr[FLAGSZ];
46 static Val_desc vda[] = {
47 { TM_FLG_STATICTLS, MSG_TLS_FLAG_STATIC },
48 { 0, 0 }
49 };
50 static CONV_EXPN_FIELD_ARG conv_arg = { flagstr, sizeof (flagstr) };
51
52 ulong_t flags;
53
54 if ((flags = tmodent->tm_flags) != 0) {
55 conv_arg.oflags = conv_arg.rflags = flags;
56 (void) conv_expn_field(&conv_arg, vda, 0);
57 } else {
58 flagstr[0] = '\0';
59 }
60
61 dbg_print(lml, MSG_INTL(MSG_TLS_MODENT1),
62 EC_XWORD((uintptr_t)tmodent->tm_tlsblock),
63 EC_XWORD(tmodent->tm_stattlsoffset), EC_XWORD(tmodent->tm_flags),
64 flagstr);
65 dbg_print(lml, MSG_INTL(MSG_TLS_MODENT2),
66 EC_XWORD(tmodent->tm_filesz), EC_XWORD(tmodent->tm_memsz),
67 EC_XWORD(tmodent->tm_modid));
68 }
69
70 void
Dbg_tls_static_block(Lm_list * lml,void * list,ulong_t size,ulong_t resv)71 Dbg_tls_static_block(Lm_list *lml, void *list, ulong_t size, ulong_t resv)
72 {
73 if (DBG_NOTCLASS(DBG_C_TLS))
74 return;
75
76 Dbg_util_nl(lml, DBG_NL_STD);
77
78 if (list) {
79 ulong_t ndx;
80 TLS_modinfo **tlsmodlist;
81
82 tlsmodlist = (TLS_modinfo **)list;
83
84 for (ndx = 0; tlsmodlist[ndx]; ndx++) {
85 dbg_print(lml, MSG_INTL(MSG_TLS_STATBLOCK1), ndx,
86 tlsmodlist[ndx]->tm_modname);
87 Dbg_tls_modent(lml, tlsmodlist[ndx]);
88 Dbg_util_nl(lml, DBG_NL_STD);
89 }
90 }
91 dbg_print(lml, MSG_INTL(MSG_TLS_STATBLOCK2), EC_XWORD(size),
92 EC_XWORD(resv));
93 }
94
95 void
Dbg_tls_static_resv(Rt_map * lmp,ulong_t size,ulong_t resv)96 Dbg_tls_static_resv(Rt_map *lmp, ulong_t size, ulong_t resv)
97 {
98 Lm_list *lml = LIST(lmp);
99
100 if (DBG_NOTCLASS(DBG_C_TLS))
101 return;
102
103 Dbg_util_nl(lml, DBG_NL_STD);
104 dbg_print(lml, MSG_INTL(MSG_TLS_STATBLOCK3), TLSMODID(lmp), NAME(lmp),
105 EC_XWORD(size), EC_XWORD(resv));
106 }
107
108 void
Dbg_tls_modactivity(Lm_list * lml,void * vtlsmodent,uint_t flag)109 Dbg_tls_modactivity(Lm_list *lml, void *vtlsmodent, uint_t flag)
110 {
111 const char *str;
112 TLS_modinfo *tlsmodent;
113
114 if (DBG_NOTCLASS(DBG_C_TLS))
115 return;
116
117 if (flag == TM_FLG_MODADD)
118 str = MSG_INTL(MSG_TLS_ADD);
119 else
120 str = MSG_INTL(MSG_TLS_REMOVE);
121
122 tlsmodent = (TLS_modinfo *)vtlsmodent;
123 Dbg_util_nl(lml, DBG_NL_STD);
124 dbg_print(lml, MSG_INTL(MSG_TLS_MODACT), str, tlsmodent->tm_modname);
125 Dbg_tls_modent(lml, tlsmodent);
126 }
127