| 1 | /* Convex stuff for GDB. |
| 2 | Copyright (C) 1990-1991 Free Software Foundation, Inc. |
| 3 | |
| 4 | This file is part of GDB. |
| 5 | |
| 6 | This program is free software; you can redistribute it and/or modify |
| 7 | it under the terms of the GNU General Public License as published by |
| 8 | the Free Software Foundation; either version 2 of the License, or |
| 9 | (at your option) any later version. |
| 10 | |
| 11 | This program is distributed in the hope that it will be useful, |
| 12 | but WITHOUT ANY WARRANTY; without even the implied warranty of |
| 13 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| 14 | GNU General Public License for more details. |
| 15 | |
| 16 | You should have received a copy of the GNU General Public License |
| 17 | along with this program; if not, write to the Free Software |
| 18 | Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ |
| 19 | |
| 20 | #include "defs.h" |
| 21 | #include "command.h" |
| 22 | #include "symtab.h" |
| 23 | #include "value.h" |
| 24 | #include "frame.h" |
| 25 | #include "inferior.h" |
| 26 | #include "wait.h" |
| 27 | |
| 28 | #include <signal.h> |
| 29 | #include <fcntl.h> |
| 30 | #include "gdbcore.h" |
| 31 | |
| 32 | #include <sys/param.h> |
| 33 | #include <sys/dir.h> |
| 34 | #include <sys/user.h> |
| 35 | #include <sys/ioctl.h> |
| 36 | #include <sys/pcntl.h> |
| 37 | #include <sys/thread.h> |
| 38 | #include <sys/proc.h> |
| 39 | #include <sys/file.h> |
| 40 | #include <sys/stat.h> |
| 41 | #include <sys/mman.h> |
| 42 | |
| 43 | #include <convex/vmparam.h> |
| 44 | #include <convex/filehdr.h> |
| 45 | #include <convex/opthdr.h> |
| 46 | #include <convex/scnhdr.h> |
| 47 | #include <convex/core.h> |
| 48 | |
| 49 | /* Per-thread data, read from the inferior at each stop and written |
| 50 | back at each resume. */ |
| 51 | |
| 52 | /* Number of active threads. |
| 53 | Tables are valid for thread numbers less than this. */ |
| 54 | |
| 55 | static int n_threads; |
| 56 | |
| 57 | #define MAXTHREADS 8 |
| 58 | |
| 59 | /* Thread state. The remaining data is valid only if this is PI_TALIVE. */ |
| 60 | |
| 61 | static int thread_state[MAXTHREADS]; |
| 62 | |
| 63 | /* Stop pc, signal, signal subcode */ |
| 64 | |
| 65 | static int thread_pc[MAXTHREADS]; |
| 66 | static int thread_signal[MAXTHREADS]; |
| 67 | static int thread_sigcode[MAXTHREADS]; |
| 68 | |
| 69 | /* Thread registers. |
| 70 | If thread is selected, the regs are in registers[] instead. */ |
| 71 | |
| 72 | static char thread_regs[MAXTHREADS][REGISTER_BYTES]; |
| 73 | |
| 74 | /* 1 if the top frame on the thread's stack was a context frame, |
| 75 | meaning that the kernel is up to something and we should not |
| 76 | touch the thread at all except to resume it. */ |
| 77 | |
| 78 | static char thread_is_in_kernel[MAXTHREADS]; |
| 79 | |
| 80 | /* The currently selected thread's number. */ |
| 81 | |
| 82 | static int inferior_thread; |
| 83 | |
| 84 | /* Inferior process's file handle and a process control block |
| 85 | to feed args to ioctl with. */ |
| 86 | |
| 87 | static int inferior_fd; |
| 88 | static struct pcntl ps; |
| 89 | |
| 90 | /* SOFF file headers for exec or core file. */ |
| 91 | |
| 92 | static FILEHDR filehdr; |
| 93 | static OPTHDR opthdr; |
| 94 | static SCNHDR scnhdr; |
| 95 | |
| 96 | /* Address maps constructed from section headers of exec and core files. |
| 97 | Defines process address -> file address translation. */ |
| 98 | |
| 99 | struct pmap |
| 100 | { |
| 101 | long mem_addr; /* process start address */ |
| 102 | long mem_end; /* process end+1 address */ |
| 103 | long file_addr; /* file start address */ |
| 104 | long thread; /* -1 shared; 0,1,... thread-local */ |
| 105 | long type; /* S_TEXT S_DATA S_BSS S_TBSS etc */ |
| 106 | long which; /* used to sort map for info files */ |
| 107 | }; |
| 108 | |
| 109 | static int n_exec, n_core; |
| 110 | static struct pmap exec_map[100]; |
| 111 | static struct pmap core_map[100]; |
| 112 | |
| 113 | /* Offsets in the core file of core_context and core_tcontext blocks. */ |
| 114 | |
| 115 | static int context_offset; |
| 116 | static int tcontext_offset[MAXTHREADS]; |
| 117 | |
| 118 | /* Core file control blocks. */ |
| 119 | |
| 120 | static struct core_context_v70 c; |
| 121 | static struct core_tcontext_v70 tc; |
| 122 | static struct user u; |
| 123 | static thread_t th; |
| 124 | static proc_t pr; |
| 125 | |
| 126 | /* The registers of the currently selected thread. */ |
| 127 | |
| 128 | extern char registers[REGISTER_BYTES]; |
| 129 | |
| 130 | /* Vector and communication registers from core dump or from inferior. |
| 131 | These are read on demand, ie, not normally valid. */ |
| 132 | |
| 133 | static struct vecst vector_registers; |
| 134 | static struct creg_ctx comm_registers; |
| 135 | |
| 136 | /* Flag, set on a vanilla CONT command and cleared when the inferior |
| 137 | is continued. */ |
| 138 | |
| 139 | static int all_continue; |
| 140 | |
| 141 | /* Flag, set when the inferior is continued by a vanilla CONT command, |
| 142 | cleared if it is continued for any other purpose. */ |
| 143 | |
| 144 | static int thread_switch_ok; |
| 145 | |
| 146 | /* Stack of signals recieved from threads but not yet delivered to gdb. */ |
| 147 | |
| 148 | struct threadpid |
| 149 | { |
| 150 | int pid; |
| 151 | int thread; |
| 152 | int signo; |
| 153 | int subsig; |
| 154 | int pc; |
| 155 | }; |
| 156 | |
| 157 | static struct threadpid signal_stack_bot[100]; |
| 158 | static struct threadpid *signal_stack = signal_stack_bot; |
| 159 | |
| 160 | /* How to detect empty stack -- bottom frame is all zero. */ |
| 161 | |
| 162 | #define signal_stack_is_empty() (signal_stack->pid == 0) |
| 163 | |
| 164 | /* Mode controlled by SET PIPE command, controls the psw SEQ bit |
| 165 | which forces each instruction to complete before the next one starts. */ |
| 166 | |
| 167 | static int sequential = 0; |
| 168 | |
| 169 | /* Mode controlled by the SET PARALLEL command. Values are: |
| 170 | 0 concurrency limit 1 thread, dynamic scheduling |
| 171 | 1 no concurrency limit, dynamic scheduling |
| 172 | 2 no concurrency limit, fixed scheduling */ |
| 173 | |
| 174 | static int parallel = 1; |
| 175 | |
| 176 | /* Mode controlled by SET BASE command, output radix for unformatted |
| 177 | integer typeout, as in argument lists, aggregates, and so on. |
| 178 | Zero means guess whether it's an address (hex) or not (decimal). */ |
| 179 | |
| 180 | static int output_radix = 0; |
| 181 | |
| 182 | /* Signal subcode at last thread stop. */ |
| 183 | |
| 184 | static int stop_sigcode; |
| 185 | |
| 186 | /* Hack, see wait() below. */ |
| 187 | |
| 188 | static int exec_trap_timer; |
| 189 | |
| 190 | #include "gdbcmd.h" |
| 191 | |
| 192 | /* Nonzero if we are debugging an attached outside process |
| 193 | rather than an inferior. */ |
| 194 | |
| 195 | extern int attach_flag; |
| 196 | |
| 197 | |
| 198 | |
| 199 | static struct type *vector_type (); |
| 200 | static long *read_vector_register (); |
| 201 | static long *read_vector_register_1 (); |
| 202 | static void write_vector_register (); |
| 203 | static REGISTER_TYPE read_comm_register (); |
| 204 | static void write_comm_register (); |
| 205 | static void convex_cont_command (); |
| 206 | static void thread_continue (); |
| 207 | static void select_thread (); |
| 208 | static void scan_stack (); |
| 209 | static void set_fixed_scheduling (); |
| 210 | static char *subsig_name (); |
| 211 | static void psw_info (); |
| 212 | static sig_noop (); |
| 213 | static ptr_cmp (); |
| 214 | |
| 215 | \f |
| 216 | /* Execute ptrace. Convex V7 replaced ptrace with pattach. |
| 217 | Allow ptrace (0) as a no-op. */ |
| 218 | |
| 219 | int |
| 220 | call_ptrace (request, pid, procaddr, buf) |
| 221 | int request, pid; |
| 222 | PTRACE_ARG3_TYPE procaddr; |
| 223 | int buf; |
| 224 | { |
| 225 | if (request == 0) |
| 226 | return; |
| 227 | error ("no ptrace"); |
| 228 | } |
| 229 | |
| 230 | /* Replacement for system execle routine. |
| 231 | Convert it to an equivalent exect, which pattach insists on. */ |
| 232 | |
| 233 | execle (name, argv) |
| 234 | char *name, *argv; |
| 235 | { |
| 236 | char ***envp = (char ***) &argv; |
| 237 | while (*envp++) ; |
| 238 | |
| 239 | signal (SIGTRAP, sig_noop); |
| 240 | exect (name, &argv, *envp); |
| 241 | } |
| 242 | |
| 243 | /* Stupid handler for stupid trace trap that otherwise causes |
| 244 | startup to stupidly hang. */ |
| 245 | |
| 246 | static sig_noop () |
| 247 | {} |
| 248 | |
| 249 | /* Read registers from inferior into registers[] array. |
| 250 | For convex, they are already there, read in when the inferior stops. */ |
| 251 | |
| 252 | void |
| 253 | fetch_inferior_registers (regno) |
| 254 | int regno; |
| 255 | { |
| 256 | } |
| 257 | |
| 258 | /* Store our register values back into the inferior. |
| 259 | For Convex, do this only once, right before resuming inferior. */ |
| 260 | |
| 261 | void |
| 262 | store_inferior_registers (regno) |
| 263 | int regno; |
| 264 | { |
| 265 | } |
| 266 | |
| 267 | /* Copy LEN bytes from inferior's memory starting at MEMADDR |
| 268 | to debugger memory starting at MYADDR. |
| 269 | On failure (cannot read from inferior, usually because address is out |
| 270 | of bounds) returns the value of errno. */ |
| 271 | |
| 272 | int |
| 273 | read_inferior_memory (memaddr, myaddr, len) |
| 274 | CORE_ADDR memaddr; |
| 275 | char *myaddr; |
| 276 | int len; |
| 277 | { |
| 278 | errno = 0; |
| 279 | while (len > 0) |
| 280 | { |
| 281 | /* little-known undocumented max request size */ |
| 282 | int i = (len < 12288) ? len : 12288; |
| 283 | |
| 284 | lseek (inferior_fd, memaddr, 0); |
| 285 | read (inferior_fd, myaddr, i); |
| 286 | |
| 287 | memaddr += i; |
| 288 | myaddr += i; |
| 289 | len -= i; |
| 290 | } |
| 291 | if (errno) |
| 292 | bzero (myaddr, len); |
| 293 | return errno; |
| 294 | } |
| 295 | |
| 296 | /* Copy LEN bytes of data from debugger memory at MYADDR |
| 297 | to inferior's memory at MEMADDR. |
| 298 | Returns errno on failure (cannot write the inferior) */ |
| 299 | |
| 300 | int |
| 301 | write_inferior_memory (memaddr, myaddr, len) |
| 302 | CORE_ADDR memaddr; |
| 303 | char *myaddr; |
| 304 | int len; |
| 305 | { |
| 306 | errno = 0; |
| 307 | lseek (inferior_fd, memaddr, 0); |
| 308 | write (inferior_fd, myaddr, len); |
| 309 | return errno; |
| 310 | } |
| 311 | |
| 312 | /* Here from create_inferior when the inferior process has been created |
| 313 | and started up. We must do a pattach to grab it for debugging. |
| 314 | |
| 315 | Also, intercept the CONT command by altering its dispatch address. */ |
| 316 | |
| 317 | create_inferior_hook (pid) |
| 318 | int pid; |
| 319 | { |
| 320 | static char cont[] = "cont"; |
| 321 | static char cont1[] = "c"; |
| 322 | char *linep = cont; |
| 323 | char *linep1 = cont1; |
| 324 | char **line = &linep; |
| 325 | char **line1 = &linep1; |
| 326 | struct cmd_list_element *c; |
| 327 | |
| 328 | c = lookup_cmd (line, cmdlist, "", 0); |
| 329 | c->function = convex_cont_command; |
| 330 | c = lookup_cmd (line1, cmdlist, "", 0); |
| 331 | c->function = convex_cont_command; |
| 332 | |
| 333 | inferior_fd = pattach (pid, O_EXCL); |
| 334 | if (inferior_fd < 0) |
| 335 | perror_with_name ("pattach"); |
| 336 | inferior_thread = 0; |
| 337 | set_fixed_scheduling (pid, parallel == 2); |
| 338 | } |
| 339 | |
| 340 | /* Attach process PID for debugging. */ |
| 341 | |
| 342 | attach (pid) |
| 343 | int pid; |
| 344 | { |
| 345 | int fd = pattach (pid, O_EXCL); |
| 346 | if (fd < 0) |
| 347 | perror_with_name ("pattach"); |
| 348 | attach_flag = 1; |
| 349 | /* wait for strange kernel reverberations to go away */ |
| 350 | sleep (1); |
| 351 | |
| 352 | setpgrp (pid, pid); |
| 353 | |
| 354 | inferior_fd = fd; |
| 355 | inferior_thread = 0; |
| 356 | return pid; |
| 357 | } |
| 358 | |
| 359 | /* Stop debugging the process whose number is PID |
| 360 | and continue it with signal number SIGNAL. |
| 361 | SIGNAL = 0 means just continue it. */ |
| 362 | |
| 363 | void |
| 364 | detach (signal) |
| 365 | int signal; |
| 366 | { |
| 367 | signal_stack = signal_stack_bot; |
| 368 | thread_continue (-1, 0, signal); |
| 369 | ioctl (inferior_fd, PIXDETACH, &ps); |
| 370 | close (inferior_fd); |
| 371 | inferior_fd = 0; |
| 372 | attach_flag = 0; |
| 373 | } |
| 374 | |
| 375 | /* Kill off the inferior process. */ |
| 376 | |
| 377 | kill_inferior () |
| 378 | { |
| 379 | if (inferior_pid == 0) |
| 380 | return; |
| 381 | ioctl (inferior_fd, PIXTERMINATE, 0); |
| 382 | wait (0); |
| 383 | target_mourn_inferior (); |
| 384 | } |
| 385 | |
| 386 | /* This is used when GDB is exiting. It gives less chance of error.*/ |
| 387 | |
| 388 | kill_inferior_fast () |
| 389 | { |
| 390 | if (inferior_pid == 0) |
| 391 | return; |
| 392 | ioctl (inferior_fd, PIXTERMINATE, 0); |
| 393 | wait (0); |
| 394 | } |
| 395 | |
| 396 | /* Read vector register REG, and return a pointer to the value. */ |
| 397 | |
| 398 | static long * |
| 399 | read_vector_register (reg) |
| 400 | int reg; |
| 401 | { |
| 402 | if (have_inferior_p ()) |
| 403 | { |
| 404 | errno = 0; |
| 405 | ps.pi_buffer = (char *) &vector_registers; |
| 406 | ps.pi_nbytes = sizeof vector_registers; |
| 407 | ps.pi_offset = 0; |
| 408 | ps.pi_thread = inferior_thread; |
| 409 | ioctl (inferior_fd, PIXRDVREGS, &ps); |
| 410 | if (errno) |
| 411 | bzero (&vector_registers, sizeof vector_registers); |
| 412 | } |
| 413 | else if (corechan >= 0) |
| 414 | { |
| 415 | lseek (corechan, tcontext_offset[inferior_thread], 0); |
| 416 | if (myread (corechan, &tc, sizeof tc) < 0) |
| 417 | perror_with_name (corefile); |
| 418 | lseek (corechan, tc.core_thread_p, 0); |
| 419 | if (myread (corechan, &th, sizeof th) < 0) |
| 420 | perror_with_name (corefile); |
| 421 | lseek (corechan, tc.core_vregs_p, 0); |
| 422 | if (myread (corechan, &vector_registers, 16*128) < 0) |
| 423 | perror_with_name (corefile); |
| 424 | vector_registers.vm[0] = th.t_vect_ctx.vc_vm[0]; |
| 425 | vector_registers.vm[1] = th.t_vect_ctx.vc_vm[1]; |
| 426 | vector_registers.vls = th.t_vect_ctx.vc_vls; |
| 427 | } |
| 428 | |
| 429 | return read_vector_register_1 (reg); |
| 430 | } |
| 431 | |
| 432 | /* Return a pointer to vector register REG, which must already have been |
| 433 | fetched from the inferior or core file. */ |
| 434 | |
| 435 | static long * |
| 436 | read_vector_register_1 (reg) |
| 437 | int reg; |
| 438 | { |
| 439 | switch (reg) |
| 440 | { |
| 441 | case VM_REGNUM: |
| 442 | return (long *) vector_registers.vm; |
| 443 | case VS_REGNUM: |
| 444 | return (long *) &vector_registers.vls; |
| 445 | case VL_REGNUM: |
| 446 | return 1 + (long *) &vector_registers.vls; |
| 447 | default: |
| 448 | return (long *) &vector_registers.vr[reg]; |
| 449 | } |
| 450 | } |
| 451 | |
| 452 | /* Write vector register REG, element ELEMENT, new value VAL. |
| 453 | NB: must use read-modify-write on the entire vector state, |
| 454 | since pattach does not do offsetted writes correctly. */ |
| 455 | |
| 456 | static void |
| 457 | write_vector_register (reg, element, val) |
| 458 | int reg, element; |
| 459 | REGISTER_TYPE val; |
| 460 | { |
| 461 | if (have_inferior_p ()) |
| 462 | { |
| 463 | errno = 0; |
| 464 | ps.pi_thread = inferior_thread; |
| 465 | ps.pi_offset = 0; |
| 466 | ps.pi_buffer = (char *) &vector_registers; |
| 467 | ps.pi_nbytes = sizeof vector_registers; |
| 468 | |
| 469 | ioctl (inferior_fd, PIXRDVREGS, &ps); |
| 470 | |
| 471 | switch (reg) |
| 472 | { |
| 473 | case VL_REGNUM: |
| 474 | vector_registers.vls = |
| 475 | (vector_registers.vls & 0xffffffff00000000LL) |
| 476 | + (unsigned long) val; |
| 477 | break; |
| 478 | |
| 479 | case VS_REGNUM: |
| 480 | vector_registers.vls = |
| 481 | (val << 32) + (unsigned long) vector_registers.vls; |
| 482 | break; |
| 483 | |
| 484 | default: |
| 485 | vector_registers.vr[reg].el[element] = val; |
| 486 | break; |
| 487 | } |
| 488 | |
| 489 | ioctl (inferior_fd, PIXWRVREGS, &ps); |
| 490 | |
| 491 | if (errno) |
| 492 | perror_with_name ("writing vector register"); |
| 493 | } |
| 494 | } |
| 495 | |
| 496 | /* Return the contents of communication register NUM. */ |
| 497 | |
| 498 | static REGISTER_TYPE |
| 499 | read_comm_register (num) |
| 500 | int num; |
| 501 | { |
| 502 | if (have_inferior_p ()) |
| 503 | { |
| 504 | ps.pi_buffer = (char *) &comm_registers; |
| 505 | ps.pi_nbytes = sizeof comm_registers; |
| 506 | ps.pi_offset = 0; |
| 507 | ps.pi_thread = inferior_thread; |
| 508 | ioctl (inferior_fd, PIXRDCREGS, &ps); |
| 509 | } |
| 510 | return comm_registers.crreg.r4[num]; |
| 511 | } |
| 512 | |
| 513 | /* Store a new value VAL into communication register NUM. |
| 514 | NB: Must use read-modify-write on the whole comm register set |
| 515 | since pattach does not do offsetted writes correctly. */ |
| 516 | |
| 517 | static void |
| 518 | write_comm_register (num, val) |
| 519 | int num; |
| 520 | REGISTER_TYPE val; |
| 521 | { |
| 522 | if (have_inferior_p ()) |
| 523 | { |
| 524 | ps.pi_buffer = (char *) &comm_registers; |
| 525 | ps.pi_nbytes = sizeof comm_registers; |
| 526 | ps.pi_offset = 0; |
| 527 | ps.pi_thread = inferior_thread; |
| 528 | ioctl (inferior_fd, PIXRDCREGS, &ps); |
| 529 | comm_registers.crreg.r4[num] = val; |
| 530 | ioctl (inferior_fd, PIXWRCREGS, &ps); |
| 531 | } |
| 532 | } |
| 533 | |
| 534 | /* Resume execution of the inferior process. |
| 535 | If STEP is nonzero, single-step it. |
| 536 | If SIGNAL is nonzero, give it that signal. */ |
| 537 | |
| 538 | void |
| 539 | resume (step, signal) |
| 540 | int step; |
| 541 | int signal; |
| 542 | { |
| 543 | errno = 0; |
| 544 | if (step || signal) |
| 545 | thread_continue (inferior_thread, step, signal); |
| 546 | else |
| 547 | thread_continue (-1, 0, 0); |
| 548 | } |
| 549 | |
| 550 | /* Maybe resume some threads. |
| 551 | THREAD is which thread to resume, or -1 to resume them all. |
| 552 | STEP and SIGNAL are as in resume. |
| 553 | |
| 554 | Global variable ALL_CONTINUE is set when we are here to do a |
| 555 | `cont' command; otherwise we may be doing `finish' or a call or |
| 556 | something else that will not tolerate an automatic thread switch. |
| 557 | |
| 558 | If there are stopped threads waiting to deliver signals, and |
| 559 | ALL_CONTINUE, do not actually resume anything. gdb will do a wait |
| 560 | and see one of the stopped threads in the queue. */ |
| 561 | |
| 562 | static void |
| 563 | thread_continue (thread, step, signal) |
| 564 | int thread, step, signal; |
| 565 | { |
| 566 | int n; |
| 567 | |
| 568 | /* If we are to continue all threads, but not for the CONTINUE command, |
| 569 | pay no attention and continue only the selected thread. */ |
| 570 | |
| 571 | if (thread < 0 && ! all_continue) |
| 572 | thread = inferior_thread; |
| 573 | |
| 574 | /* If we are not stepping, we have now executed the continue part |
| 575 | of a CONTINUE command. */ |
| 576 | |
| 577 | if (! step) |
| 578 | all_continue = 0; |
| 579 | |
| 580 | /* Allow wait() to switch threads if this is an all-out continue. */ |
| 581 | |
| 582 | thread_switch_ok = thread < 0; |
| 583 | |
| 584 | /* If there are threads queued up, don't resume. */ |
| 585 | |
| 586 | if (thread_switch_ok && ! signal_stack_is_empty ()) |
| 587 | return; |
| 588 | |
| 589 | /* OK, do it. */ |
| 590 | |
| 591 | for (n = 0; n < n_threads; n++) |
| 592 | if (thread_state[n] == PI_TALIVE) |
| 593 | { |
| 594 | select_thread (n); |
| 595 | |
| 596 | if ((thread < 0 || n == thread) && ! thread_is_in_kernel[n]) |
| 597 | { |
| 598 | /* Blam the trace bits in the stack's saved psws to match |
| 599 | the desired step mode. This is required so that |
| 600 | single-stepping a return doesn't restore a psw with a |
| 601 | clear trace bit and fly away, and conversely, |
| 602 | proceeding through a return in a routine that was |
| 603 | stepped into doesn't cause a phantom break by restoring |
| 604 | a psw with the trace bit set. */ |
| 605 | scan_stack (PSW_T_BIT, step); |
| 606 | scan_stack (PSW_S_BIT, sequential); |
| 607 | } |
| 608 | |
| 609 | ps.pi_buffer = registers; |
| 610 | ps.pi_nbytes = REGISTER_BYTES; |
| 611 | ps.pi_offset = 0; |
| 612 | ps.pi_thread = n; |
| 613 | if (! thread_is_in_kernel[n]) |
| 614 | if (ioctl (inferior_fd, PIXWRREGS, &ps)) |
| 615 | perror_with_name ("PIXWRREGS"); |
| 616 | |
| 617 | if (thread < 0 || n == thread) |
| 618 | { |
| 619 | ps.pi_pc = 1; |
| 620 | ps.pi_signo = signal; |
| 621 | if (ioctl (inferior_fd, step ? PIXSTEP : PIXCONTINUE, &ps) < 0) |
| 622 | perror_with_name ("PIXCONTINUE"); |
| 623 | } |
| 624 | } |
| 625 | |
| 626 | if (ioctl (inferior_fd, PIXRUN, &ps) < 0) |
| 627 | perror_with_name ("PIXRUN"); |
| 628 | } |
| 629 | |
| 630 | /* Replacement for system wait routine. |
| 631 | |
| 632 | The system wait returns with one or more threads stopped by |
| 633 | signals. Put stopped threads on a stack and return them one by |
| 634 | one, so that it appears that wait returns one thread at a time. |
| 635 | |
| 636 | Global variable THREAD_SWITCH_OK is set when gdb can tolerate wait |
| 637 | returning a new thread. If it is false, then only one thread is |
| 638 | running; we will do a real wait, the thread will do something, and |
| 639 | we will return that. */ |
| 640 | |
| 641 | pid_t |
| 642 | wait (w) |
| 643 | union wait *w; |
| 644 | { |
| 645 | int pid; |
| 646 | |
| 647 | if (!w) |
| 648 | return wait3 (0, 0, 0); |
| 649 | |
| 650 | /* Do a real wait if we were told to, or if there are no queued threads. */ |
| 651 | |
| 652 | if (! thread_switch_ok || signal_stack_is_empty ()) |
| 653 | { |
| 654 | int thread; |
| 655 | |
| 656 | pid = wait3 (w, 0, 0); |
| 657 | |
| 658 | if (!WIFSTOPPED (*w) || pid != inferior_pid) |
| 659 | return pid; |
| 660 | |
| 661 | /* The inferior has done something and stopped. Read in all the |
| 662 | threads' registers, and queue up any signals that happened. */ |
| 663 | |
| 664 | if (ioctl (inferior_fd, PIXGETTHCOUNT, &ps) < 0) |
| 665 | perror_with_name ("PIXGETTHCOUNT"); |
| 666 | |
| 667 | n_threads = ps.pi_othdcnt; |
| 668 | for (thread = 0; thread < n_threads; thread++) |
| 669 | { |
| 670 | ps.pi_thread = thread; |
| 671 | if (ioctl (inferior_fd, PIXGETSUBCODE, &ps) < 0) |
| 672 | perror_with_name ("PIXGETSUBCODE"); |
| 673 | thread_state[thread] = ps.pi_otstate; |
| 674 | |
| 675 | if (ps.pi_otstate == PI_TALIVE) |
| 676 | { |
| 677 | select_thread (thread); |
| 678 | ps.pi_buffer = registers; |
| 679 | ps.pi_nbytes = REGISTER_BYTES; |
| 680 | ps.pi_offset = 0; |
| 681 | ps.pi_thread = thread; |
| 682 | if (ioctl (inferior_fd, PIXRDREGS, &ps) < 0) |
| 683 | perror_with_name ("PIXRDREGS"); |
| 684 | |
| 685 | registers_fetched (); |
| 686 | |
| 687 | thread_pc[thread] = read_pc (); |
| 688 | thread_signal[thread] = ps.pi_osigno; |
| 689 | thread_sigcode[thread] = ps.pi_osigcode; |
| 690 | |
| 691 | /* If the thread's stack has a context frame |
| 692 | on top, something fucked is going on. I do not |
| 693 | know what, but do I know this: the only thing you |
| 694 | can do with such a thread is continue it. */ |
| 695 | |
| 696 | thread_is_in_kernel[thread] = |
| 697 | ((read_register (PS_REGNUM) >> 25) & 3) == 0; |
| 698 | |
| 699 | /* Signals push an extended frame and then fault |
| 700 | with a ridiculous pc. Pop the frame. */ |
| 701 | |
| 702 | if (thread_pc[thread] > STACK_END_ADDR) |
| 703 | { |
| 704 | POP_FRAME; |
| 705 | if (is_break_pc (thread_pc[thread])) |
| 706 | thread_pc[thread] = read_pc () - 2; |
| 707 | else |
| 708 | thread_pc[thread] = read_pc (); |
| 709 | write_register (PC_REGNUM, thread_pc[thread]); |
| 710 | } |
| 711 | |
| 712 | if (ps.pi_osigno || ps.pi_osigcode) |
| 713 | { |
| 714 | signal_stack++; |
| 715 | signal_stack->pid = pid; |
| 716 | signal_stack->thread = thread; |
| 717 | signal_stack->signo = thread_signal[thread]; |
| 718 | signal_stack->subsig = thread_sigcode[thread]; |
| 719 | signal_stack->pc = thread_pc[thread]; |
| 720 | } |
| 721 | |
| 722 | /* The following hackery is caused by a unix 7.1 feature: |
| 723 | the inferior's fixed scheduling mode is cleared when |
| 724 | it execs the shell (since the shell is not a parallel |
| 725 | program). So, note the 5.4 trap we get when |
| 726 | the shell does its exec, then catch the 5.0 trap |
| 727 | that occurs when the debuggee starts, and set fixed |
| 728 | scheduling mode properly. */ |
| 729 | |
| 730 | if (ps.pi_osigno == 5 && ps.pi_osigcode == 4) |
| 731 | exec_trap_timer = 1; |
| 732 | else |
| 733 | exec_trap_timer--; |
| 734 | |
| 735 | if (ps.pi_osigno == 5 && exec_trap_timer == 0) |
| 736 | set_fixed_scheduling (pid, parallel == 2); |
| 737 | } |
| 738 | } |
| 739 | |
| 740 | if (signal_stack_is_empty ()) |
| 741 | error ("no active threads?!"); |
| 742 | } |
| 743 | |
| 744 | /* Select the thread that stopped, and return *w saying why. */ |
| 745 | |
| 746 | select_thread (signal_stack->thread); |
| 747 | |
| 748 | stop_signal = signal_stack->signo; |
| 749 | stop_sigcode = signal_stack->subsig; |
| 750 | |
| 751 | WSETSTOP (*w, signal_stack->signo); |
| 752 | w->w_thread = signal_stack->thread; |
| 753 | return (signal_stack--)->pid; |
| 754 | } |
| 755 | |
| 756 | /* Select thread THREAD -- its registers, stack, per-thread memory. |
| 757 | This is the only routine that may assign to inferior_thread |
| 758 | or thread_regs[]. */ |
| 759 | |
| 760 | static void |
| 761 | select_thread (thread) |
| 762 | int thread; |
| 763 | { |
| 764 | if (thread == inferior_thread) |
| 765 | return; |
| 766 | |
| 767 | bcopy (registers, thread_regs[inferior_thread], REGISTER_BYTES); |
| 768 | ps.pi_thread = inferior_thread = thread; |
| 769 | if (have_inferior_p ()) |
| 770 | ioctl (inferior_fd, PISETRWTID, &ps); |
| 771 | bcopy (thread_regs[thread], registers, REGISTER_BYTES); |
| 772 | } |
| 773 | |
| 774 | /* Routine to set or clear a psw bit in the psw and also all psws |
| 775 | saved on the stack. Quits when we get to a frame in which the |
| 776 | saved psw is correct. */ |
| 777 | |
| 778 | static void |
| 779 | scan_stack (bit, val) |
| 780 | long bit, val; |
| 781 | { |
| 782 | long ps = read_register (PS_REGNUM); |
| 783 | long fp; |
| 784 | if (val ? !(ps & bit) : (ps & bit)) |
| 785 | { |
| 786 | ps ^= bit; |
| 787 | write_register (PS_REGNUM, ps); |
| 788 | |
| 789 | fp = read_register (FP_REGNUM); |
| 790 | while (fp & 0x80000000) |
| 791 | { |
| 792 | ps = read_memory_integer (fp + 4, 4); |
| 793 | if (val ? (ps & bit) : !(ps & bit)) |
| 794 | break; |
| 795 | ps ^= bit; |
| 796 | write_memory (fp + 4, &ps, 4); |
| 797 | fp = read_memory_integer (fp + 8, 4); |
| 798 | } |
| 799 | } |
| 800 | } |
| 801 | |
| 802 | /* Set fixed scheduling (alliant mode) of process PID to ARG (0 or 1). */ |
| 803 | |
| 804 | static void |
| 805 | set_fixed_scheduling (pid, arg) |
| 806 | int arg; |
| 807 | { |
| 808 | struct pattributes pattr; |
| 809 | getpattr (pid, &pattr); |
| 810 | pattr.pattr_pfixed = arg; |
| 811 | setpattr (pid, &pattr); |
| 812 | } |
| 813 | \f |
| 814 | void |
| 815 | core_file_command (filename, from_tty) |
| 816 | char *filename; |
| 817 | int from_tty; |
| 818 | { |
| 819 | int n; |
| 820 | |
| 821 | /* Discard all vestiges of any previous core file |
| 822 | and mark data and stack spaces as empty. */ |
| 823 | |
| 824 | if (corefile) |
| 825 | free (corefile); |
| 826 | corefile = 0; |
| 827 | |
| 828 | if (corechan >= 0) |
| 829 | close (corechan); |
| 830 | corechan = -1; |
| 831 | |
| 832 | data_start = 0; |
| 833 | data_end = 0; |
| 834 | stack_start = STACK_END_ADDR; |
| 835 | stack_end = STACK_END_ADDR; |
| 836 | n_core = 0; |
| 837 | |
| 838 | /* Now, if a new core file was specified, open it and digest it. */ |
| 839 | |
| 840 | if (filename) |
| 841 | { |
| 842 | filename = tilde_expand (filename); |
| 843 | make_cleanup (free, filename); |
| 844 | |
| 845 | if (have_inferior_p ()) |
| 846 | error ("To look at a core file, you must kill the inferior with \"kill\"."); |
| 847 | corechan = open (filename, O_RDONLY, 0); |
| 848 | if (corechan < 0) |
| 849 | perror_with_name (filename); |
| 850 | |
| 851 | if (myread (corechan, &filehdr, sizeof filehdr) < 0) |
| 852 | perror_with_name (filename); |
| 853 | |
| 854 | if (!IS_CORE_SOFF_MAGIC (filehdr.h_magic)) |
| 855 | error ("%s: not a core file.\n", filename); |
| 856 | |
| 857 | if (myread (corechan, &opthdr, filehdr.h_opthdr) < 0) |
| 858 | perror_with_name (filename); |
| 859 | |
| 860 | /* Read through the section headers. |
| 861 | For text, data, etc, record an entry in the core file map. |
| 862 | For context and tcontext, record the file address of |
| 863 | the context blocks. */ |
| 864 | |
| 865 | lseek (corechan, (long) filehdr.h_scnptr, 0); |
| 866 | |
| 867 | n_threads = 0; |
| 868 | for (n = 0; n < filehdr.h_nscns; n++) |
| 869 | { |
| 870 | if (myread (corechan, &scnhdr, sizeof scnhdr) < 0) |
| 871 | perror_with_name (filename); |
| 872 | if ((scnhdr.s_flags & S_TYPMASK) >= S_TEXT |
| 873 | && (scnhdr.s_flags & S_TYPMASK) <= S_COMON) |
| 874 | { |
| 875 | core_map[n_core].mem_addr = scnhdr.s_vaddr; |
| 876 | core_map[n_core].mem_end = scnhdr.s_vaddr + scnhdr.s_size; |
| 877 | core_map[n_core].file_addr = scnhdr.s_scnptr; |
| 878 | core_map[n_core].type = scnhdr.s_flags & S_TYPMASK; |
| 879 | if (core_map[n_core].type != S_TBSS |
| 880 | && core_map[n_core].type != S_TDATA |
| 881 | && core_map[n_core].type != S_TTEXT) |
| 882 | core_map[n_core].thread = -1; |
| 883 | else if (n_core == 0 |
| 884 | || core_map[n_core-1].mem_addr != scnhdr.s_vaddr) |
| 885 | core_map[n_core].thread = 0; |
| 886 | else |
| 887 | core_map[n_core].thread = core_map[n_core-1].thread + 1; |
| 888 | n_core++; |
| 889 | } |
| 890 | else if ((scnhdr.s_flags & S_TYPMASK) == S_CONTEXT) |
| 891 | context_offset = scnhdr.s_scnptr; |
| 892 | else if ((scnhdr.s_flags & S_TYPMASK) == S_TCONTEXT) |
| 893 | tcontext_offset[n_threads++] = scnhdr.s_scnptr; |
| 894 | } |
| 895 | |
| 896 | /* Read the context block, struct user, struct proc, |
| 897 | and the comm regs. */ |
| 898 | |
| 899 | lseek (corechan, context_offset, 0); |
| 900 | if (myread (corechan, &c, sizeof c) < 0) |
| 901 | perror_with_name (filename); |
| 902 | lseek (corechan, c.core_user_p, 0); |
| 903 | if (myread (corechan, &u, sizeof u) < 0) |
| 904 | perror_with_name (filename); |
| 905 | lseek (corechan, c.core_proc_p, 0); |
| 906 | if (myread (corechan, &pr, sizeof pr) < 0) |
| 907 | perror_with_name (filename); |
| 908 | comm_registers = pr.p_creg; |
| 909 | |
| 910 | /* Core file apparently is really there. Make it really exist |
| 911 | for xfer_core_file so we can do read_memory on it. */ |
| 912 | |
| 913 | if (filename[0] == '/') |
| 914 | corefile = savestring (filename, strlen (filename)); |
| 915 | else |
| 916 | corefile = concat (current_directory, "/", filename, NULL); |
| 917 | |
| 918 | printf_filtered ("Program %s ", u.u_comm); |
| 919 | |
| 920 | /* Read the thread registers and fill in the thread_xxx[] data. */ |
| 921 | |
| 922 | for (n = 0; n < n_threads; n++) |
| 923 | { |
| 924 | select_thread (n); |
| 925 | |
| 926 | lseek (corechan, tcontext_offset[n], 0); |
| 927 | if (myread (corechan, &tc, sizeof tc) < 0) |
| 928 | perror_with_name (corefile); |
| 929 | lseek (corechan, tc.core_thread_p, 0); |
| 930 | if (myread (corechan, &th, sizeof th) < 0) |
| 931 | perror_with_name (corefile); |
| 932 | |
| 933 | lseek (corechan, tc.core_syscall_context_p, 0); |
| 934 | if (myread (corechan, registers, REGISTER_BYTES) < 0) |
| 935 | perror_with_name (corefile); |
| 936 | |
| 937 | thread_signal[n] = th.t_cursig; |
| 938 | thread_sigcode[n] = th.t_code; |
| 939 | thread_state[n] = th.t_state; |
| 940 | thread_pc[n] = read_pc (); |
| 941 | |
| 942 | if (thread_pc[n] > STACK_END_ADDR) |
| 943 | { |
| 944 | POP_FRAME; |
| 945 | if (is_break_pc (thread_pc[n])) |
| 946 | thread_pc[n] = read_pc () - 2; |
| 947 | else |
| 948 | thread_pc[n] = read_pc (); |
| 949 | write_register (PC_REGNUM, thread_pc[n]); |
| 950 | } |
| 951 | |
| 952 | printf_filtered ("thread %d received signal %d, %s\n", |
| 953 | n, thread_signal[n], |
| 954 | safe_strsignal (thread_signal[n])); |
| 955 | } |
| 956 | |
| 957 | /* Select an interesting thread -- also-rans died with SIGKILL, |
| 958 | so find one that didn't. */ |
| 959 | |
| 960 | for (n = 0; n < n_threads; n++) |
| 961 | if (thread_signal[n] != 0 && thread_signal[n] != SIGKILL) |
| 962 | { |
| 963 | select_thread (n); |
| 964 | stop_signal = thread_signal[n]; |
| 965 | stop_sigcode = thread_sigcode[n]; |
| 966 | break; |
| 967 | } |
| 968 | |
| 969 | core_aouthdr.a_magic = 0; |
| 970 | |
| 971 | flush_cached_frames (); |
| 972 | set_current_frame (create_new_frame (read_register (FP_REGNUM), |
| 973 | read_pc ())); |
| 974 | select_frame (get_current_frame (), 0); |
| 975 | validate_files (); |
| 976 | |
| 977 | print_stack_frame (selected_frame, selected_frame_level, -1); |
| 978 | } |
| 979 | else if (from_tty) |
| 980 | printf_filtered ("No core file now.\n"); |
| 981 | } |