gdb/pyr-xdep.c

   1 /* OBSOLETE /* Low level Pyramid interface to ptrace, for GDB when running under Unix. */
   2 /* OBSOLETE    Copyright (C) 1988, 1989, 1991 Free Software Foundation, Inc. */
   3 /* OBSOLETE  */
   4 /* OBSOLETE This file is part of GDB. */
   5 /* OBSOLETE  */
   6 /* OBSOLETE This program is free software; you can redistribute it and/or modify */
   7 /* OBSOLETE it under the terms of the GNU General Public License as published by */
   8 /* OBSOLETE the Free Software Foundation; either version 2 of the License, or */
   9 /* OBSOLETE (at your option) any later version. */
  10 /* OBSOLETE  */
  11 /* OBSOLETE This program is distributed in the hope that it will be useful, */
  12 /* OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of */
  13 /* OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the */
  14 /* OBSOLETE GNU General Public License for more details. */
  15 /* OBSOLETE  */
  16 /* OBSOLETE You should have received a copy of the GNU General Public License */
  17 /* OBSOLETE along with this program; if not, write to the Free Software */
  18 /* OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  *x/ */
  19 /* OBSOLETE  */
  20 /* OBSOLETE #include "defs.h" */
  21 /* OBSOLETE #include "frame.h" */
  22 /* OBSOLETE #include "inferior.h" */
  23 /* OBSOLETE  */
  24 /* OBSOLETE #include <sys/param.h> */
  25 /* OBSOLETE #include <sys/dir.h> */
  26 /* OBSOLETE #include <signal.h> */
  27 /* OBSOLETE #include <sys/ioctl.h> */
  28 /* OBSOLETE /* #include <fcntl.h>  Can we live without this?  *x/ */
  29 /* OBSOLETE  */
  30 /* OBSOLETE #include "gdbcore.h" */
  31 /* OBSOLETE #include <sys/user.h>               /* After a.out.h  *x/ */
  32 /* OBSOLETE #include <sys/file.h> */
  33 /* OBSOLETE #include "gdb_stat.h" */
  34 /* OBSOLETE  */
  35 /* OBSOLETE \f */
  36 /* OBSOLETE void */
  37 /* OBSOLETE fetch_inferior_registers (regno) */
  38 /* OBSOLETE      int regno; */
  39 /* OBSOLETE { */
  40 /* OBSOLETE   register int datum; */
  41 /* OBSOLETE   register unsigned int regaddr; */
  42 /* OBSOLETE   int reg_buf[NUM_REGS+1]; */
  43 /* OBSOLETE   struct user u; */
  44 /* OBSOLETE   register int skipped_frames = 0; */
  45 /* OBSOLETE  */
  46 /* OBSOLETE   registers_fetched (); */
  47 /* OBSOLETE    */
  48 /* OBSOLETE   for (regno = 0; regno < 64; regno++) { */
  49 /* OBSOLETE     reg_buf[regno] = ptrace (3, inferior_pid, (PTRACE_ARG3_TYPE) regno, 0); */
  50 /* OBSOLETE      */
  51 /* OBSOLETE #if defined(PYRAMID_CONTROL_FRAME_DEBUGGING) */
  52 /* OBSOLETE     printf_unfiltered ("Fetching register %s, got %0x\n", */
  53 /* OBSOLETE         REGISTER_NAME (regno), */
  54 /* OBSOLETE         reg_buf[regno]); */
  55 /* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */
  56 /* OBSOLETE      */
  57 /* OBSOLETE     if (reg_buf[regno] == -1 && errno == EIO) { */
  58 /* OBSOLETE       printf_unfiltered("fetch_interior_registers: fetching register %s\n", */
  59 /* OBSOLETE          REGISTER_NAME (regno)); */
  60 /* OBSOLETE       errno = 0; */
  61 /* OBSOLETE     } */
  62 /* OBSOLETE     supply_register (regno, reg_buf+regno); */
  63 /* OBSOLETE   } */
  64 /* OBSOLETE   /* that leaves regs 64, 65, and 66 *x/ */
  65 /* OBSOLETE   datum = ptrace (3, inferior_pid, */
  66 /* OBSOLETE               (PTRACE_ARG3_TYPE) (((char *)&u.u_pcb.pcb_csp) - */
  67 /* OBSOLETE               ((char *)&u)), 0); */
  68 /* OBSOLETE    */
  69 /* OBSOLETE    */
  70 /* OBSOLETE    */
  71 /* OBSOLETE   /* FIXME: Find the Current Frame Pointer (CFP). CFP is a global */
  72 /* OBSOLETE      register (ie, NOT windowed), that gets saved in a frame iff */
  73 /* OBSOLETE      the code for that frame has a prologue (ie, "adsf N").  If */
  74 /* OBSOLETE      there is a prologue, the adsf insn saves the old cfp in */
  75 /* OBSOLETE      pr13, cfp is set to sp, and N bytes of locals are allocated */
  76 /* OBSOLETE      (sp is decremented by n). */
  77 /* OBSOLETE      This makes finding CFP hard. I guess the right way to do it */
  78 /* OBSOLETE      is:  */
  79 /* OBSOLETE      - If this is the innermost frame, believe ptrace() or */
  80 /* OBSOLETE      the core area. */
  81 /* OBSOLETE      - Otherwise: */
  82 /* OBSOLETE      Find the first insn of the current frame. */
  83 /* OBSOLETE      - find the saved pc; */
  84 /* OBSOLETE      - find the call insn that saved it; */
  85 /* OBSOLETE      - figure out where the call is to; */
  86 /* OBSOLETE      - if the first insn is an adsf, we got a frame */
  87 /* OBSOLETE      pointer. *x/ */
  88 /* OBSOLETE    */
  89 /* OBSOLETE    */
  90 /* OBSOLETE   /* Normal processors have separate stack pointers for user and */
  91 /* OBSOLETE      kernel mode. Getting the last user mode frame on such */
  92 /* OBSOLETE      machines is easy: the kernel context of the ptrace()'d */
  93 /* OBSOLETE      process is on the kernel stack, and the USP points to what */
  94 /* OBSOLETE      we want. But Pyramids only have a single cfp for both user and */
  95 /* OBSOLETE      kernel mode.  And processes being ptrace()'d have some */
  96 /* OBSOLETE      kernel-context control frames on their stack. */
  97 /* OBSOLETE      To avoid tracing back into the kernel context of an inferior, */
  98 /* OBSOLETE      we skip 0 or more contiguous control frames where the pc is */
  99 /* OBSOLETE      in the kernel. *x/  */
 100 /* OBSOLETE    */
 101 /* OBSOLETE   while (1) { */
 102 /* OBSOLETE     register int inferior_saved_pc; */
 103 /* OBSOLETE     inferior_saved_pc = ptrace (1, inferior_pid, */
 104 /* OBSOLETE                             (PTRACE_ARG3_TYPE) (datum+((32+15)*4)), 0); */
 105 /* OBSOLETE     if (inferior_saved_pc > 0) break; */
 106 /* OBSOLETE #if defined(PYRAMID_CONTROL_FRAME_DEBUGGING) */
 107 /* OBSOLETE     printf_unfiltered("skipping kernel frame %08x, pc=%08x\n", datum, */
 108 /* OBSOLETE        inferior_saved_pc); */
 109 /* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */
 110 /* OBSOLETE     skipped_frames++; */
 111 /* OBSOLETE     datum -= CONTROL_STACK_FRAME_SIZE; */
 112 /* OBSOLETE   } */
 113 /* OBSOLETE    */
 114 /* OBSOLETE   reg_buf[CSP_REGNUM] = datum; */
 115 /* OBSOLETE   supply_register(CSP_REGNUM, reg_buf+CSP_REGNUM); */
 116 /* OBSOLETE #ifdef  PYRAMID_CONTROL_FRAME_DEBUGGING */
 117 /* OBSOLETE   if (skipped_frames) { */
 118 /* OBSOLETE     fprintf_unfiltered (gdb_stderr, */
 119 /* OBSOLETE          "skipped %d frames from %x to %x; cfp was %x, now %x\n", */
 120 /* OBSOLETE          skipped_frames, reg_buf[CSP_REGNUM]); */
 121 /* OBSOLETE   } */
 122 /* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */
 123 /* OBSOLETE } */
 124 /* OBSOLETE  */
 125 /* OBSOLETE /* Store our register values back into the inferior. */
 126 /* OBSOLETE    If REGNO is -1, do this for all registers. */
 127 /* OBSOLETE    Otherwise, REGNO specifies which register (so we can save time).  *x/ */
 128 /* OBSOLETE  */
 129 /* OBSOLETE void */
 130 /* OBSOLETE store_inferior_registers (regno) */
 131 /* OBSOLETE      int regno; */
 132 /* OBSOLETE { */
 133 /* OBSOLETE   register unsigned int regaddr; */
 134 /* OBSOLETE   char buf[80]; */
 135 /* OBSOLETE  */
 136 /* OBSOLETE   if (regno >= 0) */
 137 /* OBSOLETE     { */
 138 /* OBSOLETE       if ((0 <= regno) && (regno < 64)) { */
 139 /* OBSOLETE     /*regaddr = register_addr (regno, offset);*x/ */
 140 /* OBSOLETE     regaddr = regno; */
 141 /* OBSOLETE     errno = 0; */
 142 /* OBSOLETE     ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, */
 143 /* OBSOLETE             read_register (regno)); */
 144 /* OBSOLETE     if (errno != 0) */
 145 /* OBSOLETE       { */
 146 /* OBSOLETE         sprintf (buf, "writing register number %d", regno); */
 147 /* OBSOLETE         perror_with_name (buf); */
 148 /* OBSOLETE       } */
 149 /* OBSOLETE       } */
 150 /* OBSOLETE     } */
 151 /* OBSOLETE   else */
 152 /* OBSOLETE     { */
 153 /* OBSOLETE       for (regno = 0; regno < NUM_REGS; regno++) */
 154 /* OBSOLETE     { */
 155 /* OBSOLETE       /*regaddr = register_addr (regno, offset);*x/ */
 156 /* OBSOLETE       regaddr = regno; */
 157 /* OBSOLETE       errno = 0; */
 158 /* OBSOLETE       ptrace (6, inferior_pid, (PTRACE_ARG3_TYPE) regaddr, */
 159 /* OBSOLETE               read_register (regno)); */
 160 /* OBSOLETE       if (errno != 0) */
 161 /* OBSOLETE         { */
 162 /* OBSOLETE           sprintf (buf, "writing all regs, number %d", regno); */
 163 /* OBSOLETE           perror_with_name (buf); */
 164 /* OBSOLETE         } */
 165 /* OBSOLETE     } */
 166 /* OBSOLETE } */
 167 /* OBSOLETE \f */
 168 /* OBSOLETE /*** Extensions to  core and dump files, for GDB. *x/ */
 169 /* OBSOLETE  */
 170 /* OBSOLETE extern unsigned int last_frame_offset; */
 171 /* OBSOLETE  */
 172 /* OBSOLETE #ifdef PYRAMID_CORE */
 173 /* OBSOLETE  */
 174 /* OBSOLETE /* Can't make definitions here static, since corefile.c needs them */
 175 /* OBSOLETE    to do bounds checking on the core-file areas. O well. *x/ */
 176 /* OBSOLETE  */
 177 /* OBSOLETE /* have two stacks: one for data, one for register windows. *x/ */
 178 /* OBSOLETE extern CORE_ADDR reg_stack_start; */
 179 /* OBSOLETE extern CORE_ADDR reg_stack_end; */
 180 /* OBSOLETE  */
 181 /* OBSOLETE /* need this so we can find the global registers: they never get saved. *x/ */
 182 /* OBSOLETE CORE_ADDR global_reg_offset; */
 183 /* OBSOLETE static CORE_ADDR last_frame_address; */
 184 /* OBSOLETE CORE_ADDR last_frame_offset; */
 185 /* OBSOLETE  */
 186 /* OBSOLETE  */
 187 /* OBSOLETE /* Address in core file of start of register window stack area. */
 188 /* OBSOLETE    Don't know if is this any of meaningful, useful or necessary.   *x/ */
 189 /* OBSOLETE extern int reg_stack_offset; */
 190 /* OBSOLETE  */
 191 /* OBSOLETE #endif /* PYRAMID_CORE *x/   */
 192 /* OBSOLETE  */
 193 /* OBSOLETE \f */
 194 /* OBSOLETE /* Work with core dump and executable files, for GDB.  */
 195 /* OBSOLETE    This code would be in corefile.c if it weren't machine-dependent. *x/ */
 196 /* OBSOLETE  */
 197 /* OBSOLETE void */
 198 /* OBSOLETE core_file_command (filename, from_tty) */
 199 /* OBSOLETE      char *filename; */
 200 /* OBSOLETE      int from_tty; */
 201 /* OBSOLETE { */
 202 /* OBSOLETE   int val; */
 203 /* OBSOLETE  */
 204 /* OBSOLETE   /* Discard all vestiges of any previous core file */
 205 /* OBSOLETE      and mark data and stack spaces as empty.  *x/ */
 206 /* OBSOLETE  */
 207 /* OBSOLETE   if (corefile) */
 208 /* OBSOLETE     free (corefile); */
 209 /* OBSOLETE   corefile = 0; */
 210 /* OBSOLETE  */
 211 /* OBSOLETE   if (corechan >= 0) */
 212 /* OBSOLETE     close (corechan); */
 213 /* OBSOLETE   corechan = -1; */
 214 /* OBSOLETE  */
 215 /* OBSOLETE   data_start = 0; */
 216 /* OBSOLETE   data_end = 0; */
 217 /* OBSOLETE   stack_start = STACK_END_ADDR; */
 218 /* OBSOLETE   stack_end = STACK_END_ADDR; */
 219 /* OBSOLETE  */
 220 /* OBSOLETE #ifdef PYRAMID_CORE */
 221 /* OBSOLETE   reg_stack_start = CONTROL_STACK_ADDR; */
 222 /* OBSOLETE   reg_stack_end = CONTROL_STACK_ADDR;       /* this isn't strictly true...*x/ */
 223 /* OBSOLETE #endif /* PYRAMID_CORE *x/ */
 224 /* OBSOLETE  */
 225 /* OBSOLETE   /* Now, if a new core file was specified, open it and digest it.  *x/ */
 226 /* OBSOLETE  */
 227 /* OBSOLETE   if (filename) */
 228 /* OBSOLETE     { */
 229 /* OBSOLETE       filename = tilde_expand (filename); */
 230 /* OBSOLETE       make_cleanup (free, filename); */
 231 /* OBSOLETE        */
 232 /* OBSOLETE       if (have_inferior_p ()) */
 233 /* OBSOLETE     error ("To look at a core file, you must kill the program with \"kill\"."); */
 234 /* OBSOLETE       corechan = open (filename, O_RDONLY, 0); */
 235 /* OBSOLETE       if (corechan < 0) */
 236 /* OBSOLETE     perror_with_name (filename); */
 237 /* OBSOLETE       /* 4.2-style (and perhaps also sysV-style) core dump file.  *x/ */
 238 /* OBSOLETE       { */
 239 /* OBSOLETE     struct user u; */
 240 /* OBSOLETE  */
 241 /* OBSOLETE     unsigned int reg_offset; */
 242 /* OBSOLETE  */
 243 /* OBSOLETE     val = myread (corechan, &u, sizeof u); */
 244 /* OBSOLETE     if (val < 0) */
 245 /* OBSOLETE       perror_with_name ("Not a core file: reading upage"); */
 246 /* OBSOLETE     if (val != sizeof u) */
 247 /* OBSOLETE       error ("Not a core file: could only read %d bytes", val); */
 248 /* OBSOLETE     data_start = exec_data_start; */
 249 /* OBSOLETE  */
 250 /* OBSOLETE     data_end = data_start + NBPG * u.u_dsize; */
 251 /* OBSOLETE     data_offset = NBPG * UPAGES; */
 252 /* OBSOLETE     stack_offset = NBPG * (UPAGES + u.u_dsize); */
 253 /* OBSOLETE  */
 254 /* OBSOLETE     /* find registers in core file *x/ */
 255 /* OBSOLETE #ifdef PYRAMID_PTRACE */
 256 /* OBSOLETE     stack_start = stack_end - NBPG * u.u_ussize; */
 257 /* OBSOLETE     reg_stack_offset = stack_offset + (NBPG *u.u_ussize); */
 258 /* OBSOLETE     reg_stack_end = reg_stack_start + NBPG * u.u_cssize; */
 259 /* OBSOLETE  */
 260 /* OBSOLETE     last_frame_address = ((int) u.u_pcb.pcb_csp); */
 261 /* OBSOLETE     last_frame_offset = reg_stack_offset + last_frame_address */
 262 /* OBSOLETE             - CONTROL_STACK_ADDR ; */
 263 /* OBSOLETE     global_reg_offset = (char *)&u - (char *)&u.u_pcb.pcb_gr0 ; */
 264 /* OBSOLETE  */
 265 /* OBSOLETE     /* skip any control-stack frames that were executed in the */
 266 /* OBSOLETE        kernel. *x/ */
 267 /* OBSOLETE  */
 268 /* OBSOLETE     while (1) { */
 269 /* OBSOLETE         char buf[4]; */
 270 /* OBSOLETE         val = lseek (corechan, last_frame_offset+(47*4), 0); */
 271 /* OBSOLETE         if (val < 0) */
 272 /* OBSOLETE                 perror_with_name (filename); */
 273 /* OBSOLETE         val = myread (corechan, buf, sizeof buf); */
 274 /* OBSOLETE         if (val < 0) */
 275 /* OBSOLETE                 perror_with_name (filename); */
 276 /* OBSOLETE  */
 277 /* OBSOLETE         if (*(int *)buf >= 0) */
 278 /* OBSOLETE                 break; */
 279 /* OBSOLETE         printf_unfiltered ("skipping frame %s\n", local_hex_string (last_frame_address)); */
 280 /* OBSOLETE         last_frame_offset -= CONTROL_STACK_FRAME_SIZE; */
 281 /* OBSOLETE         last_frame_address -= CONTROL_STACK_FRAME_SIZE; */
 282 /* OBSOLETE     } */
 283 /* OBSOLETE     reg_offset = last_frame_offset; */
 284 /* OBSOLETE  */
 285 /* OBSOLETE #if 1 || defined(PYRAMID_CONTROL_FRAME_DEBUGGING) */
 286 /* OBSOLETE     printf_unfiltered ("Control stack pointer = %s\n", */
 287 /* OBSOLETE             local_hex_string (u.u_pcb.pcb_csp)); */
 288 /* OBSOLETE     printf_unfiltered ("offset to control stack %d outermost frame %d (%s)\n", */
 289 /* OBSOLETE           reg_stack_offset, reg_offset, local_hex_string (last_frame_address)); */
 290 /* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */
 291 /* OBSOLETE  */
 292 /* OBSOLETE #else /* not PYRAMID_CORE *x/ */
 293 /* OBSOLETE     stack_start = stack_end - NBPG * u.u_ssize; */
 294 /* OBSOLETE         reg_offset = (int) u.u_ar0 - KERNEL_U_ADDR; */
 295 /* OBSOLETE #endif /* not PYRAMID_CORE *x/ */
 296 /* OBSOLETE  */
 297 /* OBSOLETE #ifdef __not_on_pyr_yet */
 298 /* OBSOLETE     /* Some machines put an absolute address in here and some put */
 299 /* OBSOLETE        the offset in the upage of the regs.  *x/ */
 300 /* OBSOLETE     reg_offset = (int) u.u_ar0; */
 301 /* OBSOLETE     if (reg_offset > NBPG * UPAGES) */
 302 /* OBSOLETE       reg_offset -= KERNEL_U_ADDR; */
 303 /* OBSOLETE #endif */
 304 /* OBSOLETE  */
 305 /* OBSOLETE     /* I don't know where to find this info. */
 306 /* OBSOLETE        So, for now, mark it as not available.  *x/ */
 307 /* OBSOLETE     N_SET_MAGIC (core_aouthdr, 0); */
 308 /* OBSOLETE  */
 309 /* OBSOLETE     /* Read the register values out of the core file and store */
 310 /* OBSOLETE        them where `read_register' will find them.  *x/ */
 311 /* OBSOLETE  */
 312 /* OBSOLETE     { */
 313 /* OBSOLETE       register int regno; */
 314 /* OBSOLETE  */
 315 /* OBSOLETE       for (regno = 0; regno < 64; regno++) */
 316 /* OBSOLETE         { */
 317 /* OBSOLETE           char buf[MAX_REGISTER_RAW_SIZE]; */
 318 /* OBSOLETE  */
 319 /* OBSOLETE           val = lseek (corechan, register_addr (regno, reg_offset), 0); */
 320 /* OBSOLETE           if (val < 0 */
 321 /* OBSOLETE               || (val = myread (corechan, buf, sizeof buf)) < 0) */
 322 /* OBSOLETE             { */
 323 /* OBSOLETE               char * buffer = (char *) alloca (strlen (REGISTER_NAME (regno)) */
 324 /* OBSOLETE                                                + 30); */
 325 /* OBSOLETE               strcpy (buffer, "Reading register "); */
 326 /* OBSOLETE               strcat (buffer, REGISTER_NAME (regno)); */
 327 /* OBSOLETE                                                 */
 328 /* OBSOLETE               perror_with_name (buffer); */
 329 /* OBSOLETE             } */
 330 /* OBSOLETE  */
 331 /* OBSOLETE           if (val < 0) */
 332 /* OBSOLETE             perror_with_name (filename); */
 333 /* OBSOLETE #ifdef PYRAMID_CONTROL_FRAME_DEBUGGING */
 334 /* OBSOLETE       printf_unfiltered ("[reg %s(%d), offset in file %s=0x%0x, addr =0x%0x, =%0x]\n", */
 335 /* OBSOLETE           REGISTER_NAME (regno), regno, filename, */
 336 /* OBSOLETE           register_addr(regno, reg_offset), */
 337 /* OBSOLETE           regno * 4 + last_frame_address, */
 338 /* OBSOLETE           *((int *)buf)); */
 339 /* OBSOLETE #endif /* PYRAMID_CONTROL_FRAME_DEBUGGING *x/ */
 340 /* OBSOLETE           supply_register (regno, buf); */
 341 /* OBSOLETE         } */
 342 /* OBSOLETE     } */
 343 /* OBSOLETE       } */
 344 /* OBSOLETE       if (filename[0] == '/') */
 345 /* OBSOLETE     corefile = savestring (filename, strlen (filename)); */
 346 /* OBSOLETE       else */
 347 /* OBSOLETE     { */
 348 /* OBSOLETE       corefile = concat (current_directory, "/", filename, NULL); */
 349 /* OBSOLETE     } */
 350 /* OBSOLETE  */
 351 /* OBSOLETE #if 1 || defined(PYRAMID_CONTROL_FRAME_DEBUGGING) */
 352 /* OBSOLETE       printf_unfiltered ("Providing CSP (%s) as nominal address of current frame.\n", */
 353 /* OBSOLETE           local_hex_string(last_frame_address)); */
 354 /* OBSOLETE #endif PYRAMID_CONTROL_FRAME_DEBUGGING */
 355 /* OBSOLETE       /* FIXME: Which of the following is correct? *x/ */
 356 /* OBSOLETE #if 0 */
 357 /* OBSOLETE       set_current_frame ( create_new_frame (read_register (FP_REGNUM), */
 358 /* OBSOLETE                                         read_pc ())); */
 359 /* OBSOLETE #else */
 360 /* OBSOLETE       set_current_frame ( create_new_frame (last_frame_address, */
 361 /* OBSOLETE                                         read_pc ())); */
 362 /* OBSOLETE #endif */
 363 /* OBSOLETE  */
 364 /* OBSOLETE       select_frame (get_current_frame (), 0); */
 365 /* OBSOLETE       validate_files (); */
 366 /* OBSOLETE     } */
 367 /* OBSOLETE   else if (from_tty) */
 368 /* OBSOLETE     printf_unfiltered ("No core file now.\n"); */
 369 /* OBSOLETE } */