diff options
Diffstat (limited to 'gdb/pyr-xdep.c')
| -rw-r--r-- | gdb/pyr-xdep.c | 254 |
1 files changed, 127 insertions, 127 deletions
diff --git a/gdb/pyr-xdep.c b/gdb/pyr-xdep.c index 0ca79e1..3222450 100644 --- a/gdb/pyr-xdep.c +++ b/gdb/pyr-xdep.c @@ -28,7 +28,7 @@ /* OBSOLETE /* #include <fcntl.h> Can we live without this? *x/ */ /* OBSOLETE */ /* OBSOLETE #include "gdbcore.h" */ -/* OBSOLETE #include <sys/user.h> /* After a.out.h *x/ */ +/* OBSOLETE #include <sys/user.h> /* After a.out.h *x/ */ /* OBSOLETE #include <sys/file.h> */ /* OBSOLETE #include "gdb_stat.h" */ /* OBSOLETE */ @@ -50,21 +50,21 @@ /* OBSOLETE */ /* OBSOLETE #if defined(PYRAMID_CONTROL_FRAME_DEBUGGING) */ /* OBSOLETE printf_unfiltered ("Fetching register %s, got %0x\n", */ -/* OBSOLETE REGISTER_NAME (regno), */ -/* OBSOLETE reg_buf[regno]); */ +/* OBSOLETE REGISTER_NAME (regno), */ +/* OBSOLETE reg_buf[regno]); */ /* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */ /* OBSOLETE */ /* OBSOLETE if (reg_buf[regno] == -1 && errno == EIO) { */ /* OBSOLETE printf_unfiltered("fetch_interior_registers: fetching register %s\n", */ -/* OBSOLETE REGISTER_NAME (regno)); */ +/* OBSOLETE REGISTER_NAME (regno)); */ /* OBSOLETE errno = 0; */ /* OBSOLETE } */ /* OBSOLETE supply_register (regno, reg_buf+regno); */ /* OBSOLETE } */ /* OBSOLETE /* that leaves regs 64, 65, and 66 *x/ */ /* OBSOLETE datum = ptrace (3, inferior_pid, */ -/* OBSOLETE (PTRACE_ARG3_TYPE) (((char *)&u.u_pcb.pcb_csp) - */ -/* OBSOLETE ((char *)&u)), 0); */ +/* OBSOLETE (PTRACE_ARG3_TYPE) (((char *)&u.u_pcb.pcb_csp) - */ +/* OBSOLETE ((char *)&u)), 0); */ /* OBSOLETE */ /* OBSOLETE */ /* OBSOLETE */ @@ -101,11 +101,11 @@ /* OBSOLETE while (1) { */ /* OBSOLETE register int inferior_saved_pc; */ /* OBSOLETE inferior_saved_pc = ptrace (1, inferior_pid, */ -/* OBSOLETE (PTRACE_ARG3_TYPE) (datum+((32+15)*4)), 0); */ +/* OBSOLETE (PTRACE_ARG3_TYPE) (datum+((32+15)*4)), 0); */ /* OBSOLETE if (inferior_saved_pc > 0) break; */ /* OBSOLETE #if defined(PYRAMID_CONTROL_FRAME_DEBUGGING) */ /* OBSOLETE printf_unfiltered("skipping kernel frame %08x, pc=%08x\n", datum, */ -/* OBSOLETE inferior_saved_pc); */ +/* OBSOLETE inferior_saved_pc); */ /* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */ /* OBSOLETE skipped_frames++; */ /* OBSOLETE datum -= CONTROL_STACK_FRAME_SIZE; */ @@ -116,8 +116,8 @@ /* OBSOLETE #ifdef PYRAMID_CONTROL_FRAME_DEBUGGING */ /* OBSOLETE if (skipped_frames) { */ /* OBSOLETE fprintf_unfiltered (gdb_stderr, */ -/* OBSOLETE "skipped %d frames from %x to %x; cfp was %x, now %x\n", */ -/* OBSOLETE skipped_frames, reg_buf[CSP_REGNUM]); */ +/* OBSOLETE "skipped %d frames from %x to %x; cfp was %x, now %x\n", */ +/* OBSOLETE skipped_frames, reg_buf[CSP_REGNUM]); */ /* OBSOLETE } */ /* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */ /* OBSOLETE } */ @@ -136,33 +136,33 @@ /* OBSOLETE if (regno >= 0) */ /* OBSOLETE { */ /* OBSOLETE if ((0 <= regno) && (regno < 64)) { */ -/* OBSOLETE /*regaddr = register_addr (regno, offset);*x/ */ -/* OBSOLETE regaddr = regno; */ -/* OBSOLETE errno = 0; */ -/* OBSOLETE ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, */ -/* OBSOLETE read_register (regno)); */ -/* OBSOLETE if (errno != 0) */ -/* OBSOLETE { */ -/* OBSOLETE sprintf (buf, "writing register number %d", regno); */ -/* OBSOLETE perror_with_name (buf); */ -/* OBSOLETE } */ +/* OBSOLETE /*regaddr = register_addr (regno, offset);*x/ */ +/* OBSOLETE regaddr = regno; */ +/* OBSOLETE errno = 0; */ +/* OBSOLETE ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, */ +/* OBSOLETE read_register (regno)); */ +/* OBSOLETE if (errno != 0) */ +/* OBSOLETE { */ +/* OBSOLETE sprintf (buf, "writing register number %d", regno); */ +/* OBSOLETE perror_with_name (buf); */ +/* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE else */ /* OBSOLETE { */ /* OBSOLETE for (regno = 0; regno < NUM_REGS; regno++) */ -/* OBSOLETE { */ -/* OBSOLETE /*regaddr = register_addr (regno, offset);*x/ */ -/* OBSOLETE regaddr = regno; */ -/* OBSOLETE errno = 0; */ -/* OBSOLETE ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, */ -/* OBSOLETE read_register (regno)); */ -/* OBSOLETE if (errno != 0) */ -/* OBSOLETE { */ -/* OBSOLETE sprintf (buf, "writing all regs, number %d", regno); */ -/* OBSOLETE perror_with_name (buf); */ -/* OBSOLETE } */ -/* OBSOLETE } */ +/* OBSOLETE { */ +/* OBSOLETE /*regaddr = register_addr (regno, offset);*x/ */ +/* OBSOLETE regaddr = regno; */ +/* OBSOLETE errno = 0; */ +/* OBSOLETE ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, */ +/* OBSOLETE read_register (regno)); */ +/* OBSOLETE if (errno != 0) */ +/* OBSOLETE { */ +/* OBSOLETE sprintf (buf, "writing all regs, number %d", regno); */ +/* OBSOLETE perror_with_name (buf); */ +/* OBSOLETE } */ +/* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE /*** Extensions to core and dump files, for GDB. *x/ */ @@ -219,7 +219,7 @@ /* OBSOLETE */ /* OBSOLETE #ifdef PYRAMID_CORE */ /* OBSOLETE reg_stack_start = CONTROL_STACK_ADDR; */ -/* OBSOLETE reg_stack_end = CONTROL_STACK_ADDR; /* this isn't strictly true...*x/ */ +/* OBSOLETE reg_stack_end = CONTROL_STACK_ADDR; /* this isn't strictly true...*x/ */ /* OBSOLETE #endif /* PYRAMID_CORE *x/ */ /* OBSOLETE */ /* OBSOLETE /* Now, if a new core file was specified, open it and digest it. *x/ */ @@ -230,135 +230,135 @@ /* OBSOLETE make_cleanup (free, filename); */ /* OBSOLETE */ /* OBSOLETE if (have_inferior_p ()) */ -/* OBSOLETE error ("To look at a core file, you must kill the program with \"kill\"."); */ +/* OBSOLETE error ("To look at a core file, you must kill the program with \"kill\"."); */ /* OBSOLETE corechan = open (filename, O_RDONLY, 0); */ /* OBSOLETE if (corechan < 0) */ -/* OBSOLETE perror_with_name (filename); */ +/* OBSOLETE perror_with_name (filename); */ /* OBSOLETE /* 4.2-style (and perhaps also sysV-style) core dump file. *x/ */ /* OBSOLETE { */ -/* OBSOLETE struct user u; */ +/* OBSOLETE struct user u; */ /* OBSOLETE */ -/* OBSOLETE unsigned int reg_offset; */ +/* OBSOLETE unsigned int reg_offset; */ /* OBSOLETE */ -/* OBSOLETE val = myread (corechan, &u, sizeof u); */ -/* OBSOLETE if (val < 0) */ -/* OBSOLETE perror_with_name ("Not a core file: reading upage"); */ -/* OBSOLETE if (val != sizeof u) */ -/* OBSOLETE error ("Not a core file: could only read %d bytes", val); */ -/* OBSOLETE data_start = exec_data_start; */ +/* OBSOLETE val = myread (corechan, &u, sizeof u); */ +/* OBSOLETE if (val < 0) */ +/* OBSOLETE perror_with_name ("Not a core file: reading upage"); */ +/* OBSOLETE if (val != sizeof u) */ +/* OBSOLETE error ("Not a core file: could only read %d bytes", val); */ +/* OBSOLETE data_start = exec_data_start; */ /* OBSOLETE */ -/* OBSOLETE data_end = data_start + NBPG * u.u_dsize; */ -/* OBSOLETE data_offset = NBPG * UPAGES; */ -/* OBSOLETE stack_offset = NBPG * (UPAGES + u.u_dsize); */ +/* OBSOLETE data_end = data_start + NBPG * u.u_dsize; */ +/* OBSOLETE data_offset = NBPG * UPAGES; */ +/* OBSOLETE stack_offset = NBPG * (UPAGES + u.u_dsize); */ /* OBSOLETE */ -/* OBSOLETE /* find registers in core file *x/ */ +/* OBSOLETE /* find registers in core file *x/ */ /* OBSOLETE #ifdef PYRAMID_PTRACE */ -/* OBSOLETE stack_start = stack_end - NBPG * u.u_ussize; */ -/* OBSOLETE reg_stack_offset = stack_offset + (NBPG *u.u_ussize); */ -/* OBSOLETE reg_stack_end = reg_stack_start + NBPG * u.u_cssize; */ -/* OBSOLETE */ -/* OBSOLETE last_frame_address = ((int) u.u_pcb.pcb_csp); */ -/* OBSOLETE last_frame_offset = reg_stack_offset + last_frame_address */ -/* OBSOLETE - CONTROL_STACK_ADDR ; */ -/* OBSOLETE global_reg_offset = (char *)&u - (char *)&u.u_pcb.pcb_gr0 ; */ -/* OBSOLETE */ -/* OBSOLETE /* skip any control-stack frames that were executed in the */ -/* OBSOLETE kernel. *x/ */ -/* OBSOLETE */ -/* OBSOLETE while (1) { */ -/* OBSOLETE char buf[4]; */ -/* OBSOLETE val = lseek (corechan, last_frame_offset+(47*4), 0); */ -/* OBSOLETE if (val < 0) */ -/* OBSOLETE perror_with_name (filename); */ -/* OBSOLETE val = myread (corechan, buf, sizeof buf); */ -/* OBSOLETE if (val < 0) */ -/* OBSOLETE perror_with_name (filename); */ -/* OBSOLETE */ -/* OBSOLETE if (*(int *)buf >= 0) */ -/* OBSOLETE break; */ -/* OBSOLETE printf_unfiltered ("skipping frame %s\n", local_hex_string (last_frame_address)); */ -/* OBSOLETE last_frame_offset -= CONTROL_STACK_FRAME_SIZE; */ -/* OBSOLETE last_frame_address -= CONTROL_STACK_FRAME_SIZE; */ -/* OBSOLETE } */ -/* OBSOLETE reg_offset = last_frame_offset; */ +/* OBSOLETE stack_start = stack_end - NBPG * u.u_ussize; */ +/* OBSOLETE reg_stack_offset = stack_offset + (NBPG *u.u_ussize); */ +/* OBSOLETE reg_stack_end = reg_stack_start + NBPG * u.u_cssize; */ +/* OBSOLETE */ +/* OBSOLETE last_frame_address = ((int) u.u_pcb.pcb_csp); */ +/* OBSOLETE last_frame_offset = reg_stack_offset + last_frame_address */ +/* OBSOLETE - CONTROL_STACK_ADDR ; */ +/* OBSOLETE global_reg_offset = (char *)&u - (char *)&u.u_pcb.pcb_gr0 ; */ +/* OBSOLETE */ +/* OBSOLETE /* skip any control-stack frames that were executed in the */ +/* OBSOLETE kernel. *x/ */ +/* OBSOLETE */ +/* OBSOLETE while (1) { */ +/* OBSOLETE char buf[4]; */ +/* OBSOLETE val = lseek (corechan, last_frame_offset+(47*4), 0); */ +/* OBSOLETE if (val < 0) */ +/* OBSOLETE perror_with_name (filename); */ +/* OBSOLETE val = myread (corechan, buf, sizeof buf); */ +/* OBSOLETE if (val < 0) */ +/* OBSOLETE perror_with_name (filename); */ +/* OBSOLETE */ +/* OBSOLETE if (*(int *)buf >= 0) */ +/* OBSOLETE break; */ +/* OBSOLETE printf_unfiltered ("skipping frame %s\n", local_hex_string (last_frame_address)); */ +/* OBSOLETE last_frame_offset -= CONTROL_STACK_FRAME_SIZE; */ +/* OBSOLETE last_frame_address -= CONTROL_STACK_FRAME_SIZE; */ +/* OBSOLETE } */ +/* OBSOLETE reg_offset = last_frame_offset; */ /* OBSOLETE */ /* OBSOLETE #if 1 || defined(PYRAMID_CONTROL_FRAME_DEBUGGING) */ -/* OBSOLETE printf_unfiltered ("Control stack pointer = %s\n", */ -/* OBSOLETE local_hex_string (u.u_pcb.pcb_csp)); */ -/* OBSOLETE printf_unfiltered ("offset to control stack %d outermost frame %d (%s)\n", */ -/* OBSOLETE reg_stack_offset, reg_offset, local_hex_string (last_frame_address)); */ +/* OBSOLETE printf_unfiltered ("Control stack pointer = %s\n", */ +/* OBSOLETE local_hex_string (u.u_pcb.pcb_csp)); */ +/* OBSOLETE printf_unfiltered ("offset to control stack %d outermost frame %d (%s)\n", */ +/* OBSOLETE reg_stack_offset, reg_offset, local_hex_string (last_frame_address)); */ /* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */ /* OBSOLETE */ /* OBSOLETE #else /* not PYRAMID_CORE *x/ */ -/* OBSOLETE stack_start = stack_end - NBPG * u.u_ssize; */ +/* OBSOLETE stack_start = stack_end - NBPG * u.u_ssize; */ /* OBSOLETE reg_offset = (int) u.u_ar0 - KERNEL_U_ADDR; */ /* OBSOLETE #endif /* not PYRAMID_CORE *x/ */ /* OBSOLETE */ /* OBSOLETE #ifdef __not_on_pyr_yet */ -/* OBSOLETE /* Some machines put an absolute address in here and some put */ -/* OBSOLETE the offset in the upage of the regs. *x/ */ -/* OBSOLETE reg_offset = (int) u.u_ar0; */ -/* OBSOLETE if (reg_offset > NBPG * UPAGES) */ -/* OBSOLETE reg_offset -= KERNEL_U_ADDR; */ +/* OBSOLETE /* Some machines put an absolute address in here and some put */ +/* OBSOLETE the offset in the upage of the regs. *x/ */ +/* OBSOLETE reg_offset = (int) u.u_ar0; */ +/* OBSOLETE if (reg_offset > NBPG * UPAGES) */ +/* OBSOLETE reg_offset -= KERNEL_U_ADDR; */ /* OBSOLETE #endif */ /* OBSOLETE */ -/* OBSOLETE /* I don't know where to find this info. */ -/* OBSOLETE So, for now, mark it as not available. *x/ */ -/* OBSOLETE N_SET_MAGIC (core_aouthdr, 0); */ -/* OBSOLETE */ -/* OBSOLETE /* Read the register values out of the core file and store */ -/* OBSOLETE them where `read_register' will find them. *x/ */ -/* OBSOLETE */ -/* OBSOLETE { */ -/* OBSOLETE register int regno; */ -/* OBSOLETE */ -/* OBSOLETE for (regno = 0; regno < 64; regno++) */ -/* OBSOLETE { */ -/* OBSOLETE char buf[MAX_REGISTER_RAW_SIZE]; */ -/* OBSOLETE */ -/* OBSOLETE val = lseek (corechan, register_addr (regno, reg_offset), 0); */ -/* OBSOLETE if (val < 0 */ -/* OBSOLETE || (val = myread (corechan, buf, sizeof buf)) < 0) */ -/* OBSOLETE { */ -/* OBSOLETE char * buffer = (char *) alloca (strlen (REGISTER_NAME (regno)) */ -/* OBSOLETE + 30); */ -/* OBSOLETE strcpy (buffer, "Reading register "); */ -/* OBSOLETE strcat (buffer, REGISTER_NAME (regno)); */ -/* OBSOLETE */ -/* OBSOLETE perror_with_name (buffer); */ -/* OBSOLETE } */ -/* OBSOLETE */ -/* OBSOLETE if (val < 0) */ -/* OBSOLETE perror_with_name (filename); */ +/* OBSOLETE /* I don't know where to find this info. */ +/* OBSOLETE So, for now, mark it as not available. *x/ */ +/* OBSOLETE N_SET_MAGIC (core_aouthdr, 0); */ +/* OBSOLETE */ +/* OBSOLETE /* Read the register values out of the core file and store */ +/* OBSOLETE them where `read_register' will find them. *x/ */ +/* OBSOLETE */ +/* OBSOLETE { */ +/* OBSOLETE register int regno; */ +/* OBSOLETE */ +/* OBSOLETE for (regno = 0; regno < 64; regno++) */ +/* OBSOLETE { */ +/* OBSOLETE char buf[MAX_REGISTER_RAW_SIZE]; */ +/* OBSOLETE */ +/* OBSOLETE val = lseek (corechan, register_addr (regno, reg_offset), 0); */ +/* OBSOLETE if (val < 0 */ +/* OBSOLETE || (val = myread (corechan, buf, sizeof buf)) < 0) */ +/* OBSOLETE { */ +/* OBSOLETE char * buffer = (char *) alloca (strlen (REGISTER_NAME (regno)) */ +/* OBSOLETE + 30); */ +/* OBSOLETE strcpy (buffer, "Reading register "); */ +/* OBSOLETE strcat (buffer, REGISTER_NAME (regno)); */ +/* OBSOLETE */ +/* OBSOLETE perror_with_name (buffer); */ +/* OBSOLETE } */ +/* OBSOLETE */ +/* OBSOLETE if (val < 0) */ +/* OBSOLETE perror_with_name (filename); */ /* OBSOLETE #ifdef PYRAMID_CONTROL_FRAME_DEBUGGING */ /* OBSOLETE printf_unfiltered ("[reg %s(%d), offset in file %s=0x%0x, addr =0x%0x, =%0x]\n", */ -/* OBSOLETE REGISTER_NAME (regno), regno, filename, */ -/* OBSOLETE register_addr(regno, reg_offset), */ -/* OBSOLETE regno * 4 + last_frame_address, */ -/* OBSOLETE *((int *)buf)); */ +/* OBSOLETE REGISTER_NAME (regno), regno, filename, */ +/* OBSOLETE register_addr(regno, reg_offset), */ +/* OBSOLETE regno * 4 + last_frame_address, */ +/* OBSOLETE *((int *)buf)); */ /* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */ -/* OBSOLETE supply_register (regno, buf); */ -/* OBSOLETE } */ -/* OBSOLETE } */ +/* OBSOLETE supply_register (regno, buf); */ +/* OBSOLETE } */ +/* OBSOLETE } */ /* OBSOLETE } */ /* OBSOLETE if (filename[0] == '/') */ -/* OBSOLETE corefile = savestring (filename, strlen (filename)); */ +/* OBSOLETE corefile = savestring (filename, strlen (filename)); */ /* OBSOLETE else */ -/* OBSOLETE { */ -/* OBSOLETE corefile = concat (current_directory, "/", filename, NULL); */ -/* OBSOLETE } */ +/* OBSOLETE { */ +/* OBSOLETE corefile = concat (current_directory, "/", filename, NULL); */ +/* OBSOLETE } */ /* OBSOLETE */ /* OBSOLETE #if 1 || defined(PYRAMID_CONTROL_FRAME_DEBUGGING) */ /* OBSOLETE printf_unfiltered ("Providing CSP (%s) as nominal address of current frame.\n", */ -/* OBSOLETE local_hex_string(last_frame_address)); */ +/* OBSOLETE local_hex_string(last_frame_address)); */ /* OBSOLETE #endif PYRAMID_CONTROL_FRAME_DEBUGGING */ /* OBSOLETE /* FIXME: Which of the following is correct? *x/ */ /* OBSOLETE #if 0 */ /* OBSOLETE set_current_frame ( create_new_frame (read_register (FP_REGNUM), */ -/* OBSOLETE read_pc ())); */ +/* OBSOLETE read_pc ())); */ /* OBSOLETE #else */ /* OBSOLETE set_current_frame ( create_new_frame (last_frame_address, */ -/* OBSOLETE read_pc ())); */ +/* OBSOLETE read_pc ())); */ /* OBSOLETE #endif */ /* OBSOLETE */ /* OBSOLETE select_frame (get_current_frame (), 0); */ |