gdb/gould-tdep.c

   1 /* OBSOLETE /* GOULD RISC target-dependent code for GDB, the GNU debugger. */
   2 /* OBSOLETE    Copyright 1986, 1987, 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 "symtab.h" */
  22 /* OBSOLETE #include "frame.h" */
  23 /* OBSOLETE #include "gdbcore.h" */
  24 /* OBSOLETE #if defined GOULD_PN */
  25 /* OBSOLETE #include "opcode/pn.h" */
  26 /* OBSOLETE #else */
  27 /* OBSOLETE #include "opcode/np1.h" */
  28 /* OBSOLETE #endif */
  29 /* OBSOLETE  */
  30 /* OBSOLETE /* GOULD RISC instructions are never longer than this many bytes.  *x/ */
  31 /* OBSOLETE #define MAXLEN 4 */
  32 /* OBSOLETE  */
  33 /* OBSOLETE /* Number of elements in the opcode table.  *x/ */
  34 /* OBSOLETE #define NOPCODES (sizeof gld_opcodes / sizeof gld_opcodes[0]) */
  35 /* OBSOLETE  */
  36 /* OBSOLETE int */
  37 /* OBSOLETE gould_frame_chain_valid (chain, fi) */
  38 /* OBSOLETE      CORE_ADDR chain; */
  39 /* OBSOLETE      struct frame_info *fi;      /* not used here *x/ */
  40 /* OBSOLETE { */
  41 /* OBSOLETE   return (chain != 0 && chain != (thisframe)->frame); */
  42 /* OBSOLETE } */
  43 /* OBSOLETE  */
  44 /* OBSOLETE /* Both gcc and cc return small structs in registers (i.e. in GDB */
  45 /* OBSOLETE    terminology, small structs don't use the struct return convention).  *x/ */
  46 /* OBSOLETE int */
  47 /* OBSOLETE gould_use_struct_convention (gcc_p, type) */
  48 /* OBSOLETE      int gcc_p; */
  49 /* OBSOLETE      struct type *type; */
  50 /* OBSOLETE { */
  51 /* OBSOLETE   return (TYPE_LENGTH(type) > 8); */
  52 /* OBSOLETE } */
  53 /* OBSOLETE  */
  54 /* OBSOLETE  */
  55 /* OBSOLETE \f */
  56 /* OBSOLETE /* Print the GOULD instruction at address MEMADDR in debugged memory, */
  57 /* OBSOLETE    on STREAM.  Returns length of the instruction, in bytes.  *x/ */
  58 /* OBSOLETE  */
  59 /* OBSOLETE int */
  60 /* OBSOLETE gould_print_insn (memaddr, stream) */
  61 /* OBSOLETE      CORE_ADDR memaddr; */
  62 /* OBSOLETE      FILE *stream; */
  63 /* OBSOLETE { */
  64 /* OBSOLETE     unsigned char buffer[MAXLEN]; */
  65 /* OBSOLETE     register int i; */
  66 /* OBSOLETE     register char *d; */
  67 /* OBSOLETE     register int bestmask; */
  68 /* OBSOLETE     unsigned best; */
  69 /* OBSOLETE     int temp, index, bestlen; */
  70 /* OBSOLETE  */
  71 /* OBSOLETE     read_memory (memaddr, buffer, MAXLEN); */
  72 /* OBSOLETE  */
  73 /* OBSOLETE     bestmask = 0; */
  74 /* OBSOLETE     index = -1; */
  75 /* OBSOLETE     best = 0xffffffff; */
  76 /* OBSOLETE     for (i = 0; i < NOPCODES; i++) */
  77 /* OBSOLETE     { */
  78 /* OBSOLETE             register unsigned int opcode = gld_opcodes[i].opcode; */
  79 /* OBSOLETE             register unsigned int mask = gld_opcodes[i].mask; */
  80 /* OBSOLETE             register unsigned int len = gld_opcodes[i].length; */
  81 /* OBSOLETE             register unsigned int test; */
  82 /* OBSOLETE  */
  83 /* OBSOLETE             /* Get possible opcode bytes into integer *x/ */
  84 /* OBSOLETE             test = buffer[0] << 24; */
  85 /* OBSOLETE             test |= buffer[1] << 16; */
  86 /* OBSOLETE             test |= buffer[2] << 8; */
  87 /* OBSOLETE             test |= buffer[3]; */
  88 /* OBSOLETE  */
  89 /* OBSOLETE             /* Mask with opcode and see if match *x/ */
  90 /* OBSOLETE             if ((opcode & mask) == (test & mask)) */
  91 /* OBSOLETE             { */
  92 /* OBSOLETE                     /* See if second or third match *x/ */
  93 /* OBSOLETE                     if (index >= 0) */
  94 /* OBSOLETE                     { */
  95 /* OBSOLETE                             /* Take new one if it looks good *x/ */
  96 /* OBSOLETE                             if (bestlen == MAXLEN && len == MAXLEN) */
  97 /* OBSOLETE                             { */
  98 /* OBSOLETE                                     /* See if lower bits matched *x/ */
  99 /* OBSOLETE                                     if (((bestmask & 3) == 0) && */
 100 /* OBSOLETE                                         ((mask & 3) != 0)) */
 101 /* OBSOLETE                                     { */
 102 /* OBSOLETE                                             bestmask = mask; */
 103 /* OBSOLETE                                             bestlen = len; */
 104 /* OBSOLETE                                             best = test; */
 105 /* OBSOLETE                                             index = i; */
 106 /* OBSOLETE                                     } */
 107 /* OBSOLETE                             } */
 108 /* OBSOLETE                     } */
 109 /* OBSOLETE                     else */
 110 /* OBSOLETE                     { */
 111 /* OBSOLETE                             /* First match, save it *x/ */
 112 /* OBSOLETE                             bestmask = mask; */
 113 /* OBSOLETE                             bestlen = len; */
 114 /* OBSOLETE                             best = test; */
 115 /* OBSOLETE                             index = i; */
 116 /* OBSOLETE                     } */
 117 /* OBSOLETE             } */
 118 /* OBSOLETE     } */
 119 /* OBSOLETE  */
 120 /* OBSOLETE     /* Handle undefined instructions.  *x/ */
 121 /* OBSOLETE     if (index < 0) */
 122 /* OBSOLETE     { */
 123 /* OBSOLETE             fprintf (stream, "undefined   0%o",(buffer[0]<<8)+buffer[1]); */
 124 /* OBSOLETE             return 2; */
 125 /* OBSOLETE     } */
 126 /* OBSOLETE  */
 127 /* OBSOLETE     /* Print instruction name *x/ */
 128 /* OBSOLETE     fprintf (stream, "%-12s", gld_opcodes[index].name); */
 129 /* OBSOLETE  */
 130 /* OBSOLETE     /* Adjust if short instruction *x/ */
 131 /* OBSOLETE     if (gld_opcodes[index].length < 4) */
 132 /* OBSOLETE     { */
 133 /* OBSOLETE             best >>= 16; */
 134 /* OBSOLETE             i = 0; */
 135 /* OBSOLETE     } */
 136 /* OBSOLETE     else */
 137 /* OBSOLETE     { */
 138 /* OBSOLETE             i = 16; */
 139 /* OBSOLETE     } */
 140 /* OBSOLETE  */
 141 /* OBSOLETE     /* Dump out instruction arguments *x/ */
 142 /* OBSOLETE     for (d = gld_opcodes[index].args; *d; ++d) */
 143 /* OBSOLETE     { */
 144 /* OBSOLETE         switch (*d) */
 145 /* OBSOLETE         { */
 146 /* OBSOLETE             case 'f': */
 147 /* OBSOLETE                 fprintf (stream, "%d",  (best >> (7 + i)) & 7); */
 148 /* OBSOLETE                 break; */
 149 /* OBSOLETE             case 'r': */
 150 /* OBSOLETE                 fprintf (stream, "r%d", (best >> (7 + i)) & 7); */
 151 /* OBSOLETE                 break; */
 152 /* OBSOLETE             case 'R': */
 153 /* OBSOLETE                 fprintf (stream, "r%d", (best >> (4 + i)) & 7); */
 154 /* OBSOLETE                 break; */
 155 /* OBSOLETE             case 'b': */
 156 /* OBSOLETE                 fprintf (stream, "b%d", (best >> (7 + i)) & 7); */
 157 /* OBSOLETE                 break; */
 158 /* OBSOLETE             case 'B': */
 159 /* OBSOLETE                 fprintf (stream, "b%d", (best >> (4 + i)) & 7); */
 160 /* OBSOLETE                 break; */
 161 /* OBSOLETE             case 'v': */
 162 /* OBSOLETE                 fprintf (stream, "b%d", (best >> (7 + i)) & 7); */
 163 /* OBSOLETE                 break; */
 164 /* OBSOLETE             case 'V': */
 165 /* OBSOLETE                 fprintf (stream, "b%d", (best >> (4 + i)) & 7); */
 166 /* OBSOLETE                 break; */
 167 /* OBSOLETE             case 'X': */
 168 /* OBSOLETE                 temp = (best >> 20) & 7; */
 169 /* OBSOLETE                 if (temp) */
 170 /* OBSOLETE                     fprintf (stream, "r%d", temp); */
 171 /* OBSOLETE                 else */
 172 /* OBSOLETE                     putc ('0', stream); */
 173 /* OBSOLETE                 break; */
 174 /* OBSOLETE             case 'A': */
 175 /* OBSOLETE                 temp = (best >> 16) & 7; */
 176 /* OBSOLETE                 if (temp) */
 177 /* OBSOLETE                     fprintf (stream, "(b%d)", temp); */
 178 /* OBSOLETE                 break; */
 179 /* OBSOLETE             case 'S': */
 180 /* OBSOLETE                 fprintf (stream, "#%d", best & 0x1f); */
 181 /* OBSOLETE                 break; */
 182 /* OBSOLETE             case 'I': */
 183 /* OBSOLETE                 fprintf (stream, "#%x", best & 0xffff); */
 184 /* OBSOLETE                 break; */
 185 /* OBSOLETE             case 'O': */
 186 /* OBSOLETE                 fprintf (stream, "%x", best & 0xffff); */
 187 /* OBSOLETE                 break; */
 188 /* OBSOLETE             case 'h': */
 189 /* OBSOLETE                 fprintf (stream, "%d", best & 0xfffe); */
 190 /* OBSOLETE                 break; */
 191 /* OBSOLETE             case 'd': */
 192 /* OBSOLETE                 fprintf (stream, "%d", best & 0xfffc); */
 193 /* OBSOLETE                 break; */
 194 /* OBSOLETE             case 'T': */
 195 /* OBSOLETE                 fprintf (stream, "%d", (best >> 8) & 0xff); */
 196 /* OBSOLETE                 break; */
 197 /* OBSOLETE             case 'N': */
 198 /* OBSOLETE                 fprintf (stream, "%d", best & 0xff); */
 199 /* OBSOLETE                 break; */
 200 /* OBSOLETE             default: */
 201 /* OBSOLETE                 putc (*d, stream); */
 202 /* OBSOLETE                 break; */
 203 /* OBSOLETE         } */
 204 /* OBSOLETE     } */
 205 /* OBSOLETE  */
 206 /* OBSOLETE     /* Return length of instruction *x/ */
 207 /* OBSOLETE     return (gld_opcodes[index].length); */
 208 /* OBSOLETE } */
 209 /* OBSOLETE  */
 210 /* OBSOLETE /* */
 211 /* OBSOLETE  * Find the number of arguments to a function. */
 212 /* OBSOLETE  *x/ */
 213 /* OBSOLETE findarg(frame) */
 214 /* OBSOLETE     struct frame_info *frame; */
 215 /* OBSOLETE { */
 216 /* OBSOLETE     register struct symbol *func; */
 217 /* OBSOLETE     register unsigned pc; */
 218 /* OBSOLETE  */
 219 /* OBSOLETE #ifdef notdef */
 220 /* OBSOLETE     /* find starting address of frame function *x/ */
 221 /* OBSOLETE     pc = get_pc_function_start (frame->pc); */
 222 /* OBSOLETE  */
 223 /* OBSOLETE     /* find function symbol info *x/ */
 224 /* OBSOLETE     func = find_pc_function (pc); */
 225 /* OBSOLETE  */
 226 /* OBSOLETE     /* call blockframe code to look for match *x/ */
 227 /* OBSOLETE     if (func != NULL) */
 228 /* OBSOLETE                 return (func->value.block->nsyms / sizeof(int)); */
 229 /* OBSOLETE #endif */
 230 /* OBSOLETE  */
 231 /* OBSOLETE         return (-1); */
 232 /* OBSOLETE }  */
 233 /* OBSOLETE  */
 234 /* OBSOLETE /* */
 235 /* OBSOLETE  * In the case of the NPL, the frame's norminal address is Br2 and the  */
 236 /* OBSOLETE  * previous routines frame is up the stack X bytes.  Finding out what */
 237 /* OBSOLETE  * 'X' is can be tricky. */
 238 /* OBSOLETE  * */
 239 /* OBSOLETE  *    1.) stored in the code function header xA(Br1). */
 240 /* OBSOLETE  *    2.) must be careful of recurssion. */
 241 /* OBSOLETE  *x/ */
 242 /* OBSOLETE CORE_ADDR */
 243 /* OBSOLETE findframe(thisframe) */
 244 /* OBSOLETE     struct frame_info *thisframe; */
 245 /* OBSOLETE { */
 246 /* OBSOLETE     register CORE_ADDR pointer; */
 247 /* OBSOLETE     CORE_ADDR framechain(); */
 248 /* OBSOLETE #if 0     */
 249 /* OBSOLETE     struct frame_info *frame; */
 250 /* OBSOLETE  */
 251 /* OBSOLETE     /* Setup toplevel frame structure *x/ */
 252 /* OBSOLETE     frame->pc = read_pc(); */
 253 /* OBSOLETE     frame->next_frame = 0; */
 254 /* OBSOLETE     frame->frame = read_register (SP_REGNUM);       /* Br2 *x/ */
 255 /* OBSOLETE  */
 256 /* OBSOLETE     /* Search for this frame (start at current Br2) *x/ */
 257 /* OBSOLETE     do */
 258 /* OBSOLETE     { */
 259 /* OBSOLETE     pointer = framechain(frame); */
 260 /* OBSOLETE     frame->next_frame = frame->frame; */
 261 /* OBSOLETE     frame->frame = pointer; */
 262 /* OBSOLETE     frame->pc = FRAME_SAVED_PC(frame); */
 263 /* OBSOLETE     } */
 264 /* OBSOLETE     while (frame->next_frame != thisframe); */
 265 /* OBSOLETE #endif */
 266 /* OBSOLETE  */
 267 /* OBSOLETE     pointer = framechain (thisframe); */
 268 /* OBSOLETE  */
 269 /* OBSOLETE     /* stop gap for now, end at __base3 *x/ */
 270 /* OBSOLETE     if (thisframe->pc == 0) */
 271 /* OBSOLETE     return 0; */
 272 /* OBSOLETE  */
 273 /* OBSOLETE     return pointer; */
 274 /* OBSOLETE } */
 275 /* OBSOLETE  */
 276 /* OBSOLETE /* */
 277 /* OBSOLETE  * Gdb front-end and internal framechain routine. */
 278 /* OBSOLETE  * Go back up stack one level.  Tricky... */
 279 /* OBSOLETE  *x/ */
 280 /* OBSOLETE CORE_ADDR */
 281 /* OBSOLETE framechain(frame) */
 282 /* OBSOLETE     register struct frame_info *frame; */
 283 /* OBSOLETE { */
 284 /* OBSOLETE     register CORE_ADDR func, prevsp; */
 285 /* OBSOLETE     register unsigned value; */
 286 /* OBSOLETE  */
 287 /* OBSOLETE     /* Get real function start address from internal frame address *x/ */
 288 /* OBSOLETE     func = get_pc_function_start(frame->pc); */
 289 /* OBSOLETE  */
 290 /* OBSOLETE     /* If no stack given, read register Br1 "(sp)" *x/ */
 291 /* OBSOLETE     if (!frame->frame) */
 292 /* OBSOLETE     prevsp = read_register (SP_REGNUM); */
 293 /* OBSOLETE     else */
 294 /* OBSOLETE     prevsp = frame->frame; */
 295 /* OBSOLETE  */
 296 /* OBSOLETE     /* Check function header, case #2 *x/ */
 297 /* OBSOLETE     value = read_memory_integer (func, 4); */
 298 /* OBSOLETE     if (value) */
 299 /* OBSOLETE     { */
 300 /* OBSOLETE     /* 32bit call push value stored in function header *x/ */
 301 /* OBSOLETE     prevsp += value; */
 302 /* OBSOLETE     } */
 303 /* OBSOLETE     else */
 304 /* OBSOLETE     { */
 305 /* OBSOLETE     /* read half-word from suabr at start of function *x/ */
 306 /* OBSOLETE     prevsp += read_memory_integer (func + 10, 2); */
 307 /* OBSOLETE     } */
 308 /* OBSOLETE  */
 309 /* OBSOLETE     return (prevsp); */
 310 /* OBSOLETE } */