| 1 | /* OBSOLETE /* Print instructions for Tahoe target machines, for GDB. */ |
| 2 | /* OBSOLETE Copyright 1986, 1989, 1991, 1992, 2000 Free Software Foundation, Inc. */ |
| 3 | /* OBSOLETE Contributed by the State University of New York at Buffalo, by the */ |
| 4 | /* OBSOLETE Distributed Computer Systems Lab, Department of Computer Science, 1991. */ |
| 5 | /* OBSOLETE */ |
| 6 | /* OBSOLETE This file is part of GDB. */ |
| 7 | /* OBSOLETE */ |
| 8 | /* OBSOLETE This program is free software; you can redistribute it and/or modify */ |
| 9 | /* OBSOLETE it under the terms of the GNU General Public License as published by */ |
| 10 | /* OBSOLETE the Free Software Foundation; either version 2 of the License, or */ |
| 11 | /* OBSOLETE (at your option) any later version. */ |
| 12 | /* OBSOLETE */ |
| 13 | /* OBSOLETE This program is distributed in the hope that it will be useful, */ |
| 14 | /* OBSOLETE but WITHOUT ANY WARRANTY; without even the implied warranty of */ |
| 15 | /* OBSOLETE MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the */ |
| 16 | /* OBSOLETE GNU General Public License for more details. */ |
| 17 | /* OBSOLETE */ |
| 18 | /* OBSOLETE You should have received a copy of the GNU General Public License */ |
| 19 | /* OBSOLETE along with this program; if not, write to the Free Software */ |
| 20 | /* OBSOLETE Foundation, Inc., 59 Temple Place - Suite 330, */ |
| 21 | /* OBSOLETE Boston, MA 02111-1307, USA. *x/ */ |
| 22 | /* OBSOLETE */ |
| 23 | /* OBSOLETE #include "defs.h" */ |
| 24 | /* OBSOLETE #include "symtab.h" */ |
| 25 | /* OBSOLETE #include "opcode/tahoe.h" */ |
| 26 | /* OBSOLETE */ |
| 27 | /* OBSOLETE /* Tahoe instructions are never longer than this. *x/ */ |
| 28 | /* OBSOLETE #define MAXLEN 62 */ |
| 29 | /* OBSOLETE */ |
| 30 | /* OBSOLETE /* Number of elements in the opcode table. *x/ */ |
| 31 | /* OBSOLETE #define NOPCODES (sizeof votstrs / sizeof votstrs[0]) */ |
| 32 | /* OBSOLETE */ |
| 33 | /* OBSOLETE static unsigned char *print_insn_arg (); */ |
| 34 | /* OBSOLETE */ |
| 35 | /* OBSOLETE /* Advance PC across any function entry prologue instructions */ |
| 36 | /* OBSOLETE to reach some "real" code. *x/ */ |
| 37 | /* OBSOLETE */ |
| 38 | /* OBSOLETE CORE_ADDR */ |
| 39 | /* OBSOLETE tahoe_skip_prologue (pc) */ |
| 40 | /* OBSOLETE CORE_ADDR pc; */ |
| 41 | /* OBSOLETE { */ |
| 42 | /* OBSOLETE register int op = (unsigned char) read_memory_integer (pc, 1); */ |
| 43 | /* OBSOLETE if (op == 0x11) */ |
| 44 | /* OBSOLETE pc += 2; /* skip brb *x/ */ |
| 45 | /* OBSOLETE if (op == 0x13) */ |
| 46 | /* OBSOLETE pc += 3; /* skip brw *x/ */ |
| 47 | /* OBSOLETE if (op == 0x2c */ |
| 48 | /* OBSOLETE && ((unsigned char) read_memory_integer (pc + 2, 1)) == 0x5e) */ |
| 49 | /* OBSOLETE pc += 3; /* skip subl2 *x/ */ |
| 50 | /* OBSOLETE if (op == 0xe9 */ |
| 51 | /* OBSOLETE && ((unsigned char) read_memory_integer (pc + 1, 1)) == 0xae */ |
| 52 | /* OBSOLETE && ((unsigned char) read_memory_integer (pc + 3, 1)) == 0x5e) */ |
| 53 | /* OBSOLETE pc += 4; /* skip movab *x/ */ |
| 54 | /* OBSOLETE if (op == 0xe9 */ |
| 55 | /* OBSOLETE && ((unsigned char) read_memory_integer (pc + 1, 1)) == 0xce */ |
| 56 | /* OBSOLETE && ((unsigned char) read_memory_integer (pc + 4, 1)) == 0x5e) */ |
| 57 | /* OBSOLETE pc += 5; /* skip movab *x/ */ |
| 58 | /* OBSOLETE if (op == 0xe9 */ |
| 59 | /* OBSOLETE && ((unsigned char) read_memory_integer (pc + 1, 1)) == 0xee */ |
| 60 | /* OBSOLETE && ((unsigned char) read_memory_integer (pc + 6, 1)) == 0x5e) */ |
| 61 | /* OBSOLETE pc += 7; /* skip movab *x/ */ |
| 62 | /* OBSOLETE return pc; */ |
| 63 | /* OBSOLETE } */ |
| 64 | /* OBSOLETE */ |
| 65 | /* OBSOLETE /* Return number of args passed to a frame. */ |
| 66 | /* OBSOLETE Can return -1, meaning no way to tell. *x/ */ |
| 67 | /* OBSOLETE */ |
| 68 | /* OBSOLETE int */ |
| 69 | /* OBSOLETE tahoe_frame_num_args (fi) */ |
| 70 | /* OBSOLETE struct frame_info *fi; */ |
| 71 | /* OBSOLETE { */ |
| 72 | /* OBSOLETE return (((0xffff & read_memory_integer (((fi)->frame - 4), 4)) - 4) >> 2); */ |
| 73 | /* OBSOLETE } */ |
| 74 | /* OBSOLETE */ |
| 75 | /* OBSOLETE /* Print the Tahoe instruction at address MEMADDR in debugged memory, */ |
| 76 | /* OBSOLETE on STREAM. Returns length of the instruction, in bytes. *x/ */ |
| 77 | /* OBSOLETE */ |
| 78 | /* OBSOLETE int */ |
| 79 | /* OBSOLETE tahoe_print_insn (memaddr, stream) */ |
| 80 | /* OBSOLETE CORE_ADDR memaddr; */ |
| 81 | /* OBSOLETE struct ui_file *stream; */ |
| 82 | /* OBSOLETE { */ |
| 83 | /* OBSOLETE unsigned char buffer[MAXLEN]; */ |
| 84 | /* OBSOLETE register int i; */ |
| 85 | /* OBSOLETE register unsigned char *p; */ |
| 86 | /* OBSOLETE register char *d; */ |
| 87 | /* OBSOLETE */ |
| 88 | /* OBSOLETE read_memory (memaddr, buffer, MAXLEN); */ |
| 89 | /* OBSOLETE */ |
| 90 | /* OBSOLETE for (i = 0; i < NOPCODES; i++) */ |
| 91 | /* OBSOLETE if (votstrs[i].detail.code == buffer[0] */ |
| 92 | /* OBSOLETE || votstrs[i].detail.code == *(unsigned short *) buffer) */ |
| 93 | /* OBSOLETE break; */ |
| 94 | /* OBSOLETE */ |
| 95 | /* OBSOLETE /* Handle undefined instructions. *x/ */ |
| 96 | /* OBSOLETE if (i == NOPCODES) */ |
| 97 | /* OBSOLETE { */ |
| 98 | /* OBSOLETE fprintf_unfiltered (stream, "0%o", buffer[0]); */ |
| 99 | /* OBSOLETE return 1; */ |
| 100 | /* OBSOLETE } */ |
| 101 | /* OBSOLETE */ |
| 102 | /* OBSOLETE fprintf_unfiltered (stream, "%s", votstrs[i].name); */ |
| 103 | /* OBSOLETE */ |
| 104 | /* OBSOLETE /* Point at first byte of argument data, */ |
| 105 | /* OBSOLETE and at descriptor for first argument. *x/ */ |
| 106 | /* OBSOLETE p = buffer + 1 + (votstrs[i].detail.code >= 0x100); */ |
| 107 | /* OBSOLETE d = votstrs[i].detail.args; */ |
| 108 | /* OBSOLETE */ |
| 109 | /* OBSOLETE if (*d) */ |
| 110 | /* OBSOLETE fputc_unfiltered ('\t', stream); */ |
| 111 | /* OBSOLETE */ |
| 112 | /* OBSOLETE while (*d) */ |
| 113 | /* OBSOLETE { */ |
| 114 | /* OBSOLETE p = print_insn_arg (d, p, memaddr + (p - buffer), stream); */ |
| 115 | /* OBSOLETE d += 2; */ |
| 116 | /* OBSOLETE if (*d) */ |
| 117 | /* OBSOLETE fprintf_unfiltered (stream, ","); */ |
| 118 | /* OBSOLETE } */ |
| 119 | /* OBSOLETE return p - buffer; */ |
| 120 | /* OBSOLETE } */ |
| 121 | /* OBSOLETE /*******************************************************************x/ */ |
| 122 | /* OBSOLETE static unsigned char * */ |
| 123 | /* OBSOLETE print_insn_arg (d, p, addr, stream) */ |
| 124 | /* OBSOLETE char *d; */ |
| 125 | /* OBSOLETE register char *p; */ |
| 126 | /* OBSOLETE CORE_ADDR addr; */ |
| 127 | /* OBSOLETE struct ui_file *stream; */ |
| 128 | /* OBSOLETE { */ |
| 129 | /* OBSOLETE int temp1 = 0; */ |
| 130 | /* OBSOLETE register int regnum = *p & 0xf; */ |
| 131 | /* OBSOLETE float floatlitbuf; */ |
| 132 | /* OBSOLETE */ |
| 133 | /* OBSOLETE if (*d == 'b') */ |
| 134 | /* OBSOLETE { */ |
| 135 | /* OBSOLETE if (d[1] == 'b') */ |
| 136 | /* OBSOLETE fprintf_unfiltered (stream, "0x%x", addr + *p++ + 1); */ |
| 137 | /* OBSOLETE else */ |
| 138 | /* OBSOLETE { */ |
| 139 | /* OBSOLETE */ |
| 140 | /* OBSOLETE temp1 = *p; */ |
| 141 | /* OBSOLETE temp1 <<= 8; */ |
| 142 | /* OBSOLETE temp1 |= *(p + 1); */ |
| 143 | /* OBSOLETE fprintf_unfiltered (stream, "0x%x", addr + temp1 + 2); */ |
| 144 | /* OBSOLETE p += 2; */ |
| 145 | /* OBSOLETE } */ |
| 146 | /* OBSOLETE } */ |
| 147 | /* OBSOLETE else */ |
| 148 | /* OBSOLETE switch ((*p++ >> 4) & 0xf) */ |
| 149 | /* OBSOLETE { */ |
| 150 | /* OBSOLETE case 0: */ |
| 151 | /* OBSOLETE case 1: */ |
| 152 | /* OBSOLETE case 2: */ |
| 153 | /* OBSOLETE case 3: /* Literal (short immediate byte) mode *x/ */ |
| 154 | /* OBSOLETE if (d[1] == 'd' || d[1] == 'f' || d[1] == 'g' || d[1] == 'h') */ |
| 155 | /* OBSOLETE { */ |
| 156 | /* OBSOLETE *(int *) &floatlitbuf = 0x4000 + ((p[-1] & 0x3f) << 4); */ |
| 157 | /* OBSOLETE fprintf_unfiltered (stream, "$%f", floatlitbuf); */ |
| 158 | /* OBSOLETE } */ |
| 159 | /* OBSOLETE else */ |
| 160 | /* OBSOLETE fprintf_unfiltered (stream, "$%d", p[-1] & 0x3f); */ |
| 161 | /* OBSOLETE break; */ |
| 162 | /* OBSOLETE */ |
| 163 | /* OBSOLETE case 4: /* Indexed *x/ */ |
| 164 | /* OBSOLETE p = (char *) print_insn_arg (d, p, addr + 1, stream); */ |
| 165 | /* OBSOLETE fprintf_unfiltered (stream, "[%s]", REGISTER_NAME (regnum)); */ |
| 166 | /* OBSOLETE break; */ |
| 167 | /* OBSOLETE */ |
| 168 | /* OBSOLETE case 5: /* Register *x/ */ |
| 169 | /* OBSOLETE fprintf_unfiltered (stream, REGISTER_NAME (regnum)); */ |
| 170 | /* OBSOLETE break; */ |
| 171 | /* OBSOLETE */ |
| 172 | /* OBSOLETE case 7: /* Autodecrement *x/ */ |
| 173 | /* OBSOLETE fputc_unfiltered ('-', stream); */ |
| 174 | /* OBSOLETE case 6: /* Register deferred *x/ */ |
| 175 | /* OBSOLETE fprintf_unfiltered (stream, "(%s)", REGISTER_NAME (regnum)); */ |
| 176 | /* OBSOLETE break; */ |
| 177 | /* OBSOLETE */ |
| 178 | /* OBSOLETE case 9: /* Absolute Address & Autoincrement deferred *x/ */ |
| 179 | /* OBSOLETE fputc_unfiltered ('*', stream); */ |
| 180 | /* OBSOLETE if (regnum == PC_REGNUM) */ |
| 181 | /* OBSOLETE { */ |
| 182 | /* OBSOLETE temp1 = *p; */ |
| 183 | /* OBSOLETE temp1 <<= 8; */ |
| 184 | /* OBSOLETE temp1 |= *(p + 1); */ |
| 185 | /* OBSOLETE */ |
| 186 | /* OBSOLETE fputc_unfiltered ('$', stream); */ |
| 187 | /* OBSOLETE print_address (temp1, stream); */ |
| 188 | /* OBSOLETE p += 4; */ |
| 189 | /* OBSOLETE break; */ |
| 190 | /* OBSOLETE } */ |
| 191 | /* OBSOLETE case 8: /*Immediate & Autoincrement SP *x/ */ |
| 192 | /* OBSOLETE if (regnum == 8) /*88 is Immediate Byte Mode *x/ */ |
| 193 | /* OBSOLETE fprintf_unfiltered (stream, "$%d", *p++); */ |
| 194 | /* OBSOLETE */ |
| 195 | /* OBSOLETE else if (regnum == 9) /*89 is Immediate Word Mode *x/ */ |
| 196 | /* OBSOLETE { */ |
| 197 | /* OBSOLETE temp1 = *p; */ |
| 198 | /* OBSOLETE temp1 <<= 8; */ |
| 199 | /* OBSOLETE temp1 |= *(p + 1); */ |
| 200 | /* OBSOLETE fprintf_unfiltered (stream, "$%d", temp1); */ |
| 201 | /* OBSOLETE p += 2; */ |
| 202 | /* OBSOLETE } */ |
| 203 | /* OBSOLETE */ |
| 204 | /* OBSOLETE else if (regnum == PC_REGNUM) /*8F is Immediate Long Mode *x/ */ |
| 205 | /* OBSOLETE { */ |
| 206 | /* OBSOLETE temp1 = *p; */ |
| 207 | /* OBSOLETE temp1 <<= 8; */ |
| 208 | /* OBSOLETE temp1 |= *(p + 1); */ |
| 209 | /* OBSOLETE temp1 <<= 8; */ |
| 210 | /* OBSOLETE temp1 |= *(p + 2); */ |
| 211 | /* OBSOLETE temp1 <<= 8; */ |
| 212 | /* OBSOLETE temp1 |= *(p + 3); */ |
| 213 | /* OBSOLETE fprintf_unfiltered (stream, "$%d", temp1); */ |
| 214 | /* OBSOLETE p += 4; */ |
| 215 | /* OBSOLETE } */ |
| 216 | /* OBSOLETE */ |
| 217 | /* OBSOLETE else /*8E is Autoincrement SP Mode *x/ */ |
| 218 | /* OBSOLETE fprintf_unfiltered (stream, "(%s)+", REGISTER_NAME (regnum)); */ |
| 219 | /* OBSOLETE break; */ |
| 220 | /* OBSOLETE */ |
| 221 | /* OBSOLETE case 11: /* Register + Byte Displacement Deferred Mode *x/ */ |
| 222 | /* OBSOLETE fputc_unfiltered ('*', stream); */ |
| 223 | /* OBSOLETE case 10: /* Register + Byte Displacement Mode *x/ */ |
| 224 | /* OBSOLETE if (regnum == PC_REGNUM) */ |
| 225 | /* OBSOLETE print_address (addr + *p + 2, stream); */ |
| 226 | /* OBSOLETE else */ |
| 227 | /* OBSOLETE fprintf_unfiltered (stream, "%d(%s)", *p, REGISTER_NAME (regnum)); */ |
| 228 | /* OBSOLETE p += 1; */ |
| 229 | /* OBSOLETE break; */ |
| 230 | /* OBSOLETE */ |
| 231 | /* OBSOLETE case 13: /* Register + Word Displacement Deferred Mode *x/ */ |
| 232 | /* OBSOLETE fputc_unfiltered ('*', stream); */ |
| 233 | /* OBSOLETE case 12: /* Register + Word Displacement Mode *x/ */ |
| 234 | /* OBSOLETE temp1 = *p; */ |
| 235 | /* OBSOLETE temp1 <<= 8; */ |
| 236 | /* OBSOLETE temp1 |= *(p + 1); */ |
| 237 | /* OBSOLETE if (regnum == PC_REGNUM) */ |
| 238 | /* OBSOLETE print_address (addr + temp1 + 3, stream); */ |
| 239 | /* OBSOLETE else */ |
| 240 | /* OBSOLETE fprintf_unfiltered (stream, "%d(%s)", temp1, REGISTER_NAME (regnum)); */ |
| 241 | /* OBSOLETE p += 2; */ |
| 242 | /* OBSOLETE break; */ |
| 243 | /* OBSOLETE */ |
| 244 | /* OBSOLETE case 15: /* Register + Long Displacement Deferred Mode *x/ */ |
| 245 | /* OBSOLETE fputc_unfiltered ('*', stream); */ |
| 246 | /* OBSOLETE case 14: /* Register + Long Displacement Mode *x/ */ |
| 247 | /* OBSOLETE temp1 = *p; */ |
| 248 | /* OBSOLETE temp1 <<= 8; */ |
| 249 | /* OBSOLETE temp1 |= *(p + 1); */ |
| 250 | /* OBSOLETE temp1 <<= 8; */ |
| 251 | /* OBSOLETE temp1 |= *(p + 2); */ |
| 252 | /* OBSOLETE temp1 <<= 8; */ |
| 253 | /* OBSOLETE temp1 |= *(p + 3); */ |
| 254 | /* OBSOLETE if (regnum == PC_REGNUM) */ |
| 255 | /* OBSOLETE print_address (addr + temp1 + 5, stream); */ |
| 256 | /* OBSOLETE else */ |
| 257 | /* OBSOLETE fprintf_unfiltered (stream, "%d(%s)", temp1, REGISTER_NAME (regnum)); */ |
| 258 | /* OBSOLETE p += 4; */ |
| 259 | /* OBSOLETE } */ |
| 260 | /* OBSOLETE */ |
| 261 | /* OBSOLETE return (unsigned char *) p; */ |
| 262 | /* OBSOLETE } */ |