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