gdb/w65-tdep.c

   1 /* OBSOLETE /* Target-machine dependent code for WDC-65816, for GDB. */
   2 /* OBSOLETE    Copyright 1995, 1996, 2000, 2001 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, */
  19 /* OBSOLETE    Boston, MA 02111-1307, USA.  */ */
  20 /* OBSOLETE  */
  21 /* OBSOLETE /* */
  22 /* OBSOLETE    Contributed by Steve Chamberlain */
  23 /* OBSOLETE    sac@cygnus.com */
  24 /* OBSOLETE  */ */
  25 /* OBSOLETE  */
  26 /* OBSOLETE #include "defs.h" */
  27 /* OBSOLETE #include "frame.h" */
  28 /* OBSOLETE #include "obstack.h" */
  29 /* OBSOLETE #include "symtab.h" */
  30 /* OBSOLETE #include "gdbcmd.h" */
  31 /* OBSOLETE #include "gdbtypes.h" */
  32 /* OBSOLETE #include "dis-asm.h" */
  33 /* OBSOLETE #include "gdbcore.h" */
  34 /* OBSOLETE #include "regcache.h" */
  35 /* OBSOLETE  */
  36 /* OBSOLETE /* Return the saved PC from this frame. */ */
  37 /* OBSOLETE  */
  38 /* OBSOLETE  */
  39 /* OBSOLETE CORE_ADDR */
  40 /* OBSOLETE w65_frame_saved_pc (struct frame_info *frame) */
  41 /* OBSOLETE { */
  42 /* OBSOLETE   return (read_memory_integer (frame->frame + 2, 4) & 0xffffff); */
  43 /* OBSOLETE } */
  44 /* OBSOLETE  */
  45 /* OBSOLETE CORE_ADDR */
  46 /* OBSOLETE w65_addr_bits_remove (CORE_ADDR addr) */
  47 /* OBSOLETE { */
  48 /* OBSOLETE   return ((addr) & 0xffffff); */
  49 /* OBSOLETE } */
  50 /* OBSOLETE  */
  51 /* OBSOLETE read_memory_pointer (CORE_ADDR x) */
  52 /* OBSOLETE { */
  53 /* OBSOLETE   return read_memory_integer (ADDR_BITS_REMOVE (x), 4); */
  54 /* OBSOLETE } */
  55 /* OBSOLETE  */
  56 /* OBSOLETE init_frame_pc (void) */
  57 /* OBSOLETE { */
  58 /* OBSOLETE   internal_error (__FILE__, __LINE__, "failed internal consistency check"); */
  59 /* OBSOLETE } */
  60 /* OBSOLETE  */
  61 /* OBSOLETE void */
  62 /* OBSOLETE w65_push_dummy_frame (void) */
  63 /* OBSOLETE { */
  64 /* OBSOLETE   internal_error (__FILE__, __LINE__, "failed internal consistency check"); */
  65 /* OBSOLETE } */
  66 /* OBSOLETE  */
  67 /* OBSOLETE /* Put here the code to store, into a struct frame_saved_regs, */
  68 /* OBSOLETE    the addresses of the saved registers of frame described by FRAME_INFO. */
  69 /* OBSOLETE    This includes special registers such as pc and fp saved in special */
  70 /* OBSOLETE    ways in the stack frame.  sp is even more special: */
  71 /* OBSOLETE    the address we return for it IS the sp for the next frame. */
  72 /* OBSOLETE  */
  73 /* OBSOLETE    We cache the result of doing this in the frame_cache_obstack, since */
  74 /* OBSOLETE    it is fairly expensive.  */ */
  75 /* OBSOLETE  */
  76 /* OBSOLETE void */
  77 /* OBSOLETE frame_find_saved_regs (struct frame_info *fip, struct frame_saved_regs *fsrp) */
  78 /* OBSOLETE { */
  79 /* OBSOLETE   int locals; */
  80 /* OBSOLETE   CORE_ADDR pc; */
  81 /* OBSOLETE   CORE_ADDR adr; */
  82 /* OBSOLETE   int i; */
  83 /* OBSOLETE  */
  84 /* OBSOLETE   memset (fsrp, 0, sizeof *fsrp); */
  85 /* OBSOLETE } */
  86 /* OBSOLETE  */
  87 /* OBSOLETE int */
  88 /* OBSOLETE saved_pc_after_call (void) */
  89 /* OBSOLETE { */
  90 /* OBSOLETE   int sp = read_register (SP_REGNUM); */
  91 /* OBSOLETE   int val = read_memory_integer (sp + 1, 4); */
  92 /* OBSOLETE   return ADDR_BITS_REMOVE (val); */
  93 /* OBSOLETE } */
  94 /* OBSOLETE  */
  95 /* OBSOLETE  */
  96 /* OBSOLETE extract_return_value (struct type *type, char *regbuf, char *valbuf) */
  97 /* OBSOLETE { */
  98 /* OBSOLETE   int b; */
  99 /* OBSOLETE   int len = TYPE_LENGTH (type); */
 100 /* OBSOLETE  */
 101 /* OBSOLETE   for (b = 0; b < len; b += 2) */
 102 /* OBSOLETE     { */
 103 /* OBSOLETE       int todo = len - b; */
 104 /* OBSOLETE       if (todo > 2) */
 105 /* OBSOLETE     todo = 2; */
 106 /* OBSOLETE       memcpy (valbuf + b, regbuf + b, todo); */
 107 /* OBSOLETE     } */
 108 /* OBSOLETE } */
 109 /* OBSOLETE  */
 110 /* OBSOLETE void */
 111 /* OBSOLETE write_return_value (struct type *type, char *valbuf) */
 112 /* OBSOLETE { */
 113 /* OBSOLETE   int reg; */
 114 /* OBSOLETE   int len; */
 115 /* OBSOLETE   for (len = 0; len < TYPE_LENGTH (type); len += 2) */
 116 /* OBSOLETE     { */
 117 /* OBSOLETE       write_register_bytes (REGISTER_BYTE (len / 2 + 2), valbuf + len, 2); */
 118 /* OBSOLETE     } */
 119 /* OBSOLETE } */
 120 /* OBSOLETE  */
 121 /* OBSOLETE void */
 122 /* OBSOLETE store_struct_return (CORE_ADDR addr, CORE_ADDR sp) */
 123 /* OBSOLETE { */
 124 /* OBSOLETE   write_register (2, addr); */
 125 /* OBSOLETE } */
 126 /* OBSOLETE  */
 127 /* OBSOLETE void */
 128 /* OBSOLETE w65_pop_frame (void) */
 129 /* OBSOLETE { */
 130 /* OBSOLETE } */
 131 /* OBSOLETE  */
 132 /* OBSOLETE init_extra_frame_info (void) */
 133 /* OBSOLETE { */
 134 /* OBSOLETE } */
 135 /* OBSOLETE  */
 136 /* OBSOLETE pop_frame (void) */
 137 /* OBSOLETE { */
 138 /* OBSOLETE } */
 139 /* OBSOLETE  */
 140 /* OBSOLETE w65_frame_chain (struct frame_info *thisframe) */
 141 /* OBSOLETE { */
 142 /* OBSOLETE   return 0xffff & read_memory_integer ((thisframe)->frame, 2); */
 143 /* OBSOLETE } */
 144 /* OBSOLETE  */
 145 /* OBSOLETE static int */
 146 /* OBSOLETE gb (int x) */
 147 /* OBSOLETE { */
 148 /* OBSOLETE   return read_memory_integer (x, 1) & 0xff; */
 149 /* OBSOLETE } */
 150 /* OBSOLETE  */
 151 /* OBSOLETE extern CORE_ADDR */
 152 /* OBSOLETE w65_skip_prologue (CORE_ADDR pc) */
 153 /* OBSOLETE { */
 154 /* OBSOLETE   CORE_ADDR too_far = pc + 20; */
 155 /* OBSOLETE  */
 156 /* OBSOLETE   /* looking for bits of the prologue, we can expect to */
 157 /* OBSOLETE      see this in a frameful function: */
 158 /* OBSOLETE  */
 159 /* OBSOLETE      stack adjust: */
 160 /* OBSOLETE  */
 161 /* OBSOLETE      3B                 tsc */
 162 /* OBSOLETE      1A                 inc a */
 163 /* OBSOLETE      18                 clc */
 164 /* OBSOLETE      69E2FF             adc     #0xffe2 */
 165 /* OBSOLETE      3A                 dec a */
 166 /* OBSOLETE      1B                 tcs */
 167 /* OBSOLETE      1A                 inc a */
 168 /* OBSOLETE  */
 169 /* OBSOLETE      link: */
 170 /* OBSOLETE  */
 171 /* OBSOLETE      A500               lda     <r15 */
 172 /* OBSOLETE      48                 pha */
 173 /* OBSOLETE      3B                 tsc */
 174 /* OBSOLETE      1a                 inc     a */
 175 /* OBSOLETE      8500               sta     <r15 */
 176 /* OBSOLETE  */
 177 /* OBSOLETE    */ */
 178 /* OBSOLETE  */
 179 /* OBSOLETE #define TSC  0x3b */
 180 /* OBSOLETE #define TCS  0x1b */
 181 /* OBSOLETE #define INCA 0x1a */
 182 /* OBSOLETE #define PHA  0x48 */
 183 /* OBSOLETE #define LDADIR 0xa5 */
 184 /* OBSOLETE #define STADIR 0x85 */
 185 /* OBSOLETE  */
 186 /* OBSOLETE   /* Skip a stack adjust - any area between a tsc and tcs */ */
 187 /* OBSOLETE   if (gb (pc) == TSC) */
 188 /* OBSOLETE     { */
 189 /* OBSOLETE       while (pc < too_far && gb (pc) != TCS) */
 190 /* OBSOLETE     { */
 191 /* OBSOLETE       pc++; */
 192 /* OBSOLETE     } */
 193 /* OBSOLETE       pc++; */
 194 /* OBSOLETE       /* Skip a stupid inc a */ */
 195 /* OBSOLETE       if (gb (pc) == INCA) */
 196 /* OBSOLETE     pc++; */
 197 /* OBSOLETE  */
 198 /* OBSOLETE     } */
 199 /* OBSOLETE   /* Stack adjust can also be done with n pha's */ */
 200 /* OBSOLETE   while (gb (pc) == PHA) */
 201 /* OBSOLETE     pc++; */
 202 /* OBSOLETE  */
 203 /* OBSOLETE   /* Skip a link - that's a ld/ph/tsc/inc/sta */ */
 204 /* OBSOLETE  */
 205 /* OBSOLETE   if (gb (pc) == LDADIR */
 206 /* OBSOLETE       && gb (pc + 5) == STADIR */
 207 /* OBSOLETE       && gb (pc + 1) == gb (pc + 6) */
 208 /* OBSOLETE       && gb (pc + 2) == PHA */
 209 /* OBSOLETE       && gb (pc + 3) == TSC */
 210 /* OBSOLETE       && gb (pc + 4) == INCA) */
 211 /* OBSOLETE     { */
 212 /* OBSOLETE       pc += 7; */
 213 /* OBSOLETE     } */
 214 /* OBSOLETE  */
 215 /* OBSOLETE   return pc; */
 216 /* OBSOLETE } */
 217 /* OBSOLETE  */
 218 /* OBSOLETE  */
 219 /* OBSOLETE register_raw_size (int n) */
 220 /* OBSOLETE { */
 221 /* OBSOLETE   return sim_reg_size (n); */
 222 /* OBSOLETE } */
 223 /* OBSOLETE  */
 224 /* OBSOLETE  */
 225 /* OBSOLETE void */
 226 /* OBSOLETE print_register_hook (int regno) */
 227 /* OBSOLETE { */
 228 /* OBSOLETE   if (regno == P_REGNUM) */
 229 /* OBSOLETE     { */
 230 /* OBSOLETE       /* CCR register */ */
 231 /* OBSOLETE  */
 232 /* OBSOLETE       int C, Z, N, V, I, D, X, M; */
 233 /* OBSOLETE       unsigned char b[1]; */
 234 /* OBSOLETE       unsigned char l; */
 235 /* OBSOLETE  */
 236 /* OBSOLETE       read_relative_register_raw_bytes (regno, b); */
 237 /* OBSOLETE       l = b[0]; */
 238 /* OBSOLETE       printf_unfiltered ("\t"); */
 239 /* OBSOLETE       C = (l & 0x1) != 0; */
 240 /* OBSOLETE       Z = (l & 0x2) != 0; */
 241 /* OBSOLETE       I = (l & 0x4) != 0; */
 242 /* OBSOLETE       D = (l & 0x8) != 0; */
 243 /* OBSOLETE       X = (l & 0x10) != 0; */
 244 /* OBSOLETE       M = (l & 0x20) != 0; */
 245 /* OBSOLETE       V = (l & 0x40) != 0; */
 246 /* OBSOLETE       N = (l & 0x80) != 0; */
 247 /* OBSOLETE  */
 248 /* OBSOLETE       printf_unfiltered ("N-%d ", N); */
 249 /* OBSOLETE       printf_unfiltered ("V-%d ", V); */
 250 /* OBSOLETE       printf_unfiltered ("M-%d ", M); */
 251 /* OBSOLETE       printf_unfiltered ("X-%d ", X); */
 252 /* OBSOLETE       printf_unfiltered ("D-%d ", D); */
 253 /* OBSOLETE       printf_unfiltered ("I-%d ", I); */
 254 /* OBSOLETE       printf_unfiltered ("Z-%d ", Z); */
 255 /* OBSOLETE       printf_unfiltered ("C-%d ", C); */
 256 /* OBSOLETE       if ((C | Z) == 0) */
 257 /* OBSOLETE     printf_unfiltered ("u> "); */
 258 /* OBSOLETE       if ((C | Z) == 1) */
 259 /* OBSOLETE     printf_unfiltered ("u<= "); */
 260 /* OBSOLETE       if ((C == 0)) */
 261 /* OBSOLETE     printf_unfiltered ("u>= "); */
 262 /* OBSOLETE       if (C == 1) */
 263 /* OBSOLETE     printf_unfiltered ("u< "); */
 264 /* OBSOLETE       if (Z == 0) */
 265 /* OBSOLETE     printf_unfiltered ("!= "); */
 266 /* OBSOLETE       if (Z == 1) */
 267 /* OBSOLETE     printf_unfiltered ("== "); */
 268 /* OBSOLETE       if ((N ^ V) == 0) */
 269 /* OBSOLETE     printf_unfiltered (">= "); */
 270 /* OBSOLETE       if ((N ^ V) == 1) */
 271 /* OBSOLETE     printf_unfiltered ("< "); */
 272 /* OBSOLETE       if ((Z | (N ^ V)) == 0) */
 273 /* OBSOLETE     printf_unfiltered ("> "); */
 274 /* OBSOLETE       if ((Z | (N ^ V)) == 1) */
 275 /* OBSOLETE     printf_unfiltered ("<= "); */
 276 /* OBSOLETE     } */
 277 /* OBSOLETE } */
 278 /* OBSOLETE  */
 279 /* OBSOLETE void */
 280 /* OBSOLETE _initialize_w65_tdep (void) */
 281 /* OBSOLETE { */
 282 /* OBSOLETE   tm_print_insn = print_insn_w65; */
 283 /* OBSOLETE } */