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, register_size (current_gdbarch, regno), value); 105 regcache_raw_supply (current_regcache, 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 } 265