1*0Sstevel@tonic-gate /*
2*0Sstevel@tonic-gate * CDDL HEADER START
3*0Sstevel@tonic-gate *
4*0Sstevel@tonic-gate * The contents of this file are subject to the terms of the
5*0Sstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only
6*0Sstevel@tonic-gate * (the "License"). You may not use this file except in compliance
7*0Sstevel@tonic-gate * with the License.
8*0Sstevel@tonic-gate *
9*0Sstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10*0Sstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
11*0Sstevel@tonic-gate * See the License for the specific language governing permissions
12*0Sstevel@tonic-gate * and limitations under the License.
13*0Sstevel@tonic-gate *
14*0Sstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
15*0Sstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16*0Sstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
17*0Sstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
18*0Sstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
19*0Sstevel@tonic-gate *
20*0Sstevel@tonic-gate * CDDL HEADER END
21*0Sstevel@tonic-gate */
22*0Sstevel@tonic-gate /*
23*0Sstevel@tonic-gate * Copyright (c) 2000-2001 by Sun Microsystems, Inc.
24*0Sstevel@tonic-gate * All rights reserved.
25*0Sstevel@tonic-gate */
26*0Sstevel@tonic-gate
27*0Sstevel@tonic-gate #pragma ident "%Z%%M% %I% %E% SMI"
28*0Sstevel@tonic-gate
29*0Sstevel@tonic-gate #include <sys/thread.h>
30*0Sstevel@tonic-gate #include "tsd.h"
31*0Sstevel@tonic-gate
32*0Sstevel@tonic-gate /*
33*0Sstevel@tonic-gate * Initialize the tsd walker by either using the given starting address,
34*0Sstevel@tonic-gate * or reading the value of the kernel's tsd_list pointer.
35*0Sstevel@tonic-gate */
36*0Sstevel@tonic-gate int
tsd_walk_init(mdb_walk_state_t * wsp)37*0Sstevel@tonic-gate tsd_walk_init(mdb_walk_state_t *wsp)
38*0Sstevel@tonic-gate {
39*0Sstevel@tonic-gate if (wsp->walk_addr == NULL &&
40*0Sstevel@tonic-gate mdb_readvar(&wsp->walk_addr, "tsd_list") == -1) {
41*0Sstevel@tonic-gate mdb_warn("failed to read 'tsd_list'");
42*0Sstevel@tonic-gate return (WALK_ERR);
43*0Sstevel@tonic-gate }
44*0Sstevel@tonic-gate
45*0Sstevel@tonic-gate wsp->walk_data = mdb_alloc(sizeof (struct tsd_thread), UM_SLEEP);
46*0Sstevel@tonic-gate return (WALK_NEXT);
47*0Sstevel@tonic-gate }
48*0Sstevel@tonic-gate
49*0Sstevel@tonic-gate int
tsd_walk_step(mdb_walk_state_t * wsp)50*0Sstevel@tonic-gate tsd_walk_step(mdb_walk_state_t *wsp)
51*0Sstevel@tonic-gate {
52*0Sstevel@tonic-gate int status;
53*0Sstevel@tonic-gate
54*0Sstevel@tonic-gate if (wsp->walk_addr == NULL)
55*0Sstevel@tonic-gate return (WALK_DONE);
56*0Sstevel@tonic-gate
57*0Sstevel@tonic-gate if (mdb_vread(wsp->walk_data,
58*0Sstevel@tonic-gate sizeof (struct tsd_thread), wsp->walk_addr) == -1) {
59*0Sstevel@tonic-gate mdb_warn("failed to read tsd at %p", wsp->walk_addr);
60*0Sstevel@tonic-gate return (WALK_ERR);
61*0Sstevel@tonic-gate }
62*0Sstevel@tonic-gate
63*0Sstevel@tonic-gate status = wsp->walk_callback(wsp->walk_addr, wsp->walk_data,
64*0Sstevel@tonic-gate wsp->walk_cbdata);
65*0Sstevel@tonic-gate
66*0Sstevel@tonic-gate wsp->walk_addr =
67*0Sstevel@tonic-gate (uintptr_t)(((struct tsd_thread *)wsp->walk_data)->ts_next);
68*0Sstevel@tonic-gate return (status);
69*0Sstevel@tonic-gate }
70*0Sstevel@tonic-gate
71*0Sstevel@tonic-gate void
tsd_walk_fini(mdb_walk_state_t * wsp)72*0Sstevel@tonic-gate tsd_walk_fini(mdb_walk_state_t *wsp)
73*0Sstevel@tonic-gate {
74*0Sstevel@tonic-gate mdb_free(wsp->walk_data, sizeof (struct tsd_thread));
75*0Sstevel@tonic-gate }
76*0Sstevel@tonic-gate
77*0Sstevel@tonic-gate /*
78*0Sstevel@tonic-gate * Map from thread pointer to tsd pointer for given key
79*0Sstevel@tonic-gate */
80*0Sstevel@tonic-gate int
ttotsd(uintptr_t addr,uint_t flags,int argc,const mdb_arg_t * argv)81*0Sstevel@tonic-gate ttotsd(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
82*0Sstevel@tonic-gate {
83*0Sstevel@tonic-gate kthread_t thread, *t = &thread;
84*0Sstevel@tonic-gate struct tsd_thread tsdata, *ts = &tsdata;
85*0Sstevel@tonic-gate uintptr_t key = NULL;
86*0Sstevel@tonic-gate uintptr_t eladdr;
87*0Sstevel@tonic-gate void *element;
88*0Sstevel@tonic-gate
89*0Sstevel@tonic-gate if (mdb_getopts(argc, argv, 'k', MDB_OPT_UINTPTR, &key, NULL) != argc)
90*0Sstevel@tonic-gate return (DCMD_USAGE);
91*0Sstevel@tonic-gate
92*0Sstevel@tonic-gate if (!(flags & DCMD_ADDRSPEC) || key == NULL)
93*0Sstevel@tonic-gate return (DCMD_USAGE);
94*0Sstevel@tonic-gate
95*0Sstevel@tonic-gate if (mdb_vread(t, sizeof (*t), addr) == -1) {
96*0Sstevel@tonic-gate mdb_warn("failed to read thread at %p", addr);
97*0Sstevel@tonic-gate return (DCMD_ERR);
98*0Sstevel@tonic-gate }
99*0Sstevel@tonic-gate
100*0Sstevel@tonic-gate if (t->t_tsd == NULL) {
101*0Sstevel@tonic-gate if (flags & DCMD_PIPE)
102*0Sstevel@tonic-gate return (DCMD_OK);
103*0Sstevel@tonic-gate mdb_warn("no tsd on thread\n");
104*0Sstevel@tonic-gate return (DCMD_ERR);
105*0Sstevel@tonic-gate }
106*0Sstevel@tonic-gate
107*0Sstevel@tonic-gate if (mdb_vread(ts, sizeof (*ts), (uintptr_t)t->t_tsd) == -1) {
108*0Sstevel@tonic-gate mdb_warn("failed to read tsd at %p", t->t_tsd);
109*0Sstevel@tonic-gate return (DCMD_ERR);
110*0Sstevel@tonic-gate }
111*0Sstevel@tonic-gate
112*0Sstevel@tonic-gate if (key > ts->ts_nkeys) {
113*0Sstevel@tonic-gate mdb_warn("key out of range\n");
114*0Sstevel@tonic-gate return (DCMD_ERR);
115*0Sstevel@tonic-gate }
116*0Sstevel@tonic-gate
117*0Sstevel@tonic-gate eladdr = (uintptr_t)(ts->ts_value + key - 1);
118*0Sstevel@tonic-gate if (mdb_vread(&element, sizeof (element), eladdr) == -1) {
119*0Sstevel@tonic-gate mdb_warn("failed to read t->t_tsd[%d] at %p", key - 1, eladdr);
120*0Sstevel@tonic-gate return (DCMD_ERR);
121*0Sstevel@tonic-gate }
122*0Sstevel@tonic-gate
123*0Sstevel@tonic-gate mdb_printf("%p\n", element);
124*0Sstevel@tonic-gate return (DCMD_OK);
125*0Sstevel@tonic-gate }
126*0Sstevel@tonic-gate
127*0Sstevel@tonic-gate static int
tsdthr_match(uintptr_t addr,const kthread_t * t,uintptr_t tsdaddr)128*0Sstevel@tonic-gate tsdthr_match(uintptr_t addr, const kthread_t *t, uintptr_t tsdaddr)
129*0Sstevel@tonic-gate {
130*0Sstevel@tonic-gate /*
131*0Sstevel@tonic-gate * Allow for multiple matches, even though that "can't happen."
132*0Sstevel@tonic-gate */
133*0Sstevel@tonic-gate if (tsdaddr == (uintptr_t)t->t_tsd)
134*0Sstevel@tonic-gate mdb_printf("%p\n", addr);
135*0Sstevel@tonic-gate return (WALK_NEXT);
136*0Sstevel@tonic-gate }
137*0Sstevel@tonic-gate
138*0Sstevel@tonic-gate /*
139*0Sstevel@tonic-gate * Given a tsd pointer, find the owning thread
140*0Sstevel@tonic-gate */
141*0Sstevel@tonic-gate /*ARGSUSED*/
142*0Sstevel@tonic-gate int
tsdtot(uintptr_t addr,uint_t flags,int argc,const mdb_arg_t * argv)143*0Sstevel@tonic-gate tsdtot(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
144*0Sstevel@tonic-gate {
145*0Sstevel@tonic-gate if (addr == 0 || argc != 0)
146*0Sstevel@tonic-gate return (DCMD_USAGE);
147*0Sstevel@tonic-gate if (mdb_walk("thread", (mdb_walk_cb_t)tsdthr_match, (void *)addr) == -1)
148*0Sstevel@tonic-gate return (DCMD_ERR);
149*0Sstevel@tonic-gate return (DCMD_OK);
150*0Sstevel@tonic-gate }
151