Print this page
8158 Want named threads API
9857 proc manpages should have LIBRARY section
Split |
Close |
Expand all |
Collapse all |
--- old/usr/src/cmd/mdb/common/mdb/mdb_proc.c
+++ new/usr/src/cmd/mdb/common/mdb/mdb_proc.c
1 1 /*
2 2 * CDDL HEADER START
3 3 *
4 4 * The contents of this file are subject to the terms of the
5 5 * Common Development and Distribution License (the "License").
6 6 * You may not use this file except in compliance with the License.
7 7 *
8 8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9 9 * or http://www.opensolaris.org/os/licensing.
10 10 * See the License for the specific language governing permissions
11 11 * and limitations under the License.
12 12 *
13 13 * When distributing Covered Code, include this CDDL HEADER in each
14 14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15 15 * If applicable, add the following below this CDDL HEADER, with the
16 16 * fields enclosed by brackets "[]" replaced with your own identifying
17 17 * information: Portions Copyright [yyyy] [name of copyright owner]
18 18 *
19 19 * CDDL HEADER END
20 20 */
21 21
22 22 /*
23 23 * Copyright 2010 Sun Microsystems, Inc. All rights reserved.
24 24 * Use is subject to license terms.
25 25 */
26 26 /*
27 27 * Copyright 2018 Joyent, Inc.
28 28 * Copyright (c) 2014 by Delphix. All rights reserved.
29 29 */
30 30
31 31 /*
32 32 * User Process Target
33 33 *
34 34 * The user process target is invoked when the -u or -p command-line options
35 35 * are used, or when an ELF executable file or ELF core file is specified on
36 36 * the command-line. This target is also selected by default when no target
37 37 * options are present. In this case, it defaults the executable name to
38 38 * "a.out". If no process or core file is currently attached, the target
39 39 * functions as a kind of virtual /dev/zero (in accordance with adb(1)
40 40 * semantics); reads from the virtual address space return zeroes and writes
41 41 * fail silently. The proc target itself is designed as a wrapper around the
42 42 * services provided by libproc.so: t->t_pshandle is set to the struct
43 43 * ps_prochandle pointer returned as a handle by libproc. The target also
44 44 * opens the executable file itself using the MDB GElf services, for
45 45 * interpreting the .symtab and .dynsym if no libproc handle has been
46 46 * initialized, and for handling i/o to and from the object file. Currently,
47 47 * the only ISA-dependent portions of the proc target are the $r and ::fpregs
48 48 * dcmds, the callbacks for t_next() and t_step_out(), and the list of named
49 49 * registers; these are linked in from the proc_isadep.c file for each ISA and
50 50 * called from the common code in this file.
51 51 *
52 52 * The user process target implements complete user process control using the
53 53 * facilities provided by libproc.so. The MDB execution control model and
54 54 * an overview of software event management is described in mdb_target.c. The
55 55 * proc target implements breakpoints by replacing the instruction of interest
56 56 * with a trap instruction, and then restoring the original instruction to step
57 57 * over the breakpoint. The idea of replacing program text with instructions
58 58 * that transfer control to the debugger dates back as far as 1951 [1]. When
59 59 * the target stops, we replace each breakpoint with the original instruction
60 60 * as part of the disarm operation. This means that no special processing is
61 61 * required for t_vread() because the instrumented instructions will never be
62 62 * seen by the debugger once the target stops. Some debuggers have improved
63 63 * start/stop performance by leaving breakpoint traps in place and then
64 64 * handling a read from a breakpoint address as a special case. Although this
65 65 * improves efficiency for a source-level debugger, it runs somewhat contrary
66 66 * to the philosophy of the low-level debugger. Since we remove the
67 67 * instructions, users can apply other external debugging tools to the process
68 68 * once it has stopped (e.g. the proc(1) tools) and not be misled by MDB
69 69 * instrumentation. The tracing of faults, signals, system calls, and
70 70 * watchpoints and general process inspection is implemented directly using
71 71 * the mechanisms provided by /proc, as described originally in [2] and [3].
72 72 *
73 73 * References
74 74 *
75 75 * [1] S. Gill, "The Diagnosis Of Mistakes In Programmes on the EDSAC",
76 76 * Proceedings of the Royal Society Series A Mathematical and Physical
77 77 * Sciences, Cambridge University Press, 206(1087), May 1951, pp. 538-554.
78 78 *
79 79 * [2] T.J. Killian, "Processes as Files", Proceedings of the USENIX Association
80 80 * Summer Conference, Salt Lake City, June 1984, pp. 203-207.
81 81 *
82 82 * [3] Roger Faulkner and Ron Gomes, "The Process File System and Process
83 83 * Model in UNIX System V", Proceedings of the USENIX Association
84 84 * Winter Conference, Dallas, January 1991, pp. 243-252.
85 85 */
86 86
87 87 #include <mdb/mdb_proc.h>
88 88 #include <mdb/mdb_disasm.h>
89 89 #include <mdb/mdb_signal.h>
90 90 #include <mdb/mdb_string.h>
91 91 #include <mdb/mdb_module.h>
92 92 #include <mdb/mdb_debug.h>
93 93 #include <mdb/mdb_conf.h>
94 94 #include <mdb/mdb_err.h>
95 95 #include <mdb/mdb_types.h>
96 96 #include <mdb/mdb.h>
97 97
98 98 #include <sys/utsname.h>
99 99 #include <sys/wait.h>
100 100 #include <sys/stat.h>
101 101 #include <termio.h>
102 102 #include <signal.h>
103 103 #include <stdio_ext.h>
104 104 #include <stdlib.h>
105 105 #include <string.h>
106 106
107 107 #define PC_FAKE -1UL /* illegal pc value unequal 0 */
108 108 #define PANIC_BUFSIZE 1024
109 109
110 110 static const char PT_EXEC_PATH[] = "a.out"; /* Default executable */
111 111 static const char PT_CORE_PATH[] = "core"; /* Default core file */
112 112
113 113 static const pt_ptl_ops_t proc_lwp_ops;
114 114 static const pt_ptl_ops_t proc_tdb_ops;
115 115 static const mdb_se_ops_t proc_brkpt_ops;
116 116 static const mdb_se_ops_t proc_wapt_ops;
117 117
118 118 static int pt_setrun(mdb_tgt_t *, mdb_tgt_status_t *, int);
119 119 static void pt_activate_common(mdb_tgt_t *);
120 120 static mdb_tgt_vespec_f pt_ignore_sig;
121 121 static mdb_tgt_se_f pt_fork;
122 122 static mdb_tgt_se_f pt_exec;
123 123
124 124 static int pt_lookup_by_name_thr(mdb_tgt_t *, const char *,
125 125 const char *, GElf_Sym *, mdb_syminfo_t *, mdb_tgt_tid_t);
126 126 static int tlsbase(mdb_tgt_t *, mdb_tgt_tid_t, Lmid_t, const char *,
127 127 psaddr_t *);
128 128
129 129 /*
130 130 * When debugging postmortem, we don't resolve names as we may very well not
131 131 * be on a system on which those names resolve.
132 132 */
133 133 #define PT_LIBPROC_RESOLVE(P) \
134 134 (!(mdb.m_flags & MDB_FL_LMRAW) && Pstate(P) != PS_DEAD)
135 135
136 136 /*
137 137 * The Perror_printf() function interposes on the default, empty libproc
138 138 * definition. It will be called to report additional information on complex
139 139 * errors, such as a corrupt core file. We just pass the args to vwarn.
140 140 */
141 141 /*ARGSUSED*/
142 142 void
143 143 Perror_printf(struct ps_prochandle *P, const char *format, ...)
144 144 {
145 145 va_list alist;
146 146
147 147 va_start(alist, format);
148 148 vwarn(format, alist);
149 149 va_end(alist);
150 150 }
151 151
152 152 /*
153 153 * Open the specified i/o backend as the a.out executable file, and attempt to
154 154 * load its standard and dynamic symbol tables. Note that if mdb_gelf_create
155 155 * succeeds, io is assigned to p_fio and is automatically held by gelf_create.
156 156 */
157 157 static mdb_gelf_file_t *
158 158 pt_open_aout(mdb_tgt_t *t, mdb_io_t *io)
159 159 {
160 160 pt_data_t *pt = t->t_data;
161 161 GElf_Sym s1, s2;
162 162
163 163 if ((pt->p_file = mdb_gelf_create(io, ET_NONE, GF_FILE)) == NULL)
164 164 return (NULL);
165 165
166 166 pt->p_symtab = mdb_gelf_symtab_create_file(pt->p_file,
167 167 SHT_SYMTAB, MDB_TGT_SYMTAB);
168 168 pt->p_dynsym = mdb_gelf_symtab_create_file(pt->p_file,
169 169 SHT_DYNSYM, MDB_TGT_DYNSYM);
170 170
171 171 /*
172 172 * If we've got an _start symbol with a zero size, prime the private
173 173 * symbol table with a copy of _start with its size set to the distance
174 174 * between _mcount and _start. We do this because DevPro has shipped
175 175 * the Intel crt1.o without proper .size directives for years, which
176 176 * precludes proper identification of _start in stack traces.
177 177 */
178 178 if (mdb_gelf_symtab_lookup_by_name(pt->p_dynsym, "_start", &s1,
179 179 NULL) == 0 && s1.st_size == 0 &&
180 180 GELF_ST_TYPE(s1.st_info) == STT_FUNC) {
181 181 if (mdb_gelf_symtab_lookup_by_name(pt->p_dynsym, "_mcount",
182 182 &s2, NULL) == 0 && GELF_ST_TYPE(s2.st_info) == STT_FUNC) {
183 183 s1.st_size = s2.st_value - s1.st_value;
184 184 mdb_gelf_symtab_insert(mdb.m_prsym, "_start", &s1);
185 185 }
186 186 }
187 187
188 188 pt->p_fio = io;
189 189 return (pt->p_file);
190 190 }
191 191
192 192 /*
193 193 * Destroy the symbol tables and GElf file object associated with p_fio. Note
194 194 * that we do not need to explicitly free p_fio: its reference count is
195 195 * automatically decremented by mdb_gelf_destroy, which will free it if needed.
196 196 */
197 197 static void
198 198 pt_close_aout(mdb_tgt_t *t)
199 199 {
200 200 pt_data_t *pt = t->t_data;
201 201
202 202 if (pt->p_symtab != NULL) {
203 203 mdb_gelf_symtab_destroy(pt->p_symtab);
204 204 pt->p_symtab = NULL;
205 205 }
206 206
207 207 if (pt->p_dynsym != NULL) {
208 208 mdb_gelf_symtab_destroy(pt->p_dynsym);
209 209 pt->p_dynsym = NULL;
210 210 }
211 211
212 212 if (pt->p_file != NULL) {
213 213 mdb_gelf_destroy(pt->p_file);
214 214 pt->p_file = NULL;
215 215 }
216 216
217 217 mdb_gelf_symtab_delete(mdb.m_prsym, "_start", NULL);
218 218 pt->p_fio = NULL;
219 219 }
220 220
221 221 typedef struct tdb_mapping {
222 222 const char *tm_thr_lib;
223 223 const char *tm_db_dir;
224 224 const char *tm_db_name;
225 225 } tdb_mapping_t;
226 226
227 227 static const tdb_mapping_t tdb_map[] = {
228 228 { "/lwp/amd64/libthread.so", "/usr/lib/lwp/", "libthread_db.so" },
229 229 { "/lwp/sparcv9/libthread.so", "/usr/lib/lwp/", "libthread_db.so" },
230 230 { "/lwp/libthread.so", "/usr/lib/lwp/", "libthread_db.so" },
231 231 { "/libthread.so", "/lib/", "libthread_db.so" },
232 232 { "/libc_hwcap", "/lib/", "libc_db.so" },
233 233 { "/libc.so", "/lib/", "libc_db.so" }
234 234 };
235 235
236 236 /*
237 237 * Pobject_iter callback that we use to search for the presence of libthread in
238 238 * order to load the corresponding libthread_db support. We derive the
239 239 * libthread_db path dynamically based on the libthread path. If libthread is
240 240 * found, this function returns 1 (and thus Pobject_iter aborts and returns 1)
241 241 * regardless of whether it was successful in loading the libthread_db support.
242 242 * If we iterate over all objects and no libthread is found, 0 is returned.
243 243 * Since libthread_db support was then merged into libc_db, we load either
244 244 * libc_db or libthread_db, depending on which library we see first.
245 245 */
246 246 /*ARGSUSED*/
247 247 static int
248 248 thr_check(mdb_tgt_t *t, const prmap_t *pmp, const char *name)
249 249 {
250 250 pt_data_t *pt = t->t_data;
251 251 const mdb_tdb_ops_t *ops;
252 252 char *p;
253 253
254 254 char path[MAXPATHLEN];
255 255
256 256 int libn;
257 257
258 258 if (name == NULL)
259 259 return (0); /* no rtld_db object name; keep going */
260 260
261 261 for (libn = 0; libn < sizeof (tdb_map) / sizeof (tdb_map[0]); libn++) {
262 262 if ((p = strstr(name, tdb_map[libn].tm_thr_lib)) != NULL)
263 263 break;
264 264 }
265 265
266 266 if (p == NULL)
267 267 return (0); /* no match; keep going */
268 268
269 269 path[0] = '\0';
270 270 (void) strlcat(path, mdb.m_root, sizeof (path));
271 271 (void) strlcat(path, tdb_map[libn].tm_db_dir, sizeof (path));
272 272 #if !defined(_ILP32)
273 273 (void) strlcat(path, "64/", sizeof (path));
274 274 #endif /* !_ILP32 */
275 275 (void) strlcat(path, tdb_map[libn].tm_db_name, sizeof (path));
276 276
277 277 /* Append the trailing library version number. */
278 278 (void) strlcat(path, strrchr(name, '.'), sizeof (path));
279 279
280 280 if ((ops = mdb_tdb_load(path)) == NULL) {
281 281 if (libn != 0 || errno != ENOENT)
282 282 warn("failed to load %s", path);
283 283 goto err;
284 284 }
285 285
286 286 if (ops == pt->p_tdb_ops)
287 287 return (1); /* no changes needed */
288 288
289 289 PTL_DTOR(t);
290 290 pt->p_tdb_ops = ops;
291 291 pt->p_ptl_ops = &proc_tdb_ops;
292 292 pt->p_ptl_hdl = NULL;
293 293
294 294 if (PTL_CTOR(t) == -1) {
295 295 warn("failed to initialize %s", path);
296 296 goto err;
297 297 }
298 298
299 299 mdb_dprintf(MDB_DBG_TGT, "loaded %s for debugging %s\n", path, name);
300 300 (void) mdb_tgt_status(t, &t->t_status);
301 301 return (1);
302 302 err:
303 303 PTL_DTOR(t);
304 304 pt->p_tdb_ops = NULL;
305 305 pt->p_ptl_ops = &proc_lwp_ops;
306 306 pt->p_ptl_hdl = NULL;
307 307
308 308 if (libn != 0 || errno != ENOENT) {
309 309 warn("warning: debugger will only be able to "
310 310 "examine raw LWPs\n");
311 311 }
312 312
313 313 (void) mdb_tgt_status(t, &t->t_status);
314 314 return (1);
315 315 }
316 316
317 317 /*
318 318 * Whenever the link map is consistent following an add or delete event, we ask
319 319 * libproc to update its mappings, check to see if we need to load libthread_db,
320 320 * and then update breakpoints which have been mapped or unmapped.
321 321 */
322 322 /*ARGSUSED*/
323 323 static void
324 324 pt_rtld_event(mdb_tgt_t *t, int vid, void *private)
325 325 {
326 326 struct ps_prochandle *P = t->t_pshandle;
327 327 pt_data_t *pt = t->t_data;
328 328 rd_event_msg_t rdm;
329 329 int docontinue = 1;
330 330
331 331 if (rd_event_getmsg(pt->p_rtld, &rdm) == RD_OK) {
332 332
333 333 mdb_dprintf(MDB_DBG_TGT, "rtld event type 0x%x state 0x%x\n",
334 334 rdm.type, rdm.u.state);
335 335
336 336 if (rdm.type == RD_DLACTIVITY && rdm.u.state == RD_CONSISTENT) {
337 337 mdb_sespec_t *sep, *nsep = mdb_list_next(&t->t_active);
338 338 pt_brkpt_t *ptb;
339 339
340 340 Pupdate_maps(P);
341 341
342 342 if (Pobject_iter(P, (proc_map_f *)thr_check, t) == 0 &&
343 343 pt->p_ptl_ops != &proc_lwp_ops) {
344 344 mdb_dprintf(MDB_DBG_TGT, "unloading thread_db "
345 345 "support after dlclose\n");
346 346 PTL_DTOR(t);
347 347 pt->p_tdb_ops = NULL;
348 348 pt->p_ptl_ops = &proc_lwp_ops;
349 349 pt->p_ptl_hdl = NULL;
350 350 (void) mdb_tgt_status(t, &t->t_status);
351 351 }
352 352
353 353 for (sep = nsep; sep != NULL; sep = nsep) {
354 354 nsep = mdb_list_next(sep);
355 355 ptb = sep->se_data;
356 356
357 357 if (sep->se_ops == &proc_brkpt_ops &&
358 358 Paddr_to_map(P, ptb->ptb_addr) == NULL)
359 359 mdb_tgt_sespec_idle_one(t, sep,
360 360 EMDB_NOMAP);
361 361 }
362 362
363 363 if (!mdb_tgt_sespec_activate_all(t) &&
364 364 (mdb.m_flags & MDB_FL_BPTNOSYMSTOP) &&
365 365 pt->p_rtld_finished) {
366 366 /*
367 367 * We weren't able to activate the breakpoints.
368 368 * If so requested, we'll return without
369 369 * calling continue, thus throwing the user into
370 370 * the debugger.
371 371 */
372 372 docontinue = 0;
373 373 }
374 374
375 375 if (pt->p_rdstate == PT_RD_ADD)
376 376 pt->p_rdstate = PT_RD_CONSIST;
377 377 }
378 378
379 379 if (rdm.type == RD_PREINIT)
380 380 (void) mdb_tgt_sespec_activate_all(t);
381 381
382 382 if (rdm.type == RD_POSTINIT) {
383 383 pt->p_rtld_finished = TRUE;
384 384 if (!mdb_tgt_sespec_activate_all(t) &&
385 385 (mdb.m_flags & MDB_FL_BPTNOSYMSTOP)) {
386 386 /*
387 387 * Now that rtld has been initialized, we
388 388 * should be able to initialize all deferred
389 389 * breakpoints. If we can't, don't let the
390 390 * target continue.
391 391 */
392 392 docontinue = 0;
393 393 }
394 394 }
395 395
396 396 if (rdm.type == RD_DLACTIVITY && rdm.u.state == RD_ADD &&
397 397 pt->p_rtld_finished)
398 398 pt->p_rdstate = MAX(pt->p_rdstate, PT_RD_ADD);
399 399 }
400 400
401 401 if (docontinue)
402 402 (void) mdb_tgt_continue(t, NULL);
403 403 }
404 404
405 405 static void
406 406 pt_post_attach(mdb_tgt_t *t)
407 407 {
408 408 struct ps_prochandle *P = t->t_pshandle;
409 409 const lwpstatus_t *psp = &Pstatus(P)->pr_lwp;
410 410 pt_data_t *pt = t->t_data;
411 411 int hflag = MDB_TGT_SPEC_HIDDEN;
412 412
413 413 mdb_dprintf(MDB_DBG_TGT, "attach pr_flags=0x%x pr_why=%d pr_what=%d\n",
414 414 psp->pr_flags, psp->pr_why, psp->pr_what);
415 415
416 416 /*
417 417 * When we grab a process, the initial setting of p_rtld_finished
418 418 * should be false if the process was just created by exec; otherwise
419 419 * we permit unscoped references to resolve because we do not know how
420 420 * far the process has proceeded through linker initialization.
421 421 */
422 422 if ((psp->pr_flags & PR_ISTOP) && psp->pr_why == PR_SYSEXIT &&
423 423 psp->pr_errno == 0 && psp->pr_what == SYS_execve) {
424 424 if (mdb.m_target == NULL) {
425 425 warn("target performed exec of %s\n",
426 426 IOP_NAME(pt->p_fio));
427 427 }
428 428 pt->p_rtld_finished = FALSE;
429 429 } else
430 430 pt->p_rtld_finished = TRUE;
431 431
432 432 /*
433 433 * When we grab a process, if it is stopped by job control and part of
434 434 * the same session (i.e. same controlling tty), set MDB_FL_JOBCTL so
435 435 * we will know to bring it to the foreground when we continue it.
436 436 */
437 437 if (mdb.m_term != NULL && (psp->pr_flags & PR_STOPPED) &&
438 438 psp->pr_why == PR_JOBCONTROL && getsid(0) == Pstatus(P)->pr_sid)
439 439 mdb.m_flags |= MDB_FL_JOBCTL;
440 440
441 441 /*
442 442 * When we grab control of a live process, set F_RDWR so that the
443 443 * target layer permits writes to the target's address space.
444 444 */
445 445 t->t_flags |= MDB_TGT_F_RDWR;
446 446
447 447 (void) Pfault(P, FLTBPT, TRUE); /* always trace breakpoints */
448 448 (void) Pfault(P, FLTWATCH, TRUE); /* always trace watchpoints */
449 449 (void) Pfault(P, FLTTRACE, TRUE); /* always trace single-step */
450 450
451 451 (void) Punsetflags(P, PR_ASYNC); /* require synchronous mode */
452 452 (void) Psetflags(P, PR_BPTADJ); /* always adjust eip on x86 */
453 453 (void) Psetflags(P, PR_FORK); /* inherit tracing on fork */
454 454
455 455 /*
456 456 * Install event specifiers to track fork and exec activities:
457 457 */
458 458 (void) mdb_tgt_add_sysexit(t, SYS_vfork, hflag, pt_fork, NULL);
459 459 (void) mdb_tgt_add_sysexit(t, SYS_forksys, hflag, pt_fork, NULL);
460 460 (void) mdb_tgt_add_sysexit(t, SYS_execve, hflag, pt_exec, NULL);
461 461
462 462 /*
463 463 * Attempt to instantiate the librtld_db agent and set breakpoints
464 464 * to track rtld activity. We will legitimately fail to instantiate
465 465 * the rtld_db agent if the target is statically linked.
466 466 */
467 467 if (pt->p_rtld == NULL && (pt->p_rtld = Prd_agent(P)) != NULL) {
468 468 rd_notify_t rdn;
469 469 rd_err_e err;
470 470
471 471 if ((err = rd_event_enable(pt->p_rtld, TRUE)) != RD_OK) {
472 472 warn("failed to enable rtld_db event tracing: %s\n",
473 473 rd_errstr(err));
474 474 goto out;
475 475 }
476 476
477 477 if ((err = rd_event_addr(pt->p_rtld, RD_PREINIT,
478 478 &rdn)) == RD_OK && rdn.type == RD_NOTIFY_BPT) {
479 479 (void) mdb_tgt_add_vbrkpt(t, rdn.u.bptaddr,
480 480 hflag, pt_rtld_event, NULL);
481 481 } else {
482 482 warn("failed to install rtld_db preinit tracing: %s\n",
483 483 rd_errstr(err));
484 484 }
485 485
486 486 if ((err = rd_event_addr(pt->p_rtld, RD_POSTINIT,
487 487 &rdn)) == RD_OK && rdn.type == RD_NOTIFY_BPT) {
488 488 (void) mdb_tgt_add_vbrkpt(t, rdn.u.bptaddr,
489 489 hflag, pt_rtld_event, NULL);
490 490 } else {
491 491 warn("failed to install rtld_db postinit tracing: %s\n",
492 492 rd_errstr(err));
493 493 }
494 494
495 495 if ((err = rd_event_addr(pt->p_rtld, RD_DLACTIVITY,
496 496 &rdn)) == RD_OK && rdn.type == RD_NOTIFY_BPT) {
497 497 (void) mdb_tgt_add_vbrkpt(t, rdn.u.bptaddr,
498 498 hflag, pt_rtld_event, NULL);
499 499 } else {
500 500 warn("failed to install rtld_db activity tracing: %s\n",
501 501 rd_errstr(err));
502 502 }
503 503 }
504 504 out:
505 505 Pupdate_maps(P);
506 506 Psync(P);
507 507
508 508 /*
509 509 * If librtld_db failed to initialize due to an error or because we are
510 510 * debugging a statically linked executable, allow unscoped references.
511 511 */
512 512 if (pt->p_rtld == NULL)
513 513 pt->p_rtld_finished = TRUE;
514 514
515 515 (void) mdb_tgt_sespec_activate_all(t);
516 516 }
517 517
518 518 /*ARGSUSED*/
519 519 static int
520 520 pt_vespec_delete(mdb_tgt_t *t, void *private, int id, void *data)
521 521 {
522 522 if (id < 0) {
523 523 ASSERT(data == NULL); /* we don't use any ve_data */
524 524 (void) mdb_tgt_vespec_delete(t, id);
525 525 }
526 526 return (0);
527 527 }
528 528
529 529 static void
530 530 pt_pre_detach(mdb_tgt_t *t, int clear_matched)
531 531 {
532 532 const lwpstatus_t *psp = &Pstatus(t->t_pshandle)->pr_lwp;
533 533 pt_data_t *pt = t->t_data;
534 534 long cmd = 0;
535 535
536 536 /*
537 537 * If we are about to release the process and it is stopped on a traced
538 538 * SIGINT, breakpoint fault, single-step fault, or watchpoint, make
539 539 * sure to clear this event prior to releasing the process so that it
540 540 * does not subsequently reissue the fault and die from SIGTRAP.
541 541 */
542 542 if (psp->pr_flags & PR_ISTOP) {
543 543 if (psp->pr_why == PR_FAULTED && (psp->pr_what == FLTBPT ||
544 544 psp->pr_what == FLTTRACE || psp->pr_what == FLTWATCH))
545 545 cmd = PCCFAULT;
546 546 else if (psp->pr_why == PR_SIGNALLED && psp->pr_what == SIGINT)
547 547 cmd = PCCSIG;
548 548
549 549 if (cmd != 0)
550 550 (void) write(Pctlfd(t->t_pshandle), &cmd, sizeof (cmd));
551 551 }
552 552
553 553 if (Pstate(t->t_pshandle) == PS_UNDEAD)
554 554 (void) waitpid(Pstatus(t->t_pshandle)->pr_pid, NULL, WNOHANG);
555 555
556 556 (void) mdb_tgt_vespec_iter(t, pt_vespec_delete, NULL);
557 557 mdb_tgt_sespec_idle_all(t, EMDB_NOPROC, clear_matched);
558 558
559 559 if (pt->p_fio != pt->p_aout_fio) {
560 560 pt_close_aout(t);
561 561 (void) pt_open_aout(t, pt->p_aout_fio);
562 562 }
563 563
564 564 PTL_DTOR(t);
565 565 pt->p_tdb_ops = NULL;
566 566 pt->p_ptl_ops = &proc_lwp_ops;
567 567 pt->p_ptl_hdl = NULL;
568 568
569 569 pt->p_rtld = NULL;
570 570 pt->p_signal = 0;
571 571 pt->p_rtld_finished = FALSE;
572 572 pt->p_rdstate = PT_RD_NONE;
573 573 }
574 574
575 575 static void
576 576 pt_release_parents(mdb_tgt_t *t)
577 577 {
578 578 struct ps_prochandle *P = t->t_pshandle;
579 579 pt_data_t *pt = t->t_data;
580 580
581 581 mdb_sespec_t *sep;
582 582 pt_vforkp_t *vfp;
583 583
584 584 while ((vfp = mdb_list_next(&pt->p_vforkp)) != NULL) {
585 585 mdb_dprintf(MDB_DBG_TGT, "releasing vfork parent %d\n",
586 586 (int)Pstatus(vfp->p_pshandle)->pr_pid);
587 587
588 588 /*
589 589 * To release vfork parents, we must also wipe out any armed
590 590 * events in the parent by switching t_pshandle and calling
591 591 * se_disarm(). Do not change states or lose the matched list.
592 592 */
593 593 t->t_pshandle = vfp->p_pshandle;
594 594
595 595 for (sep = mdb_list_next(&t->t_active); sep != NULL;
596 596 sep = mdb_list_next(sep)) {
597 597 if (sep->se_state == MDB_TGT_SPEC_ARMED)
598 598 (void) sep->se_ops->se_disarm(t, sep);
599 599 }
600 600
601 601 t->t_pshandle = P;
602 602
603 603 Prelease(vfp->p_pshandle, PRELEASE_CLEAR);
604 604 mdb_list_delete(&pt->p_vforkp, vfp);
605 605 mdb_free(vfp, sizeof (pt_vforkp_t));
606 606 }
607 607 }
608 608
609 609 /*ARGSUSED*/
610 610 static void
611 611 pt_fork(mdb_tgt_t *t, int vid, void *private)
612 612 {
613 613 struct ps_prochandle *P = t->t_pshandle;
614 614 const lwpstatus_t *psp = &Pstatus(P)->pr_lwp;
615 615 pt_data_t *pt = t->t_data;
616 616 mdb_sespec_t *sep;
617 617
618 618 int follow_parent = mdb.m_forkmode != MDB_FM_CHILD;
619 619 int is_vfork = (psp->pr_what == SYS_vfork ||
620 620 (psp->pr_what == SYS_forksys && psp->pr_sysarg[0] == 2));
621 621
622 622 struct ps_prochandle *C;
623 623 const lwpstatus_t *csp;
624 624 char sysname[32];
625 625 int gcode;
626 626 char c;
627 627
628 628 mdb_dprintf(MDB_DBG_TGT, "parent %s: errno=%d rv1=%ld rv2=%ld\n",
629 629 proc_sysname(psp->pr_what, sysname, sizeof (sysname)),
630 630 psp->pr_errno, psp->pr_rval1, psp->pr_rval2);
631 631
632 632 if (psp->pr_errno != 0) {
633 633 (void) mdb_tgt_continue(t, NULL);
634 634 return; /* fork failed */
635 635 }
636 636
637 637 /*
638 638 * If forkmode is ASK and stdout is a terminal, then ask the user to
639 639 * explicitly set the fork behavior for this particular fork.
640 640 */
641 641 if (mdb.m_forkmode == MDB_FM_ASK && mdb.m_term != NULL) {
642 642 mdb_iob_printf(mdb.m_err, "%s: %s detected: follow (p)arent "
643 643 "or (c)hild? ", mdb.m_pname, sysname);
644 644 mdb_iob_flush(mdb.m_err);
645 645
646 646 while (IOP_READ(mdb.m_term, &c, sizeof (c)) == sizeof (c)) {
647 647 if (c == 'P' || c == 'p') {
648 648 mdb_iob_printf(mdb.m_err, "%c\n", c);
649 649 follow_parent = TRUE;
650 650 break;
651 651 } else if (c == 'C' || c == 'c') {
652 652 mdb_iob_printf(mdb.m_err, "%c\n", c);
653 653 follow_parent = FALSE;
654 654 break;
655 655 }
656 656 }
657 657 }
658 658
659 659 /*
660 660 * The parent is now stopped on exit from its fork call. We must now
661 661 * grab the child on its return from fork in order to manipulate it.
662 662 */
663 663 if ((C = Pgrab(psp->pr_rval1, PGRAB_RETAIN, &gcode)) == NULL) {
664 664 warn("failed to grab forked child process %ld: %s\n",
665 665 psp->pr_rval1, Pgrab_error(gcode));
666 666 return; /* just stop if we failed to grab the child */
667 667 }
668 668
669 669 /*
670 670 * We may have grabbed the child and stopped it prematurely before it
671 671 * stopped on exit from fork. If so, wait up to 1 sec for it to settle.
672 672 */
673 673 if (Pstatus(C)->pr_lwp.pr_why != PR_SYSEXIT)
674 674 (void) Pwait(C, MILLISEC);
675 675
676 676 csp = &Pstatus(C)->pr_lwp;
677 677
678 678 if (csp->pr_why != PR_SYSEXIT ||
679 679 (csp->pr_what != SYS_vfork && csp->pr_what != SYS_forksys)) {
680 680 warn("forked child process %ld did not stop on exit from "
681 681 "fork as expected\n", psp->pr_rval1);
682 682 }
683 683
684 684 warn("target forked child process %ld (debugger following %s)\n",
685 685 psp->pr_rval1, follow_parent ? "parent" : "child");
686 686
687 687 (void) Punsetflags(C, PR_ASYNC); /* require synchronous mode */
688 688 (void) Psetflags(C, PR_BPTADJ); /* always adjust eip on x86 */
689 689 (void) Prd_agent(C); /* initialize librtld_db */
690 690
691 691 /*
692 692 * At the time pt_fork() is called, the target event engine has already
693 693 * disarmed the specifiers on the active list, clearing out events in
694 694 * the parent process. However, this means that events that change
695 695 * the address space (e.g. breakpoints) have not been effectively
696 696 * disarmed in the child since its address space reflects the state of
697 697 * the process at the time of fork when events were armed. We must
698 698 * therefore handle this as a special case and re-invoke the disarm
699 699 * callback of each active specifier to clean out the child process.
700 700 */
701 701 if (!is_vfork) {
702 702 for (t->t_pshandle = C, sep = mdb_list_next(&t->t_active);
703 703 sep != NULL; sep = mdb_list_next(sep)) {
704 704 if (sep->se_state == MDB_TGT_SPEC_ACTIVE)
705 705 (void) sep->se_ops->se_disarm(t, sep);
706 706 }
707 707
708 708 t->t_pshandle = P; /* restore pshandle to parent */
709 709 }
710 710
711 711 /*
712 712 * If we're following the parent process, we need to temporarily change
713 713 * t_pshandle to refer to the child handle C so that we can clear out
714 714 * all the events in the child prior to releasing it below. If we are
715 715 * tracing a vfork, we also need to explicitly wait for the child to
716 716 * exec, exit, or die before we can reset and continue the parent. We
717 717 * avoid having to deal with the vfork child forking again by clearing
718 718 * PR_FORK and setting PR_RLC; if it does fork it will effectively be
719 719 * released from our control and we will continue following the parent.
720 720 */
721 721 if (follow_parent) {
722 722 if (is_vfork) {
723 723 mdb_tgt_status_t status;
724 724
725 725 ASSERT(psp->pr_flags & PR_VFORKP);
726 726 mdb_tgt_sespec_idle_all(t, EBUSY, FALSE);
727 727 t->t_pshandle = C;
728 728
729 729 (void) Psysexit(C, SYS_execve, TRUE);
730 730
731 731 (void) Punsetflags(C, PR_FORK | PR_KLC);
732 732 (void) Psetflags(C, PR_RLC);
733 733
734 734 do {
735 735 if (pt_setrun(t, &status, 0) == -1 ||
736 736 status.st_state == MDB_TGT_UNDEAD ||
737 737 status.st_state == MDB_TGT_LOST)
738 738 break; /* failure or process died */
739 739
740 740 } while (csp->pr_why != PR_SYSEXIT ||
741 741 csp->pr_errno != 0 || csp->pr_what != SYS_execve);
742 742 } else
743 743 t->t_pshandle = C;
744 744 }
745 745
746 746 /*
747 747 * If we are following the child, destroy any active libthread_db
748 748 * handle before we release the parent process.
749 749 */
750 750 if (!follow_parent) {
751 751 PTL_DTOR(t);
752 752 pt->p_tdb_ops = NULL;
753 753 pt->p_ptl_ops = &proc_lwp_ops;
754 754 pt->p_ptl_hdl = NULL;
755 755 }
756 756
757 757 /*
758 758 * Idle all events to make sure the address space and tracing flags are
759 759 * restored, and then release the process we are not tracing. If we
760 760 * are following the child of a vfork, we push the parent's pshandle
761 761 * on to a list of vfork parents to be released when we exec or exit.
762 762 */
763 763 if (is_vfork && !follow_parent) {
764 764 pt_vforkp_t *vfp = mdb_alloc(sizeof (pt_vforkp_t), UM_SLEEP);
765 765
766 766 ASSERT(psp->pr_flags & PR_VFORKP);
767 767 vfp->p_pshandle = P;
768 768 mdb_list_append(&pt->p_vforkp, vfp);
769 769 mdb_tgt_sespec_idle_all(t, EBUSY, FALSE);
770 770
771 771 } else {
772 772 mdb_tgt_sespec_idle_all(t, EBUSY, FALSE);
773 773 Prelease(t->t_pshandle, PRELEASE_CLEAR);
774 774 if (!follow_parent)
775 775 pt_release_parents(t);
776 776 }
777 777
778 778 /*
779 779 * Now that all the hard stuff is done, switch t_pshandle back to the
780 780 * process we are following and reset our events to the ACTIVE state.
781 781 * If we are following the child, reset the libthread_db handle as well
782 782 * as the rtld agent.
783 783 */
784 784 if (follow_parent)
785 785 t->t_pshandle = P;
786 786 else {
787 787 t->t_pshandle = C;
788 788 pt->p_rtld = Prd_agent(C);
789 789 (void) Pobject_iter(t->t_pshandle, (proc_map_f *)thr_check, t);
790 790 }
791 791
792 792 (void) mdb_tgt_sespec_activate_all(t);
793 793 (void) mdb_tgt_continue(t, NULL);
794 794 }
795 795
796 796 /*ARGSUSED*/
797 797 static void
798 798 pt_exec(mdb_tgt_t *t, int vid, void *private)
799 799 {
800 800 struct ps_prochandle *P = t->t_pshandle;
801 801 const pstatus_t *psp = Pstatus(P);
802 802 pt_data_t *pt = t->t_data;
803 803 int follow_exec = mdb.m_execmode == MDB_EM_FOLLOW;
804 804 pid_t pid = psp->pr_pid;
805 805
806 806 char execname[MAXPATHLEN];
807 807 mdb_sespec_t *sep, *nsep;
808 808 mdb_io_t *io;
809 809 char c;
810 810
811 811 mdb_dprintf(MDB_DBG_TGT, "exit from %s: errno=%d\n", proc_sysname(
812 812 psp->pr_lwp.pr_what, execname, sizeof (execname)),
813 813 psp->pr_lwp.pr_errno);
814 814
815 815 if (psp->pr_lwp.pr_errno != 0) {
816 816 (void) mdb_tgt_continue(t, NULL);
817 817 return; /* exec failed */
818 818 }
819 819
820 820 /*
821 821 * If execmode is ASK and stdout is a terminal, then ask the user to
822 822 * explicitly set the exec behavior for this particular exec. If
823 823 * Pstate() still shows PS_LOST, we are being called from pt_setrun()
824 824 * directly and therefore we must resume the terminal since it is still
825 825 * in the suspended state as far as tgt_continue() is concerned.
826 826 */
827 827 if (mdb.m_execmode == MDB_EM_ASK && mdb.m_term != NULL) {
828 828 if (Pstate(P) == PS_LOST)
829 829 IOP_RESUME(mdb.m_term);
830 830
831 831 mdb_iob_printf(mdb.m_err, "%s: %s detected: (f)ollow new "
832 832 "program or (s)top? ", mdb.m_pname, execname);
833 833 mdb_iob_flush(mdb.m_err);
834 834
835 835 while (IOP_READ(mdb.m_term, &c, sizeof (c)) == sizeof (c)) {
836 836 if (c == 'F' || c == 'f') {
837 837 mdb_iob_printf(mdb.m_err, "%c\n", c);
838 838 follow_exec = TRUE;
839 839 break;
840 840 } else if (c == 'S' || c == 's') {
841 841 mdb_iob_printf(mdb.m_err, "%c\n", c);
842 842 follow_exec = FALSE;
843 843 break;
844 844 }
845 845 }
846 846
847 847 if (Pstate(P) == PS_LOST)
848 848 IOP_SUSPEND(mdb.m_term);
849 849 }
850 850
851 851 pt_release_parents(t); /* release any waiting vfork parents */
852 852 pt_pre_detach(t, FALSE); /* remove our breakpoints and idle events */
853 853 Preset_maps(P); /* libproc must delete mappings and symtabs */
854 854 pt_close_aout(t); /* free pt symbol tables and GElf file data */
855 855
856 856 /*
857 857 * If we lost control of the process across the exec and are not able
858 858 * to reopen it, we have no choice but to clear the matched event list
859 859 * and wait for the user to quit or otherwise release the process.
860 860 */
861 861 if (Pstate(P) == PS_LOST && Preopen(P) == -1) {
862 862 int error = errno;
863 863
864 864 warn("lost control of PID %d due to exec of %s executable\n",
865 865 (int)pid, error == EOVERFLOW ? "64-bit" : "set-id");
866 866
867 867 for (sep = t->t_matched; sep != T_SE_END; sep = nsep) {
868 868 nsep = sep->se_matched;
869 869 sep->se_matched = NULL;
870 870 mdb_tgt_sespec_rele(t, sep);
871 871 }
872 872
873 873 if (error != EOVERFLOW)
874 874 return; /* just stop if we exec'd a set-id executable */
875 875 }
876 876
877 877 if (Pstate(P) != PS_LOST) {
878 878 if (Pexecname(P, execname, sizeof (execname)) == NULL) {
879 879 (void) mdb_iob_snprintf(execname, sizeof (execname),
880 880 "/proc/%d/object/a.out", (int)pid);
881 881 }
882 882
883 883 if (follow_exec == FALSE || psp->pr_dmodel == PR_MODEL_NATIVE)
884 884 warn("target performed exec of %s\n", execname);
885 885
886 886 io = mdb_fdio_create_path(NULL, execname, pt->p_oflags, 0);
887 887 if (io == NULL) {
888 888 warn("failed to open %s", execname);
889 889 warn("a.out symbol tables will not be available\n");
890 890 } else if (pt_open_aout(t, io) == NULL) {
891 891 (void) mdb_dis_select(pt_disasm(NULL));
892 892 mdb_io_destroy(io);
893 893 } else
894 894 (void) mdb_dis_select(pt_disasm(&pt->p_file->gf_ehdr));
895 895 }
896 896
897 897 /*
898 898 * We reset our libthread_db state here, but deliberately do NOT call
899 899 * PTL_DTOR because we do not want to call libthread_db's td_ta_delete.
900 900 * This interface is hopelessly broken in that it writes to the process
901 901 * address space (which we do not want it to do after an exec) and it
902 902 * doesn't bother deallocating any of its storage anyway.
903 903 */
904 904 pt->p_tdb_ops = NULL;
905 905 pt->p_ptl_ops = &proc_lwp_ops;
906 906 pt->p_ptl_hdl = NULL;
907 907
908 908 if (follow_exec && psp->pr_dmodel != PR_MODEL_NATIVE) {
909 909 const char *argv[3];
910 910 char *state, *env;
911 911 char pidarg[16];
912 912 size_t envlen;
913 913
914 914 if (realpath(getexecname(), execname) == NULL) {
915 915 warn("cannot follow PID %d -- failed to resolve "
916 916 "debugger pathname for re-exec", (int)pid);
917 917 return;
918 918 }
919 919
920 920 warn("restarting debugger to follow PID %d ...\n", (int)pid);
921 921 mdb_dprintf(MDB_DBG_TGT, "re-exec'ing %s\n", execname);
922 922
923 923 (void) mdb_snprintf(pidarg, sizeof (pidarg), "-p%d", (int)pid);
924 924
925 925 state = mdb_get_config();
926 926 envlen = strlen(MDB_CONFIG_ENV_VAR) + 1 + strlen(state) + 1;
927 927 env = mdb_alloc(envlen, UM_SLEEP);
928 928 (void) snprintf(env, envlen,
929 929 "%s=%s", MDB_CONFIG_ENV_VAR, state);
930 930
931 931 (void) putenv(env);
932 932
933 933 argv[0] = mdb.m_pname;
934 934 argv[1] = pidarg;
935 935 argv[2] = NULL;
936 936
937 937 if (mdb.m_term != NULL)
938 938 IOP_SUSPEND(mdb.m_term);
939 939
940 940 Prelease(P, PRELEASE_CLEAR | PRELEASE_HANG);
941 941 (void) execv(execname, (char *const *)argv);
942 942 warn("failed to re-exec debugger");
943 943
944 944 if (mdb.m_term != NULL)
945 945 IOP_RESUME(mdb.m_term);
946 946
947 947 t->t_pshandle = pt->p_idlehandle;
948 948 return;
949 949 }
950 950
951 951 pt_post_attach(t); /* install tracing flags and activate events */
952 952 pt_activate_common(t); /* initialize librtld_db and libthread_db */
953 953
954 954 if (psp->pr_dmodel != PR_MODEL_NATIVE && mdb.m_term != NULL) {
955 955 warn("loadable dcmds will not operate on non-native %d-bit "
956 956 "data model\n", psp->pr_dmodel == PR_MODEL_ILP32 ? 32 : 64);
957 957 warn("use ::release -a and then run mdb -p %d to restart "
958 958 "debugger\n", (int)pid);
959 959 }
960 960
961 961 if (follow_exec)
962 962 (void) mdb_tgt_continue(t, NULL);
963 963 }
964 964
965 965 static int
966 966 pt_setflags(mdb_tgt_t *t, int flags)
967 967 {
968 968 pt_data_t *pt = t->t_data;
969 969
970 970 if ((flags ^ t->t_flags) & MDB_TGT_F_RDWR) {
971 971 int mode = (flags & MDB_TGT_F_RDWR) ? O_RDWR : O_RDONLY;
972 972 mdb_io_t *io;
973 973
974 974 if (pt->p_fio == NULL)
975 975 return (set_errno(EMDB_NOEXEC));
976 976
977 977 io = mdb_fdio_create_path(NULL, IOP_NAME(pt->p_fio), mode, 0);
978 978
979 979 if (io == NULL)
980 980 return (-1); /* errno is set for us */
981 981
982 982 t->t_flags = (t->t_flags & ~MDB_TGT_F_RDWR) |
983 983 (flags & MDB_TGT_F_RDWR);
984 984
985 985 pt->p_fio = mdb_io_hold(io);
986 986 mdb_io_rele(pt->p_file->gf_io);
987 987 pt->p_file->gf_io = pt->p_fio;
988 988 }
989 989
990 990 if (flags & MDB_TGT_F_FORCE) {
991 991 t->t_flags |= MDB_TGT_F_FORCE;
992 992 pt->p_gflags |= PGRAB_FORCE;
993 993 }
994 994
995 995 return (0);
996 996 }
997 997
998 998 /*ARGSUSED*/
999 999 static int
1000 1000 pt_frame(void *arglim, uintptr_t pc, uint_t argc, const long *argv,
1001 1001 const mdb_tgt_gregset_t *gregs)
1002 1002 {
1003 1003 argc = MIN(argc, (uint_t)(uintptr_t)arglim);
1004 1004 mdb_printf("%a(", pc);
1005 1005
1006 1006 if (argc != 0) {
1007 1007 mdb_printf("%lr", *argv++);
1008 1008 for (argc--; argc != 0; argc--)
1009 1009 mdb_printf(", %lr", *argv++);
1010 1010 }
1011 1011
1012 1012 mdb_printf(")\n");
1013 1013 return (0);
1014 1014 }
1015 1015
1016 1016 static int
1017 1017 pt_framev(void *arglim, uintptr_t pc, uint_t argc, const long *argv,
1018 1018 const mdb_tgt_gregset_t *gregs)
1019 1019 {
1020 1020 argc = MIN(argc, (uint_t)(uintptr_t)arglim);
1021 1021 #if defined(__i386) || defined(__amd64)
1022 1022 mdb_printf("%0?lr %a(", gregs->gregs[R_FP], pc);
1023 1023 #else
1024 1024 mdb_printf("%0?lr %a(", gregs->gregs[R_SP], pc);
1025 1025 #endif
1026 1026 if (argc != 0) {
1027 1027 mdb_printf("%lr", *argv++);
1028 1028 for (argc--; argc != 0; argc--)
1029 1029 mdb_printf(", %lr", *argv++);
1030 1030 }
1031 1031
1032 1032 mdb_printf(")\n");
1033 1033 return (0);
1034 1034 }
1035 1035
1036 1036 static int
1037 1037 pt_framer(void *arglim, uintptr_t pc, uint_t argc, const long *argv,
1038 1038 const mdb_tgt_gregset_t *gregs)
1039 1039 {
1040 1040 if (pt_frameregs(arglim, pc, argc, argv, gregs, pc == PC_FAKE) == -1) {
1041 1041 /*
1042 1042 * Use verbose format if register format is not supported.
1043 1043 */
1044 1044 return (pt_framev(arglim, pc, argc, argv, gregs));
1045 1045 }
1046 1046
1047 1047 return (0);
1048 1048 }
1049 1049
1050 1050 /*ARGSUSED*/
1051 1051 static int
1052 1052 pt_stack_common(uintptr_t addr, uint_t flags, int argc,
1053 1053 const mdb_arg_t *argv, mdb_tgt_stack_f *func, prgreg_t saved_pc)
1054 1054 {
1055 1055 void *arg = (void *)(uintptr_t)mdb.m_nargs;
1056 1056 mdb_tgt_t *t = mdb.m_target;
1057 1057 mdb_tgt_gregset_t gregs;
1058 1058
1059 1059 if (argc != 0) {
1060 1060 if (argv->a_type == MDB_TYPE_CHAR || argc > 1)
1061 1061 return (DCMD_USAGE);
1062 1062
1063 1063 if (argv->a_type == MDB_TYPE_STRING)
1064 1064 arg = (void *)(uintptr_t)mdb_strtoull(argv->a_un.a_str);
1065 1065 else
1066 1066 arg = (void *)(uintptr_t)argv->a_un.a_val;
1067 1067 }
1068 1068
1069 1069 if (t->t_pshandle == NULL || Pstate(t->t_pshandle) == PS_IDLE) {
1070 1070 mdb_warn("no process active\n");
1071 1071 return (DCMD_ERR);
1072 1072 }
1073 1073
1074 1074 /*
1075 1075 * In the universe of sparcv7, sparcv9, ia32, and amd64 this code can be
1076 1076 * common: <sys/procfs_isa.h> conveniently #defines R_FP to be the
1077 1077 * appropriate register we need to set in order to perform a stack
1078 1078 * traceback from a given frame address.
1079 1079 */
1080 1080 if (flags & DCMD_ADDRSPEC) {
1081 1081 bzero(&gregs, sizeof (gregs));
1082 1082 gregs.gregs[R_FP] = addr;
1083 1083 #ifdef __sparc
1084 1084 gregs.gregs[R_I7] = saved_pc;
1085 1085 #endif /* __sparc */
1086 1086 } else if (PTL_GETREGS(t, PTL_TID(t), gregs.gregs) != 0) {
1087 1087 mdb_warn("failed to get current register set");
1088 1088 return (DCMD_ERR);
1089 1089 }
1090 1090
1091 1091 (void) mdb_tgt_stack_iter(t, &gregs, func, arg);
1092 1092 return (DCMD_OK);
1093 1093 }
1094 1094
1095 1095 static int
1096 1096 pt_stack(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
1097 1097 {
1098 1098 return (pt_stack_common(addr, flags, argc, argv, pt_frame, 0));
1099 1099 }
1100 1100
1101 1101 static int
1102 1102 pt_stackv(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
1103 1103 {
1104 1104 return (pt_stack_common(addr, flags, argc, argv, pt_framev, 0));
1105 1105 }
1106 1106
1107 1107 static int
1108 1108 pt_stackr(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
1109 1109 {
1110 1110 /*
1111 1111 * Force printing of first register window, by setting the
1112 1112 * saved pc (%i7) to PC_FAKE.
1113 1113 */
1114 1114 return (pt_stack_common(addr, flags, argc, argv, pt_framer, PC_FAKE));
1115 1115 }
1116 1116
1117 1117 /*ARGSUSED*/
1118 1118 static int
1119 1119 pt_ignored(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
1120 1120 {
1121 1121 struct ps_prochandle *P = mdb.m_target->t_pshandle;
1122 1122 char buf[PRSIGBUFSZ];
1123 1123
1124 1124 if ((flags & DCMD_ADDRSPEC) || argc != 0)
1125 1125 return (DCMD_USAGE);
1126 1126
1127 1127 if (P == NULL) {
1128 1128 mdb_warn("no process is currently active\n");
1129 1129 return (DCMD_ERR);
1130 1130 }
1131 1131
1132 1132 mdb_printf("%s\n", proc_sigset2str(&Pstatus(P)->pr_sigtrace, " ",
1133 1133 FALSE, buf, sizeof (buf)));
1134 1134
1135 1135 return (DCMD_OK);
1136 1136 }
1137 1137
1138 1138 /*ARGSUSED*/
1139 1139 static int
1140 1140 pt_lwpid(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
1141 1141 {
1142 1142 struct ps_prochandle *P = mdb.m_target->t_pshandle;
1143 1143
1144 1144 if ((flags & DCMD_ADDRSPEC) || argc != 0)
1145 1145 return (DCMD_USAGE);
1146 1146
1147 1147 if (P == NULL) {
1148 1148 mdb_warn("no process is currently active\n");
1149 1149 return (DCMD_ERR);
1150 1150 }
1151 1151
1152 1152 mdb_printf("%d\n", Pstatus(P)->pr_lwp.pr_lwpid);
1153 1153 return (DCMD_OK);
1154 1154 }
1155 1155
1156 1156 static int
1157 1157 pt_print_lwpid(int *n, const lwpstatus_t *psp)
1158 1158 {
1159 1159 struct ps_prochandle *P = mdb.m_target->t_pshandle;
1160 1160 int nlwp = Pstatus(P)->pr_nlwp;
1161 1161
1162 1162 if (*n == nlwp - 2)
1163 1163 mdb_printf("%d and ", (int)psp->pr_lwpid);
1164 1164 else if (*n == nlwp - 1)
1165 1165 mdb_printf("%d are", (int)psp->pr_lwpid);
1166 1166 else
1167 1167 mdb_printf("%d, ", (int)psp->pr_lwpid);
1168 1168
1169 1169 (*n)++;
1170 1170 return (0);
1171 1171 }
1172 1172
1173 1173 /*ARGSUSED*/
1174 1174 static int
1175 1175 pt_lwpids(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
1176 1176 {
1177 1177 struct ps_prochandle *P = mdb.m_target->t_pshandle;
1178 1178 int n = 0;
1179 1179
1180 1180 if (P == NULL) {
1181 1181 mdb_warn("no process is currently active\n");
1182 1182 return (DCMD_ERR);
1183 1183 }
1184 1184
1185 1185 switch (Pstatus(P)->pr_nlwp) {
1186 1186 case 0:
1187 1187 mdb_printf("no lwps are");
1188 1188 break;
1189 1189 case 1:
1190 1190 mdb_printf("lwpid %d is the only lwp",
1191 1191 Pstatus(P)->pr_lwp.pr_lwpid);
1192 1192 break;
1193 1193 default:
1194 1194 mdb_printf("lwpids ");
1195 1195 (void) Plwp_iter(P, (proc_lwp_f *)pt_print_lwpid, &n);
1196 1196 }
1197 1197
1198 1198 switch (Pstate(P)) {
1199 1199 case PS_DEAD:
1200 1200 mdb_printf(" in core of process %d.\n", Pstatus(P)->pr_pid);
1201 1201 break;
1202 1202 case PS_IDLE:
1203 1203 mdb_printf(" in idle target.\n");
1204 1204 break;
1205 1205 default:
1206 1206 mdb_printf(" in process %d.\n", (int)Pstatus(P)->pr_pid);
1207 1207 break;
1208 1208 }
1209 1209
1210 1210 return (DCMD_OK);
1211 1211 }
1212 1212
1213 1213 /*ARGSUSED*/
1214 1214 static int
1215 1215 pt_ignore(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
1216 1216 {
1217 1217 pt_data_t *pt = mdb.m_target->t_data;
1218 1218
1219 1219 if (!(flags & DCMD_ADDRSPEC) || argc != 0)
1220 1220 return (DCMD_USAGE);
1221 1221
1222 1222 if (addr < 1 || addr > pt->p_maxsig) {
1223 1223 mdb_warn("invalid signal number -- 0t%lu\n", addr);
1224 1224 return (DCMD_ERR);
1225 1225 }
1226 1226
1227 1227 (void) mdb_tgt_vespec_iter(mdb.m_target, pt_ignore_sig, (void *)addr);
1228 1228 return (DCMD_OK);
1229 1229 }
1230 1230
1231 1231 /*ARGSUSED*/
1232 1232 static int
1233 1233 pt_attach(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
1234 1234 {
1235 1235 mdb_tgt_t *t = mdb.m_target;
1236 1236 pt_data_t *pt = t->t_data;
1237 1237 int state, perr;
1238 1238
1239 1239 if (!(flags & DCMD_ADDRSPEC) && argc == 0)
1240 1240 return (DCMD_USAGE);
1241 1241
1242 1242 if (((flags & DCMD_ADDRSPEC) && argc != 0) || argc > 1 ||
1243 1243 (argc != 0 && argv->a_type != MDB_TYPE_STRING))
1244 1244 return (DCMD_USAGE);
1245 1245
1246 1246 if (t->t_pshandle != NULL && Pstate(t->t_pshandle) != PS_IDLE) {
1247 1247 mdb_warn("debugger is already attached to a %s\n",
1248 1248 (Pstate(t->t_pshandle) == PS_DEAD) ? "core" : "process");
1249 1249 return (DCMD_ERR);
1250 1250 }
1251 1251
1252 1252 if (pt->p_fio == NULL) {
1253 1253 mdb_warn("attach requires executable to be specified on "
1254 1254 "command-line (or use -p)\n");
1255 1255 return (DCMD_ERR);
1256 1256 }
1257 1257
1258 1258 if (flags & DCMD_ADDRSPEC)
1259 1259 t->t_pshandle = Pgrab((pid_t)addr, pt->p_gflags, &perr);
1260 1260 else
1261 1261 t->t_pshandle = proc_arg_grab(argv->a_un.a_str,
1262 1262 PR_ARG_ANY, pt->p_gflags, &perr);
1263 1263
1264 1264 if (t->t_pshandle == NULL) {
1265 1265 t->t_pshandle = pt->p_idlehandle;
1266 1266 mdb_warn("cannot attach: %s\n", Pgrab_error(perr));
1267 1267 return (DCMD_ERR);
1268 1268 }
1269 1269
1270 1270 state = Pstate(t->t_pshandle);
1271 1271 if (state != PS_DEAD && state != PS_IDLE) {
1272 1272 (void) Punsetflags(t->t_pshandle, PR_KLC);
1273 1273 (void) Psetflags(t->t_pshandle, PR_RLC);
1274 1274 pt_post_attach(t);
1275 1275 pt_activate_common(t);
1276 1276 }
1277 1277
1278 1278 (void) mdb_tgt_status(t, &t->t_status);
1279 1279 mdb_module_load_all(0);
1280 1280 return (DCMD_OK);
1281 1281 }
1282 1282
1283 1283 static int
1284 1284 pt_regstatus(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
1285 1285 {
1286 1286 mdb_tgt_t *t = mdb.m_target;
1287 1287
1288 1288 if (t->t_pshandle != NULL) {
1289 1289 const pstatus_t *psp = Pstatus(t->t_pshandle);
1290 1290 int cursig = psp->pr_lwp.pr_cursig;
1291 1291 char signame[SIG2STR_MAX];
1292 1292 int state = Pstate(t->t_pshandle);
1293 1293
1294 1294 if (state != PS_DEAD && state != PS_IDLE)
1295 1295 mdb_printf("process id = %d\n", psp->pr_pid);
↓ open down ↓ |
1295 lines elided |
↑ open up ↑ |
1296 1296 else
1297 1297 mdb_printf("no process\n");
1298 1298
1299 1299 if (cursig != 0 && sig2str(cursig, signame) == 0)
1300 1300 mdb_printf("SIG%s: %s\n", signame, strsignal(cursig));
1301 1301 }
1302 1302
1303 1303 return (pt_regs(addr, flags, argc, argv));
1304 1304 }
1305 1305
1306 +static void
1307 +pt_thread_name(mdb_tgt_t *t, mdb_tgt_tid_t tid, char *buf, size_t bufsize)
1308 +{
1309 + char name[THREAD_NAME_MAX];
1310 +
1311 + buf[0] = '\0';
1312 +
1313 + if (t->t_pshandle == NULL ||
1314 + Plwp_getname(t->t_pshandle, tid, name, sizeof (name)) != 0 ||
1315 + name[0] == '\0') {
1316 + (void) mdb_snprintf(buf, bufsize, "%lu", tid);
1317 + return;
1318 + }
1319 +
1320 + (void) mdb_snprintf(buf, bufsize, "%lu [%s]", tid, name);
1321 +}
1322 +
1306 1323 static int
1307 1324 pt_findstack(uintptr_t tid, uint_t flags, int argc, const mdb_arg_t *argv)
1308 1325 {
1309 1326 mdb_tgt_t *t = mdb.m_target;
1310 1327 mdb_tgt_gregset_t gregs;
1311 1328 int showargs = 0;
1312 1329 int count;
1313 1330 uintptr_t pc, sp;
1331 + char name[128];
1314 1332
1315 1333 if (!(flags & DCMD_ADDRSPEC))
1316 1334 return (DCMD_USAGE);
1317 1335
1318 1336 count = mdb_getopts(argc, argv, 'v', MDB_OPT_SETBITS, TRUE, &showargs,
1319 1337 NULL);
1320 1338 argc -= count;
1321 1339 argv += count;
1322 1340
1323 1341 if (argc > 1 || (argc == 1 && argv->a_type != MDB_TYPE_STRING))
1324 1342 return (DCMD_USAGE);
1325 1343
1326 1344 if (PTL_GETREGS(t, tid, gregs.gregs) != 0) {
↓ open down ↓ |
3 lines elided |
↑ open up ↑ |
1327 1345 mdb_warn("failed to get register set for thread %p", tid);
1328 1346 return (DCMD_ERR);
1329 1347 }
1330 1348
1331 1349 pc = gregs.gregs[R_PC];
1332 1350 #if defined(__i386) || defined(__amd64)
1333 1351 sp = gregs.gregs[R_FP];
1334 1352 #else
1335 1353 sp = gregs.gregs[R_SP];
1336 1354 #endif
1337 - mdb_printf("stack pointer for thread %p: %p\n", tid, sp);
1355 +
1356 + pt_thread_name(t, tid, name, sizeof (name));
1357 +
1358 + mdb_printf("stack pointer for thread %s: %p\n", name, sp);
1338 1359 if (pc != 0)
1339 1360 mdb_printf("[ %0?lr %a() ]\n", sp, pc);
1340 1361
1341 1362 (void) mdb_inc_indent(2);
1342 1363 mdb_set_dot(sp);
1343 1364
1344 1365 if (argc == 1)
1345 1366 (void) mdb_eval(argv->a_un.a_str);
1346 1367 else if (showargs)
1347 1368 (void) mdb_eval("<.$C");
1348 1369 else
1349 1370 (void) mdb_eval("<.$C0");
1350 1371
1351 1372 (void) mdb_dec_indent(2);
1352 1373 return (DCMD_OK);
1353 1374 }
1354 1375
1355 1376 /*ARGSUSED*/
1356 1377 static int
1357 1378 pt_gcore(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
1358 1379 {
1359 1380 mdb_tgt_t *t = mdb.m_target;
1360 1381 char *prefix = "core";
1361 1382 char *content_str = NULL;
1362 1383 core_content_t content = CC_CONTENT_DEFAULT;
1363 1384 size_t size;
1364 1385 char *fname;
1365 1386 pid_t pid;
1366 1387
1367 1388 if (flags & DCMD_ADDRSPEC)
1368 1389 return (DCMD_USAGE);
1369 1390
1370 1391 if (mdb_getopts(argc, argv,
1371 1392 'o', MDB_OPT_STR, &prefix,
1372 1393 'c', MDB_OPT_STR, &content_str, NULL) != argc)
1373 1394 return (DCMD_USAGE);
1374 1395
1375 1396 if (content_str != NULL &&
1376 1397 (proc_str2content(content_str, &content) != 0 ||
1377 1398 content == CC_CONTENT_INVALID)) {
1378 1399 mdb_warn("invalid content string '%s'\n", content_str);
1379 1400 return (DCMD_ERR);
1380 1401 }
1381 1402
1382 1403 if (t->t_pshandle == NULL) {
1383 1404 mdb_warn("no process active\n");
1384 1405 return (DCMD_ERR);
1385 1406 }
1386 1407
1387 1408 pid = Pstatus(t->t_pshandle)->pr_pid;
1388 1409 size = 1 + mdb_snprintf(NULL, 0, "%s.%d", prefix, (int)pid);
1389 1410 fname = mdb_alloc(size, UM_SLEEP | UM_GC);
1390 1411 (void) mdb_snprintf(fname, size, "%s.%d", prefix, (int)pid);
1391 1412
1392 1413 if (Pgcore(t->t_pshandle, fname, content) != 0) {
1393 1414 /*
1394 1415 * Short writes during dumping are specifically described by
1395 1416 * EBADE, just as ZFS uses this otherwise-unused code for
1396 1417 * checksum errors. Translate to and mdb errno.
1397 1418 */
1398 1419 if (errno == EBADE)
1399 1420 (void) set_errno(EMDB_SHORTWRITE);
1400 1421 mdb_warn("couldn't dump core");
1401 1422 return (DCMD_ERR);
1402 1423 }
1403 1424
1404 1425 mdb_warn("%s dumped\n", fname);
1405 1426
1406 1427 return (DCMD_OK);
1407 1428 }
1408 1429
1409 1430 /*ARGSUSED*/
1410 1431 static int
1411 1432 pt_kill(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
1412 1433 {
1413 1434 mdb_tgt_t *t = mdb.m_target;
1414 1435 pt_data_t *pt = t->t_data;
1415 1436 int state;
1416 1437
1417 1438 if ((flags & DCMD_ADDRSPEC) || argc != 0)
1418 1439 return (DCMD_USAGE);
1419 1440
1420 1441 if (t->t_pshandle != NULL &&
1421 1442 (state = Pstate(t->t_pshandle)) != PS_DEAD && state != PS_IDLE) {
1422 1443 mdb_warn("victim process PID %d forcibly terminated\n",
1423 1444 (int)Pstatus(t->t_pshandle)->pr_pid);
1424 1445 pt_pre_detach(t, TRUE);
1425 1446 pt_release_parents(t);
1426 1447 Prelease(t->t_pshandle, PRELEASE_KILL);
1427 1448 t->t_pshandle = pt->p_idlehandle;
1428 1449 (void) mdb_tgt_status(t, &t->t_status);
1429 1450 mdb.m_flags &= ~(MDB_FL_VCREATE | MDB_FL_JOBCTL);
1430 1451 } else
1431 1452 mdb_warn("no victim process is currently under control\n");
1432 1453
1433 1454 return (DCMD_OK);
1434 1455 }
1435 1456
1436 1457 /*ARGSUSED*/
1437 1458 static int
1438 1459 pt_detach(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
1439 1460 {
1440 1461 mdb_tgt_t *t = mdb.m_target;
1441 1462 pt_data_t *pt = t->t_data;
1442 1463 int rflags = pt->p_rflags;
1443 1464
1444 1465 if (argc != 0 && argv->a_type == MDB_TYPE_STRING &&
1445 1466 strcmp(argv->a_un.a_str, "-a") == 0) {
1446 1467 rflags = PRELEASE_HANG | PRELEASE_CLEAR;
1447 1468 argv++;
1448 1469 argc--;
1449 1470 }
1450 1471
1451 1472 if ((flags & DCMD_ADDRSPEC) || argc != 0)
1452 1473 return (DCMD_USAGE);
1453 1474
1454 1475 if (t->t_pshandle == NULL || Pstate(t->t_pshandle) == PS_IDLE) {
1455 1476 mdb_warn("debugger is not currently attached to a process "
1456 1477 "or core file\n");
1457 1478 return (DCMD_ERR);
1458 1479 }
1459 1480
1460 1481 pt_pre_detach(t, TRUE);
1461 1482 pt_release_parents(t);
1462 1483 Prelease(t->t_pshandle, rflags);
1463 1484 t->t_pshandle = pt->p_idlehandle;
1464 1485 (void) mdb_tgt_status(t, &t->t_status);
1465 1486 mdb.m_flags &= ~(MDB_FL_VCREATE | MDB_FL_JOBCTL);
1466 1487
1467 1488 return (DCMD_OK);
1468 1489 }
1469 1490
1470 1491 static uintmax_t
1471 1492 reg_disc_get(const mdb_var_t *v)
1472 1493 {
1473 1494 mdb_tgt_t *t = MDB_NV_COOKIE(v);
1474 1495 mdb_tgt_tid_t tid = PTL_TID(t);
1475 1496 mdb_tgt_reg_t r = 0;
1476 1497
1477 1498 if (tid != (mdb_tgt_tid_t)-1L)
1478 1499 (void) mdb_tgt_getareg(t, tid, mdb_nv_get_name(v), &r);
1479 1500
1480 1501 return (r);
1481 1502 }
1482 1503
1483 1504 static void
1484 1505 reg_disc_set(mdb_var_t *v, uintmax_t r)
1485 1506 {
1486 1507 mdb_tgt_t *t = MDB_NV_COOKIE(v);
1487 1508 mdb_tgt_tid_t tid = PTL_TID(t);
1488 1509
1489 1510 if (tid != (mdb_tgt_tid_t)-1L && mdb_tgt_putareg(t, tid,
1490 1511 mdb_nv_get_name(v), r) == -1)
1491 1512 mdb_warn("failed to modify %%%s register", mdb_nv_get_name(v));
1492 1513 }
1493 1514
1494 1515 static void
1495 1516 pt_print_reason(const lwpstatus_t *psp)
1496 1517 {
1497 1518 char name[SIG2STR_MAX + 4]; /* enough for SIG+name+\0, syscall or flt */
1498 1519 const char *desc;
1499 1520
1500 1521 switch (psp->pr_why) {
1501 1522 case PR_REQUESTED:
1502 1523 mdb_printf("stopped by debugger");
1503 1524 break;
1504 1525 case PR_SIGNALLED:
1505 1526 mdb_printf("stopped on %s (%s)", proc_signame(psp->pr_what,
1506 1527 name, sizeof (name)), strsignal(psp->pr_what));
1507 1528 break;
1508 1529 case PR_SYSENTRY:
1509 1530 mdb_printf("stopped on entry to %s system call",
1510 1531 proc_sysname(psp->pr_what, name, sizeof (name)));
1511 1532 break;
1512 1533 case PR_SYSEXIT:
1513 1534 mdb_printf("stopped on exit from %s system call",
1514 1535 proc_sysname(psp->pr_what, name, sizeof (name)));
1515 1536 break;
1516 1537 case PR_JOBCONTROL:
1517 1538 mdb_printf("stopped by job control");
1518 1539 break;
1519 1540 case PR_FAULTED:
1520 1541 if (psp->pr_what == FLTBPT) {
1521 1542 mdb_printf("stopped on a breakpoint");
1522 1543 } else if (psp->pr_what == FLTWATCH) {
1523 1544 switch (psp->pr_info.si_code) {
1524 1545 case TRAP_RWATCH:
1525 1546 desc = "read";
1526 1547 break;
1527 1548 case TRAP_WWATCH:
1528 1549 desc = "write";
1529 1550 break;
1530 1551 case TRAP_XWATCH:
1531 1552 desc = "execute";
1532 1553 break;
1533 1554 default:
1534 1555 desc = "unknown";
1535 1556 }
1536 1557 mdb_printf("stopped %s a watchpoint (%s access to %p)",
1537 1558 psp->pr_info.si_trapafter ? "after" : "on",
1538 1559 desc, psp->pr_info.si_addr);
1539 1560 } else if (psp->pr_what == FLTTRACE) {
1540 1561 mdb_printf("stopped after a single-step");
1541 1562 } else {
1542 1563 mdb_printf("stopped on a %s fault",
1543 1564 proc_fltname(psp->pr_what, name, sizeof (name)));
1544 1565 }
1545 1566 break;
1546 1567 case PR_SUSPENDED:
1547 1568 case PR_CHECKPOINT:
1548 1569 mdb_printf("suspended by the kernel");
1549 1570 break;
1550 1571 default:
1551 1572 mdb_printf("stopped for unknown reason (%d/%d)",
1552 1573 psp->pr_why, psp->pr_what);
1553 1574 }
1554 1575 }
1555 1576
1556 1577 /*ARGSUSED*/
1557 1578 static int
1558 1579 pt_status_dcmd(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
1559 1580 {
1560 1581 mdb_tgt_t *t = mdb.m_target;
1561 1582 struct ps_prochandle *P = t->t_pshandle;
1562 1583 pt_data_t *pt = t->t_data;
1563 1584
1564 1585 if (P != NULL) {
1565 1586 const psinfo_t *pip = Ppsinfo(P);
1566 1587 const pstatus_t *psp = Pstatus(P);
1567 1588 int cursig = 0, bits = 0, coredump = 0;
1568 1589 int state;
1569 1590 GElf_Sym sym;
1570 1591 uintptr_t panicstr;
1571 1592 char *panicbuf = mdb_alloc(PANIC_BUFSIZE, UM_SLEEP);
1572 1593 const siginfo_t *sip = &(psp->pr_lwp.pr_info);
1573 1594
1574 1595 char execname[MAXPATHLEN], buf[BUFSIZ];
1575 1596 char signame[SIG2STR_MAX + 4]; /* enough for SIG+name+\0 */
1576 1597
1577 1598 mdb_tgt_spec_desc_t desc;
1578 1599 mdb_sespec_t *sep;
1579 1600
1580 1601 struct utsname uts;
1581 1602 prcred_t cred;
1582 1603 psinfo_t pi;
1583 1604
1584 1605 (void) strcpy(uts.nodename, "unknown machine");
1585 1606 (void) Puname(P, &uts);
1586 1607
1587 1608 if (pip != NULL) {
1588 1609 bcopy(pip, &pi, sizeof (psinfo_t));
1589 1610 proc_unctrl_psinfo(&pi);
1590 1611 } else
1591 1612 bzero(&pi, sizeof (psinfo_t));
1592 1613
1593 1614 bits = pi.pr_dmodel == PR_MODEL_ILP32 ? 32 : 64;
1594 1615
1595 1616 state = Pstate(P);
1596 1617 if (psp != NULL && state != PS_UNDEAD && state != PS_IDLE)
1597 1618 cursig = psp->pr_lwp.pr_cursig;
1598 1619
1599 1620 if (state == PS_DEAD && pip != NULL) {
1600 1621 mdb_printf("debugging core file of %s (%d-bit) "
1601 1622 "from %s\n", pi.pr_fname, bits, uts.nodename);
1602 1623
1603 1624 } else if (state == PS_DEAD) {
1604 1625 mdb_printf("debugging core file\n");
1605 1626
1606 1627 } else if (state == PS_IDLE) {
1607 1628 const GElf_Ehdr *ehp = &pt->p_file->gf_ehdr;
1608 1629
1609 1630 mdb_printf("debugging %s file (%d-bit)\n",
1610 1631 ehp->e_type == ET_EXEC ? "executable" : "object",
1611 1632 ehp->e_ident[EI_CLASS] == ELFCLASS32 ? 32 : 64);
1612 1633
1613 1634 } else if (state == PS_UNDEAD && pi.pr_pid == 0) {
1614 1635 mdb_printf("debugging defunct process\n");
1615 1636
1616 1637 } else {
1617 1638 mdb_printf("debugging PID %d (%d-bit)\n",
1618 1639 pi.pr_pid, bits);
1619 1640 }
1620 1641
1621 1642 if (Pexecname(P, execname, sizeof (execname)) != NULL)
1622 1643 mdb_printf("file: %s\n", execname);
1623 1644
1624 1645 if (pip != NULL && state == PS_DEAD)
1625 1646 mdb_printf("initial argv: %s\n", pi.pr_psargs);
1626 1647
1627 1648 if (state != PS_UNDEAD && state != PS_IDLE) {
1628 1649 mdb_printf("threading model: ");
1629 1650 if (pt->p_ptl_ops == &proc_lwp_ops)
1630 1651 mdb_printf("raw lwps\n");
1631 1652 else
1632 1653 mdb_printf("native threads\n");
1633 1654 }
1634 1655
1635 1656 mdb_printf("status: ");
1636 1657 switch (state) {
1637 1658 case PS_RUN:
1638 1659 ASSERT(!(psp->pr_flags & PR_STOPPED));
1639 1660 mdb_printf("process is running");
1640 1661 if (psp->pr_flags & PR_DSTOP)
1641 1662 mdb_printf(", debugger stop directive pending");
1642 1663 mdb_printf("\n");
1643 1664 break;
1644 1665
1645 1666 case PS_STOP:
1646 1667 ASSERT(psp->pr_flags & PR_STOPPED);
1647 1668 pt_print_reason(&psp->pr_lwp);
1648 1669
1649 1670 if (psp->pr_flags & PR_DSTOP)
1650 1671 mdb_printf(", debugger stop directive pending");
1651 1672 if (psp->pr_flags & PR_ASLEEP)
1652 1673 mdb_printf(", sleeping in %s system call",
1653 1674 proc_sysname(psp->pr_lwp.pr_syscall,
1654 1675 signame, sizeof (signame)));
1655 1676
1656 1677 mdb_printf("\n");
1657 1678
1658 1679 for (sep = t->t_matched; sep != T_SE_END;
1659 1680 sep = sep->se_matched) {
1660 1681 mdb_printf("event: %s\n", sep->se_ops->se_info(
1661 1682 t, sep, mdb_list_next(&sep->se_velist),
1662 1683 &desc, buf, sizeof (buf)));
1663 1684 }
1664 1685 break;
1665 1686
1666 1687 case PS_LOST:
1667 1688 mdb_printf("debugger lost control of process\n");
1668 1689 break;
1669 1690
1670 1691 case PS_UNDEAD:
1671 1692 coredump = WIFSIGNALED(pi.pr_wstat) &&
1672 1693 WCOREDUMP(pi.pr_wstat);
1673 1694 /*FALLTHRU*/
1674 1695
1675 1696 case PS_DEAD:
1676 1697 if (cursig == 0 && WIFSIGNALED(pi.pr_wstat))
1677 1698 cursig = WTERMSIG(pi.pr_wstat);
1678 1699 /*
1679 1700 * We can only use pr_wstat == 0 as a test for gcore if
1680 1701 * an NT_PRCRED note is present; these features were
1681 1702 * added at the same time in Solaris 8.
1682 1703 */
1683 1704 if (pi.pr_wstat == 0 && Pstate(P) == PS_DEAD &&
1684 1705 Pcred(P, &cred, 1) == 0) {
1685 1706 mdb_printf("process core file generated "
1686 1707 "with gcore(1)\n");
1687 1708 } else if (cursig != 0) {
1688 1709 mdb_printf("process terminated by %s (%s)",
1689 1710 proc_signame(cursig, signame,
1690 1711 sizeof (signame)), strsignal(cursig));
1691 1712
1692 1713 if (sip->si_signo != 0 && SI_FROMUSER(sip) &&
1693 1714 sip->si_pid != 0) {
1694 1715 mdb_printf(", pid=%d uid=%u",
1695 1716 (int)sip->si_pid, sip->si_uid);
1696 1717 if (sip->si_code != 0) {
1697 1718 mdb_printf(" code=%d",
1698 1719 sip->si_code);
1699 1720 }
1700 1721 } else {
1701 1722 switch (sip->si_signo) {
1702 1723 case SIGILL:
1703 1724 case SIGTRAP:
1704 1725 case SIGFPE:
1705 1726 case SIGSEGV:
1706 1727 case SIGBUS:
1707 1728 case SIGEMT:
1708 1729 mdb_printf(", addr=%p",
1709 1730 sip->si_addr);
1710 1731 default:
1711 1732 break;
1712 1733 }
1713 1734 }
1714 1735
1715 1736 if (coredump)
1716 1737 mdb_printf(" - core file dumped");
1717 1738 mdb_printf("\n");
1718 1739 } else {
1719 1740 mdb_printf("process terminated with exit "
1720 1741 "status %d\n", WEXITSTATUS(pi.pr_wstat));
1721 1742 }
1722 1743
1723 1744 if (Plookup_by_name(t->t_pshandle, "libc.so",
1724 1745 "panicstr", &sym) == 0 &&
1725 1746 Pread(t->t_pshandle, &panicstr, sizeof (panicstr),
1726 1747 sym.st_value) == sizeof (panicstr) &&
1727 1748 Pread_string(t->t_pshandle, panicbuf,
1728 1749 PANIC_BUFSIZE, panicstr) > 0) {
1729 1750 mdb_printf("panic message: %s",
1730 1751 panicbuf);
1731 1752 }
1732 1753
1733 1754
1734 1755 break;
1735 1756
1736 1757 case PS_IDLE:
1737 1758 mdb_printf("idle\n");
1738 1759 break;
1739 1760
1740 1761 default:
1741 1762 mdb_printf("unknown libproc Pstate: %d\n", Pstate(P));
1742 1763 }
1743 1764 mdb_free(panicbuf, PANIC_BUFSIZE);
1744 1765
1745 1766 } else if (pt->p_file != NULL) {
1746 1767 const GElf_Ehdr *ehp = &pt->p_file->gf_ehdr;
1747 1768
1748 1769 mdb_printf("debugging %s file (%d-bit)\n",
1749 1770 ehp->e_type == ET_EXEC ? "executable" : "object",
1750 1771 ehp->e_ident[EI_CLASS] == ELFCLASS32 ? 32 : 64);
1751 1772 mdb_printf("executable file: %s\n", IOP_NAME(pt->p_fio));
1752 1773 mdb_printf("status: idle\n");
1753 1774 }
1754 1775
1755 1776 return (DCMD_OK);
1756 1777 }
1757 1778
1758 1779 static int
1759 1780 pt_tls(uintptr_t tid, uint_t flags, int argc, const mdb_arg_t *argv)
1760 1781 {
1761 1782 const char *name;
1762 1783 const char *object;
1763 1784 GElf_Sym sym;
1764 1785 mdb_syminfo_t si;
1765 1786 mdb_tgt_t *t = mdb.m_target;
1766 1787
1767 1788 if (!(flags & DCMD_ADDRSPEC) || argc > 1)
1768 1789 return (DCMD_USAGE);
1769 1790
1770 1791 if (argc == 0) {
1771 1792 psaddr_t b;
1772 1793
1773 1794 if (tlsbase(t, tid, PR_LMID_EVERY, MDB_TGT_OBJ_EXEC, &b) != 0) {
1774 1795 mdb_warn("failed to lookup tlsbase for %r", tid);
1775 1796 return (DCMD_ERR);
1776 1797 }
1777 1798
1778 1799 mdb_printf("%lr\n", b);
1779 1800 mdb_set_dot(b);
1780 1801
1781 1802 return (DCMD_OK);
1782 1803 }
1783 1804
1784 1805 name = argv[0].a_un.a_str;
1785 1806 object = MDB_TGT_OBJ_EVERY;
1786 1807
1787 1808 if (pt_lookup_by_name_thr(t, object, name, &sym, &si, tid) != 0) {
1788 1809 mdb_warn("failed to lookup %s", name);
1789 1810 return (DCMD_ABORT); /* avoid repeated failure */
1790 1811 }
1791 1812
1792 1813 if (GELF_ST_TYPE(sym.st_info) != STT_TLS && DCMD_HDRSPEC(flags))
1793 1814 mdb_warn("%s does not refer to thread local storage\n", name);
1794 1815
1795 1816 mdb_printf("%llr\n", sym.st_value);
1796 1817 mdb_set_dot(sym.st_value);
1797 1818
1798 1819 return (DCMD_OK);
1799 1820 }
1800 1821
1801 1822 /*ARGSUSED*/
1802 1823 static int
1803 1824 pt_tmodel(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
1804 1825 {
1805 1826 mdb_tgt_t *t = mdb.m_target;
1806 1827 pt_data_t *pt = t->t_data;
1807 1828 const pt_ptl_ops_t *ptl_ops;
1808 1829
1809 1830 if (argc != 1 || argv->a_type != MDB_TYPE_STRING)
1810 1831 return (DCMD_USAGE);
1811 1832
1812 1833 if (strcmp(argv->a_un.a_str, "thread") == 0)
1813 1834 ptl_ops = &proc_tdb_ops;
1814 1835 else if (strcmp(argv->a_un.a_str, "lwp") == 0)
1815 1836 ptl_ops = &proc_lwp_ops;
1816 1837 else
1817 1838 return (DCMD_USAGE);
1818 1839
1819 1840 if (t->t_pshandle != NULL && pt->p_ptl_ops != ptl_ops) {
1820 1841 PTL_DTOR(t);
1821 1842 pt->p_tdb_ops = NULL;
1822 1843 pt->p_ptl_ops = &proc_lwp_ops;
1823 1844 pt->p_ptl_hdl = NULL;
1824 1845
1825 1846 if (ptl_ops == &proc_tdb_ops) {
1826 1847 (void) Pobject_iter(t->t_pshandle, (proc_map_f *)
1827 1848 thr_check, t);
1828 1849 }
1829 1850 }
1830 1851
1831 1852 (void) mdb_tgt_status(t, &t->t_status);
1832 1853 return (DCMD_OK);
1833 1854 }
1834 1855
1835 1856 static const char *
1836 1857 env_match(const char *cmp, const char *nameval)
1837 1858 {
1838 1859 const char *loc;
1839 1860 size_t cmplen = strlen(cmp);
1840 1861
1841 1862 loc = strchr(nameval, '=');
1842 1863 if (loc != NULL && (loc - nameval) == cmplen &&
1843 1864 strncmp(nameval, cmp, cmplen) == 0) {
1844 1865 return (loc + 1);
1845 1866 }
1846 1867
1847 1868 return (NULL);
1848 1869 }
1849 1870
1850 1871 /*ARGSUSED*/
1851 1872 static int
1852 1873 print_env(void *data, struct ps_prochandle *P, uintptr_t addr,
1853 1874 const char *nameval)
1854 1875 {
1855 1876 const char *value;
1856 1877
1857 1878 if (nameval == NULL) {
1858 1879 mdb_printf("<0x%p>\n", addr);
1859 1880 } else {
1860 1881 if (data == NULL)
1861 1882 mdb_printf("%s\n", nameval);
1862 1883 else if ((value = env_match(data, nameval)) != NULL)
1863 1884 mdb_printf("%s\n", value);
1864 1885 }
1865 1886
1866 1887 return (0);
1867 1888 }
1868 1889
1869 1890 /*ARGSUSED*/
1870 1891 static int
1871 1892 pt_getenv(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
1872 1893 {
1873 1894 mdb_tgt_t *t = mdb.m_target;
1874 1895 pt_data_t *pt = t->t_data;
1875 1896 int i;
1876 1897 uint_t opt_t = 0;
1877 1898 mdb_var_t *v;
1878 1899
1879 1900 i = mdb_getopts(argc, argv,
1880 1901 't', MDB_OPT_SETBITS, TRUE, &opt_t, NULL);
1881 1902
1882 1903 argc -= i;
1883 1904 argv += i;
1884 1905
1885 1906 if ((flags & DCMD_ADDRSPEC) || argc > 1)
1886 1907 return (DCMD_USAGE);
1887 1908
1888 1909 if (argc == 1 && argv->a_type != MDB_TYPE_STRING)
1889 1910 return (DCMD_USAGE);
1890 1911
1891 1912 if (opt_t && t->t_pshandle == NULL) {
1892 1913 mdb_warn("no process active\n");
1893 1914 return (DCMD_ERR);
1894 1915 }
1895 1916
1896 1917 if (opt_t && (Pstate(t->t_pshandle) == PS_IDLE ||
1897 1918 Pstate(t->t_pshandle) == PS_UNDEAD)) {
1898 1919 mdb_warn("-t option requires target to be running\n");
1899 1920 return (DCMD_ERR);
1900 1921 }
1901 1922
1902 1923 if (opt_t != 0) {
1903 1924 if (Penv_iter(t->t_pshandle, print_env,
1904 1925 argc == 0 ? NULL : (void *)argv->a_un.a_str) != 0)
1905 1926 return (DCMD_ERR);
1906 1927 } else if (argc == 1) {
1907 1928 if ((v = mdb_nv_lookup(&pt->p_env, argv->a_un.a_str)) == NULL)
1908 1929 return (DCMD_ERR);
1909 1930
1910 1931 ASSERT(strchr(mdb_nv_get_cookie(v), '=') != NULL);
1911 1932 mdb_printf("%s\n", strchr(mdb_nv_get_cookie(v), '=') + 1);
1912 1933 } else {
1913 1934
1914 1935 mdb_nv_rewind(&pt->p_env);
1915 1936 while ((v = mdb_nv_advance(&pt->p_env)) != NULL)
1916 1937 mdb_printf("%s\n", mdb_nv_get_cookie(v));
1917 1938 }
1918 1939
1919 1940 return (DCMD_OK);
1920 1941 }
1921 1942
1922 1943 /*
1923 1944 * Function to set a variable in the internal environment, which is used when
1924 1945 * creating new processes. Note that it is possible that 'nameval' can refer to
1925 1946 * read-only memory, if mdb calls putenv() on an existing value before calling
1926 1947 * this function. While we should avoid this situation, this function is
1927 1948 * designed to be robust in the face of such changes.
1928 1949 */
1929 1950 static void
1930 1951 pt_env_set(pt_data_t *pt, const char *nameval)
1931 1952 {
1932 1953 mdb_var_t *v;
1933 1954 char *equals, *val;
1934 1955 const char *name;
1935 1956 size_t len;
1936 1957
1937 1958 if ((equals = strchr(nameval, '=')) != NULL) {
1938 1959 val = strdup(nameval);
1939 1960 equals = val + (equals - nameval);
1940 1961 } else {
1941 1962 /*
1942 1963 * nameval doesn't contain an equals character. Convert this to
1943 1964 * be 'nameval='.
1944 1965 */
1945 1966 len = strlen(nameval);
1946 1967 val = mdb_alloc(len + 2, UM_SLEEP);
1947 1968 (void) mdb_snprintf(val, len + 2, "%s=", nameval);
1948 1969 equals = val + len;
1949 1970 }
1950 1971
1951 1972 /* temporary truncate the string for lookup/insert */
1952 1973 *equals = '\0';
1953 1974 v = mdb_nv_lookup(&pt->p_env, val);
1954 1975
1955 1976 if (v != NULL) {
1956 1977 char *old = mdb_nv_get_cookie(v);
1957 1978 mdb_free(old, strlen(old) + 1);
1958 1979 name = mdb_nv_get_name(v);
1959 1980 } else {
1960 1981 /*
1961 1982 * The environment is created using MDB_NV_EXTNAME, so we must
1962 1983 * provide external storage for the variable names.
1963 1984 */
1964 1985 name = strdup(val);
1965 1986 }
1966 1987
1967 1988 *equals = '=';
1968 1989
1969 1990 (void) mdb_nv_insert(&pt->p_env, name, NULL, (uintptr_t)val,
1970 1991 MDB_NV_EXTNAME);
1971 1992
1972 1993 if (equals)
1973 1994 *equals = '=';
1974 1995 }
1975 1996
1976 1997 /*
1977 1998 * Clears the internal environment.
1978 1999 */
1979 2000 static void
1980 2001 pt_env_clear(pt_data_t *pt)
1981 2002 {
1982 2003 mdb_var_t *v;
1983 2004 char *val, *name;
1984 2005
1985 2006 mdb_nv_rewind(&pt->p_env);
1986 2007 while ((v = mdb_nv_advance(&pt->p_env)) != NULL) {
1987 2008
1988 2009 name = (char *)mdb_nv_get_name(v);
1989 2010 val = mdb_nv_get_cookie(v);
1990 2011
1991 2012 mdb_nv_remove(&pt->p_env, v);
1992 2013
1993 2014 mdb_free(name, strlen(name) + 1);
1994 2015 mdb_free(val, strlen(val) + 1);
1995 2016 }
1996 2017 }
1997 2018
1998 2019 /*ARGSUSED*/
1999 2020 static int
2000 2021 pt_setenv(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
2001 2022 {
2002 2023 mdb_tgt_t *t = mdb.m_target;
2003 2024 pt_data_t *pt = t->t_data;
2004 2025 char *nameval;
2005 2026 size_t len;
2006 2027 int alloc;
2007 2028
2008 2029 if ((flags & DCMD_ADDRSPEC) || argc == 0 || argc > 2)
2009 2030 return (DCMD_USAGE);
2010 2031
2011 2032 if ((argc > 0 && argv[0].a_type != MDB_TYPE_STRING) ||
2012 2033 (argc > 1 && argv[1].a_type != MDB_TYPE_STRING))
2013 2034 return (DCMD_USAGE);
2014 2035
2015 2036 if (t->t_pshandle == NULL) {
2016 2037 mdb_warn("no process active\n");
2017 2038 return (DCMD_ERR);
2018 2039 }
2019 2040
2020 2041 /*
2021 2042 * If the process is in some sort of running state, warn the user that
2022 2043 * changes won't immediately take effect.
2023 2044 */
2024 2045 if (Pstate(t->t_pshandle) == PS_RUN ||
2025 2046 Pstate(t->t_pshandle) == PS_STOP) {
2026 2047 mdb_warn("warning: changes will not take effect until process"
2027 2048 " is restarted\n");
2028 2049 }
2029 2050
2030 2051 /*
2031 2052 * We allow two forms of operation. The first is the usual "name=value"
2032 2053 * parameter. We also allow the user to specify two arguments, where
2033 2054 * the first is the name of the variable, and the second is the value.
2034 2055 */
2035 2056 alloc = 0;
2036 2057 if (argc == 1) {
2037 2058 nameval = (char *)argv->a_un.a_str;
2038 2059 } else {
2039 2060 len = strlen(argv[0].a_un.a_str) +
2040 2061 strlen(argv[1].a_un.a_str) + 2;
2041 2062 nameval = mdb_alloc(len, UM_SLEEP);
2042 2063 (void) mdb_snprintf(nameval, len, "%s=%s", argv[0].a_un.a_str,
2043 2064 argv[1].a_un.a_str);
2044 2065 alloc = 1;
2045 2066 }
2046 2067
2047 2068 pt_env_set(pt, nameval);
2048 2069
2049 2070 if (alloc)
2050 2071 mdb_free(nameval, strlen(nameval) + 1);
2051 2072
2052 2073 return (DCMD_OK);
2053 2074 }
2054 2075
2055 2076 /*ARGSUSED*/
2056 2077 static int
2057 2078 pt_unsetenv(uintptr_t addr, uint_t flags, int argc, const mdb_arg_t *argv)
2058 2079 {
2059 2080 mdb_tgt_t *t = mdb.m_target;
2060 2081 pt_data_t *pt = t->t_data;
2061 2082 mdb_var_t *v;
2062 2083 char *value, *name;
2063 2084
2064 2085 if ((flags & DCMD_ADDRSPEC) || argc > 1)
2065 2086 return (DCMD_USAGE);
2066 2087
2067 2088 if (argc == 1 && argv->a_type != MDB_TYPE_STRING)
2068 2089 return (DCMD_USAGE);
2069 2090
2070 2091 if (t->t_pshandle == NULL) {
2071 2092 mdb_warn("no process active\n");
2072 2093 return (DCMD_ERR);
2073 2094 }
2074 2095
2075 2096 /*
2076 2097 * If the process is in some sort of running state, warn the user that
2077 2098 * changes won't immediately take effect.
2078 2099 */
2079 2100 if (Pstate(t->t_pshandle) == PS_RUN ||
2080 2101 Pstate(t->t_pshandle) == PS_STOP) {
2081 2102 mdb_warn("warning: changes will not take effect until process"
2082 2103 " is restarted\n");
2083 2104 }
2084 2105
2085 2106 if (argc == 0) {
2086 2107 pt_env_clear(pt);
2087 2108 } else {
2088 2109 if ((v = mdb_nv_lookup(&pt->p_env, argv->a_un.a_str)) != NULL) {
2089 2110 name = (char *)mdb_nv_get_name(v);
2090 2111 value = mdb_nv_get_cookie(v);
2091 2112
2092 2113 mdb_nv_remove(&pt->p_env, v);
2093 2114
2094 2115 mdb_free(name, strlen(name) + 1);
2095 2116 mdb_free(value, strlen(value) + 1);
2096 2117 }
2097 2118 }
2098 2119
2099 2120 return (DCMD_OK);
2100 2121 }
2101 2122
2102 2123 void
2103 2124 getenv_help(void)
2104 2125 {
2105 2126 mdb_printf("-t show current process environment"
2106 2127 " instead of initial environment.\n");
2107 2128 }
2108 2129
2109 2130 static const mdb_dcmd_t pt_dcmds[] = {
2110 2131 { "$c", "?[cnt]", "print stack backtrace", pt_stack },
2111 2132 { "$C", "?[cnt]", "print stack backtrace", pt_stackv },
2112 2133 { "$i", NULL, "print signals that are ignored", pt_ignored },
2113 2134 { "$l", NULL, "print the representative thread's lwp id", pt_lwpid },
2114 2135 { "$L", NULL, "print list of the active lwp ids", pt_lwpids },
2115 2136 { "$r", "?[-u]", "print general-purpose registers", pt_regs },
2116 2137 { "$x", "?", "print floating point registers", pt_fpregs },
2117 2138 { "$X", "?", "print floating point registers", pt_fpregs },
2118 2139 { "$y", "?", "print floating point registers", pt_fpregs },
2119 2140 { "$Y", "?", "print floating point registers", pt_fpregs },
2120 2141 { "$?", "?", "print status and registers", pt_regstatus },
2121 2142 { ":A", "?[core|pid]", "attach to process or core file", pt_attach },
2122 2143 { ":i", ":", "ignore signal (delete all matching events)", pt_ignore },
2123 2144 { ":k", NULL, "forcibly kill and release target", pt_kill },
2124 2145 { ":R", "[-a]", "release the previously attached process", pt_detach },
2125 2146 { "attach", "?[core|pid]",
2126 2147 "attach to process or core file", pt_attach },
2127 2148 { "findstack", ":[-v]", "find user thread stack", pt_findstack },
2128 2149 { "gcore", "[-o prefix] [-c content]",
2129 2150 "produce a core file for the attached process", pt_gcore },
2130 2151 { "getenv", "[-t] [name]", "display an environment variable",
2131 2152 pt_getenv, getenv_help },
2132 2153 { "kill", NULL, "forcibly kill and release target", pt_kill },
2133 2154 { "release", "[-a]",
2134 2155 "release the previously attached process", pt_detach },
2135 2156 { "regs", "?[-u]", "print general-purpose registers", pt_regs },
2136 2157 { "fpregs", "?[-dqs]", "print floating point registers", pt_fpregs },
2137 2158 { "setenv", "name=value", "set an environment variable", pt_setenv },
2138 2159 { "stack", "?[cnt]", "print stack backtrace", pt_stack },
2139 2160 { "stackregs", "?", "print stack backtrace and registers", pt_stackr },
2140 2161 { "status", NULL, "print summary of current target", pt_status_dcmd },
2141 2162 { "tls", ":symbol",
2142 2163 "lookup TLS data in the context of a given thread", pt_tls },
2143 2164 { "tmodel", "{thread|lwp}", NULL, pt_tmodel },
2144 2165 { "unsetenv", "[name]", "clear an environment variable", pt_unsetenv },
2145 2166 { NULL }
2146 2167 };
2147 2168
2148 2169 static void
2149 2170 pt_thr_walk_fini(mdb_walk_state_t *wsp)
2150 2171 {
2151 2172 mdb_addrvec_destroy(wsp->walk_data);
2152 2173 mdb_free(wsp->walk_data, sizeof (mdb_addrvec_t));
2153 2174 }
2154 2175
2155 2176 static int
2156 2177 pt_thr_walk_init(mdb_walk_state_t *wsp)
2157 2178 {
2158 2179 wsp->walk_data = mdb_zalloc(sizeof (mdb_addrvec_t), UM_SLEEP);
2159 2180 mdb_addrvec_create(wsp->walk_data);
2160 2181
2161 2182 if (PTL_ITER(mdb.m_target, wsp->walk_data) == -1) {
2162 2183 mdb_warn("failed to iterate over threads");
2163 2184 pt_thr_walk_fini(wsp);
2164 2185 return (WALK_ERR);
2165 2186 }
2166 2187
2167 2188 return (WALK_NEXT);
2168 2189 }
2169 2190
2170 2191 static int
2171 2192 pt_thr_walk_step(mdb_walk_state_t *wsp)
2172 2193 {
2173 2194 if (mdb_addrvec_length(wsp->walk_data) != 0) {
2174 2195 return (wsp->walk_callback(mdb_addrvec_shift(wsp->walk_data),
2175 2196 NULL, wsp->walk_cbdata));
2176 2197 }
2177 2198 return (WALK_DONE);
2178 2199 }
2179 2200
2180 2201 static const mdb_walker_t pt_walkers[] = {
2181 2202 { "thread", "walk list of valid thread identifiers",
2182 2203 pt_thr_walk_init, pt_thr_walk_step, pt_thr_walk_fini },
2183 2204 { NULL }
2184 2205 };
2185 2206
2186 2207 static int
2187 2208 pt_agent_check(boolean_t *agent, const lwpstatus_t *psp)
2188 2209 {
2189 2210 if (psp->pr_flags & PR_AGENT)
2190 2211 *agent = B_TRUE;
2191 2212
2192 2213 return (0);
2193 2214 }
2194 2215
2195 2216 static void
2196 2217 pt_activate_common(mdb_tgt_t *t)
2197 2218 {
2198 2219 pt_data_t *pt = t->t_data;
2199 2220 boolean_t hasagent = B_FALSE;
2200 2221 GElf_Sym sym;
2201 2222
2202 2223 /*
2203 2224 * If we have a libproc handle and AT_BASE is set, the process or core
2204 2225 * is dynamically linked. We call Prd_agent() to force libproc to
2205 2226 * try to initialize librtld_db, and issue a warning if that fails.
2206 2227 */
2207 2228 if (t->t_pshandle != NULL && Pgetauxval(t->t_pshandle,
2208 2229 AT_BASE) != -1L && Prd_agent(t->t_pshandle) == NULL) {
2209 2230 mdb_warn("warning: librtld_db failed to initialize; shared "
2210 2231 "library information will not be available\n");
2211 2232 }
2212 2233
2213 2234 if (t->t_pshandle != NULL) {
2214 2235 (void) Plwp_iter(t->t_pshandle,
2215 2236 (proc_lwp_f *)pt_agent_check, &hasagent);
2216 2237 }
2217 2238
2218 2239 if (hasagent) {
2219 2240 mdb_warn("agent lwp detected; forcing "
2220 2241 "lwp thread model (use ::tmodel to change)\n");
2221 2242 } else if (t->t_pshandle != NULL && Pstate(t->t_pshandle) != PS_IDLE) {
2222 2243 /*
2223 2244 * If we have a libproc handle and we do not have an agent LWP,
2224 2245 * look for the correct thread debugging library. (If we have
2225 2246 * an agent LWP, we leave the model as the raw LWP model to
2226 2247 * allow the agent LWP to be visible to the debugger.)
2227 2248 */
2228 2249 (void) Pobject_iter(t->t_pshandle, (proc_map_f *)thr_check, t);
2229 2250 }
2230 2251
2231 2252 /*
2232 2253 * If there's a global object named '_mdb_abort_info', assuming we're
2233 2254 * debugging mdb itself and load the developer support module.
2234 2255 */
2235 2256 if (mdb_gelf_symtab_lookup_by_name(pt->p_symtab, "_mdb_abort_info",
2236 2257 &sym, NULL) == 0 && GELF_ST_TYPE(sym.st_info) == STT_OBJECT) {
2237 2258 if (mdb_module_load("mdb_ds", MDB_MOD_SILENT) < 0)
2238 2259 mdb_warn("warning: failed to load developer support\n");
2239 2260 }
2240 2261
2241 2262 mdb_tgt_elf_export(pt->p_file);
2242 2263 }
2243 2264
2244 2265 static void
2245 2266 pt_activate(mdb_tgt_t *t)
2246 2267 {
2247 2268 static const mdb_nv_disc_t reg_disc = { reg_disc_set, reg_disc_get };
2248 2269
2249 2270 pt_data_t *pt = t->t_data;
2250 2271 struct utsname u1, u2;
2251 2272 mdb_var_t *v;
2252 2273 core_content_t content;
2253 2274
2254 2275 if (t->t_pshandle) {
2255 2276 mdb_prop_postmortem = (Pstate(t->t_pshandle) == PS_DEAD);
2256 2277 mdb_prop_kernel = FALSE;
2257 2278 } else
2258 2279 mdb_prop_kernel = mdb_prop_postmortem = FALSE;
2259 2280
2260 2281 mdb_prop_datamodel = MDB_TGT_MODEL_NATIVE;
2261 2282
2262 2283 /*
2263 2284 * If we're examining a core file that doesn't contain program text,
2264 2285 * and uname(2) doesn't match the NT_UTSNAME note recorded in the
2265 2286 * core file, issue a warning.
2266 2287 */
2267 2288 if (mdb_prop_postmortem == TRUE &&
2268 2289 ((content = Pcontent(t->t_pshandle)) == CC_CONTENT_INVALID ||
2269 2290 !(content & CC_CONTENT_TEXT)) &&
2270 2291 uname(&u1) >= 0 && Puname(t->t_pshandle, &u2) == 0 &&
2271 2292 (strcmp(u1.release, u2.release) != 0 ||
2272 2293 strcmp(u1.version, u2.version) != 0)) {
2273 2294 mdb_warn("warning: core file is from %s %s %s; shared text "
2274 2295 "mappings may not match installed libraries\n",
2275 2296 u2.sysname, u2.release, u2.version);
2276 2297 }
2277 2298
2278 2299 /*
2279 2300 * Perform the common initialization tasks -- these are shared with
2280 2301 * the pt_exec() and pt_run() subroutines.
2281 2302 */
2282 2303 pt_activate_common(t);
2283 2304
2284 2305 (void) mdb_tgt_register_dcmds(t, &pt_dcmds[0], MDB_MOD_FORCE);
2285 2306 (void) mdb_tgt_register_walkers(t, &pt_walkers[0], MDB_MOD_FORCE);
2286 2307
2287 2308 /*
2288 2309 * Iterate through our register description list and export
2289 2310 * each register as a named variable.
2290 2311 */
2291 2312 mdb_nv_rewind(&pt->p_regs);
2292 2313 while ((v = mdb_nv_advance(&pt->p_regs)) != NULL) {
2293 2314 ushort_t rd_flags = MDB_TGT_R_FLAGS(mdb_nv_get_value(v));
2294 2315
2295 2316 if (!(rd_flags & MDB_TGT_R_EXPORT))
2296 2317 continue; /* Don't export register as a variable */
2297 2318
2298 2319 (void) mdb_nv_insert(&mdb.m_nv, mdb_nv_get_name(v), ®_disc,
2299 2320 (uintptr_t)t, MDB_NV_PERSIST);
2300 2321 }
2301 2322 }
2302 2323
2303 2324 static void
2304 2325 pt_deactivate(mdb_tgt_t *t)
2305 2326 {
2306 2327 pt_data_t *pt = t->t_data;
2307 2328 const mdb_dcmd_t *dcp;
2308 2329 const mdb_walker_t *wp;
2309 2330 mdb_var_t *v, *w;
2310 2331
2311 2332 mdb_nv_rewind(&pt->p_regs);
2312 2333 while ((v = mdb_nv_advance(&pt->p_regs)) != NULL) {
2313 2334 ushort_t rd_flags = MDB_TGT_R_FLAGS(mdb_nv_get_value(v));
2314 2335
2315 2336 if (!(rd_flags & MDB_TGT_R_EXPORT))
2316 2337 continue; /* Didn't export register as a variable */
2317 2338
2318 2339 if (w = mdb_nv_lookup(&mdb.m_nv, mdb_nv_get_name(v))) {
2319 2340 w->v_flags &= ~MDB_NV_PERSIST;
2320 2341 mdb_nv_remove(&mdb.m_nv, w);
2321 2342 }
2322 2343 }
2323 2344
2324 2345 for (wp = &pt_walkers[0]; wp->walk_name != NULL; wp++) {
2325 2346 if (mdb_module_remove_walker(t->t_module, wp->walk_name) == -1)
2326 2347 warn("failed to remove walk %s", wp->walk_name);
2327 2348 }
2328 2349
2329 2350 for (dcp = &pt_dcmds[0]; dcp->dc_name != NULL; dcp++) {
2330 2351 if (mdb_module_remove_dcmd(t->t_module, dcp->dc_name) == -1)
2331 2352 warn("failed to remove dcmd %s", dcp->dc_name);
2332 2353 }
2333 2354
2334 2355 mdb_prop_postmortem = FALSE;
2335 2356 mdb_prop_kernel = FALSE;
2336 2357 mdb_prop_datamodel = MDB_TGT_MODEL_UNKNOWN;
2337 2358 }
2338 2359
2339 2360 static void
2340 2361 pt_periodic(mdb_tgt_t *t)
2341 2362 {
2342 2363 pt_data_t *pt = t->t_data;
2343 2364
2344 2365 if (pt->p_rdstate == PT_RD_CONSIST) {
2345 2366 if (t->t_pshandle != NULL && Pstate(t->t_pshandle) < PS_LOST &&
2346 2367 !(mdb.m_flags & MDB_FL_NOMODS)) {
2347 2368 mdb_printf("%s: You've got symbols!\n", mdb.m_pname);
2348 2369 mdb_module_load_all(0);
2349 2370 }
2350 2371 pt->p_rdstate = PT_RD_NONE;
2351 2372 }
2352 2373 }
2353 2374
2354 2375 static void
2355 2376 pt_destroy(mdb_tgt_t *t)
2356 2377 {
2357 2378 pt_data_t *pt = t->t_data;
2358 2379
2359 2380 if (pt->p_idlehandle != NULL && pt->p_idlehandle != t->t_pshandle)
2360 2381 Prelease(pt->p_idlehandle, 0);
2361 2382
2362 2383 if (t->t_pshandle != NULL) {
2363 2384 PTL_DTOR(t);
2364 2385 pt_release_parents(t);
2365 2386 pt_pre_detach(t, TRUE);
2366 2387 Prelease(t->t_pshandle, pt->p_rflags);
2367 2388 }
2368 2389
2369 2390 mdb.m_flags &= ~(MDB_FL_VCREATE | MDB_FL_JOBCTL);
2370 2391 pt_close_aout(t);
2371 2392
2372 2393 if (pt->p_aout_fio != NULL)
2373 2394 mdb_io_rele(pt->p_aout_fio);
2374 2395
2375 2396 pt_env_clear(pt);
2376 2397 mdb_nv_destroy(&pt->p_env);
2377 2398
2378 2399 mdb_nv_destroy(&pt->p_regs);
2379 2400 mdb_free(pt, sizeof (pt_data_t));
2380 2401 }
2381 2402
2382 2403 /*ARGSUSED*/
2383 2404 static const char *
2384 2405 pt_name(mdb_tgt_t *t)
2385 2406 {
2386 2407 return ("proc");
2387 2408 }
2388 2409
2389 2410 static const char *
2390 2411 pt_platform(mdb_tgt_t *t)
2391 2412 {
2392 2413 pt_data_t *pt = t->t_data;
2393 2414
2394 2415 if (t->t_pshandle != NULL &&
2395 2416 Pplatform(t->t_pshandle, pt->p_platform, MAXNAMELEN) != NULL)
2396 2417 return (pt->p_platform);
2397 2418
2398 2419 return (mdb_conf_platform());
2399 2420 }
2400 2421
2401 2422 static int
2402 2423 pt_uname(mdb_tgt_t *t, struct utsname *utsp)
2403 2424 {
2404 2425 if (t->t_pshandle != NULL)
2405 2426 return (Puname(t->t_pshandle, utsp));
2406 2427
2407 2428 return (uname(utsp) >= 0 ? 0 : -1);
2408 2429 }
2409 2430
2410 2431 static int
2411 2432 pt_dmodel(mdb_tgt_t *t)
2412 2433 {
2413 2434 if (t->t_pshandle == NULL)
2414 2435 return (MDB_TGT_MODEL_NATIVE);
2415 2436
2416 2437 switch (Pstatus(t->t_pshandle)->pr_dmodel) {
2417 2438 case PR_MODEL_ILP32:
2418 2439 return (MDB_TGT_MODEL_ILP32);
2419 2440 case PR_MODEL_LP64:
2420 2441 return (MDB_TGT_MODEL_LP64);
2421 2442 }
2422 2443
2423 2444 return (MDB_TGT_MODEL_UNKNOWN);
2424 2445 }
2425 2446
2426 2447 static ssize_t
2427 2448 pt_vread(mdb_tgt_t *t, void *buf, size_t nbytes, uintptr_t addr)
2428 2449 {
2429 2450 ssize_t n;
2430 2451
2431 2452 /*
2432 2453 * If no handle is open yet, reads from virtual addresses are
2433 2454 * allowed to succeed but return zero-filled memory.
2434 2455 */
2435 2456 if (t->t_pshandle == NULL) {
2436 2457 bzero(buf, nbytes);
2437 2458 return (nbytes);
2438 2459 }
2439 2460
2440 2461 if ((n = Pread(t->t_pshandle, buf, nbytes, addr)) <= 0)
2441 2462 return (set_errno(EMDB_NOMAP));
2442 2463
2443 2464 return (n);
2444 2465 }
2445 2466
2446 2467 static ssize_t
2447 2468 pt_vwrite(mdb_tgt_t *t, const void *buf, size_t nbytes, uintptr_t addr)
2448 2469 {
2449 2470 ssize_t n;
2450 2471
2451 2472 /*
2452 2473 * If no handle is open yet, writes to virtual addresses are
2453 2474 * allowed to succeed but do not actually modify anything.
2454 2475 */
2455 2476 if (t->t_pshandle == NULL)
2456 2477 return (nbytes);
2457 2478
2458 2479 n = Pwrite(t->t_pshandle, buf, nbytes, addr);
2459 2480
2460 2481 if (n == -1 && errno == EIO)
2461 2482 return (set_errno(EMDB_NOMAP));
2462 2483
2463 2484 return (n);
2464 2485 }
2465 2486
2466 2487 static ssize_t
2467 2488 pt_fread(mdb_tgt_t *t, void *buf, size_t nbytes, uintptr_t addr)
2468 2489 {
2469 2490 pt_data_t *pt = t->t_data;
2470 2491
2471 2492 if (pt->p_file != NULL) {
2472 2493 return (mdb_gelf_rw(pt->p_file, buf, nbytes, addr,
2473 2494 IOPF_READ(pt->p_fio), GIO_READ));
2474 2495 }
2475 2496
2476 2497 bzero(buf, nbytes);
2477 2498 return (nbytes);
2478 2499 }
2479 2500
2480 2501 static ssize_t
2481 2502 pt_fwrite(mdb_tgt_t *t, const void *buf, size_t nbytes, uintptr_t addr)
2482 2503 {
2483 2504 pt_data_t *pt = t->t_data;
2484 2505
2485 2506 if (pt->p_file != NULL) {
2486 2507 return (mdb_gelf_rw(pt->p_file, (void *)buf, nbytes, addr,
2487 2508 IOPF_WRITE(pt->p_fio), GIO_WRITE));
2488 2509 }
2489 2510
2490 2511 return (nbytes);
2491 2512 }
2492 2513
2493 2514 static const char *
2494 2515 pt_resolve_lmid(const char *object, Lmid_t *lmidp)
2495 2516 {
2496 2517 Lmid_t lmid = PR_LMID_EVERY;
2497 2518 const char *p;
2498 2519
2499 2520 if (object == MDB_TGT_OBJ_EVERY || object == MDB_TGT_OBJ_EXEC)
2500 2521 lmid = LM_ID_BASE; /* restrict scope to a.out's link map */
2501 2522 else if (object != MDB_TGT_OBJ_RTLD && strncmp(object, "LM", 2) == 0 &&
2502 2523 (p = strchr(object, '`')) != NULL) {
2503 2524 object += 2; /* skip past initial "LM" prefix */
2504 2525 lmid = strntoul(object, (size_t)(p - object), mdb.m_radix);
2505 2526 object = p + 1; /* skip past link map specifier */
2506 2527 }
2507 2528
2508 2529 *lmidp = lmid;
2509 2530 return (object);
2510 2531 }
2511 2532
2512 2533 static int
2513 2534 tlsbase(mdb_tgt_t *t, mdb_tgt_tid_t tid, Lmid_t lmid, const char *object,
2514 2535 psaddr_t *basep)
2515 2536 {
2516 2537 pt_data_t *pt = t->t_data;
2517 2538 const rd_loadobj_t *loadobjp;
2518 2539 td_thrhandle_t th;
2519 2540 td_err_e err;
2520 2541
2521 2542 if (object == MDB_TGT_OBJ_EVERY)
2522 2543 return (set_errno(EINVAL));
2523 2544
2524 2545 if (t->t_pshandle == NULL || Pstate(t->t_pshandle) == PS_IDLE)
2525 2546 return (set_errno(EMDB_NOPROC));
2526 2547
2527 2548 if (pt->p_tdb_ops == NULL)
2528 2549 return (set_errno(EMDB_TDB));
2529 2550
2530 2551 err = pt->p_tdb_ops->td_ta_map_id2thr(pt->p_ptl_hdl, tid, &th);
2531 2552 if (err != TD_OK)
2532 2553 return (set_errno(tdb_to_errno(err)));
2533 2554
2534 2555 /*
2535 2556 * If this fails, rtld_db has failed to initialize properly.
2536 2557 */
2537 2558 if ((loadobjp = Plmid_to_loadobj(t->t_pshandle, lmid, object)) == NULL)
2538 2559 return (set_errno(EMDB_NORTLD));
2539 2560
2540 2561 /*
2541 2562 * This will fail if the TLS block has not been allocated for the
2542 2563 * object that contains the TLS symbol in question.
2543 2564 */
2544 2565 err = pt->p_tdb_ops->td_thr_tlsbase(&th, loadobjp->rl_tlsmodid, basep);
2545 2566 if (err != TD_OK)
2546 2567 return (set_errno(tdb_to_errno(err)));
2547 2568
2548 2569 return (0);
2549 2570 }
2550 2571
2551 2572 typedef struct {
2552 2573 mdb_tgt_t *pl_tgt;
2553 2574 const char *pl_name;
2554 2575 Lmid_t pl_lmid;
2555 2576 GElf_Sym *pl_symp;
2556 2577 mdb_syminfo_t *pl_sip;
2557 2578 mdb_tgt_tid_t pl_tid;
2558 2579 mdb_bool_t pl_found;
2559 2580 } pt_lookup_t;
2560 2581
2561 2582 /*ARGSUSED*/
2562 2583 static int
2563 2584 pt_lookup_cb(void *data, const prmap_t *pmp, const char *object)
2564 2585 {
2565 2586 pt_lookup_t *plp = data;
2566 2587 struct ps_prochandle *P = plp->pl_tgt->t_pshandle;
2567 2588 prsyminfo_t si;
2568 2589 GElf_Sym sym;
2569 2590
2570 2591 if (Pxlookup_by_name(P, plp->pl_lmid, object, plp->pl_name, &sym,
2571 2592 &si) != 0)
2572 2593 return (0);
2573 2594
2574 2595 /*
2575 2596 * If we encounter a match with SHN_UNDEF, keep looking for a
2576 2597 * better match. Return the first match with SHN_UNDEF set if no
2577 2598 * better match is found.
2578 2599 */
2579 2600 if (sym.st_shndx == SHN_UNDEF) {
2580 2601 if (!plp->pl_found) {
2581 2602 plp->pl_found = TRUE;
2582 2603 *plp->pl_symp = sym;
2583 2604 plp->pl_sip->sym_table = si.prs_table;
2584 2605 plp->pl_sip->sym_id = si.prs_id;
2585 2606 }
2586 2607
2587 2608 return (0);
2588 2609 }
2589 2610
2590 2611 /*
2591 2612 * Note that if the symbol's st_shndx is SHN_UNDEF we don't have the
2592 2613 * TLS offset anyway, so adding in the tlsbase would be worthless.
2593 2614 */
2594 2615 if (GELF_ST_TYPE(sym.st_info) == STT_TLS &&
2595 2616 plp->pl_tid != (mdb_tgt_tid_t)-1) {
2596 2617 psaddr_t base;
2597 2618
2598 2619 if (tlsbase(plp->pl_tgt, plp->pl_tid, plp->pl_lmid, object,
2599 2620 &base) != 0)
2600 2621 return (-1); /* errno is set for us */
2601 2622
2602 2623 sym.st_value += base;
2603 2624 }
2604 2625
2605 2626 plp->pl_found = TRUE;
2606 2627 *plp->pl_symp = sym;
2607 2628 plp->pl_sip->sym_table = si.prs_table;
2608 2629 plp->pl_sip->sym_id = si.prs_id;
2609 2630
2610 2631 return (1);
2611 2632 }
2612 2633
2613 2634 /*
2614 2635 * Lookup the symbol with a thread context so that we can adjust TLS symbols
2615 2636 * to get the values as they would appear in the context of the given thread.
2616 2637 */
2617 2638 static int
2618 2639 pt_lookup_by_name_thr(mdb_tgt_t *t, const char *object,
2619 2640 const char *name, GElf_Sym *symp, mdb_syminfo_t *sip, mdb_tgt_tid_t tid)
2620 2641 {
2621 2642 struct ps_prochandle *P = t->t_pshandle;
2622 2643 pt_data_t *pt = t->t_data;
2623 2644 Lmid_t lmid;
2624 2645 uint_t i;
2625 2646 const rd_loadobj_t *aout_lop;
2626 2647
2627 2648 object = pt_resolve_lmid(object, &lmid);
2628 2649
2629 2650 if (P != NULL) {
2630 2651 pt_lookup_t pl;
2631 2652
2632 2653 pl.pl_tgt = t;
2633 2654 pl.pl_name = name;
2634 2655 pl.pl_lmid = lmid;
2635 2656 pl.pl_symp = symp;
2636 2657 pl.pl_sip = sip;
2637 2658 pl.pl_tid = tid;
2638 2659 pl.pl_found = FALSE;
2639 2660
2640 2661 if (object == MDB_TGT_OBJ_EVERY) {
2641 2662 if (Pobject_iter_resolved(P, pt_lookup_cb, &pl) == -1)
2642 2663 return (-1); /* errno is set for us */
2643 2664 if ((!pl.pl_found) &&
2644 2665 (Pobject_iter(P, pt_lookup_cb, &pl) == -1))
2645 2666 return (-1); /* errno is set for us */
2646 2667 } else {
2647 2668 const prmap_t *pmp;
2648 2669
2649 2670 /*
2650 2671 * This can fail either due to an invalid lmid or
2651 2672 * an invalid object. To determine which is
2652 2673 * faulty, we test the lmid against known valid
2653 2674 * lmids and then see if using a wild-card lmid
2654 2675 * improves ths situation.
2655 2676 */
2656 2677 if ((pmp = Plmid_to_map(P, lmid, object)) == NULL) {
2657 2678 if (lmid != PR_LMID_EVERY &&
2658 2679 lmid != LM_ID_BASE &&
2659 2680 lmid != LM_ID_LDSO &&
2660 2681 Plmid_to_map(P, PR_LMID_EVERY, object)
2661 2682 != NULL)
2662 2683 return (set_errno(EMDB_NOLMID));
2663 2684 else
2664 2685 return (set_errno(EMDB_NOOBJ));
2665 2686 }
2666 2687
2667 2688 if (pt_lookup_cb(&pl, pmp, object) == -1)
2668 2689 return (-1); /* errno is set for us */
2669 2690 }
2670 2691
2671 2692 if (pl.pl_found)
2672 2693 return (0);
2673 2694 }
2674 2695
2675 2696 /*
2676 2697 * If libproc doesn't have the symbols for rtld, we're cooked --
2677 2698 * mdb doesn't have those symbols either.
2678 2699 */
2679 2700 if (object == MDB_TGT_OBJ_RTLD)
2680 2701 return (set_errno(EMDB_NOSYM));
2681 2702
2682 2703 if (object != MDB_TGT_OBJ_EXEC && object != MDB_TGT_OBJ_EVERY) {
2683 2704 int status = mdb_gelf_symtab_lookup_by_file(pt->p_symtab,
2684 2705 object, name, symp, &sip->sym_id);
2685 2706
2686 2707 if (status != 0) {
2687 2708 if (P != NULL &&
2688 2709 Plmid_to_map(P, PR_LMID_EVERY, object) != NULL)
2689 2710 return (set_errno(EMDB_NOSYM));
2690 2711 else
2691 2712 return (-1); /* errno set from lookup_by_file */
2692 2713 }
2693 2714
2694 2715 goto found;
2695 2716 }
2696 2717
2697 2718 if (mdb_gelf_symtab_lookup_by_name(pt->p_symtab, name, symp, &i) == 0) {
2698 2719 sip->sym_table = MDB_TGT_SYMTAB;
2699 2720 sip->sym_id = i;
2700 2721 goto local_found;
2701 2722 }
2702 2723
2703 2724 if (mdb_gelf_symtab_lookup_by_name(pt->p_dynsym, name, symp, &i) == 0) {
2704 2725 sip->sym_table = MDB_TGT_DYNSYM;
2705 2726 sip->sym_id = i;
2706 2727 goto local_found;
2707 2728 }
2708 2729
2709 2730 return (set_errno(EMDB_NOSYM));
2710 2731
2711 2732 local_found:
2712 2733 if (pt->p_file != NULL &&
2713 2734 pt->p_file->gf_ehdr.e_type == ET_DYN &&
2714 2735 P != NULL &&
2715 2736 (aout_lop = Pname_to_loadobj(P, PR_OBJ_EXEC)) != NULL)
2716 2737 symp->st_value += aout_lop->rl_base;
2717 2738
2718 2739 found:
2719 2740 /*
2720 2741 * If the symbol has type TLS, libproc should have found the symbol
2721 2742 * if it exists and has been allocated.
2722 2743 */
2723 2744 if (GELF_ST_TYPE(symp->st_info) == STT_TLS)
2724 2745 return (set_errno(EMDB_TLS));
2725 2746
2726 2747 return (0);
2727 2748 }
2728 2749
2729 2750 static int
2730 2751 pt_lookup_by_name(mdb_tgt_t *t, const char *object,
2731 2752 const char *name, GElf_Sym *symp, mdb_syminfo_t *sip)
2732 2753 {
2733 2754 return (pt_lookup_by_name_thr(t, object, name, symp, sip, PTL_TID(t)));
2734 2755 }
2735 2756
2736 2757 static int
2737 2758 pt_lookup_by_addr(mdb_tgt_t *t, uintptr_t addr, uint_t flags,
2738 2759 char *buf, size_t nbytes, GElf_Sym *symp, mdb_syminfo_t *sip)
2739 2760 {
2740 2761 struct ps_prochandle *P = t->t_pshandle;
2741 2762 pt_data_t *pt = t->t_data;
2742 2763 rd_plt_info_t rpi = { 0 };
2743 2764
2744 2765 const char *pltsym;
2745 2766 int rv, match, i;
2746 2767
2747 2768 mdb_gelf_symtab_t *gsts[3]; /* mdb.m_prsym, .symtab, .dynsym */
2748 2769 int gstc = 0; /* number of valid gsts[] entries */
2749 2770
2750 2771 mdb_gelf_symtab_t *gst = NULL; /* set if 'sym' is from a gst */
2751 2772 const prmap_t *pmp = NULL; /* set if 'sym' is from libproc */
2752 2773 GElf_Sym sym; /* best symbol found so far if !exact */
2753 2774 prsyminfo_t si;
2754 2775
2755 2776 /*
2756 2777 * Fill in our array of symbol table pointers with the private symbol
2757 2778 * table, static symbol table, and dynamic symbol table if applicable.
2758 2779 * These are done in order of precedence so that if we match and
2759 2780 * MDB_TGT_SYM_EXACT is set, we need not look any further.
2760 2781 */
2761 2782 if (mdb.m_prsym != NULL)
2762 2783 gsts[gstc++] = mdb.m_prsym;
2763 2784 if (P == NULL && pt->p_symtab != NULL)
2764 2785 gsts[gstc++] = pt->p_symtab;
2765 2786 if (P == NULL && pt->p_dynsym != NULL)
2766 2787 gsts[gstc++] = pt->p_dynsym;
2767 2788
2768 2789 /*
2769 2790 * Loop through our array attempting to match the address. If we match
2770 2791 * and we're in exact mode, we're done. Otherwise save the symbol in
2771 2792 * the local sym variable if it is closer than our previous match.
2772 2793 * We explicitly watch for zero-valued symbols since DevPro insists
2773 2794 * on storing __fsr_init_value's value as the symbol value instead
2774 2795 * of storing it in a constant integer.
2775 2796 */
2776 2797 for (i = 0; i < gstc; i++) {
2777 2798 if (mdb_gelf_symtab_lookup_by_addr(gsts[i], addr, flags, buf,
2778 2799 nbytes, symp, &sip->sym_id) != 0 || symp->st_value == 0)
2779 2800 continue;
2780 2801
2781 2802 if (flags & MDB_TGT_SYM_EXACT) {
2782 2803 gst = gsts[i];
2783 2804 goto found;
2784 2805 }
2785 2806
2786 2807 if (gst == NULL || mdb_gelf_sym_closer(symp, &sym, addr)) {
2787 2808 gst = gsts[i];
2788 2809 sym = *symp;
2789 2810 }
2790 2811 }
2791 2812
2792 2813 /*
2793 2814 * If we have no libproc handle active, we're done: fail if gst is
2794 2815 * NULL; otherwise copy out our best symbol and skip to the end.
2795 2816 * We also skip to found if gst is the private symbol table: we
2796 2817 * want this to always take precedence over PLT re-vectoring.
2797 2818 */
2798 2819 if (P == NULL || (gst != NULL && gst == mdb.m_prsym)) {
2799 2820 if (gst == NULL)
2800 2821 return (set_errno(EMDB_NOSYMADDR));
2801 2822 *symp = sym;
2802 2823 goto found;
2803 2824 }
2804 2825
2805 2826 /*
2806 2827 * Check to see if the address is in a PLT: if it is, use librtld_db to
2807 2828 * attempt to resolve the PLT entry. If the entry is bound, reset addr
2808 2829 * to the bound address, add a special prefix to the caller's buf,
2809 2830 * forget our previous guess, and then continue using the new addr.
2810 2831 * If the entry is not bound, copy the corresponding symbol name into
2811 2832 * buf and return a fake symbol for the given address.
2812 2833 */
2813 2834 if ((pltsym = Ppltdest(P, addr)) != NULL) {
2814 2835 const rd_loadobj_t *rlp;
2815 2836 rd_agent_t *rap;
2816 2837
2817 2838 if ((rap = Prd_agent(P)) != NULL &&
2818 2839 (rlp = Paddr_to_loadobj(P, addr)) != NULL &&
2819 2840 rd_plt_resolution(rap, addr, Pstatus(P)->pr_lwp.pr_lwpid,
2820 2841 rlp->rl_plt_base, &rpi) == RD_OK &&
2821 2842 (rpi.pi_flags & RD_FLG_PI_PLTBOUND)) {
2822 2843 size_t n;
2823 2844 n = mdb_iob_snprintf(buf, nbytes, "PLT=");
2824 2845 addr = rpi.pi_baddr;
2825 2846 if (n > nbytes) {
2826 2847 buf += nbytes;
2827 2848 nbytes = 0;
2828 2849 } else {
2829 2850 buf += n;
2830 2851 nbytes -= n;
2831 2852 }
2832 2853 gst = NULL;
2833 2854 } else {
2834 2855 (void) mdb_iob_snprintf(buf, nbytes, "PLT:%s", pltsym);
2835 2856 bzero(symp, sizeof (GElf_Sym));
2836 2857 symp->st_value = addr;
2837 2858 symp->st_info = GELF_ST_INFO(STB_GLOBAL, STT_FUNC);
2838 2859 return (0);
2839 2860 }
2840 2861 }
2841 2862
2842 2863 /*
2843 2864 * Ask libproc to convert the address to the closest symbol for us.
2844 2865 * Once we get the closest symbol, we perform the EXACT match or
2845 2866 * smart-mode or absolute distance check ourself:
2846 2867 */
2847 2868 if (PT_LIBPROC_RESOLVE(P)) {
2848 2869 rv = Pxlookup_by_addr_resolved(P, addr, buf, nbytes,
2849 2870 symp, &si);
2850 2871 } else {
2851 2872 rv = Pxlookup_by_addr(P, addr, buf, nbytes,
2852 2873 symp, &si);
2853 2874 }
2854 2875 if ((rv == 0) && (symp->st_value != 0) &&
2855 2876 (gst == NULL || mdb_gelf_sym_closer(symp, &sym, addr))) {
2856 2877
2857 2878 if (flags & MDB_TGT_SYM_EXACT)
2858 2879 match = (addr == symp->st_value);
2859 2880 else if (mdb.m_symdist == 0)
2860 2881 match = (addr >= symp->st_value &&
2861 2882 addr < symp->st_value + symp->st_size);
2862 2883 else
2863 2884 match = (addr >= symp->st_value &&
2864 2885 addr < symp->st_value + mdb.m_symdist);
2865 2886
2866 2887 if (match) {
2867 2888 pmp = Paddr_to_map(P, addr);
2868 2889 gst = NULL;
2869 2890 sip->sym_table = si.prs_table;
2870 2891 sip->sym_id = si.prs_id;
2871 2892 goto found;
2872 2893 }
2873 2894 }
2874 2895
2875 2896 /*
2876 2897 * If we get here, Plookup_by_addr has failed us. If we have no
2877 2898 * previous best symbol (gst == NULL), we've failed completely.
2878 2899 * Otherwise we copy out that symbol and continue on to 'found'.
2879 2900 */
2880 2901 if (gst == NULL)
2881 2902 return (set_errno(EMDB_NOSYMADDR));
2882 2903 *symp = sym;
2883 2904 found:
2884 2905 /*
2885 2906 * Once we've found something, copy the final name into the caller's
2886 2907 * buffer and prefix it with the mapping name if appropriate.
2887 2908 */
2888 2909 if (pmp != NULL && pmp != Pname_to_map(P, PR_OBJ_EXEC)) {
2889 2910 const char *prefix = pmp->pr_mapname;
2890 2911 Lmid_t lmid;
2891 2912
2892 2913 if (PT_LIBPROC_RESOLVE(P)) {
2893 2914 if (Pobjname_resolved(P, addr, pt->p_objname,
2894 2915 MDB_TGT_MAPSZ))
2895 2916 prefix = pt->p_objname;
2896 2917 } else {
2897 2918 if (Pobjname(P, addr, pt->p_objname, MDB_TGT_MAPSZ))
2898 2919 prefix = pt->p_objname;
2899 2920 }
2900 2921
2901 2922 if (buf != NULL && nbytes > 1) {
2902 2923 (void) strncpy(pt->p_symname, buf, MDB_TGT_SYM_NAMLEN);
2903 2924 pt->p_symname[MDB_TGT_SYM_NAMLEN - 1] = '\0';
2904 2925 } else {
2905 2926 pt->p_symname[0] = '\0';
2906 2927 }
2907 2928
2908 2929 if (prefix == pt->p_objname && Plmid(P, addr, &lmid) == 0 && (
2909 2930 (lmid != LM_ID_BASE && lmid != LM_ID_LDSO) ||
2910 2931 (mdb.m_flags & MDB_FL_SHOWLMID))) {
2911 2932 (void) mdb_iob_snprintf(buf, nbytes, "LM%lr`%s`%s",
2912 2933 lmid, strbasename(prefix), pt->p_symname);
2913 2934 } else {
2914 2935 (void) mdb_iob_snprintf(buf, nbytes, "%s`%s",
2915 2936 strbasename(prefix), pt->p_symname);
2916 2937 }
2917 2938
2918 2939 } else if (gst != NULL && buf != NULL && nbytes > 0) {
2919 2940 (void) strncpy(buf, mdb_gelf_sym_name(gst, symp), nbytes);
2920 2941 buf[nbytes - 1] = '\0';
2921 2942 }
2922 2943
2923 2944 return (0);
2924 2945 }
2925 2946
2926 2947
2927 2948 static int
2928 2949 pt_symbol_iter_cb(void *arg, const GElf_Sym *sym, const char *name,
2929 2950 const prsyminfo_t *sip)
2930 2951 {
2931 2952 pt_symarg_t *psp = arg;
2932 2953
2933 2954 psp->psym_info.sym_id = sip->prs_id;
2934 2955
2935 2956 return (psp->psym_func(psp->psym_private, sym, name, &psp->psym_info,
2936 2957 psp->psym_obj));
2937 2958 }
2938 2959
2939 2960 static int
2940 2961 pt_objsym_iter(void *arg, const prmap_t *pmp, const char *object)
2941 2962 {
2942 2963 Lmid_t lmid = PR_LMID_EVERY;
2943 2964 pt_symarg_t *psp = arg;
2944 2965
2945 2966 psp->psym_obj = object;
2946 2967
2947 2968 (void) Plmid(psp->psym_targ->t_pshandle, pmp->pr_vaddr, &lmid);
2948 2969 (void) Pxsymbol_iter(psp->psym_targ->t_pshandle, lmid, object,
2949 2970 psp->psym_which, psp->psym_type, pt_symbol_iter_cb, arg);
2950 2971
2951 2972 return (0);
2952 2973 }
2953 2974
2954 2975 static int
2955 2976 pt_symbol_filt(void *arg, const GElf_Sym *sym, const char *name, uint_t id)
2956 2977 {
2957 2978 pt_symarg_t *psp = arg;
2958 2979
2959 2980 if (mdb_tgt_sym_match(sym, psp->psym_type)) {
2960 2981 psp->psym_info.sym_id = id;
2961 2982 return (psp->psym_func(psp->psym_private, sym, name,
2962 2983 &psp->psym_info, psp->psym_obj));
2963 2984 }
2964 2985
2965 2986 return (0);
2966 2987 }
2967 2988
2968 2989 static int
2969 2990 pt_symbol_iter(mdb_tgt_t *t, const char *object, uint_t which,
2970 2991 uint_t type, mdb_tgt_sym_f *func, void *private)
2971 2992 {
2972 2993 pt_data_t *pt = t->t_data;
2973 2994 mdb_gelf_symtab_t *gst;
2974 2995 pt_symarg_t ps;
2975 2996 Lmid_t lmid;
2976 2997
2977 2998 object = pt_resolve_lmid(object, &lmid);
2978 2999
2979 3000 ps.psym_targ = t;
2980 3001 ps.psym_which = which;
2981 3002 ps.psym_type = type;
2982 3003 ps.psym_func = func;
2983 3004 ps.psym_private = private;
2984 3005 ps.psym_obj = object;
2985 3006
2986 3007 if (t->t_pshandle != NULL) {
2987 3008 if (object != MDB_TGT_OBJ_EVERY) {
2988 3009 if (Plmid_to_map(t->t_pshandle, lmid, object) == NULL)
2989 3010 return (set_errno(EMDB_NOOBJ));
2990 3011 (void) Pxsymbol_iter(t->t_pshandle, lmid, object,
2991 3012 which, type, pt_symbol_iter_cb, &ps);
2992 3013 return (0);
2993 3014 } else if (Prd_agent(t->t_pshandle) != NULL) {
2994 3015 if (PT_LIBPROC_RESOLVE(t->t_pshandle)) {
2995 3016 (void) Pobject_iter_resolved(t->t_pshandle,
2996 3017 pt_objsym_iter, &ps);
2997 3018 } else {
2998 3019 (void) Pobject_iter(t->t_pshandle,
2999 3020 pt_objsym_iter, &ps);
3000 3021 }
3001 3022 return (0);
3002 3023 }
3003 3024 }
3004 3025
3005 3026 if (lmid != LM_ID_BASE && lmid != PR_LMID_EVERY)
3006 3027 return (set_errno(EMDB_NOLMID));
3007 3028
3008 3029 if (object != MDB_TGT_OBJ_EXEC && object != MDB_TGT_OBJ_EVERY &&
3009 3030 pt->p_fio != NULL &&
3010 3031 strcmp(object, IOP_NAME(pt->p_fio)) != 0)
3011 3032 return (set_errno(EMDB_NOOBJ));
3012 3033
3013 3034 if (which == MDB_TGT_SYMTAB)
3014 3035 gst = pt->p_symtab;
3015 3036 else
3016 3037 gst = pt->p_dynsym;
3017 3038
3018 3039 if (gst != NULL) {
3019 3040 ps.psym_info.sym_table = gst->gst_tabid;
3020 3041 mdb_gelf_symtab_iter(gst, pt_symbol_filt, &ps);
3021 3042 }
3022 3043
3023 3044 return (0);
3024 3045 }
3025 3046
3026 3047 static const mdb_map_t *
3027 3048 pt_prmap_to_mdbmap(mdb_tgt_t *t, const prmap_t *prp, mdb_map_t *mp)
3028 3049 {
3029 3050 struct ps_prochandle *P = t->t_pshandle;
3030 3051 char *rv, name[MAXPATHLEN];
3031 3052 Lmid_t lmid;
3032 3053
3033 3054 if (PT_LIBPROC_RESOLVE(P)) {
3034 3055 rv = Pobjname_resolved(P, prp->pr_vaddr, name, sizeof (name));
3035 3056 } else {
3036 3057 rv = Pobjname(P, prp->pr_vaddr, name, sizeof (name));
3037 3058 }
3038 3059
3039 3060 if (rv != NULL) {
3040 3061 if (Plmid(P, prp->pr_vaddr, &lmid) == 0 && (
3041 3062 (lmid != LM_ID_BASE && lmid != LM_ID_LDSO) ||
3042 3063 (mdb.m_flags & MDB_FL_SHOWLMID))) {
3043 3064 (void) mdb_iob_snprintf(mp->map_name, MDB_TGT_MAPSZ,
3044 3065 "LM%lr`%s", lmid, name);
3045 3066 } else {
3046 3067 (void) strncpy(mp->map_name, name, MDB_TGT_MAPSZ - 1);
3047 3068 mp->map_name[MDB_TGT_MAPSZ - 1] = '\0';
3048 3069 }
3049 3070 } else {
3050 3071 (void) strncpy(mp->map_name, prp->pr_mapname,
3051 3072 MDB_TGT_MAPSZ - 1);
3052 3073 mp->map_name[MDB_TGT_MAPSZ - 1] = '\0';
3053 3074 }
3054 3075
3055 3076 mp->map_base = prp->pr_vaddr;
3056 3077 mp->map_size = prp->pr_size;
3057 3078 mp->map_flags = 0;
3058 3079
3059 3080 if (prp->pr_mflags & MA_READ)
3060 3081 mp->map_flags |= MDB_TGT_MAP_R;
3061 3082 if (prp->pr_mflags & MA_WRITE)
3062 3083 mp->map_flags |= MDB_TGT_MAP_W;
3063 3084 if (prp->pr_mflags & MA_EXEC)
3064 3085 mp->map_flags |= MDB_TGT_MAP_X;
3065 3086
3066 3087 if (prp->pr_mflags & MA_SHM)
3067 3088 mp->map_flags |= MDB_TGT_MAP_SHMEM;
3068 3089 if (prp->pr_mflags & MA_BREAK)
3069 3090 mp->map_flags |= MDB_TGT_MAP_HEAP;
3070 3091 if (prp->pr_mflags & MA_STACK)
3071 3092 mp->map_flags |= MDB_TGT_MAP_STACK;
3072 3093 if (prp->pr_mflags & MA_ANON)
3073 3094 mp->map_flags |= MDB_TGT_MAP_ANON;
3074 3095
3075 3096 return (mp);
3076 3097 }
3077 3098
3078 3099 /*ARGSUSED*/
3079 3100 static int
3080 3101 pt_map_apply(void *arg, const prmap_t *prp, const char *name)
3081 3102 {
3082 3103 pt_maparg_t *pmp = arg;
3083 3104 mdb_map_t map;
3084 3105
3085 3106 return (pmp->pmap_func(pmp->pmap_private,
3086 3107 pt_prmap_to_mdbmap(pmp->pmap_targ, prp, &map), map.map_name));
3087 3108 }
3088 3109
3089 3110 static int
3090 3111 pt_mapping_iter(mdb_tgt_t *t, mdb_tgt_map_f *func, void *private)
3091 3112 {
3092 3113 if (t->t_pshandle != NULL) {
3093 3114 pt_maparg_t pm;
3094 3115
3095 3116 pm.pmap_targ = t;
3096 3117 pm.pmap_func = func;
3097 3118 pm.pmap_private = private;
3098 3119
3099 3120 if (PT_LIBPROC_RESOLVE(t->t_pshandle)) {
3100 3121 (void) Pmapping_iter_resolved(t->t_pshandle,
3101 3122 pt_map_apply, &pm);
3102 3123 } else {
3103 3124 (void) Pmapping_iter(t->t_pshandle,
3104 3125 pt_map_apply, &pm);
3105 3126 }
3106 3127 return (0);
3107 3128 }
3108 3129
3109 3130 return (set_errno(EMDB_NOPROC));
3110 3131 }
3111 3132
3112 3133 static int
3113 3134 pt_object_iter(mdb_tgt_t *t, mdb_tgt_map_f *func, void *private)
3114 3135 {
3115 3136 pt_data_t *pt = t->t_data;
3116 3137
3117 3138 /*
3118 3139 * If we have a libproc handle, we can just call Pobject_iter to
3119 3140 * iterate over its list of load object information.
3120 3141 */
3121 3142 if (t->t_pshandle != NULL) {
3122 3143 pt_maparg_t pm;
3123 3144
3124 3145 pm.pmap_targ = t;
3125 3146 pm.pmap_func = func;
3126 3147 pm.pmap_private = private;
3127 3148
3128 3149 if (PT_LIBPROC_RESOLVE(t->t_pshandle)) {
3129 3150 (void) Pobject_iter_resolved(t->t_pshandle,
3130 3151 pt_map_apply, &pm);
3131 3152 } else {
3132 3153 (void) Pobject_iter(t->t_pshandle,
3133 3154 pt_map_apply, &pm);
3134 3155 }
3135 3156 return (0);
3136 3157 }
3137 3158
3138 3159 /*
3139 3160 * If we're examining an executable or other ELF file but we have no
3140 3161 * libproc handle, fake up some information based on DT_NEEDED entries.
3141 3162 */
3142 3163 if (pt->p_dynsym != NULL && pt->p_file->gf_dyns != NULL &&
3143 3164 pt->p_fio != NULL) {
3144 3165 mdb_gelf_sect_t *gsp = pt->p_dynsym->gst_ssect;
3145 3166 GElf_Dyn *dynp = pt->p_file->gf_dyns;
3146 3167 mdb_map_t *mp = &pt->p_map;
3147 3168 const char *s = IOP_NAME(pt->p_fio);
3148 3169 size_t i;
3149 3170
3150 3171 (void) strncpy(mp->map_name, s, MDB_TGT_MAPSZ);
3151 3172 mp->map_name[MDB_TGT_MAPSZ - 1] = '\0';
3152 3173 mp->map_flags = MDB_TGT_MAP_R | MDB_TGT_MAP_X;
3153 3174 mp->map_base = NULL;
3154 3175 mp->map_size = 0;
3155 3176
3156 3177 if (func(private, mp, s) != 0)
3157 3178 return (0);
3158 3179
3159 3180 for (i = 0; i < pt->p_file->gf_ndyns; i++, dynp++) {
3160 3181 if (dynp->d_tag == DT_NEEDED) {
3161 3182 s = (char *)gsp->gs_data + dynp->d_un.d_val;
3162 3183 (void) strncpy(mp->map_name, s, MDB_TGT_MAPSZ);
3163 3184 mp->map_name[MDB_TGT_MAPSZ - 1] = '\0';
3164 3185 if (func(private, mp, s) != 0)
3165 3186 return (0);
3166 3187 }
3167 3188 }
3168 3189
3169 3190 return (0);
3170 3191 }
3171 3192
3172 3193 return (set_errno(EMDB_NOPROC));
3173 3194 }
3174 3195
3175 3196 static const mdb_map_t *
3176 3197 pt_addr_to_map(mdb_tgt_t *t, uintptr_t addr)
3177 3198 {
3178 3199 pt_data_t *pt = t->t_data;
3179 3200 const prmap_t *pmp;
3180 3201
3181 3202 if (t->t_pshandle == NULL) {
3182 3203 (void) set_errno(EMDB_NOPROC);
3183 3204 return (NULL);
3184 3205 }
3185 3206
3186 3207 if ((pmp = Paddr_to_map(t->t_pshandle, addr)) == NULL) {
3187 3208 (void) set_errno(EMDB_NOMAP);
3188 3209 return (NULL);
3189 3210 }
3190 3211
3191 3212 return (pt_prmap_to_mdbmap(t, pmp, &pt->p_map));
3192 3213 }
3193 3214
3194 3215 static const mdb_map_t *
3195 3216 pt_name_to_map(mdb_tgt_t *t, const char *object)
3196 3217 {
3197 3218 pt_data_t *pt = t->t_data;
3198 3219 const prmap_t *pmp;
3199 3220 Lmid_t lmid;
3200 3221
3201 3222 if (t->t_pshandle == NULL) {
3202 3223 (void) set_errno(EMDB_NOPROC);
3203 3224 return (NULL);
3204 3225 }
3205 3226
3206 3227 object = pt_resolve_lmid(object, &lmid);
3207 3228
3208 3229 if ((pmp = Plmid_to_map(t->t_pshandle, lmid, object)) == NULL) {
3209 3230 (void) set_errno(EMDB_NOOBJ);
3210 3231 return (NULL);
3211 3232 }
3212 3233
3213 3234 return (pt_prmap_to_mdbmap(t, pmp, &pt->p_map));
3214 3235 }
3215 3236
3216 3237 static ctf_file_t *
3217 3238 pt_addr_to_ctf(mdb_tgt_t *t, uintptr_t addr)
3218 3239 {
3219 3240 ctf_file_t *ret;
3220 3241
3221 3242 if (t->t_pshandle == NULL) {
3222 3243 (void) set_errno(EMDB_NOPROC);
3223 3244 return (NULL);
3224 3245 }
3225 3246
3226 3247 if ((ret = Paddr_to_ctf(t->t_pshandle, addr)) == NULL) {
3227 3248 (void) set_errno(EMDB_NOOBJ);
3228 3249 return (NULL);
3229 3250 }
3230 3251
3231 3252 return (ret);
3232 3253 }
3233 3254
3234 3255 static ctf_file_t *
3235 3256 pt_name_to_ctf(mdb_tgt_t *t, const char *name)
3236 3257 {
3237 3258 ctf_file_t *ret;
3238 3259
3239 3260 if (t->t_pshandle == NULL) {
3240 3261 (void) set_errno(EMDB_NOPROC);
3241 3262 return (NULL);
3242 3263 }
3243 3264
3244 3265 if ((ret = Pname_to_ctf(t->t_pshandle, name)) == NULL) {
3245 3266 (void) set_errno(EMDB_NOOBJ);
3246 3267 return (NULL);
3247 3268 }
3248 3269
3249 3270 return (ret);
3250 3271 }
3251 3272
3252 3273 static int
3253 3274 pt_status(mdb_tgt_t *t, mdb_tgt_status_t *tsp)
3254 3275 {
3255 3276 const pstatus_t *psp;
3256 3277 prgregset_t gregs;
3257 3278 int state;
3258 3279
3259 3280 bzero(tsp, sizeof (mdb_tgt_status_t));
3260 3281
3261 3282 if (t->t_pshandle == NULL) {
3262 3283 tsp->st_state = MDB_TGT_IDLE;
3263 3284 return (0);
3264 3285 }
3265 3286
3266 3287 switch (state = Pstate(t->t_pshandle)) {
3267 3288 case PS_RUN:
3268 3289 tsp->st_state = MDB_TGT_RUNNING;
3269 3290 break;
3270 3291
3271 3292 case PS_STOP:
3272 3293 tsp->st_state = MDB_TGT_STOPPED;
3273 3294 psp = Pstatus(t->t_pshandle);
3274 3295
3275 3296 tsp->st_tid = PTL_TID(t);
3276 3297 if (PTL_GETREGS(t, tsp->st_tid, gregs) == 0)
3277 3298 tsp->st_pc = gregs[R_PC];
3278 3299
3279 3300 if (psp->pr_flags & PR_ISTOP)
3280 3301 tsp->st_flags |= MDB_TGT_ISTOP;
3281 3302 if (psp->pr_flags & PR_DSTOP)
3282 3303 tsp->st_flags |= MDB_TGT_DSTOP;
3283 3304
3284 3305 break;
3285 3306
3286 3307 case PS_LOST:
3287 3308 tsp->st_state = MDB_TGT_LOST;
3288 3309 break;
3289 3310 case PS_UNDEAD:
3290 3311 tsp->st_state = MDB_TGT_UNDEAD;
3291 3312 break;
3292 3313 case PS_DEAD:
3293 3314 tsp->st_state = MDB_TGT_DEAD;
3294 3315 break;
3295 3316 case PS_IDLE:
3296 3317 tsp->st_state = MDB_TGT_IDLE;
3297 3318 break;
3298 3319 default:
3299 3320 fail("unknown libproc state (%d)\n", state);
3300 3321 }
3301 3322
3302 3323 if (t->t_flags & MDB_TGT_F_BUSY)
3303 3324 tsp->st_flags |= MDB_TGT_BUSY;
3304 3325
3305 3326 return (0);
3306 3327 }
3307 3328
3308 3329 static void
3309 3330 pt_dupfd(const char *file, int oflags, mode_t mode, int dfd)
3310 3331 {
3311 3332 int fd;
3312 3333
3313 3334 if ((fd = open(file, oflags, mode)) >= 0) {
3314 3335 (void) fcntl(fd, F_DUP2FD, dfd);
3315 3336 (void) close(fd);
3316 3337 } else
3317 3338 warn("failed to open %s as descriptor %d", file, dfd);
3318 3339 }
3319 3340
3320 3341 /*
3321 3342 * The Pcreate_callback() function interposes on the default, empty libproc
3322 3343 * definition. It will be called following a fork of a new child process by
3323 3344 * Pcreate() below, but before the exec of the new process image. We use this
3324 3345 * callback to optionally redirect stdin and stdout and reset the dispositions
3325 3346 * of SIGPIPE and SIGQUIT from SIG_IGN back to SIG_DFL.
3326 3347 */
3327 3348 /*ARGSUSED*/
3328 3349 void
3329 3350 Pcreate_callback(struct ps_prochandle *P)
3330 3351 {
3331 3352 pt_data_t *pt = mdb.m_target->t_data;
3332 3353
3333 3354 if (pt->p_stdin != NULL)
3334 3355 pt_dupfd(pt->p_stdin, O_RDWR, 0, STDIN_FILENO);
3335 3356 if (pt->p_stdout != NULL)
3336 3357 pt_dupfd(pt->p_stdout, O_CREAT | O_WRONLY, 0666, STDOUT_FILENO);
3337 3358
3338 3359 (void) mdb_signal_sethandler(SIGPIPE, SIG_DFL, NULL);
3339 3360 (void) mdb_signal_sethandler(SIGQUIT, SIG_DFL, NULL);
3340 3361 }
3341 3362
3342 3363 static int
3343 3364 pt_run(mdb_tgt_t *t, int argc, const mdb_arg_t *argv)
3344 3365 {
3345 3366 pt_data_t *pt = t->t_data;
3346 3367 struct ps_prochandle *P;
3347 3368 char execname[MAXPATHLEN];
3348 3369 const char **pargv;
3349 3370 int pargc = 0;
3350 3371 int i, perr;
3351 3372 char **penv;
3352 3373 mdb_var_t *v;
3353 3374
3354 3375 if (pt->p_aout_fio == NULL) {
3355 3376 warn("run requires executable to be specified on "
3356 3377 "command-line\n");
3357 3378 return (set_errno(EMDB_TGT));
3358 3379 }
3359 3380
3360 3381 pargv = mdb_alloc(sizeof (char *) * (argc + 2), UM_SLEEP);
3361 3382 pargv[pargc++] = strbasename(IOP_NAME(pt->p_aout_fio));
3362 3383
3363 3384 for (i = 0; i < argc; i++) {
3364 3385 if (argv[i].a_type != MDB_TYPE_STRING) {
3365 3386 mdb_free(pargv, sizeof (char *) * (argc + 2));
3366 3387 return (set_errno(EINVAL));
3367 3388 }
3368 3389 if (argv[i].a_un.a_str[0] == '<')
3369 3390 pt->p_stdin = argv[i].a_un.a_str + 1;
3370 3391 else if (argv[i].a_un.a_str[0] == '>')
3371 3392 pt->p_stdout = argv[i].a_un.a_str + 1;
3372 3393 else
3373 3394 pargv[pargc++] = argv[i].a_un.a_str;
3374 3395 }
3375 3396 pargv[pargc] = NULL;
3376 3397
3377 3398 /*
3378 3399 * Since Pcreate() uses execvp() and "." may not be present in $PATH,
3379 3400 * we must manually prepend "./" when the executable is a simple name.
3380 3401 */
3381 3402 if (strchr(IOP_NAME(pt->p_aout_fio), '/') == NULL) {
3382 3403 (void) snprintf(execname, sizeof (execname), "./%s",
3383 3404 IOP_NAME(pt->p_aout_fio));
3384 3405 } else {
3385 3406 (void) snprintf(execname, sizeof (execname), "%s",
3386 3407 IOP_NAME(pt->p_aout_fio));
3387 3408 }
3388 3409
3389 3410 penv = mdb_alloc((mdb_nv_size(&pt->p_env)+ 1) * sizeof (char *),
3390 3411 UM_SLEEP);
3391 3412 for (mdb_nv_rewind(&pt->p_env), i = 0;
3392 3413 (v = mdb_nv_advance(&pt->p_env)) != NULL; i++)
3393 3414 penv[i] = mdb_nv_get_cookie(v);
3394 3415 penv[i] = NULL;
3395 3416
3396 3417 P = Pxcreate(execname, (char **)pargv, penv, &perr, NULL, 0);
3397 3418 mdb_free(pargv, sizeof (char *) * (argc + 2));
3398 3419 pt->p_stdin = pt->p_stdout = NULL;
3399 3420
3400 3421 mdb_free(penv, i * sizeof (char *));
3401 3422
3402 3423 if (P == NULL) {
3403 3424 warn("failed to create process: %s\n", Pcreate_error(perr));
3404 3425 return (set_errno(EMDB_TGT));
3405 3426 }
3406 3427
3407 3428 if (t->t_pshandle != NULL) {
3408 3429 pt_pre_detach(t, TRUE);
3409 3430 if (t->t_pshandle != pt->p_idlehandle)
3410 3431 Prelease(t->t_pshandle, pt->p_rflags);
3411 3432 }
3412 3433
3413 3434 (void) Punsetflags(P, PR_RLC); /* make sure run-on-last-close is off */
3414 3435 (void) Psetflags(P, PR_KLC); /* kill on last close by debugger */
3415 3436 pt->p_rflags = PRELEASE_KILL; /* kill on debugger Prelease */
3416 3437 t->t_pshandle = P;
3417 3438
3418 3439 pt_post_attach(t);
3419 3440 pt_activate_common(t);
3420 3441 (void) mdb_tgt_status(t, &t->t_status);
3421 3442 mdb.m_flags |= MDB_FL_VCREATE;
3422 3443
3423 3444 return (0);
3424 3445 }
3425 3446
3426 3447 /*
3427 3448 * Forward a signal to the victim process in order to force it to stop or die.
3428 3449 * Refer to the comments above pt_setrun(), below, for more info.
3429 3450 */
3430 3451 /*ARGSUSED*/
3431 3452 static void
3432 3453 pt_sigfwd(int sig, siginfo_t *sip, ucontext_t *ucp, mdb_tgt_t *t)
3433 3454 {
3434 3455 struct ps_prochandle *P = t->t_pshandle;
3435 3456 const lwpstatus_t *psp = &Pstatus(P)->pr_lwp;
3436 3457 pid_t pid = Pstatus(P)->pr_pid;
3437 3458 long ctl[2];
3438 3459
3439 3460 if (getpgid(pid) != mdb.m_pgid) {
3440 3461 mdb_dprintf(MDB_DBG_TGT, "fwd SIG#%d to %d\n", sig, (int)pid);
3441 3462 (void) kill(pid, sig);
3442 3463 }
3443 3464
3444 3465 if (Pwait(P, 1) == 0 && (psp->pr_flags & PR_STOPPED) &&
3445 3466 psp->pr_why == PR_JOBCONTROL && Pdstop(P) == 0) {
3446 3467 /*
3447 3468 * If we're job control stopped and our DSTOP is pending, the
3448 3469 * victim will never see our signal, so undo the kill() and
3449 3470 * then send SIGCONT the victim to kick it out of the job
3450 3471 * control stop and force our DSTOP to take effect.
3451 3472 */
3452 3473 if ((psp->pr_flags & PR_DSTOP) &&
3453 3474 prismember(&Pstatus(P)->pr_sigpend, sig)) {
3454 3475 ctl[0] = PCUNKILL;
3455 3476 ctl[1] = sig;
3456 3477 (void) write(Pctlfd(P), ctl, sizeof (ctl));
3457 3478 }
3458 3479
3459 3480 mdb_dprintf(MDB_DBG_TGT, "fwd SIGCONT to %d\n", (int)pid);
3460 3481 (void) kill(pid, SIGCONT);
3461 3482 }
3462 3483 }
3463 3484
3464 3485 /*
3465 3486 * Common code for step and continue: if no victim process has been created,
3466 3487 * call pt_run() to create one. Then set the victim running, clearing any
3467 3488 * pending fault. One special case is that if the victim was previously
3468 3489 * stopped on reception of SIGINT, we know that SIGINT was traced and the user
3469 3490 * requested the victim to stop, so clear this signal before continuing.
3470 3491 * For all other traced signals, the signal will be delivered on continue.
3471 3492 *
3472 3493 * Once the victim process is running, we wait for it to stop on an event of
3473 3494 * interest. Although libproc provides the basic primitive to wait for the
3474 3495 * victim, we must be careful in our handling of signals. We want to allow the
3475 3496 * user to issue a SIGINT or SIGQUIT using the designated terminal control
3476 3497 * character (typically ^C and ^\), and have these signals stop the target and
3477 3498 * return control to the debugger if the signals are traced. There are three
3478 3499 * cases to be considered in our implementation:
3479 3500 *
3480 3501 * (1) If the debugger and victim are in the same process group, both receive
3481 3502 * the signal from the terminal driver. The debugger returns from Pwait() with
3482 3503 * errno = EINTR, so we want to loop back and continue waiting until the victim
3483 3504 * stops on receipt of its SIGINT or SIGQUIT.
3484 3505 *
3485 3506 * (2) If the debugger and victim are in different process groups, and the
3486 3507 * victim is a member of the foreground process group, it will receive the
3487 3508 * signal from the terminal driver and the debugger will not. As such, we
3488 3509 * will remain blocked in Pwait() until the victim stops on its signal.
3489 3510 *
3490 3511 * (3) If the debugger and victim are in different process groups, and the
3491 3512 * debugger is a member of the foreground process group, it will receive the
3492 3513 * signal from the terminal driver, and the victim will not. The debugger
3493 3514 * returns from Pwait() with errno = EINTR, so we need to forward the signal
3494 3515 * to the victim process directly and then Pwait() again for it to stop.
3495 3516 *
3496 3517 * We can observe that all three cases are handled by simply calling Pwait()
3497 3518 * repeatedly if it fails with EINTR, and forwarding SIGINT and SIGQUIT to
3498 3519 * the victim if it is in a different process group, using pt_sigfwd() above.
3499 3520 *
3500 3521 * An additional complication is that the process may not be able to field
3501 3522 * the signal if it is currently stopped by job control. In this case, we
3502 3523 * also DSTOP the process, and then send it a SIGCONT to wake it up from
3503 3524 * job control and force it to re-enter stop() under the control of /proc.
3504 3525 *
3505 3526 * Finally, we would like to allow the user to suspend the process using the
3506 3527 * terminal suspend character (typically ^Z) if both are in the same session.
3507 3528 * We again employ pt_sigfwd() to forward SIGTSTP to the victim, wait for it to
3508 3529 * stop from job control, and then capture it using /proc. Once the process
3509 3530 * has stopped, normal SIGTSTP processing is restored and the user can issue
3510 3531 * another ^Z in order to suspend the debugger and return to the parent shell.
3511 3532 */
3512 3533 static int
3513 3534 pt_setrun(mdb_tgt_t *t, mdb_tgt_status_t *tsp, int flags)
3514 3535 {
3515 3536 struct ps_prochandle *P = t->t_pshandle;
3516 3537 pt_data_t *pt = t->t_data;
3517 3538 pid_t old_pgid = -1;
3518 3539
3519 3540 mdb_signal_f *intf, *quitf, *tstpf;
3520 3541 const lwpstatus_t *psp;
3521 3542 void *intd, *quitd, *tstpd;
3522 3543
3523 3544 int sig = pt->p_signal;
3524 3545 int error = 0;
3525 3546 int pgid = -1;
3526 3547
3527 3548 pt->p_signal = 0; /* clear pending signal */
3528 3549
3529 3550 if (P == NULL && pt_run(t, 0, NULL) == -1)
3530 3551 return (-1); /* errno is set for us */
3531 3552
3532 3553 P = t->t_pshandle;
3533 3554 psp = &Pstatus(P)->pr_lwp;
3534 3555
3535 3556 if (sig == 0 && psp->pr_why == PR_SIGNALLED && psp->pr_what == SIGINT)
3536 3557 flags |= PRCSIG; /* clear pending SIGINT */
3537 3558 else
3538 3559 flags |= PRCFAULT; /* clear any pending fault (e.g. BPT) */
3539 3560
3540 3561 intf = mdb_signal_gethandler(SIGINT, &intd);
3541 3562 quitf = mdb_signal_gethandler(SIGQUIT, &quitd);
3542 3563 tstpf = mdb_signal_gethandler(SIGTSTP, &tstpd);
3543 3564
3544 3565 (void) mdb_signal_sethandler(SIGINT, (mdb_signal_f *)pt_sigfwd, t);
3545 3566 (void) mdb_signal_sethandler(SIGQUIT, (mdb_signal_f *)pt_sigfwd, t);
3546 3567 (void) mdb_signal_sethandler(SIGTSTP, (mdb_signal_f *)pt_sigfwd, t);
3547 3568
3548 3569 if (sig != 0 && Pstate(P) == PS_RUN &&
3549 3570 kill(Pstatus(P)->pr_pid, sig) == -1) {
3550 3571 error = errno;
3551 3572 goto out;
3552 3573 }
3553 3574
3554 3575 /*
3555 3576 * If we attached to a job stopped background process in the same
3556 3577 * session, make its pgid the foreground process group before running
3557 3578 * it. Ignore SIGTTOU while doing this to avoid being suspended.
3558 3579 */
3559 3580 if (mdb.m_flags & MDB_FL_JOBCTL) {
3560 3581 (void) mdb_signal_sethandler(SIGTTOU, SIG_IGN, NULL);
3561 3582 (void) IOP_CTL(mdb.m_term, TIOCGPGRP, &old_pgid);
3562 3583 (void) IOP_CTL(mdb.m_term, TIOCSPGRP,
3563 3584 (void *)&Pstatus(P)->pr_pgid);
3564 3585 (void) mdb_signal_sethandler(SIGTTOU, SIG_DFL, NULL);
3565 3586 }
3566 3587
3567 3588 if (Pstate(P) != PS_RUN && Psetrun(P, sig, flags) == -1) {
3568 3589 error = errno;
3569 3590 goto out;
3570 3591 }
3571 3592
3572 3593 /*
3573 3594 * If the process is stopped on job control, resume its process group
3574 3595 * by sending it a SIGCONT if we are in the same session. Otherwise
3575 3596 * we have no choice but to wait for someone else to foreground it.
3576 3597 */
3577 3598 if (psp->pr_why == PR_JOBCONTROL) {
3578 3599 if (mdb.m_flags & MDB_FL_JOBCTL)
3579 3600 (void) kill(-Pstatus(P)->pr_pgid, SIGCONT);
3580 3601 else if (mdb.m_term != NULL)
3581 3602 warn("process is still suspended by job control ...\n");
3582 3603 }
3583 3604
3584 3605 /*
3585 3606 * Wait for the process to stop. As described above, we loop around if
3586 3607 * we are interrupted (EINTR). If we lose control, attempt to re-open
3587 3608 * the process, or call pt_exec() if that fails to handle a re-exec.
3588 3609 * If the process dies (ENOENT) or Pwait() fails, break out of the loop.
3589 3610 */
3590 3611 while (Pwait(P, 0) == -1) {
3591 3612 if (errno != EINTR) {
3592 3613 if (Pstate(P) == PS_LOST) {
3593 3614 if (Preopen(P) == 0)
3594 3615 continue; /* Pwait() again */
3595 3616 else
3596 3617 pt_exec(t, 0, NULL);
3597 3618 } else if (errno != ENOENT)
3598 3619 warn("failed to wait for event");
3599 3620 break;
3600 3621 }
3601 3622 }
3602 3623
3603 3624 /*
3604 3625 * If we changed the foreground process group, restore the old pgid
3605 3626 * while ignoring SIGTTOU so we are not accidentally suspended.
3606 3627 */
3607 3628 if (old_pgid != -1) {
3608 3629 (void) mdb_signal_sethandler(SIGTTOU, SIG_IGN, NULL);
3609 3630 (void) IOP_CTL(mdb.m_term, TIOCSPGRP, &pgid);
3610 3631 (void) mdb_signal_sethandler(SIGTTOU, SIG_DFL, NULL);
3611 3632 }
3612 3633
3613 3634 /*
3614 3635 * If we're now stopped on exit from a successful exec, release any
3615 3636 * vfork parents and clean out their address space before returning
3616 3637 * to tgt_continue() and perturbing the list of armed event specs.
3617 3638 * If we're stopped for any other reason, just update the mappings.
3618 3639 */
3619 3640 switch (Pstate(P)) {
3620 3641 case PS_STOP:
3621 3642 if (psp->pr_why == PR_SYSEXIT && psp->pr_errno == 0 &&
3622 3643 psp->pr_what == SYS_execve)
3623 3644 pt_release_parents(t);
3624 3645 else
3625 3646 Pupdate_maps(P);
3626 3647 break;
3627 3648
3628 3649 case PS_UNDEAD:
3629 3650 case PS_LOST:
3630 3651 pt_release_parents(t);
3631 3652 break;
3632 3653 }
3633 3654
3634 3655 out:
3635 3656 (void) mdb_signal_sethandler(SIGINT, intf, intd);
3636 3657 (void) mdb_signal_sethandler(SIGQUIT, quitf, quitd);
3637 3658 (void) mdb_signal_sethandler(SIGTSTP, tstpf, tstpd);
3638 3659 (void) pt_status(t, tsp);
3639 3660
3640 3661 return (error ? set_errno(error) : 0);
3641 3662 }
3642 3663
3643 3664 static int
3644 3665 pt_step(mdb_tgt_t *t, mdb_tgt_status_t *tsp)
3645 3666 {
3646 3667 return (pt_setrun(t, tsp, PRSTEP));
3647 3668 }
3648 3669
3649 3670 static int
3650 3671 pt_continue(mdb_tgt_t *t, mdb_tgt_status_t *tsp)
3651 3672 {
3652 3673 return (pt_setrun(t, tsp, 0));
3653 3674 }
3654 3675
3655 3676 static int
3656 3677 pt_signal(mdb_tgt_t *t, int sig)
3657 3678 {
3658 3679 pt_data_t *pt = t->t_data;
3659 3680
3660 3681 if (sig > 0 && sig <= pt->p_maxsig) {
3661 3682 pt->p_signal = sig; /* pending until next pt_setrun */
3662 3683 return (0);
3663 3684 }
3664 3685
3665 3686 return (set_errno(EMDB_BADSIGNUM));
3666 3687 }
3667 3688
3668 3689 static int
3669 3690 pt_sysenter_ctor(mdb_tgt_t *t, mdb_sespec_t *sep, void *args)
3670 3691 {
3671 3692 struct ps_prochandle *P = t->t_pshandle;
3672 3693
3673 3694 if (P != NULL && Pstate(P) < PS_LOST) {
3674 3695 sep->se_data = args; /* data is raw system call number */
3675 3696 return (Psysentry(P, (intptr_t)args, TRUE) < 0 ? -1 : 0);
3676 3697 }
3677 3698
3678 3699 return (set_errno(EMDB_NOPROC));
3679 3700 }
3680 3701
3681 3702 static void
3682 3703 pt_sysenter_dtor(mdb_tgt_t *t, mdb_sespec_t *sep)
3683 3704 {
3684 3705 (void) Psysentry(t->t_pshandle, (intptr_t)sep->se_data, FALSE);
3685 3706 }
3686 3707
3687 3708 /*ARGSUSED*/
3688 3709 static char *
3689 3710 pt_sysenter_info(mdb_tgt_t *t, mdb_sespec_t *sep, mdb_vespec_t *vep,
3690 3711 mdb_tgt_spec_desc_t *sp, char *buf, size_t nbytes)
3691 3712 {
3692 3713 char name[32];
3693 3714 int sysnum;
3694 3715
3695 3716 if (vep != NULL)
3696 3717 sysnum = (intptr_t)vep->ve_args;
3697 3718 else
3698 3719 sysnum = (intptr_t)sep->se_data;
3699 3720
3700 3721 (void) proc_sysname(sysnum, name, sizeof (name));
3701 3722 (void) mdb_iob_snprintf(buf, nbytes, "stop on entry to %s", name);
3702 3723
3703 3724 return (buf);
3704 3725 }
3705 3726
3706 3727 /*ARGSUSED*/
3707 3728 static int
3708 3729 pt_sysenter_match(mdb_tgt_t *t, mdb_sespec_t *sep, mdb_tgt_status_t *tsp)
3709 3730 {
3710 3731 const lwpstatus_t *psp = &Pstatus(t->t_pshandle)->pr_lwp;
3711 3732 int sysnum = (intptr_t)sep->se_data;
3712 3733
3713 3734 return (psp->pr_why == PR_SYSENTRY && psp->pr_what == sysnum);
3714 3735 }
3715 3736
3716 3737 static const mdb_se_ops_t proc_sysenter_ops = {
3717 3738 pt_sysenter_ctor, /* se_ctor */
3718 3739 pt_sysenter_dtor, /* se_dtor */
3719 3740 pt_sysenter_info, /* se_info */
3720 3741 no_se_secmp, /* se_secmp */
3721 3742 no_se_vecmp, /* se_vecmp */
3722 3743 no_se_arm, /* se_arm */
3723 3744 no_se_disarm, /* se_disarm */
3724 3745 no_se_cont, /* se_cont */
3725 3746 pt_sysenter_match /* se_match */
3726 3747 };
3727 3748
3728 3749 static int
3729 3750 pt_sysexit_ctor(mdb_tgt_t *t, mdb_sespec_t *sep, void *args)
3730 3751 {
3731 3752 struct ps_prochandle *P = t->t_pshandle;
3732 3753
3733 3754 if (P != NULL && Pstate(P) < PS_LOST) {
3734 3755 sep->se_data = args; /* data is raw system call number */
3735 3756 return (Psysexit(P, (intptr_t)args, TRUE) < 0 ? -1 : 0);
3736 3757 }
3737 3758
3738 3759 return (set_errno(EMDB_NOPROC));
3739 3760 }
3740 3761
3741 3762 static void
3742 3763 pt_sysexit_dtor(mdb_tgt_t *t, mdb_sespec_t *sep)
3743 3764 {
3744 3765 (void) Psysexit(t->t_pshandle, (intptr_t)sep->se_data, FALSE);
3745 3766 }
3746 3767
3747 3768 /*ARGSUSED*/
3748 3769 static char *
3749 3770 pt_sysexit_info(mdb_tgt_t *t, mdb_sespec_t *sep, mdb_vespec_t *vep,
3750 3771 mdb_tgt_spec_desc_t *sp, char *buf, size_t nbytes)
3751 3772 {
3752 3773 char name[32];
3753 3774 int sysnum;
3754 3775
3755 3776 if (vep != NULL)
3756 3777 sysnum = (intptr_t)vep->ve_args;
3757 3778 else
3758 3779 sysnum = (intptr_t)sep->se_data;
3759 3780
3760 3781 (void) proc_sysname(sysnum, name, sizeof (name));
3761 3782 (void) mdb_iob_snprintf(buf, nbytes, "stop on exit from %s", name);
3762 3783
3763 3784 return (buf);
3764 3785 }
3765 3786
3766 3787 /*ARGSUSED*/
3767 3788 static int
3768 3789 pt_sysexit_match(mdb_tgt_t *t, mdb_sespec_t *sep, mdb_tgt_status_t *tsp)
3769 3790 {
3770 3791 const lwpstatus_t *psp = &Pstatus(t->t_pshandle)->pr_lwp;
3771 3792 int sysnum = (intptr_t)sep->se_data;
3772 3793
3773 3794 return (psp->pr_why == PR_SYSEXIT && psp->pr_what == sysnum);
3774 3795 }
3775 3796
3776 3797 static const mdb_se_ops_t proc_sysexit_ops = {
3777 3798 pt_sysexit_ctor, /* se_ctor */
3778 3799 pt_sysexit_dtor, /* se_dtor */
3779 3800 pt_sysexit_info, /* se_info */
3780 3801 no_se_secmp, /* se_secmp */
3781 3802 no_se_vecmp, /* se_vecmp */
3782 3803 no_se_arm, /* se_arm */
3783 3804 no_se_disarm, /* se_disarm */
3784 3805 no_se_cont, /* se_cont */
3785 3806 pt_sysexit_match /* se_match */
3786 3807 };
3787 3808
3788 3809 static int
3789 3810 pt_signal_ctor(mdb_tgt_t *t, mdb_sespec_t *sep, void *args)
3790 3811 {
3791 3812 struct ps_prochandle *P = t->t_pshandle;
3792 3813
3793 3814 if (P != NULL && Pstate(P) < PS_LOST) {
3794 3815 sep->se_data = args; /* data is raw signal number */
3795 3816 return (Psignal(P, (intptr_t)args, TRUE) < 0 ? -1 : 0);
3796 3817 }
3797 3818
3798 3819 return (set_errno(EMDB_NOPROC));
3799 3820 }
3800 3821
3801 3822 static void
3802 3823 pt_signal_dtor(mdb_tgt_t *t, mdb_sespec_t *sep)
3803 3824 {
3804 3825 (void) Psignal(t->t_pshandle, (intptr_t)sep->se_data, FALSE);
3805 3826 }
3806 3827
3807 3828 /*ARGSUSED*/
3808 3829 static char *
3809 3830 pt_signal_info(mdb_tgt_t *t, mdb_sespec_t *sep, mdb_vespec_t *vep,
3810 3831 mdb_tgt_spec_desc_t *sp, char *buf, size_t nbytes)
3811 3832 {
3812 3833 char name[SIG2STR_MAX];
3813 3834 int signum;
3814 3835
3815 3836 if (vep != NULL)
3816 3837 signum = (intptr_t)vep->ve_args;
3817 3838 else
3818 3839 signum = (intptr_t)sep->se_data;
3819 3840
3820 3841 (void) proc_signame(signum, name, sizeof (name));
3821 3842 (void) mdb_iob_snprintf(buf, nbytes, "stop on %s", name);
3822 3843
3823 3844 return (buf);
3824 3845 }
3825 3846
3826 3847 /*ARGSUSED*/
3827 3848 static int
3828 3849 pt_signal_match(mdb_tgt_t *t, mdb_sespec_t *sep, mdb_tgt_status_t *tsp)
3829 3850 {
3830 3851 const lwpstatus_t *psp = &Pstatus(t->t_pshandle)->pr_lwp;
3831 3852 int signum = (intptr_t)sep->se_data;
3832 3853
3833 3854 return (psp->pr_why == PR_SIGNALLED && psp->pr_what == signum);
3834 3855 }
3835 3856
3836 3857 static const mdb_se_ops_t proc_signal_ops = {
3837 3858 pt_signal_ctor, /* se_ctor */
3838 3859 pt_signal_dtor, /* se_dtor */
3839 3860 pt_signal_info, /* se_info */
3840 3861 no_se_secmp, /* se_secmp */
3841 3862 no_se_vecmp, /* se_vecmp */
3842 3863 no_se_arm, /* se_arm */
3843 3864 no_se_disarm, /* se_disarm */
3844 3865 no_se_cont, /* se_cont */
3845 3866 pt_signal_match /* se_match */
3846 3867 };
3847 3868
3848 3869 static int
3849 3870 pt_fault_ctor(mdb_tgt_t *t, mdb_sespec_t *sep, void *args)
3850 3871 {
3851 3872 struct ps_prochandle *P = t->t_pshandle;
3852 3873
3853 3874 if (P != NULL && Pstate(P) < PS_LOST) {
3854 3875 sep->se_data = args; /* data is raw fault number */
3855 3876 return (Pfault(P, (intptr_t)args, TRUE) < 0 ? -1 : 0);
3856 3877 }
3857 3878
3858 3879 return (set_errno(EMDB_NOPROC));
3859 3880 }
3860 3881
3861 3882 static void
3862 3883 pt_fault_dtor(mdb_tgt_t *t, mdb_sespec_t *sep)
3863 3884 {
3864 3885 int fault = (intptr_t)sep->se_data;
3865 3886
3866 3887 if (fault != FLTBPT && fault != FLTTRACE && fault != FLTWATCH)
3867 3888 (void) Pfault(t->t_pshandle, fault, FALSE);
3868 3889 }
3869 3890
3870 3891 /*ARGSUSED*/
3871 3892 static char *
3872 3893 pt_fault_info(mdb_tgt_t *t, mdb_sespec_t *sep, mdb_vespec_t *vep,
3873 3894 mdb_tgt_spec_desc_t *sp, char *buf, size_t nbytes)
3874 3895 {
3875 3896 char name[32];
3876 3897 int fltnum;
3877 3898
3878 3899 if (vep != NULL)
3879 3900 fltnum = (intptr_t)vep->ve_args;
3880 3901 else
3881 3902 fltnum = (intptr_t)sep->se_data;
3882 3903
3883 3904 (void) proc_fltname(fltnum, name, sizeof (name));
3884 3905 (void) mdb_iob_snprintf(buf, nbytes, "stop on %s", name);
3885 3906
3886 3907 return (buf);
3887 3908 }
3888 3909
3889 3910 /*ARGSUSED*/
3890 3911 static int
3891 3912 pt_fault_match(mdb_tgt_t *t, mdb_sespec_t *sep, mdb_tgt_status_t *tsp)
3892 3913 {
3893 3914 const lwpstatus_t *psp = &Pstatus(t->t_pshandle)->pr_lwp;
3894 3915 int fltnum = (intptr_t)sep->se_data;
3895 3916
3896 3917 return (psp->pr_why == PR_FAULTED && psp->pr_what == fltnum);
3897 3918 }
3898 3919
3899 3920 static const mdb_se_ops_t proc_fault_ops = {
3900 3921 pt_fault_ctor, /* se_ctor */
3901 3922 pt_fault_dtor, /* se_dtor */
3902 3923 pt_fault_info, /* se_info */
3903 3924 no_se_secmp, /* se_secmp */
3904 3925 no_se_vecmp, /* se_vecmp */
3905 3926 no_se_arm, /* se_arm */
3906 3927 no_se_disarm, /* se_disarm */
3907 3928 no_se_cont, /* se_cont */
3908 3929 pt_fault_match /* se_match */
3909 3930 };
3910 3931
3911 3932 /*
3912 3933 * Callback for pt_ignore() dcmd above: for each VID, determine if it
3913 3934 * corresponds to a vespec that traces the specified signal, and delete it.
3914 3935 */
3915 3936 /*ARGSUSED*/
3916 3937 static int
3917 3938 pt_ignore_sig(mdb_tgt_t *t, void *sig, int vid, void *data)
3918 3939 {
3919 3940 mdb_vespec_t *vep = mdb_tgt_vespec_lookup(t, vid);
3920 3941
3921 3942 if (vep->ve_se->se_ops == &proc_signal_ops && vep->ve_args == sig)
3922 3943 (void) mdb_tgt_vespec_delete(t, vid);
3923 3944
3924 3945 return (0);
3925 3946 }
3926 3947
3927 3948 static int
3928 3949 pt_brkpt_ctor(mdb_tgt_t *t, mdb_sespec_t *sep, void *args)
3929 3950 {
3930 3951 pt_data_t *pt = t->t_data;
3931 3952 pt_bparg_t *pta = args;
3932 3953 pt_brkpt_t *ptb;
3933 3954 GElf_Sym s;
3934 3955
3935 3956 if (t->t_pshandle == NULL || Pstate(t->t_pshandle) >= PS_LOST)
3936 3957 return (set_errno(EMDB_NOPROC));
3937 3958
3938 3959 if (pta->pta_symbol != NULL) {
3939 3960 if (!pt->p_rtld_finished &&
3940 3961 strchr(pta->pta_symbol, '`') == NULL)
3941 3962 return (set_errno(EMDB_NOSYM));
3942 3963 if (mdb_tgt_lookup_by_scope(t, pta->pta_symbol, &s,
3943 3964 NULL) == -1) {
3944 3965 if (errno != EMDB_NOOBJ && !(errno == EMDB_NOSYM &&
3945 3966 (!(mdb.m_flags & MDB_FL_BPTNOSYMSTOP) ||
3946 3967 !pt->p_rtld_finished))) {
3947 3968 warn("breakpoint %s activation failed",
3948 3969 pta->pta_symbol);
3949 3970 }
3950 3971 return (-1); /* errno is set for us */
3951 3972 }
3952 3973
3953 3974 pta->pta_addr = (uintptr_t)s.st_value;
3954 3975 }
3955 3976
3956 3977 #ifdef __sparc
3957 3978 if (pta->pta_addr & 3)
3958 3979 return (set_errno(EMDB_BPALIGN));
3959 3980 #endif
3960 3981
3961 3982 if (Paddr_to_map(t->t_pshandle, pta->pta_addr) == NULL)
3962 3983 return (set_errno(EMDB_NOMAP));
3963 3984
3964 3985 ptb = mdb_alloc(sizeof (pt_brkpt_t), UM_SLEEP);
3965 3986 ptb->ptb_addr = pta->pta_addr;
3966 3987 ptb->ptb_instr = NULL;
3967 3988 sep->se_data = ptb;
3968 3989
3969 3990 return (0);
3970 3991 }
3971 3992
3972 3993 /*ARGSUSED*/
3973 3994 static void
3974 3995 pt_brkpt_dtor(mdb_tgt_t *t, mdb_sespec_t *sep)
3975 3996 {
3976 3997 mdb_free(sep->se_data, sizeof (pt_brkpt_t));
3977 3998 }
3978 3999
3979 4000 /*ARGSUSED*/
3980 4001 static char *
3981 4002 pt_brkpt_info(mdb_tgt_t *t, mdb_sespec_t *sep, mdb_vespec_t *vep,
3982 4003 mdb_tgt_spec_desc_t *sp, char *buf, size_t nbytes)
3983 4004 {
3984 4005 uintptr_t addr = NULL;
3985 4006
3986 4007 if (vep != NULL) {
3987 4008 pt_bparg_t *pta = vep->ve_args;
3988 4009
3989 4010 if (pta->pta_symbol != NULL) {
3990 4011 (void) mdb_iob_snprintf(buf, nbytes, "stop at %s",
3991 4012 pta->pta_symbol);
3992 4013 } else {
3993 4014 (void) mdb_iob_snprintf(buf, nbytes, "stop at %a",
3994 4015 pta->pta_addr);
3995 4016 addr = pta->pta_addr;
3996 4017 }
3997 4018
3998 4019 } else {
3999 4020 addr = ((pt_brkpt_t *)sep->se_data)->ptb_addr;
4000 4021 (void) mdb_iob_snprintf(buf, nbytes, "stop at %a", addr);
4001 4022 }
4002 4023
4003 4024 sp->spec_base = addr;
4004 4025 sp->spec_size = sizeof (instr_t);
4005 4026
4006 4027 return (buf);
4007 4028 }
4008 4029
4009 4030 static int
4010 4031 pt_brkpt_secmp(mdb_tgt_t *t, mdb_sespec_t *sep, void *args)
4011 4032 {
4012 4033 pt_brkpt_t *ptb = sep->se_data;
4013 4034 pt_bparg_t *pta = args;
4014 4035 GElf_Sym sym;
4015 4036
4016 4037 if (pta->pta_symbol != NULL) {
4017 4038 return (mdb_tgt_lookup_by_scope(t, pta->pta_symbol,
4018 4039 &sym, NULL) == 0 && sym.st_value == ptb->ptb_addr);
4019 4040 }
4020 4041
4021 4042 return (pta->pta_addr == ptb->ptb_addr);
4022 4043 }
4023 4044
4024 4045 /*ARGSUSED*/
4025 4046 static int
4026 4047 pt_brkpt_vecmp(mdb_tgt_t *t, mdb_vespec_t *vep, void *args)
4027 4048 {
4028 4049 pt_bparg_t *pta1 = vep->ve_args;
4029 4050 pt_bparg_t *pta2 = args;
4030 4051
4031 4052 if (pta1->pta_symbol != NULL && pta2->pta_symbol != NULL)
4032 4053 return (strcmp(pta1->pta_symbol, pta2->pta_symbol) == 0);
4033 4054
4034 4055 if (pta1->pta_symbol == NULL && pta2->pta_symbol == NULL)
4035 4056 return (pta1->pta_addr == pta2->pta_addr);
4036 4057
4037 4058 return (0); /* fail if one is symbolic, other is an explicit address */
4038 4059 }
4039 4060
4040 4061 static int
4041 4062 pt_brkpt_arm(mdb_tgt_t *t, mdb_sespec_t *sep)
4042 4063 {
4043 4064 pt_brkpt_t *ptb = sep->se_data;
4044 4065 return (Psetbkpt(t->t_pshandle, ptb->ptb_addr, &ptb->ptb_instr));
4045 4066 }
4046 4067
4047 4068 /*
4048 4069 * In order to disarm a breakpoint, we replace the trap instruction at ptb_addr
4049 4070 * with the saved instruction. However, if we have stopped after a successful
4050 4071 * exec(2), we do not want to restore ptb_instr because the address space has
4051 4072 * now been replaced with the text of a different executable, and so restoring
4052 4073 * the saved instruction would be incorrect. The exec itself has effectively
4053 4074 * removed all breakpoint trap instructions for us, so we can just return.
4054 4075 */
4055 4076 static int
4056 4077 pt_brkpt_disarm(mdb_tgt_t *t, mdb_sespec_t *sep)
4057 4078 {
4058 4079 const lwpstatus_t *psp = &Pstatus(t->t_pshandle)->pr_lwp;
4059 4080 pt_brkpt_t *ptb = sep->se_data;
4060 4081
4061 4082 if (psp->pr_why == PR_SYSEXIT && psp->pr_errno == 0 &&
4062 4083 psp->pr_what == SYS_execve)
4063 4084 return (0); /* do not restore saved instruction */
4064 4085
4065 4086 return (Pdelbkpt(t->t_pshandle, ptb->ptb_addr, ptb->ptb_instr));
4066 4087 }
4067 4088
4068 4089 /*
4069 4090 * Determine whether the specified sespec is an armed watchpoint that overlaps
4070 4091 * with the given breakpoint and has the given flags set. We use this to find
4071 4092 * conflicts with breakpoints, below.
4072 4093 */
4073 4094 static int
4074 4095 pt_wp_overlap(mdb_sespec_t *sep, pt_brkpt_t *ptb, int flags)
4075 4096 {
4076 4097 const prwatch_t *wp = sep->se_data;
4077 4098
4078 4099 return (sep->se_state == MDB_TGT_SPEC_ARMED &&
4079 4100 sep->se_ops == &proc_wapt_ops && (wp->pr_wflags & flags) &&
4080 4101 ptb->ptb_addr - wp->pr_vaddr < wp->pr_size);
4081 4102 }
4082 4103
4083 4104 /*
4084 4105 * We step over breakpoints using Pxecbkpt() in libproc. If a conflicting
4085 4106 * watchpoint is present, we must temporarily remove it before stepping over
4086 4107 * the breakpoint so we do not immediately re-trigger the watchpoint. We know
4087 4108 * the watchpoint has already triggered on our trap instruction as part of
4088 4109 * fetching it. Before we return, we must re-install any disabled watchpoints.
4089 4110 */
4090 4111 static int
4091 4112 pt_brkpt_cont(mdb_tgt_t *t, mdb_sespec_t *sep, mdb_tgt_status_t *tsp)
4092 4113 {
4093 4114 pt_brkpt_t *ptb = sep->se_data;
4094 4115 int status = -1;
4095 4116 int error;
4096 4117 const lwpstatus_t *psp = &Pstatus(t->t_pshandle)->pr_lwp;
4097 4118
4098 4119 /*
4099 4120 * If the PC no longer matches our original address, then the user has
4100 4121 * changed it while we have been stopped. In this case, it no longer
4101 4122 * makes any sense to continue over this breakpoint. We return as if we
4102 4123 * continued normally.
4103 4124 */
4104 4125 if ((uintptr_t)psp->pr_info.si_addr != psp->pr_reg[R_PC])
4105 4126 return (pt_status(t, tsp));
4106 4127
4107 4128 for (sep = mdb_list_next(&t->t_active); sep; sep = mdb_list_next(sep)) {
4108 4129 if (pt_wp_overlap(sep, ptb, WA_EXEC))
4109 4130 (void) Pdelwapt(t->t_pshandle, sep->se_data);
4110 4131 }
4111 4132
4112 4133 if (Pxecbkpt(t->t_pshandle, ptb->ptb_instr) == 0 &&
4113 4134 Pdelbkpt(t->t_pshandle, ptb->ptb_addr, ptb->ptb_instr) == 0)
4114 4135 status = pt_status(t, tsp);
4115 4136
4116 4137 error = errno; /* save errno from Pxecbkpt, Pdelbkpt, or pt_status */
4117 4138
4118 4139 for (sep = mdb_list_next(&t->t_active); sep; sep = mdb_list_next(sep)) {
4119 4140 if (pt_wp_overlap(sep, ptb, WA_EXEC) &&
4120 4141 Psetwapt(t->t_pshandle, sep->se_data) == -1) {
4121 4142 sep->se_state = MDB_TGT_SPEC_ERROR;
4122 4143 sep->se_errno = errno;
4123 4144 }
4124 4145 }
4125 4146
4126 4147 (void) set_errno(error);
4127 4148 return (status);
4128 4149 }
4129 4150
4130 4151 /*ARGSUSED*/
4131 4152 static int
4132 4153 pt_brkpt_match(mdb_tgt_t *t, mdb_sespec_t *sep, mdb_tgt_status_t *tsp)
4133 4154 {
4134 4155 const lwpstatus_t *psp = &Pstatus(t->t_pshandle)->pr_lwp;
4135 4156 pt_brkpt_t *ptb = sep->se_data;
4136 4157
4137 4158 return (psp->pr_why == PR_FAULTED && psp->pr_what == FLTBPT &&
4138 4159 psp->pr_reg[R_PC] == ptb->ptb_addr);
4139 4160 }
4140 4161
4141 4162 static const mdb_se_ops_t proc_brkpt_ops = {
4142 4163 pt_brkpt_ctor, /* se_ctor */
4143 4164 pt_brkpt_dtor, /* se_dtor */
4144 4165 pt_brkpt_info, /* se_info */
4145 4166 pt_brkpt_secmp, /* se_secmp */
4146 4167 pt_brkpt_vecmp, /* se_vecmp */
4147 4168 pt_brkpt_arm, /* se_arm */
4148 4169 pt_brkpt_disarm, /* se_disarm */
4149 4170 pt_brkpt_cont, /* se_cont */
4150 4171 pt_brkpt_match /* se_match */
4151 4172 };
4152 4173
4153 4174 static int
4154 4175 pt_wapt_ctor(mdb_tgt_t *t, mdb_sespec_t *sep, void *args)
4155 4176 {
4156 4177 if (t->t_pshandle == NULL || Pstate(t->t_pshandle) >= PS_LOST)
4157 4178 return (set_errno(EMDB_NOPROC));
4158 4179
4159 4180 sep->se_data = mdb_alloc(sizeof (prwatch_t), UM_SLEEP);
4160 4181 bcopy(args, sep->se_data, sizeof (prwatch_t));
4161 4182 return (0);
4162 4183 }
4163 4184
4164 4185 /*ARGSUSED*/
4165 4186 static void
4166 4187 pt_wapt_dtor(mdb_tgt_t *t, mdb_sespec_t *sep)
4167 4188 {
4168 4189 mdb_free(sep->se_data, sizeof (prwatch_t));
4169 4190 }
4170 4191
4171 4192 /*ARGSUSED*/
4172 4193 static char *
4173 4194 pt_wapt_info(mdb_tgt_t *t, mdb_sespec_t *sep, mdb_vespec_t *vep,
4174 4195 mdb_tgt_spec_desc_t *sp, char *buf, size_t nbytes)
4175 4196 {
4176 4197 prwatch_t *wp = vep != NULL ? vep->ve_args : sep->se_data;
4177 4198 char desc[24];
4178 4199
4179 4200 ASSERT(wp->pr_wflags != 0);
4180 4201 desc[0] = '\0';
4181 4202
4182 4203 switch (wp->pr_wflags) {
4183 4204 case WA_READ:
4184 4205 (void) strcat(desc, "/read");
4185 4206 break;
4186 4207 case WA_WRITE:
4187 4208 (void) strcat(desc, "/write");
4188 4209 break;
4189 4210 case WA_EXEC:
4190 4211 (void) strcat(desc, "/exec");
4191 4212 break;
4192 4213 default:
4193 4214 if (wp->pr_wflags & WA_READ)
4194 4215 (void) strcat(desc, "/r");
4195 4216 if (wp->pr_wflags & WA_WRITE)
4196 4217 (void) strcat(desc, "/w");
4197 4218 if (wp->pr_wflags & WA_EXEC)
4198 4219 (void) strcat(desc, "/x");
4199 4220 }
4200 4221
4201 4222 (void) mdb_iob_snprintf(buf, nbytes, "stop on %s of [%la, %la)",
4202 4223 desc + 1, wp->pr_vaddr, wp->pr_vaddr + wp->pr_size);
4203 4224
4204 4225 sp->spec_base = wp->pr_vaddr;
4205 4226 sp->spec_size = wp->pr_size;
4206 4227
4207 4228 return (buf);
4208 4229 }
4209 4230
4210 4231 /*ARGSUSED*/
4211 4232 static int
4212 4233 pt_wapt_secmp(mdb_tgt_t *t, mdb_sespec_t *sep, void *args)
4213 4234 {
4214 4235 prwatch_t *wp1 = sep->se_data;
4215 4236 prwatch_t *wp2 = args;
4216 4237
4217 4238 return (wp1->pr_vaddr == wp2->pr_vaddr &&
4218 4239 wp1->pr_size == wp2->pr_size && wp1->pr_wflags == wp2->pr_wflags);
4219 4240 }
4220 4241
4221 4242 /*ARGSUSED*/
4222 4243 static int
4223 4244 pt_wapt_vecmp(mdb_tgt_t *t, mdb_vespec_t *vep, void *args)
4224 4245 {
4225 4246 prwatch_t *wp1 = vep->ve_args;
4226 4247 prwatch_t *wp2 = args;
4227 4248
4228 4249 return (wp1->pr_vaddr == wp2->pr_vaddr &&
4229 4250 wp1->pr_size == wp2->pr_size && wp1->pr_wflags == wp2->pr_wflags);
4230 4251 }
4231 4252
4232 4253 static int
4233 4254 pt_wapt_arm(mdb_tgt_t *t, mdb_sespec_t *sep)
4234 4255 {
4235 4256 return (Psetwapt(t->t_pshandle, sep->se_data));
4236 4257 }
4237 4258
4238 4259 static int
4239 4260 pt_wapt_disarm(mdb_tgt_t *t, mdb_sespec_t *sep)
4240 4261 {
4241 4262 return (Pdelwapt(t->t_pshandle, sep->se_data));
4242 4263 }
4243 4264
4244 4265 /*
4245 4266 * Determine whether the specified sespec is an armed breakpoint at the
4246 4267 * given %pc. We use this to find conflicts with watchpoints below.
4247 4268 */
4248 4269 static int
4249 4270 pt_bp_overlap(mdb_sespec_t *sep, uintptr_t pc)
4250 4271 {
4251 4272 pt_brkpt_t *ptb = sep->se_data;
4252 4273
4253 4274 return (sep->se_state == MDB_TGT_SPEC_ARMED &&
4254 4275 sep->se_ops == &proc_brkpt_ops && ptb->ptb_addr == pc);
4255 4276 }
4256 4277
4257 4278 /*
4258 4279 * We step over watchpoints using Pxecwapt() in libproc. If a conflicting
4259 4280 * breakpoint is present, we must temporarily disarm it before stepping
4260 4281 * over the watchpoint so we do not immediately re-trigger the breakpoint.
4261 4282 * This is similar to the case handled in pt_brkpt_cont(), above.
4262 4283 */
4263 4284 static int
4264 4285 pt_wapt_cont(mdb_tgt_t *t, mdb_sespec_t *sep, mdb_tgt_status_t *tsp)
4265 4286 {
4266 4287 const lwpstatus_t *psp = &Pstatus(t->t_pshandle)->pr_lwp;
4267 4288 mdb_sespec_t *bep = NULL;
4268 4289 int status = -1;
4269 4290 int error;
4270 4291
4271 4292 /*
4272 4293 * If the PC no longer matches our original address, then the user has
4273 4294 * changed it while we have been stopped. In this case, it no longer
4274 4295 * makes any sense to continue over this instruction. We return as if
4275 4296 * we continued normally.
4276 4297 */
4277 4298 if ((uintptr_t)psp->pr_info.si_pc != psp->pr_reg[R_PC])
4278 4299 return (pt_status(t, tsp));
4279 4300
4280 4301 if (psp->pr_info.si_code != TRAP_XWATCH) {
4281 4302 for (bep = mdb_list_next(&t->t_active); bep != NULL;
4282 4303 bep = mdb_list_next(bep)) {
4283 4304 if (pt_bp_overlap(bep, psp->pr_reg[R_PC])) {
4284 4305 (void) bep->se_ops->se_disarm(t, bep);
4285 4306 bep->se_state = MDB_TGT_SPEC_ACTIVE;
4286 4307 break;
4287 4308 }
4288 4309 }
4289 4310 }
4290 4311
4291 4312 if (Pxecwapt(t->t_pshandle, sep->se_data) == 0)
4292 4313 status = pt_status(t, tsp);
4293 4314
4294 4315 error = errno; /* save errno from Pxecwapt or pt_status */
4295 4316
4296 4317 if (bep != NULL)
4297 4318 mdb_tgt_sespec_arm_one(t, bep);
4298 4319
4299 4320 (void) set_errno(error);
4300 4321 return (status);
4301 4322 }
4302 4323
4303 4324 /*ARGSUSED*/
4304 4325 static int
4305 4326 pt_wapt_match(mdb_tgt_t *t, mdb_sespec_t *sep, mdb_tgt_status_t *tsp)
4306 4327 {
4307 4328 const lwpstatus_t *psp = &Pstatus(t->t_pshandle)->pr_lwp;
4308 4329 prwatch_t *wp = sep->se_data;
4309 4330
4310 4331 return (psp->pr_why == PR_FAULTED && psp->pr_what == FLTWATCH &&
4311 4332 (uintptr_t)psp->pr_info.si_addr - wp->pr_vaddr < wp->pr_size);
4312 4333 }
4313 4334
4314 4335 static const mdb_se_ops_t proc_wapt_ops = {
4315 4336 pt_wapt_ctor, /* se_ctor */
4316 4337 pt_wapt_dtor, /* se_dtor */
4317 4338 pt_wapt_info, /* se_info */
4318 4339 pt_wapt_secmp, /* se_secmp */
4319 4340 pt_wapt_vecmp, /* se_vecmp */
4320 4341 pt_wapt_arm, /* se_arm */
4321 4342 pt_wapt_disarm, /* se_disarm */
4322 4343 pt_wapt_cont, /* se_cont */
4323 4344 pt_wapt_match /* se_match */
4324 4345 };
4325 4346
4326 4347 static void
4327 4348 pt_bparg_dtor(mdb_vespec_t *vep)
4328 4349 {
4329 4350 pt_bparg_t *pta = vep->ve_args;
4330 4351
4331 4352 if (pta->pta_symbol != NULL)
4332 4353 strfree(pta->pta_symbol);
4333 4354
4334 4355 mdb_free(pta, sizeof (pt_bparg_t));
4335 4356 }
4336 4357
4337 4358 static int
4338 4359 pt_add_vbrkpt(mdb_tgt_t *t, uintptr_t addr,
4339 4360 int spec_flags, mdb_tgt_se_f *func, void *data)
4340 4361 {
4341 4362 pt_bparg_t *pta = mdb_alloc(sizeof (pt_bparg_t), UM_SLEEP);
4342 4363
4343 4364 pta->pta_symbol = NULL;
4344 4365 pta->pta_addr = addr;
4345 4366
4346 4367 return (mdb_tgt_vespec_insert(t, &proc_brkpt_ops, spec_flags,
4347 4368 func, data, pta, pt_bparg_dtor));
4348 4369 }
4349 4370
4350 4371 static int
4351 4372 pt_add_sbrkpt(mdb_tgt_t *t, const char *sym,
4352 4373 int spec_flags, mdb_tgt_se_f *func, void *data)
4353 4374 {
4354 4375 pt_bparg_t *pta;
4355 4376
4356 4377 if (sym[0] == '`') {
4357 4378 (void) set_errno(EMDB_NOOBJ);
4358 4379 return (0);
4359 4380 }
4360 4381
4361 4382 if (sym[strlen(sym) - 1] == '`') {
4362 4383 (void) set_errno(EMDB_NOSYM);
4363 4384 return (0);
4364 4385 }
4365 4386
4366 4387 pta = mdb_alloc(sizeof (pt_bparg_t), UM_SLEEP);
4367 4388 pta->pta_symbol = strdup(sym);
4368 4389 pta->pta_addr = NULL;
4369 4390
4370 4391 return (mdb_tgt_vespec_insert(t, &proc_brkpt_ops, spec_flags,
4371 4392 func, data, pta, pt_bparg_dtor));
4372 4393 }
4373 4394
4374 4395 static int
4375 4396 pt_wparg_overlap(const prwatch_t *wp1, const prwatch_t *wp2)
4376 4397 {
4377 4398 if (wp2->pr_vaddr + wp2->pr_size <= wp1->pr_vaddr)
4378 4399 return (0); /* no range overlap */
4379 4400
4380 4401 if (wp1->pr_vaddr + wp1->pr_size <= wp2->pr_vaddr)
4381 4402 return (0); /* no range overlap */
4382 4403
4383 4404 return (wp1->pr_vaddr != wp2->pr_vaddr ||
4384 4405 wp1->pr_size != wp2->pr_size || wp1->pr_wflags != wp2->pr_wflags);
4385 4406 }
4386 4407
4387 4408 static void
4388 4409 pt_wparg_dtor(mdb_vespec_t *vep)
4389 4410 {
4390 4411 mdb_free(vep->ve_args, sizeof (prwatch_t));
4391 4412 }
4392 4413
4393 4414 static int
4394 4415 pt_add_vwapt(mdb_tgt_t *t, uintptr_t addr, size_t len, uint_t wflags,
4395 4416 int spec_flags, mdb_tgt_se_f *func, void *data)
4396 4417 {
4397 4418 prwatch_t *wp = mdb_alloc(sizeof (prwatch_t), UM_SLEEP);
4398 4419 mdb_sespec_t *sep;
4399 4420
4400 4421 wp->pr_vaddr = addr;
4401 4422 wp->pr_size = len;
4402 4423 wp->pr_wflags = 0;
4403 4424
4404 4425 if (wflags & MDB_TGT_WA_R)
4405 4426 wp->pr_wflags |= WA_READ;
4406 4427 if (wflags & MDB_TGT_WA_W)
4407 4428 wp->pr_wflags |= WA_WRITE;
4408 4429 if (wflags & MDB_TGT_WA_X)
4409 4430 wp->pr_wflags |= WA_EXEC;
4410 4431
4411 4432 for (sep = mdb_list_next(&t->t_active); sep; sep = mdb_list_next(sep)) {
4412 4433 if (sep->se_ops == &proc_wapt_ops &&
4413 4434 mdb_list_next(&sep->se_velist) != NULL &&
4414 4435 pt_wparg_overlap(wp, sep->se_data))
4415 4436 goto dup;
4416 4437 }
4417 4438
4418 4439 for (sep = mdb_list_next(&t->t_idle); sep; sep = mdb_list_next(sep)) {
4419 4440 if (sep->se_ops == &proc_wapt_ops && pt_wparg_overlap(wp,
4420 4441 ((mdb_vespec_t *)mdb_list_next(&sep->se_velist))->ve_args))
4421 4442 goto dup;
4422 4443 }
4423 4444
4424 4445 return (mdb_tgt_vespec_insert(t, &proc_wapt_ops, spec_flags,
4425 4446 func, data, wp, pt_wparg_dtor));
4426 4447
4427 4448 dup:
4428 4449 mdb_free(wp, sizeof (prwatch_t));
4429 4450 (void) set_errno(EMDB_WPDUP);
4430 4451 return (0);
4431 4452 }
4432 4453
4433 4454 static int
4434 4455 pt_add_sysenter(mdb_tgt_t *t, int sysnum,
4435 4456 int spec_flags, mdb_tgt_se_f *func, void *data)
4436 4457 {
4437 4458 if (sysnum <= 0 || sysnum > PRMAXSYS) {
4438 4459 (void) set_errno(EMDB_BADSYSNUM);
4439 4460 return (0);
4440 4461 }
4441 4462
4442 4463 return (mdb_tgt_vespec_insert(t, &proc_sysenter_ops, spec_flags,
4443 4464 func, data, (void *)(uintptr_t)sysnum, no_ve_dtor));
4444 4465 }
4445 4466
4446 4467 static int
4447 4468 pt_add_sysexit(mdb_tgt_t *t, int sysnum,
4448 4469 int spec_flags, mdb_tgt_se_f *func, void *data)
4449 4470 {
4450 4471 if (sysnum <= 0 || sysnum > PRMAXSYS) {
4451 4472 (void) set_errno(EMDB_BADSYSNUM);
4452 4473 return (0);
4453 4474 }
4454 4475
4455 4476 return (mdb_tgt_vespec_insert(t, &proc_sysexit_ops, spec_flags,
4456 4477 func, data, (void *)(uintptr_t)sysnum, no_ve_dtor));
4457 4478 }
4458 4479
4459 4480 static int
4460 4481 pt_add_signal(mdb_tgt_t *t, int signum,
4461 4482 int spec_flags, mdb_tgt_se_f *func, void *data)
4462 4483 {
4463 4484 pt_data_t *pt = t->t_data;
4464 4485
4465 4486 if (signum <= 0 || signum > pt->p_maxsig) {
4466 4487 (void) set_errno(EMDB_BADSIGNUM);
4467 4488 return (0);
4468 4489 }
4469 4490
4470 4491 return (mdb_tgt_vespec_insert(t, &proc_signal_ops, spec_flags,
4471 4492 func, data, (void *)(uintptr_t)signum, no_ve_dtor));
4472 4493 }
4473 4494
4474 4495 static int
4475 4496 pt_add_fault(mdb_tgt_t *t, int fltnum,
4476 4497 int spec_flags, mdb_tgt_se_f *func, void *data)
4477 4498 {
4478 4499 if (fltnum <= 0 || fltnum > PRMAXFAULT) {
4479 4500 (void) set_errno(EMDB_BADFLTNUM);
4480 4501 return (0);
4481 4502 }
4482 4503
4483 4504 return (mdb_tgt_vespec_insert(t, &proc_fault_ops, spec_flags,
4484 4505 func, data, (void *)(uintptr_t)fltnum, no_ve_dtor));
4485 4506 }
4486 4507
4487 4508 static int
4488 4509 pt_getareg(mdb_tgt_t *t, mdb_tgt_tid_t tid,
4489 4510 const char *rname, mdb_tgt_reg_t *rp)
4490 4511 {
4491 4512 pt_data_t *pt = t->t_data;
4492 4513 prgregset_t grs;
4493 4514 mdb_var_t *v;
4494 4515
4495 4516 if (t->t_pshandle == NULL)
4496 4517 return (set_errno(EMDB_NOPROC));
4497 4518
4498 4519 if ((v = mdb_nv_lookup(&pt->p_regs, rname)) != NULL) {
4499 4520 uintmax_t rd_nval = mdb_nv_get_value(v);
4500 4521 ushort_t rd_num = MDB_TGT_R_NUM(rd_nval);
4501 4522 ushort_t rd_flags = MDB_TGT_R_FLAGS(rd_nval);
4502 4523
4503 4524 if (!MDB_TGT_R_IS_FP(rd_flags)) {
4504 4525 mdb_tgt_reg_t r = 0;
4505 4526
4506 4527 #if defined(__sparc) && defined(_ILP32)
4507 4528 /*
4508 4529 * If we are debugging on 32-bit SPARC, the globals and
4509 4530 * outs can have 32 upper bits hiding in the xregs.
4510 4531 */
4511 4532 /* gcc doesn't like >= R_G0 because R_G0 == 0 */
4512 4533 int is_g = (rd_num == R_G0 ||
4513 4534 rd_num >= R_G1 && rd_num <= R_G7);
4514 4535 int is_o = (rd_num >= R_O0 && rd_num <= R_O7);
4515 4536 prxregset_t xrs;
4516 4537
4517 4538 if (is_g && PTL_GETXREGS(t, tid, &xrs) == 0 &&
4518 4539 xrs.pr_type == XR_TYPE_V8P) {
4519 4540 r |= (uint64_t)xrs.pr_un.pr_v8p.pr_xg[
4520 4541 rd_num - R_G0 + XR_G0] << 32;
4521 4542 }
4522 4543
4523 4544 if (is_o && PTL_GETXREGS(t, tid, &xrs) == 0 &&
4524 4545 xrs.pr_type == XR_TYPE_V8P) {
4525 4546 r |= (uint64_t)xrs.pr_un.pr_v8p.pr_xo[
4526 4547 rd_num - R_O0 + XR_O0] << 32;
4527 4548 }
4528 4549 #endif /* __sparc && _ILP32 */
4529 4550
4530 4551 /*
4531 4552 * Avoid sign-extension by casting: recall that procfs
4532 4553 * defines prgreg_t as a long or int and our native
4533 4554 * register handling uses uint64_t's.
4534 4555 */
4535 4556 if (PTL_GETREGS(t, tid, grs) == 0) {
4536 4557 *rp = r | (ulong_t)grs[rd_num];
4537 4558 if (rd_flags & MDB_TGT_R_32)
4538 4559 *rp &= 0xffffffffULL;
4539 4560 else if (rd_flags & MDB_TGT_R_16)
4540 4561 *rp &= 0xffffULL;
4541 4562 else if (rd_flags & MDB_TGT_R_8H)
4542 4563 *rp = (*rp & 0xff00ULL) >> 8;
4543 4564 else if (rd_flags & MDB_TGT_R_8L)
4544 4565 *rp &= 0xffULL;
4545 4566 return (0);
4546 4567 }
4547 4568 return (-1);
4548 4569 } else
4549 4570 return (pt_getfpreg(t, tid, rd_num, rd_flags, rp));
4550 4571 }
4551 4572
4552 4573 return (set_errno(EMDB_BADREG));
4553 4574 }
4554 4575
4555 4576 static int
4556 4577 pt_putareg(mdb_tgt_t *t, mdb_tgt_tid_t tid, const char *rname, mdb_tgt_reg_t r)
4557 4578 {
4558 4579 pt_data_t *pt = t->t_data;
4559 4580 prgregset_t grs;
4560 4581 mdb_var_t *v;
4561 4582
4562 4583 if (t->t_pshandle == NULL)
4563 4584 return (set_errno(EMDB_NOPROC));
4564 4585
4565 4586 if ((v = mdb_nv_lookup(&pt->p_regs, rname)) != NULL) {
4566 4587 uintmax_t rd_nval = mdb_nv_get_value(v);
4567 4588 ushort_t rd_num = MDB_TGT_R_NUM(rd_nval);
4568 4589 ushort_t rd_flags = MDB_TGT_R_FLAGS(rd_nval);
4569 4590
4570 4591 if (!MDB_TGT_R_IS_FP(rd_flags)) {
4571 4592
4572 4593 if (rd_flags & MDB_TGT_R_32)
4573 4594 r &= 0xffffffffULL;
4574 4595 else if (rd_flags & MDB_TGT_R_16)
4575 4596 r &= 0xffffULL;
4576 4597 else if (rd_flags & MDB_TGT_R_8H)
4577 4598 r = (r & 0xffULL) << 8;
4578 4599 else if (rd_flags & MDB_TGT_R_8L)
4579 4600 r &= 0xffULL;
4580 4601
4581 4602 #if defined(__sparc) && defined(_ILP32)
4582 4603 /*
4583 4604 * If we are debugging on 32-bit SPARC, the globals and
4584 4605 * outs can have 32 upper bits stored in the xregs.
4585 4606 */
4586 4607 int is_g = (rd_num == R_G0 ||
4587 4608 rd_num >= R_G1 && rd_num <= R_G7);
4588 4609 int is_o = (rd_num >= R_O0 && rd_num <= R_O7);
4589 4610 prxregset_t xrs;
4590 4611
4591 4612 if ((is_g || is_o) && PTL_GETXREGS(t, tid, &xrs) == 0 &&
4592 4613 xrs.pr_type == XR_TYPE_V8P) {
4593 4614 if (is_g) {
4594 4615 xrs.pr_un.pr_v8p.pr_xg[rd_num -
4595 4616 R_G0 + XR_G0] = (uint32_t)(r >> 32);
4596 4617 } else if (is_o) {
4597 4618 xrs.pr_un.pr_v8p.pr_xo[rd_num -
4598 4619 R_O0 + XR_O0] = (uint32_t)(r >> 32);
4599 4620 }
4600 4621
4601 4622 if (PTL_SETXREGS(t, tid, &xrs) == -1)
4602 4623 return (-1);
4603 4624 }
4604 4625 #endif /* __sparc && _ILP32 */
4605 4626
4606 4627 if (PTL_GETREGS(t, tid, grs) == 0) {
4607 4628 grs[rd_num] = (prgreg_t)r;
4608 4629 return (PTL_SETREGS(t, tid, grs));
4609 4630 }
4610 4631 return (-1);
4611 4632 } else
4612 4633 return (pt_putfpreg(t, tid, rd_num, rd_flags, r));
4613 4634 }
4614 4635
4615 4636 return (set_errno(EMDB_BADREG));
4616 4637 }
4617 4638
4618 4639 static int
4619 4640 pt_stack_call(pt_stkarg_t *psp, const prgregset_t grs, uint_t argc, long *argv)
4620 4641 {
4621 4642 psp->pstk_gotpc |= (grs[R_PC] != 0);
4622 4643
4623 4644 if (!psp->pstk_gotpc)
4624 4645 return (0); /* skip initial zeroed frames */
4625 4646
4626 4647 return (psp->pstk_func(psp->pstk_private, grs[R_PC],
4627 4648 argc, argv, (const struct mdb_tgt_gregset *)grs));
4628 4649 }
4629 4650
4630 4651 static int
4631 4652 pt_stack_iter(mdb_tgt_t *t, const mdb_tgt_gregset_t *gsp,
4632 4653 mdb_tgt_stack_f *func, void *arg)
4633 4654 {
4634 4655 if (t->t_pshandle != NULL) {
4635 4656 pt_stkarg_t pstk;
4636 4657
4637 4658 pstk.pstk_func = func;
4638 4659 pstk.pstk_private = arg;
4639 4660 pstk.pstk_gotpc = FALSE;
4640 4661
4641 4662 (void) Pstack_iter(t->t_pshandle, gsp->gregs,
4642 4663 (proc_stack_f *)pt_stack_call, &pstk);
4643 4664
4644 4665 return (0);
4645 4666 }
4646 4667
4647 4668 return (set_errno(EMDB_NOPROC));
4648 4669 }
4649 4670
4650 4671 static int
4651 4672 pt_auxv(mdb_tgt_t *t, const auxv_t **auxvp)
4652 4673 {
4653 4674 if (t->t_pshandle != NULL) {
4654 4675 *auxvp = Pgetauxvec(t->t_pshandle);
4655 4676 return (0);
4656 4677 }
4657 4678
4658 4679 return (set_errno(EMDB_NOPROC));
4659 4680 }
4660 4681
4661 4682
4662 4683 static const mdb_tgt_ops_t proc_ops = {
4663 4684 pt_setflags, /* t_setflags */
4664 4685 (int (*)()) mdb_tgt_notsup, /* t_setcontext */
4665 4686 pt_activate, /* t_activate */
4666 4687 pt_deactivate, /* t_deactivate */
4667 4688 pt_periodic, /* t_periodic */
4668 4689 pt_destroy, /* t_destroy */
4669 4690 pt_name, /* t_name */
4670 4691 (const char *(*)()) mdb_conf_isa, /* t_isa */
4671 4692 pt_platform, /* t_platform */
4672 4693 pt_uname, /* t_uname */
4673 4694 pt_dmodel, /* t_dmodel */
4674 4695 (ssize_t (*)()) mdb_tgt_notsup, /* t_aread */
4675 4696 (ssize_t (*)()) mdb_tgt_notsup, /* t_awrite */
4676 4697 pt_vread, /* t_vread */
4677 4698 pt_vwrite, /* t_vwrite */
4678 4699 (ssize_t (*)()) mdb_tgt_notsup, /* t_pread */
4679 4700 (ssize_t (*)()) mdb_tgt_notsup, /* t_pwrite */
4680 4701 pt_fread, /* t_fread */
4681 4702 pt_fwrite, /* t_fwrite */
4682 4703 (ssize_t (*)()) mdb_tgt_notsup, /* t_ioread */
4683 4704 (ssize_t (*)()) mdb_tgt_notsup, /* t_iowrite */
4684 4705 (int (*)()) mdb_tgt_notsup, /* t_vtop */
4685 4706 pt_lookup_by_name, /* t_lookup_by_name */
4686 4707 pt_lookup_by_addr, /* t_lookup_by_addr */
4687 4708 pt_symbol_iter, /* t_symbol_iter */
4688 4709 pt_mapping_iter, /* t_mapping_iter */
4689 4710 pt_object_iter, /* t_object_iter */
4690 4711 pt_addr_to_map, /* t_addr_to_map */
4691 4712 pt_name_to_map, /* t_name_to_map */
4692 4713 pt_addr_to_ctf, /* t_addr_to_ctf */
4693 4714 pt_name_to_ctf, /* t_name_to_ctf */
4694 4715 pt_status, /* t_status */
4695 4716 pt_run, /* t_run */
4696 4717 pt_step, /* t_step */
4697 4718 pt_step_out, /* t_step_out */
4698 4719 pt_next, /* t_next */
4699 4720 pt_continue, /* t_cont */
4700 4721 pt_signal, /* t_signal */
4701 4722 pt_add_vbrkpt, /* t_add_vbrkpt */
4702 4723 pt_add_sbrkpt, /* t_add_sbrkpt */
4703 4724 (int (*)()) mdb_tgt_null, /* t_add_pwapt */
4704 4725 pt_add_vwapt, /* t_add_vwapt */
4705 4726 (int (*)()) mdb_tgt_null, /* t_add_iowapt */
4706 4727 pt_add_sysenter, /* t_add_sysenter */
4707 4728 pt_add_sysexit, /* t_add_sysexit */
4708 4729 pt_add_signal, /* t_add_signal */
4709 4730 pt_add_fault, /* t_add_fault */
4710 4731 pt_getareg, /* t_getareg */
4711 4732 pt_putareg, /* t_putareg */
4712 4733 pt_stack_iter, /* t_stack_iter */
4713 4734 pt_auxv /* t_auxv */
4714 4735 };
4715 4736
4716 4737 /*
4717 4738 * Utility function for converting libproc errno values to mdb error values
4718 4739 * for the ptl calls below. Currently, we only need to convert ENOENT to
4719 4740 * EMDB_NOTHREAD to produce a more useful error message for the user.
4720 4741 */
4721 4742 static int
4722 4743 ptl_err(int error)
4723 4744 {
4724 4745 if (error != 0 && errno == ENOENT)
4725 4746 return (set_errno(EMDB_NOTHREAD));
4726 4747
4727 4748 return (error);
4728 4749 }
4729 4750
4730 4751 /*ARGSUSED*/
4731 4752 static mdb_tgt_tid_t
4732 4753 pt_lwp_tid(mdb_tgt_t *t, void *tap)
4733 4754 {
4734 4755 if (t->t_pshandle != NULL)
4735 4756 return (Pstatus(t->t_pshandle)->pr_lwp.pr_lwpid);
4736 4757
4737 4758 return (set_errno(EMDB_NOPROC));
4738 4759 }
4739 4760
4740 4761 static int
4741 4762 pt_lwp_add(mdb_addrvec_t *ap, const lwpstatus_t *psp)
4742 4763 {
4743 4764 mdb_addrvec_unshift(ap, psp->pr_lwpid);
4744 4765 return (0);
4745 4766 }
4746 4767
4747 4768 /*ARGSUSED*/
4748 4769 static int
4749 4770 pt_lwp_iter(mdb_tgt_t *t, void *tap, mdb_addrvec_t *ap)
4750 4771 {
4751 4772 if (t->t_pshandle != NULL)
4752 4773 return (Plwp_iter(t->t_pshandle, (proc_lwp_f *)pt_lwp_add, ap));
4753 4774
4754 4775 return (set_errno(EMDB_NOPROC));
4755 4776 }
4756 4777
4757 4778 /*ARGSUSED*/
4758 4779 static int
4759 4780 pt_lwp_getregs(mdb_tgt_t *t, void *tap, mdb_tgt_tid_t tid, prgregset_t gregs)
4760 4781 {
4761 4782 if (t->t_pshandle != NULL) {
4762 4783 return (ptl_err(Plwp_getregs(t->t_pshandle,
4763 4784 (lwpid_t)tid, gregs)));
4764 4785 }
4765 4786 return (set_errno(EMDB_NOPROC));
4766 4787 }
4767 4788
4768 4789 /*ARGSUSED*/
4769 4790 static int
4770 4791 pt_lwp_setregs(mdb_tgt_t *t, void *tap, mdb_tgt_tid_t tid, prgregset_t gregs)
4771 4792 {
4772 4793 if (t->t_pshandle != NULL) {
4773 4794 return (ptl_err(Plwp_setregs(t->t_pshandle,
4774 4795 (lwpid_t)tid, gregs)));
4775 4796 }
4776 4797 return (set_errno(EMDB_NOPROC));
4777 4798 }
4778 4799
4779 4800 #ifdef __sparc
4780 4801
4781 4802 /*ARGSUSED*/
4782 4803 static int
4783 4804 pt_lwp_getxregs(mdb_tgt_t *t, void *tap, mdb_tgt_tid_t tid, prxregset_t *xregs)
4784 4805 {
4785 4806 if (t->t_pshandle != NULL) {
4786 4807 return (ptl_err(Plwp_getxregs(t->t_pshandle,
4787 4808 (lwpid_t)tid, xregs)));
4788 4809 }
4789 4810 return (set_errno(EMDB_NOPROC));
4790 4811 }
4791 4812
4792 4813 /*ARGSUSED*/
4793 4814 static int
4794 4815 pt_lwp_setxregs(mdb_tgt_t *t, void *tap, mdb_tgt_tid_t tid,
4795 4816 const prxregset_t *xregs)
4796 4817 {
4797 4818 if (t->t_pshandle != NULL) {
4798 4819 return (ptl_err(Plwp_setxregs(t->t_pshandle,
4799 4820 (lwpid_t)tid, xregs)));
4800 4821 }
4801 4822 return (set_errno(EMDB_NOPROC));
4802 4823 }
4803 4824
4804 4825 #endif /* __sparc */
4805 4826
4806 4827 /*ARGSUSED*/
4807 4828 static int
4808 4829 pt_lwp_getfpregs(mdb_tgt_t *t, void *tap, mdb_tgt_tid_t tid,
4809 4830 prfpregset_t *fpregs)
4810 4831 {
4811 4832 if (t->t_pshandle != NULL) {
4812 4833 return (ptl_err(Plwp_getfpregs(t->t_pshandle,
4813 4834 (lwpid_t)tid, fpregs)));
4814 4835 }
4815 4836 return (set_errno(EMDB_NOPROC));
4816 4837 }
4817 4838
4818 4839 /*ARGSUSED*/
4819 4840 static int
4820 4841 pt_lwp_setfpregs(mdb_tgt_t *t, void *tap, mdb_tgt_tid_t tid,
4821 4842 const prfpregset_t *fpregs)
4822 4843 {
4823 4844 if (t->t_pshandle != NULL) {
4824 4845 return (ptl_err(Plwp_setfpregs(t->t_pshandle,
4825 4846 (lwpid_t)tid, fpregs)));
4826 4847 }
4827 4848 return (set_errno(EMDB_NOPROC));
4828 4849 }
4829 4850
4830 4851 static const pt_ptl_ops_t proc_lwp_ops = {
4831 4852 (int (*)()) mdb_tgt_nop,
4832 4853 (void (*)()) mdb_tgt_nop,
4833 4854 pt_lwp_tid,
4834 4855 pt_lwp_iter,
4835 4856 pt_lwp_getregs,
4836 4857 pt_lwp_setregs,
4837 4858 #ifdef __sparc
4838 4859 pt_lwp_getxregs,
4839 4860 pt_lwp_setxregs,
4840 4861 #endif
4841 4862 pt_lwp_getfpregs,
4842 4863 pt_lwp_setfpregs
4843 4864 };
4844 4865
4845 4866 static int
4846 4867 pt_tdb_ctor(mdb_tgt_t *t)
4847 4868 {
4848 4869 pt_data_t *pt = t->t_data;
4849 4870 td_thragent_t *tap;
4850 4871 td_err_e err;
4851 4872
4852 4873 if ((err = pt->p_tdb_ops->td_ta_new(t->t_pshandle, &tap)) != TD_OK)
4853 4874 return (set_errno(tdb_to_errno(err)));
4854 4875
4855 4876 pt->p_ptl_hdl = tap;
4856 4877 return (0);
4857 4878 }
4858 4879
4859 4880 static void
4860 4881 pt_tdb_dtor(mdb_tgt_t *t, void *tap)
4861 4882 {
4862 4883 pt_data_t *pt = t->t_data;
4863 4884
4864 4885 ASSERT(tap == pt->p_ptl_hdl);
4865 4886 (void) pt->p_tdb_ops->td_ta_delete(tap);
4866 4887 pt->p_ptl_hdl = NULL;
4867 4888 }
4868 4889
4869 4890 static mdb_tgt_tid_t
4870 4891 pt_tdb_tid(mdb_tgt_t *t, void *tap)
4871 4892 {
4872 4893 pt_data_t *pt = t->t_data;
4873 4894
4874 4895 td_thrhandle_t th;
4875 4896 td_thrinfo_t ti;
4876 4897 td_err_e err;
4877 4898
4878 4899 if (t->t_pshandle == NULL)
4879 4900 return (set_errno(EMDB_NOPROC));
4880 4901
4881 4902 if ((err = pt->p_tdb_ops->td_ta_map_lwp2thr(tap,
4882 4903 Pstatus(t->t_pshandle)->pr_lwp.pr_lwpid, &th)) != TD_OK)
4883 4904 return (set_errno(tdb_to_errno(err)));
4884 4905
4885 4906 if ((err = pt->p_tdb_ops->td_thr_get_info(&th, &ti)) != TD_OK)
4886 4907 return (set_errno(tdb_to_errno(err)));
4887 4908
4888 4909 return (ti.ti_tid);
4889 4910 }
4890 4911
4891 4912 static int
4892 4913 pt_tdb_add(const td_thrhandle_t *thp, pt_addarg_t *pap)
4893 4914 {
4894 4915 td_thrinfo_t ti;
4895 4916
4896 4917 if (pap->pa_pt->p_tdb_ops->td_thr_get_info(thp, &ti) == TD_OK &&
4897 4918 ti.ti_state != TD_THR_ZOMBIE)
4898 4919 mdb_addrvec_unshift(pap->pa_ap, ti.ti_tid);
4899 4920
4900 4921 return (0);
4901 4922 }
4902 4923
4903 4924 static int
4904 4925 pt_tdb_iter(mdb_tgt_t *t, void *tap, mdb_addrvec_t *ap)
4905 4926 {
4906 4927 pt_data_t *pt = t->t_data;
4907 4928 pt_addarg_t arg;
4908 4929 int err;
4909 4930
4910 4931 if (t->t_pshandle == NULL)
4911 4932 return (set_errno(EMDB_NOPROC));
4912 4933
4913 4934 arg.pa_pt = pt;
4914 4935 arg.pa_ap = ap;
4915 4936
4916 4937 if ((err = pt->p_tdb_ops->td_ta_thr_iter(tap, (td_thr_iter_f *)
4917 4938 pt_tdb_add, &arg, TD_THR_ANY_STATE, TD_THR_LOWEST_PRIORITY,
4918 4939 TD_SIGNO_MASK, TD_THR_ANY_USER_FLAGS)) != TD_OK)
4919 4940 return (set_errno(tdb_to_errno(err)));
4920 4941
4921 4942 return (0);
4922 4943 }
4923 4944
4924 4945 static int
4925 4946 pt_tdb_getregs(mdb_tgt_t *t, void *tap, mdb_tgt_tid_t tid, prgregset_t gregs)
4926 4947 {
4927 4948 pt_data_t *pt = t->t_data;
4928 4949
4929 4950 td_thrhandle_t th;
4930 4951 td_err_e err;
4931 4952
4932 4953 if (t->t_pshandle == NULL)
4933 4954 return (set_errno(EMDB_NOPROC));
4934 4955
4935 4956 if ((err = pt->p_tdb_ops->td_ta_map_id2thr(tap, tid, &th)) != TD_OK)
4936 4957 return (set_errno(tdb_to_errno(err)));
4937 4958
4938 4959 err = pt->p_tdb_ops->td_thr_getgregs(&th, gregs);
4939 4960 if (err != TD_OK && err != TD_PARTIALREG)
4940 4961 return (set_errno(tdb_to_errno(err)));
4941 4962
4942 4963 return (0);
4943 4964 }
4944 4965
4945 4966 static int
4946 4967 pt_tdb_setregs(mdb_tgt_t *t, void *tap, mdb_tgt_tid_t tid, prgregset_t gregs)
4947 4968 {
4948 4969 pt_data_t *pt = t->t_data;
4949 4970
4950 4971 td_thrhandle_t th;
4951 4972 td_err_e err;
4952 4973
4953 4974 if (t->t_pshandle == NULL)
4954 4975 return (set_errno(EMDB_NOPROC));
4955 4976
4956 4977 if ((err = pt->p_tdb_ops->td_ta_map_id2thr(tap, tid, &th)) != TD_OK)
4957 4978 return (set_errno(tdb_to_errno(err)));
4958 4979
4959 4980 err = pt->p_tdb_ops->td_thr_setgregs(&th, gregs);
4960 4981 if (err != TD_OK && err != TD_PARTIALREG)
4961 4982 return (set_errno(tdb_to_errno(err)));
4962 4983
4963 4984 return (0);
4964 4985 }
4965 4986
4966 4987 #ifdef __sparc
4967 4988
4968 4989 static int
4969 4990 pt_tdb_getxregs(mdb_tgt_t *t, void *tap, mdb_tgt_tid_t tid, prxregset_t *xregs)
4970 4991 {
4971 4992 pt_data_t *pt = t->t_data;
4972 4993
4973 4994 td_thrhandle_t th;
4974 4995 td_err_e err;
4975 4996
4976 4997 if (t->t_pshandle == NULL)
4977 4998 return (set_errno(EMDB_NOPROC));
4978 4999
4979 5000 if ((err = pt->p_tdb_ops->td_ta_map_id2thr(tap, tid, &th)) != TD_OK)
4980 5001 return (set_errno(tdb_to_errno(err)));
4981 5002
4982 5003 err = pt->p_tdb_ops->td_thr_getxregs(&th, xregs);
4983 5004 if (err != TD_OK && err != TD_PARTIALREG)
4984 5005 return (set_errno(tdb_to_errno(err)));
4985 5006
4986 5007 return (0);
4987 5008 }
4988 5009
4989 5010 static int
4990 5011 pt_tdb_setxregs(mdb_tgt_t *t, void *tap, mdb_tgt_tid_t tid,
4991 5012 const prxregset_t *xregs)
4992 5013 {
4993 5014 pt_data_t *pt = t->t_data;
4994 5015
4995 5016 td_thrhandle_t th;
4996 5017 td_err_e err;
4997 5018
4998 5019 if (t->t_pshandle == NULL)
4999 5020 return (set_errno(EMDB_NOPROC));
5000 5021
5001 5022 if ((err = pt->p_tdb_ops->td_ta_map_id2thr(tap, tid, &th)) != TD_OK)
5002 5023 return (set_errno(tdb_to_errno(err)));
5003 5024
5004 5025 err = pt->p_tdb_ops->td_thr_setxregs(&th, xregs);
5005 5026 if (err != TD_OK && err != TD_PARTIALREG)
5006 5027 return (set_errno(tdb_to_errno(err)));
5007 5028
5008 5029 return (0);
5009 5030 }
5010 5031
5011 5032 #endif /* __sparc */
5012 5033
5013 5034 static int
5014 5035 pt_tdb_getfpregs(mdb_tgt_t *t, void *tap, mdb_tgt_tid_t tid,
5015 5036 prfpregset_t *fpregs)
5016 5037 {
5017 5038 pt_data_t *pt = t->t_data;
5018 5039
5019 5040 td_thrhandle_t th;
5020 5041 td_err_e err;
5021 5042
5022 5043 if (t->t_pshandle == NULL)
5023 5044 return (set_errno(EMDB_NOPROC));
5024 5045
5025 5046 if ((err = pt->p_tdb_ops->td_ta_map_id2thr(tap, tid, &th)) != TD_OK)
5026 5047 return (set_errno(tdb_to_errno(err)));
5027 5048
5028 5049 err = pt->p_tdb_ops->td_thr_getfpregs(&th, fpregs);
5029 5050 if (err != TD_OK && err != TD_PARTIALREG)
5030 5051 return (set_errno(tdb_to_errno(err)));
5031 5052
5032 5053 return (0);
5033 5054 }
5034 5055
5035 5056 static int
5036 5057 pt_tdb_setfpregs(mdb_tgt_t *t, void *tap, mdb_tgt_tid_t tid,
5037 5058 const prfpregset_t *fpregs)
5038 5059 {
5039 5060 pt_data_t *pt = t->t_data;
5040 5061
5041 5062 td_thrhandle_t th;
5042 5063 td_err_e err;
5043 5064
5044 5065 if (t->t_pshandle == NULL)
5045 5066 return (set_errno(EMDB_NOPROC));
5046 5067
5047 5068 if ((err = pt->p_tdb_ops->td_ta_map_id2thr(tap, tid, &th)) != TD_OK)
5048 5069 return (set_errno(tdb_to_errno(err)));
5049 5070
5050 5071 err = pt->p_tdb_ops->td_thr_setfpregs(&th, fpregs);
5051 5072 if (err != TD_OK && err != TD_PARTIALREG)
5052 5073 return (set_errno(tdb_to_errno(err)));
5053 5074
5054 5075 return (0);
5055 5076 }
5056 5077
5057 5078 static const pt_ptl_ops_t proc_tdb_ops = {
5058 5079 pt_tdb_ctor,
5059 5080 pt_tdb_dtor,
5060 5081 pt_tdb_tid,
5061 5082 pt_tdb_iter,
5062 5083 pt_tdb_getregs,
5063 5084 pt_tdb_setregs,
5064 5085 #ifdef __sparc
5065 5086 pt_tdb_getxregs,
5066 5087 pt_tdb_setxregs,
5067 5088 #endif
5068 5089 pt_tdb_getfpregs,
5069 5090 pt_tdb_setfpregs
5070 5091 };
5071 5092
5072 5093 static ssize_t
5073 5094 pt_xd_auxv(mdb_tgt_t *t, void *buf, size_t nbytes)
5074 5095 {
5075 5096 struct ps_prochandle *P = t->t_pshandle;
5076 5097 const auxv_t *auxp, *auxv = NULL;
5077 5098 int auxn = 0;
5078 5099
5079 5100 if (P != NULL && (auxv = Pgetauxvec(P)) != NULL &&
5080 5101 auxv->a_type != AT_NULL) {
5081 5102 for (auxp = auxv, auxn = 1; auxp->a_type != NULL; auxp++)
5082 5103 auxn++;
5083 5104 }
5084 5105
5085 5106 if (buf == NULL && nbytes == 0)
5086 5107 return (sizeof (auxv_t) * auxn);
5087 5108
5088 5109 if (auxn == 0)
5089 5110 return (set_errno(ENODATA));
5090 5111
5091 5112 nbytes = MIN(nbytes, sizeof (auxv_t) * auxn);
5092 5113 bcopy(auxv, buf, nbytes);
5093 5114 return (nbytes);
5094 5115 }
5095 5116
5096 5117 static ssize_t
5097 5118 pt_xd_cred(mdb_tgt_t *t, void *buf, size_t nbytes)
5098 5119 {
5099 5120 prcred_t cr, *crp;
5100 5121 size_t cbytes = 0;
5101 5122
5102 5123 if (t->t_pshandle != NULL && Pcred(t->t_pshandle, &cr, 1) == 0) {
5103 5124 cbytes = (cr.pr_ngroups <= 1) ? sizeof (prcred_t) :
5104 5125 (sizeof (prcred_t) + (cr.pr_ngroups - 1) * sizeof (gid_t));
5105 5126 }
5106 5127
5107 5128 if (buf == NULL && nbytes == 0)
5108 5129 return (cbytes);
5109 5130
5110 5131 if (cbytes == 0)
5111 5132 return (set_errno(ENODATA));
5112 5133
5113 5134 crp = mdb_alloc(cbytes, UM_SLEEP);
5114 5135
5115 5136 if (Pcred(t->t_pshandle, crp, cr.pr_ngroups) == -1)
5116 5137 return (set_errno(ENODATA));
5117 5138
5118 5139 nbytes = MIN(nbytes, cbytes);
5119 5140 bcopy(crp, buf, nbytes);
5120 5141 mdb_free(crp, cbytes);
5121 5142 return (nbytes);
5122 5143 }
5123 5144
5124 5145 static ssize_t
5125 5146 pt_xd_ehdr(mdb_tgt_t *t, void *buf, size_t nbytes)
5126 5147 {
5127 5148 pt_data_t *pt = t->t_data;
5128 5149
5129 5150 if (buf == NULL && nbytes == 0)
5130 5151 return (sizeof (GElf_Ehdr));
5131 5152
5132 5153 if (pt->p_file == NULL)
5133 5154 return (set_errno(ENODATA));
5134 5155
5135 5156 nbytes = MIN(nbytes, sizeof (GElf_Ehdr));
5136 5157 bcopy(&pt->p_file->gf_ehdr, buf, nbytes);
5137 5158 return (nbytes);
5138 5159 }
5139 5160
5140 5161 static int
5141 5162 pt_copy_lwp(lwpstatus_t **lspp, const lwpstatus_t *lsp)
5142 5163 {
5143 5164 bcopy(lsp, *lspp, sizeof (lwpstatus_t));
5144 5165 (*lspp)++;
5145 5166 return (0);
5146 5167 }
5147 5168
5148 5169 static ssize_t
5149 5170 pt_xd_lwpstatus(mdb_tgt_t *t, void *buf, size_t nbytes)
5150 5171 {
5151 5172 lwpstatus_t *lsp, *lbuf;
5152 5173 const pstatus_t *psp;
5153 5174 int nlwp = 0;
5154 5175
5155 5176 if (t->t_pshandle != NULL && (psp = Pstatus(t->t_pshandle)) != NULL)
5156 5177 nlwp = psp->pr_nlwp;
5157 5178
5158 5179 if (buf == NULL && nbytes == 0)
5159 5180 return (sizeof (lwpstatus_t) * nlwp);
5160 5181
5161 5182 if (nlwp == 0)
5162 5183 return (set_errno(ENODATA));
5163 5184
5164 5185 lsp = lbuf = mdb_alloc(sizeof (lwpstatus_t) * nlwp, UM_SLEEP);
5165 5186 nbytes = MIN(nbytes, sizeof (lwpstatus_t) * nlwp);
5166 5187
5167 5188 (void) Plwp_iter(t->t_pshandle, (proc_lwp_f *)pt_copy_lwp, &lsp);
5168 5189 bcopy(lbuf, buf, nbytes);
5169 5190
5170 5191 mdb_free(lbuf, sizeof (lwpstatus_t) * nlwp);
5171 5192 return (nbytes);
5172 5193 }
5173 5194
5174 5195 static ssize_t
5175 5196 pt_xd_pshandle(mdb_tgt_t *t, void *buf, size_t nbytes)
5176 5197 {
5177 5198 if (buf == NULL && nbytes == 0)
5178 5199 return (sizeof (struct ps_prochandle *));
5179 5200
5180 5201 if (t->t_pshandle == NULL || nbytes != sizeof (struct ps_prochandle *))
5181 5202 return (set_errno(ENODATA));
5182 5203
5183 5204 bcopy(&t->t_pshandle, buf, nbytes);
5184 5205 return (nbytes);
5185 5206 }
5186 5207
5187 5208 static ssize_t
5188 5209 pt_xd_psinfo(mdb_tgt_t *t, void *buf, size_t nbytes)
5189 5210 {
5190 5211 const psinfo_t *psp;
5191 5212
5192 5213 if (buf == NULL && nbytes == 0)
5193 5214 return (sizeof (psinfo_t));
5194 5215
5195 5216 if (t->t_pshandle == NULL || (psp = Ppsinfo(t->t_pshandle)) == NULL)
5196 5217 return (set_errno(ENODATA));
5197 5218
5198 5219 nbytes = MIN(nbytes, sizeof (psinfo_t));
5199 5220 bcopy(psp, buf, nbytes);
5200 5221 return (nbytes);
5201 5222 }
5202 5223
5203 5224 static ssize_t
5204 5225 pt_xd_pstatus(mdb_tgt_t *t, void *buf, size_t nbytes)
5205 5226 {
5206 5227 const pstatus_t *psp;
5207 5228
5208 5229 if (buf == NULL && nbytes == 0)
5209 5230 return (sizeof (pstatus_t));
5210 5231
5211 5232 if (t->t_pshandle == NULL || (psp = Pstatus(t->t_pshandle)) == NULL)
5212 5233 return (set_errno(ENODATA));
5213 5234
5214 5235 nbytes = MIN(nbytes, sizeof (pstatus_t));
5215 5236 bcopy(psp, buf, nbytes);
5216 5237 return (nbytes);
5217 5238 }
5218 5239
5219 5240 static ssize_t
5220 5241 pt_xd_utsname(mdb_tgt_t *t, void *buf, size_t nbytes)
5221 5242 {
5222 5243 struct utsname uts;
5223 5244
5224 5245 if (buf == NULL && nbytes == 0)
5225 5246 return (sizeof (struct utsname));
5226 5247
5227 5248 if (t->t_pshandle == NULL || Puname(t->t_pshandle, &uts) != 0)
5228 5249 return (set_errno(ENODATA));
5229 5250
5230 5251 nbytes = MIN(nbytes, sizeof (struct utsname));
5231 5252 bcopy(&uts, buf, nbytes);
5232 5253 return (nbytes);
5233 5254 }
5234 5255
5235 5256 int
5236 5257 mdb_proc_tgt_create(mdb_tgt_t *t, int argc, const char *argv[])
5237 5258 {
5238 5259 pt_data_t *pt = mdb_zalloc(sizeof (pt_data_t), UM_SLEEP);
5239 5260
5240 5261 const char *aout_path = argc > 0 ? argv[0] : PT_EXEC_PATH;
5241 5262 const char *core_path = argc > 1 ? argv[1] : NULL;
5242 5263
5243 5264 const mdb_tgt_regdesc_t *rdp;
5244 5265 char execname[MAXPATHLEN];
5245 5266 struct stat64 st;
5246 5267 int perr;
5247 5268 int state;
5248 5269 struct rlimit rlim;
5249 5270 int i;
5250 5271
5251 5272 if (argc > 2) {
5252 5273 mdb_free(pt, sizeof (pt_data_t));
5253 5274 return (set_errno(EINVAL));
5254 5275 }
5255 5276
5256 5277 if (t->t_flags & MDB_TGT_F_RDWR)
5257 5278 pt->p_oflags = O_RDWR;
5258 5279 else
5259 5280 pt->p_oflags = O_RDONLY;
5260 5281
5261 5282 if (t->t_flags & MDB_TGT_F_FORCE)
5262 5283 pt->p_gflags |= PGRAB_FORCE;
5263 5284 if (t->t_flags & MDB_TGT_F_NOSTOP)
5264 5285 pt->p_gflags |= PGRAB_NOSTOP;
5265 5286
5266 5287 pt->p_ptl_ops = &proc_lwp_ops;
5267 5288 pt->p_maxsig = sysconf(_SC_SIGRT_MAX);
5268 5289
5269 5290 (void) mdb_nv_create(&pt->p_regs, UM_SLEEP);
5270 5291 (void) mdb_nv_create(&pt->p_env, UM_SLEEP);
5271 5292
5272 5293 t->t_ops = &proc_ops;
5273 5294 t->t_data = pt;
5274 5295
5275 5296 /*
5276 5297 * If no core file name was specified, but the file ./core is present,
5277 5298 * infer that we want to debug it. I find this behavior confusing,
5278 5299 * so we only do this when precise adb(1) compatibility is required.
5279 5300 */
5280 5301 if (core_path == NULL && (mdb.m_flags & MDB_FL_ADB) &&
5281 5302 access(PT_CORE_PATH, F_OK) == 0)
5282 5303 core_path = PT_CORE_PATH;
5283 5304
5284 5305 /*
5285 5306 * For compatibility with adb(1), the special name "-" may be used
5286 5307 * to suppress the loading of the executable or core file.
5287 5308 */
5288 5309 if (aout_path != NULL && strcmp(aout_path, "-") == 0)
5289 5310 aout_path = NULL;
5290 5311 if (core_path != NULL && strcmp(core_path, "-") == 0)
5291 5312 core_path = NULL;
5292 5313
5293 5314 /*
5294 5315 * If a core file or pid was specified, attempt to grab it now using
5295 5316 * proc_arg_grab(); otherwise we'll create a fresh process later.
5296 5317 */
5297 5318 if (core_path != NULL && (t->t_pshandle = proc_arg_xgrab(core_path,
5298 5319 aout_path == PT_EXEC_PATH ? NULL : aout_path, PR_ARG_ANY,
5299 5320 pt->p_gflags, &perr, NULL)) == NULL) {
5300 5321 mdb_warn("cannot debug %s: %s\n", core_path, Pgrab_error(perr));
5301 5322 goto err;
5302 5323 }
5303 5324
5304 5325 if (aout_path != NULL &&
5305 5326 (pt->p_idlehandle = Pgrab_file(aout_path, &perr)) != NULL &&
5306 5327 t->t_pshandle == NULL)
5307 5328 t->t_pshandle = pt->p_idlehandle;
5308 5329
5309 5330 if (t->t_pshandle != NULL)
5310 5331 state = Pstate(t->t_pshandle);
5311 5332
5312 5333 /*
5313 5334 * Make sure we'll have enough file descriptors to handle a target
5314 5335 * has many many mappings.
5315 5336 */
5316 5337 if (getrlimit(RLIMIT_NOFILE, &rlim) == 0) {
5317 5338 rlim.rlim_cur = rlim.rlim_max;
5318 5339 (void) setrlimit(RLIMIT_NOFILE, &rlim);
5319 5340 (void) enable_extended_FILE_stdio(-1, -1);
5320 5341 }
5321 5342
5322 5343 /*
5323 5344 * If we don't have an executable path or the executable path is the
5324 5345 * /proc/<pid>/object/a.out path, but we now have a libproc handle,
5325 5346 * attempt to derive the executable path using Pexecname(). We need
5326 5347 * to do this in the /proc case in order to open the executable for
5327 5348 * writing because /proc/object/<file> permission are masked with 0555.
5328 5349 * If Pexecname() fails us, fall back to /proc/<pid>/object/a.out.
5329 5350 */
5330 5351 if (t->t_pshandle != NULL && (aout_path == NULL || (stat64(aout_path,
5331 5352 &st) == 0 && strcmp(st.st_fstype, "proc") == 0))) {
5332 5353 GElf_Sym s;
5333 5354 aout_path = Pexecname(t->t_pshandle, execname, MAXPATHLEN);
5334 5355 if (aout_path == NULL && state != PS_DEAD && state != PS_IDLE) {
5335 5356 (void) mdb_iob_snprintf(execname, sizeof (execname),
5336 5357 "/proc/%d/object/a.out",
5337 5358 (int)Pstatus(t->t_pshandle)->pr_pid);
5338 5359 aout_path = execname;
5339 5360 }
5340 5361 if (aout_path == NULL &&
5341 5362 Plookup_by_name(t->t_pshandle, "a.out", "_start", &s) != 0)
5342 5363 mdb_warn("warning: failed to infer pathname to "
5343 5364 "executable; symbol table will not be available\n");
5344 5365
5345 5366 mdb_dprintf(MDB_DBG_TGT, "a.out is %s\n", aout_path);
5346 5367 }
5347 5368
5348 5369 /*
5349 5370 * Attempt to open the executable file. We only want this operation
5350 5371 * to actually cause the constructor to abort if the executable file
5351 5372 * name was given explicitly. If we defaulted to PT_EXEC_PATH or
5352 5373 * derived the executable using Pexecname, then we want to continue
5353 5374 * along with p_fio and p_file set to NULL.
5354 5375 */
5355 5376 if (aout_path != NULL && (pt->p_aout_fio = mdb_fdio_create_path(NULL,
5356 5377 aout_path, pt->p_oflags, 0)) == NULL && argc > 0) {
5357 5378 mdb_warn("failed to open %s", aout_path);
5358 5379 goto err;
5359 5380 }
5360 5381
5361 5382 /*
5362 5383 * Now create an ELF file from the input file, if we have one. Again,
5363 5384 * only abort the constructor if the name was given explicitly.
5364 5385 */
5365 5386 if (pt->p_aout_fio != NULL && pt_open_aout(t,
5366 5387 mdb_io_hold(pt->p_aout_fio)) == NULL && argc > 0)
5367 5388 goto err;
5368 5389
5369 5390 /*
5370 5391 * If we've successfully opened an ELF file, select the appropriate
5371 5392 * disassembler based on the ELF header.
5372 5393 */
5373 5394 if (pt->p_file != NULL)
5374 5395 (void) mdb_dis_select(pt_disasm(&pt->p_file->gf_ehdr));
5375 5396 else
5376 5397 (void) mdb_dis_select(pt_disasm(NULL));
5377 5398
5378 5399 /*
5379 5400 * Add each register described in the target ISA register description
5380 5401 * list to our hash table of register descriptions and then add any
5381 5402 * appropriate ISA-specific floating-point register descriptions.
5382 5403 */
5383 5404 for (rdp = pt_regdesc; rdp->rd_name != NULL; rdp++) {
5384 5405 (void) mdb_nv_insert(&pt->p_regs, rdp->rd_name, NULL,
5385 5406 MDB_TGT_R_NVAL(rdp->rd_num, rdp->rd_flags), MDB_NV_RDONLY);
5386 5407 }
5387 5408 pt_addfpregs(t);
5388 5409
5389 5410 /*
5390 5411 * Certain important /proc structures may be of interest to mdb
5391 5412 * modules and their dcmds. Export these using the xdata interface:
5392 5413 */
5393 5414 (void) mdb_tgt_xdata_insert(t, "auxv",
5394 5415 "procfs auxv_t array", pt_xd_auxv);
5395 5416 (void) mdb_tgt_xdata_insert(t, "cred",
5396 5417 "procfs prcred_t structure", pt_xd_cred);
5397 5418 (void) mdb_tgt_xdata_insert(t, "ehdr",
5398 5419 "executable file GElf_Ehdr structure", pt_xd_ehdr);
5399 5420 (void) mdb_tgt_xdata_insert(t, "lwpstatus",
5400 5421 "procfs lwpstatus_t array", pt_xd_lwpstatus);
5401 5422 (void) mdb_tgt_xdata_insert(t, "pshandle",
5402 5423 "libproc proc service API handle", pt_xd_pshandle);
5403 5424 (void) mdb_tgt_xdata_insert(t, "psinfo",
5404 5425 "procfs psinfo_t structure", pt_xd_psinfo);
5405 5426 (void) mdb_tgt_xdata_insert(t, "pstatus",
5406 5427 "procfs pstatus_t structure", pt_xd_pstatus);
5407 5428 (void) mdb_tgt_xdata_insert(t, "utsname",
5408 5429 "utsname structure", pt_xd_utsname);
5409 5430
5410 5431 /*
5411 5432 * Force a status update now so that we fill in t_status with the
5412 5433 * latest information based on any successful grab.
5413 5434 */
5414 5435 (void) mdb_tgt_status(t, &t->t_status);
5415 5436
5416 5437 /*
5417 5438 * If we're not examining a core file, trace SIGINT and all signals
5418 5439 * that cause the process to dump core as part of our initialization.
5419 5440 */
5420 5441 if ((t->t_pshandle != NULL && state != PS_DEAD && state != PS_IDLE) ||
5421 5442 (pt->p_file != NULL && pt->p_file->gf_ehdr.e_type == ET_EXEC)) {
5422 5443
5423 5444 int tflag = MDB_TGT_SPEC_STICKY; /* default sigs are sticky */
5424 5445
5425 5446 (void) mdb_tgt_add_signal(t, SIGINT, tflag, no_se_f, NULL);
5426 5447 (void) mdb_tgt_add_signal(t, SIGQUIT, tflag, no_se_f, NULL);
5427 5448 (void) mdb_tgt_add_signal(t, SIGILL, tflag, no_se_f, NULL);
5428 5449 (void) mdb_tgt_add_signal(t, SIGTRAP, tflag, no_se_f, NULL);
5429 5450 (void) mdb_tgt_add_signal(t, SIGABRT, tflag, no_se_f, NULL);
5430 5451 (void) mdb_tgt_add_signal(t, SIGEMT, tflag, no_se_f, NULL);
5431 5452 (void) mdb_tgt_add_signal(t, SIGFPE, tflag, no_se_f, NULL);
5432 5453 (void) mdb_tgt_add_signal(t, SIGBUS, tflag, no_se_f, NULL);
5433 5454 (void) mdb_tgt_add_signal(t, SIGSEGV, tflag, no_se_f, NULL);
5434 5455 (void) mdb_tgt_add_signal(t, SIGSYS, tflag, no_se_f, NULL);
5435 5456 (void) mdb_tgt_add_signal(t, SIGXCPU, tflag, no_se_f, NULL);
5436 5457 (void) mdb_tgt_add_signal(t, SIGXFSZ, tflag, no_se_f, NULL);
5437 5458 }
5438 5459
5439 5460 /*
5440 5461 * If we've grabbed a live process, establish our initial breakpoints
5441 5462 * and librtld_db agent so we can track rtld activity. If FL_VCREATE
5442 5463 * is set, this process was created by a previous instantiation of
5443 5464 * the debugger, so reset pr_flags to kill it; otherwise we attached
5444 5465 * to an already running process. Pgrab() has already set the PR_RLC
5445 5466 * flag appropriately based on whether the process was stopped when we
5446 5467 * attached.
5447 5468 */
5448 5469 if (t->t_pshandle != NULL && state != PS_DEAD && state != PS_IDLE) {
5449 5470 if (mdb.m_flags & MDB_FL_VCREATE) {
5450 5471 (void) Punsetflags(t->t_pshandle, PR_RLC);
5451 5472 (void) Psetflags(t->t_pshandle, PR_KLC);
5452 5473 pt->p_rflags = PRELEASE_KILL;
5453 5474 } else {
5454 5475 (void) Punsetflags(t->t_pshandle, PR_KLC);
5455 5476 }
5456 5477 pt_post_attach(t);
5457 5478 }
5458 5479
5459 5480 /*
5460 5481 * Initialize a local copy of the environment, which can be modified
5461 5482 * before running the program.
5462 5483 */
5463 5484 for (i = 0; mdb.m_env[i] != NULL; i++)
5464 5485 pt_env_set(pt, mdb.m_env[i]);
5465 5486
5466 5487 /*
5467 5488 * If adb(1) compatibility mode is on, then print the appropriate
5468 5489 * greeting message if we have grabbed a core file.
5469 5490 */
5470 5491 if ((mdb.m_flags & MDB_FL_ADB) && t->t_pshandle != NULL &&
5471 5492 state == PS_DEAD) {
5472 5493 const pstatus_t *psp = Pstatus(t->t_pshandle);
5473 5494 int cursig = psp->pr_lwp.pr_cursig;
5474 5495 char signame[SIG2STR_MAX];
5475 5496
5476 5497 mdb_printf("core file = %s -- program ``%s'' on platform %s\n",
5477 5498 core_path, aout_path ? aout_path : "?", pt_platform(t));
5478 5499
5479 5500 if (cursig != 0 && sig2str(cursig, signame) == 0)
5480 5501 mdb_printf("SIG%s: %s\n", signame, strsignal(cursig));
5481 5502 }
5482 5503
5483 5504 return (0);
5484 5505
5485 5506 err:
5486 5507 pt_destroy(t);
5487 5508 return (-1);
5488 5509 }
↓ open down ↓ |
4141 lines elided |
↑ open up ↑ |
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX