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