contrib/gdb/gdb/rom68k-rom.c

   1 /* Remote target glue for the ROM68K ROM monitor.
   2    Copyright 1988, 1991, 1992, 1993, 1994, 1995, 1998, 1999, 2000, 2001
   3    Free Software Foundation, Inc.
   4
   5    This file is part of GDB.
   6
   7    This program is free software; you can redistribute it and/or modify
   8    it under the terms of the GNU General Public License as published by
   9    the Free Software Foundation; either version 2 of the License, or
  10    (at your option) any later version.
  11
  12    This program is distributed in the hope that it will be useful,
  13    but WITHOUT ANY WARRANTY; without even the implied warranty of
  14    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15    GNU General Public License for more details.
  16
  17    You should have received a copy of the GNU General Public License
  18    along with this program; if not, write to the Free Software
  19    Foundation, Inc., 59 Temple Place - Suite 330,
  20    Boston, MA 02111-1307, USA.  */
  21
  22 #include "defs.h"
  23 #include "gdbcore.h"
  24 #include "target.h"
  25 #include "monitor.h"
  26 #include "serial.h"
  27 #include "regcache.h"
  28 #include "value.h"
  29
  30 #include "m68k-tdep.h"
  31
  32 static void rom68k_open (char *args, int from_tty);
  33
  34 /* Return true if C is a hex digit.
  35    We can't use isxdigit here: that is affected by the current locale;
  36    ROM68K is not.  */
  37 static int
  38 is_hex_digit (int c)
  39 {
  40   return (('0' <= c && c <= '9')
  41           || ('a' <= c && c <= 'f')
  42           || ('A' <= c && c <= 'F'));
  43 }
  44
  45
  46 /* Convert hex digit A to a number.  */
  47 static int
  48 hex_digit_value (int a)
  49 {
  50   if (a >= '0' && a <= '9')
  51     return a - '0';
  52   else if (a >= 'a' && a <= 'f')
  53     return a - 'a' + 10;
  54   else if (a >= 'A' && a <= 'F')
  55     return a - 'A' + 10;
  56   else
  57     error ("Invalid hex digit %d", a);
  58 }
  59
  60
  61 /* Return true iff C is a whitespace character.
  62    We can't use isspace here: that is affected by the current locale;
  63    ROM68K is not.  */
  64 static int
  65 is_whitespace (int c)
  66 {
  67   return (c == ' '
  68           || c == '\r'
  69           || c == '\n'
  70           || c == '\t'
  71           || c == '\f');
  72 }
  73
  74
  75 /* Parse a string of hex digits starting at HEX, supply them as the
  76    value of register REGNO, skip any whitespace, and return a pointer
  77    to the next character.
  78
  79    There is a function in monitor.c, monitor_supply_register, which is
  80    supposed to do this job.  However, there is some rather odd stuff
  81    in there (whitespace characters don't terminate numbers, for
  82    example) that is incorrect for ROM68k.  It's basically impossible
  83    to safely tweak monitor_supply_register --- it's used by a zillion
  84    other monitors; who knows what behaviors they're depending on.  So
  85    instead, we'll just use our own function, which can behave exactly
  86    the way we want it to.  */
  87 static char *
  88 rom68k_supply_one_register (int regno, unsigned char *hex)
  89 {
  90   ULONGEST value;
  91   unsigned char regbuf[MAX_REGISTER_SIZE];
  92
  93   value = 0;
  94   while (*hex != '\0')
  95     if (is_hex_digit (*hex))
  96       value = (value * 16) + hex_digit_value (*hex++);
  97     else
  98       break;
  99
 100   /* Skip any whitespace.  */
 101   while (is_whitespace (*hex))
 102     hex++;
 103
 104   store_unsigned_integer (regbuf, DEPRECATED_REGISTER_RAW_SIZE (regno), value);
 105   supply_register (regno, regbuf);
 106
 107   return hex;
 108 }
 109
 110
 111 static void
 112 rom68k_supply_register (char *regname, int regnamelen, char *val, int vallen)
 113 {
 114   int numregs;
 115   int regno;
 116
 117   numregs = 1;
 118   regno = -1;
 119
 120   if (regnamelen == 2)
 121     switch (regname[0])
 122       {
 123       case 'S':
 124         if (regname[1] == 'R')
 125           regno = PS_REGNUM;
 126         break;
 127       case 'P':
 128         if (regname[1] == 'C')
 129           regno = PC_REGNUM;
 130         break;
 131       case 'D':
 132         if (regname[1] != 'R')
 133           break;
 134         regno = M68K_D0_REGNUM;
 135         numregs = 8;
 136         break;
 137       case 'A':
 138         if (regname[1] != 'R')
 139           break;
 140         regno = M68K_A0_REGNUM;
 141         numregs = 7;
 142         break;
 143       }
 144   else if (regnamelen == 3)
 145     switch (regname[0])
 146       {
 147       case 'I':
 148         if (regname[1] == 'S' && regname[2] == 'P')
 149           regno = SP_REGNUM;
 150       }
 151
 152   if (regno >= 0)
 153     while (numregs-- > 0)
 154       val = rom68k_supply_one_register (regno++, val);
 155 }
 156
 157 /* This array of registers need to match the indexes used by GDB.
 158    This exists because the various ROM monitors use different strings
 159    than does GDB, and don't necessarily support all the registers
 160    either. So, typing "info reg sp" becomes a "r30".  */
 161
 162 static const char *
 163 rom68k_regname (int index)
 164 {
 165
 166   static char *regnames[] =
 167   {
 168     "D0", "D1", "D2", "D3", "D4", "D5", "D6", "D7",
 169     "A0", "A1", "A2", "A3", "A4", "A5", "A6", "ISP",
 170     "SR", "PC"
 171   };
 172
 173   if ((index >= (sizeof (regnames) / sizeof(regnames[0])))
 174        || (index < 0) || (index >= NUM_REGS))
 175     return NULL;
 176   else
 177     return regnames[index];
 178
 179 }
 180
 181 /* Define the monitor command strings. Since these are passed directly
 182    through to a printf style function, we may include formatting
 183    strings. We also need a CR or LF on the end.  */
 184
 185 static struct target_ops rom68k_ops;
 186
 187 static char *rom68k_inits[] =
 188 {".\r\r", NULL};                /* Exits pm/pr & download cmds */
 189
 190 static struct monitor_ops rom68k_cmds;
 191
 192 static void
 193 init_rom68k_cmds (void)
 194 {
 195   rom68k_cmds.flags = MO_PRINT_PROGRAM_OUTPUT;
 196   rom68k_cmds.init = rom68k_inits;      /* monitor init string */
 197   rom68k_cmds.cont = "go\r";
 198   rom68k_cmds.step = "st\r";
 199   rom68k_cmds.stop = NULL;
 200   rom68k_cmds.set_break = "db %x\r";
 201   rom68k_cmds.clr_break = "cb %x\r";
 202   rom68k_cmds.clr_all_break = "cb *\r";
 203   rom68k_cmds.fill = "fm %x %x %x\r";
 204   rom68k_cmds.setmem.cmdb = "pm %x %x\r";
 205   rom68k_cmds.setmem.cmdw = "pm.w %x %x\r";
 206   rom68k_cmds.setmem.cmdl = "pm.l %x %x\r";
 207   rom68k_cmds.setmem.cmdll = NULL;
 208   rom68k_cmds.setmem.resp_delim = NULL;
 209   rom68k_cmds.setmem.term = NULL;
 210   rom68k_cmds.setmem.term_cmd = NULL;
 211   rom68k_cmds.getmem.cmdb = "dm %x %x\r";
 212   rom68k_cmds.getmem.cmdw = "dm.w %x %x\r";
 213   rom68k_cmds.getmem.cmdl = "dm.l %x %x\r";
 214   rom68k_cmds.getmem.cmdll = NULL;
 215   rom68k_cmds.getmem.resp_delim = "  ";
 216   rom68k_cmds.getmem.term = NULL;
 217   rom68k_cmds.getmem.term_cmd = NULL;
 218   rom68k_cmds.setreg.cmd = "pr %s %x\r";
 219   rom68k_cmds.setreg.resp_delim = NULL;
 220   rom68k_cmds.setreg.term = NULL;
 221   rom68k_cmds.setreg.term_cmd = NULL;
 222   rom68k_cmds.getreg.cmd = "pr %s\r";
 223   rom68k_cmds.getreg.resp_delim = ":  ";
 224   rom68k_cmds.getreg.term = "= ";
 225   rom68k_cmds.getreg.term_cmd = ".\r";
 226   rom68k_cmds.dump_registers = "dr\r";
 227   rom68k_cmds.register_pattern =
 228     "\\(\\w+\\)=\\([0-9a-fA-F]+\\( +[0-9a-fA-F]+\\b\\)*\\)";
 229   rom68k_cmds.supply_register = rom68k_supply_register;
 230   rom68k_cmds.load_routine = NULL;
 231   rom68k_cmds.load = "dc\r";
 232   rom68k_cmds.loadresp = "Waiting for S-records from host... ";
 233   rom68k_cmds.prompt = "ROM68K :-> ";
 234   rom68k_cmds.line_term = "\r";
 235   rom68k_cmds.cmd_end = ".\r";
 236   rom68k_cmds.target = &rom68k_ops;
 237   rom68k_cmds.stopbits = SERIAL_1_STOPBITS;
 238   rom68k_cmds.regnames = NULL;
 239   rom68k_cmds.regname = rom68k_regname;
 240   rom68k_cmds.magic = MONITOR_OPS_MAGIC;
 241 }                               /* init_rom68k_cmds */
 242
 243 static void
 244 rom68k_open (char *args, int from_tty)
 245 {
 246   monitor_open (args, &rom68k_cmds, from_tty);
 247 }
 248
 249 extern initialize_file_ftype _initialize_rom68k; /* -Wmissing-prototypes */
 250
 251 void
 252 _initialize_rom68k (void)
 253 {
 254   init_rom68k_cmds ();
 255   init_monitor_ops (&rom68k_ops);
 256
 257   rom68k_ops.to_shortname = "rom68k";
 258   rom68k_ops.to_longname = "Rom68k debug monitor for the IDP Eval board";
 259   rom68k_ops.to_doc = "Debug on a Motorola IDP eval board running the ROM68K monitor.\n\
 260 Specify the serial device it is connected to (e.g. /dev/ttya).";
 261   rom68k_ops.to_open = rom68k_open;
 262
 263   add_target (&rom68k_ops);
 264 }