1 /* Print VAX instructions for GDB, the GNU debugger.
2 Copyright 1986, 1989, 1991, 1992, 1995, 1996, 1998, 1999, 2000
3 Free Software Foundation, Inc.
5 This file is part of GDB.
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.
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.
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. */
24 #include "opcode/vax.h"
29 /* Vax instructions are never longer than this. */
32 /* Number of elements in the opcode table. */
33 #define NOPCODES (sizeof votstrs / sizeof votstrs[0])
35 static unsigned char *print_insn_arg ();
37 /* Advance PC across any function entry prologue instructions
38 to reach some "real" code. */
41 vax_skip_prologue (CORE_ADDR pc
)
43 register int op
= (unsigned char) read_memory_integer (pc
, 1);
45 pc
+= 2; /* skip brb */
47 pc
+= 3; /* skip brw */
49 && ((unsigned char) read_memory_integer (pc
+ 2, 1)) == 0x5E)
50 pc
+= 3; /* skip subl2 */
52 && ((unsigned char) read_memory_integer (pc
+ 1, 1)) == 0xAE
53 && ((unsigned char) read_memory_integer (pc
+ 3, 1)) == 0x5E)
54 pc
+= 4; /* skip movab */
56 && ((unsigned char) read_memory_integer (pc
+ 1, 1)) == 0xCE
57 && ((unsigned char) read_memory_integer (pc
+ 4, 1)) == 0x5E)
58 pc
+= 5; /* skip movab */
60 && ((unsigned char) read_memory_integer (pc
+ 1, 1)) == 0xEE
61 && ((unsigned char) read_memory_integer (pc
+ 6, 1)) == 0x5E)
62 pc
+= 7; /* skip movab */
66 /* Return number of args passed to a frame.
67 Can return -1, meaning no way to tell. */
70 vax_frame_num_args (struct frame_info
*fi
)
72 return (0xff & read_memory_integer (FRAME_ARGS_ADDRESS (fi
), 1));
77 /* Print the vax instruction at address MEMADDR in debugged memory,
78 from disassembler info INFO.
79 Returns length of the instruction, in bytes. */
82 vax_print_insn (CORE_ADDR memaddr
, disassemble_info
*info
)
84 unsigned char buffer
[MAXLEN
];
86 register unsigned char *p
;
89 int status
= (*info
->read_memory_func
) (memaddr
, buffer
, MAXLEN
, info
);
92 (*info
->memory_error_func
) (status
, memaddr
, info
);
96 for (i
= 0; i
< NOPCODES
; i
++)
97 if (votstrs
[i
].detail
.code
== buffer
[0]
98 || votstrs
[i
].detail
.code
== *(unsigned short *) buffer
)
101 /* Handle undefined instructions. */
104 (*info
->fprintf_func
) (info
->stream
, "0%o", buffer
[0]);
108 (*info
->fprintf_func
) (info
->stream
, "%s", votstrs
[i
].name
);
110 /* Point at first byte of argument data,
111 and at descriptor for first argument. */
112 p
= buffer
+ 1 + (votstrs
[i
].detail
.code
>= 0x100);
113 d
= votstrs
[i
].detail
.args
;
116 (*info
->fprintf_func
) (info
->stream
, " ");
120 p
= print_insn_arg (d
, p
, memaddr
+ (p
- buffer
), info
);
123 (*info
->fprintf_func
) (info
->stream
, ",");
128 static unsigned char *
129 print_insn_arg (char *d
, register char *p
, CORE_ADDR addr
,
130 disassemble_info
*info
)
132 register int regnum
= *p
& 0xf;
138 (*info
->fprintf_func
) (info
->stream
, "0x%x", addr
+ *p
++ + 1);
141 (*info
->fprintf_func
) (info
->stream
, "0x%x", addr
+ *(short *) p
+ 2);
146 switch ((*p
++ >> 4) & 0xf)
151 case 3: /* Literal mode */
152 if (d
[1] == 'd' || d
[1] == 'f' || d
[1] == 'g' || d
[1] == 'h')
154 *(int *) &floatlitbuf
= 0x4000 + ((p
[-1] & 0x3f) << 4);
155 (*info
->fprintf_func
) (info
->stream
, "$%f", floatlitbuf
);
158 (*info
->fprintf_func
) (info
->stream
, "$%d", p
[-1] & 0x3f);
161 case 4: /* Indexed */
162 p
= (char *) print_insn_arg (d
, p
, addr
+ 1, info
);
163 (*info
->fprintf_func
) (info
->stream
, "[%s]", REGISTER_NAME (regnum
));
166 case 5: /* Register */
167 (*info
->fprintf_func
) (info
->stream
, REGISTER_NAME (regnum
));
170 case 7: /* Autodecrement */
171 (*info
->fprintf_func
) (info
->stream
, "-");
172 case 6: /* Register deferred */
173 (*info
->fprintf_func
) (info
->stream
, "(%s)", REGISTER_NAME (regnum
));
176 case 9: /* Autoincrement deferred */
177 (*info
->fprintf_func
) (info
->stream
, "@");
178 if (regnum
== PC_REGNUM
)
180 (*info
->fprintf_func
) (info
->stream
, "#");
181 info
->target
= *(long *) p
;
182 (*info
->print_address_func
) (info
->target
, info
);
186 case 8: /* Autoincrement */
187 if (regnum
== PC_REGNUM
)
189 (*info
->fprintf_func
) (info
->stream
, "#");
193 (*info
->fprintf_func
) (info
->stream
, "%d", *p
++);
197 (*info
->fprintf_func
) (info
->stream
, "%d", *(short *) p
);
202 (*info
->fprintf_func
) (info
->stream
, "%d", *(long *) p
);
207 (*info
->fprintf_func
) (info
->stream
, "0x%x%08x",
208 ((long *) p
)[1], ((long *) p
)[0]);
213 (*info
->fprintf_func
) (info
->stream
, "0x%x%08x%08x%08x",
214 ((long *) p
)[3], ((long *) p
)[2],
215 ((long *) p
)[1], ((long *) p
)[0]);
220 if (INVALID_FLOAT (p
, 4))
221 (*info
->fprintf_func
) (info
->stream
,
222 "<<invalid float 0x%x>>",
225 (*info
->fprintf_func
) (info
->stream
, "%f", *(float *) p
);
230 if (INVALID_FLOAT (p
, 8))
231 (*info
->fprintf_func
) (info
->stream
,
232 "<<invalid float 0x%x%08x>>",
233 ((long *) p
)[1], ((long *) p
)[0]);
235 (*info
->fprintf_func
) (info
->stream
, "%f", *(double *) p
);
240 (*info
->fprintf_func
) (info
->stream
, "g-float");
245 (*info
->fprintf_func
) (info
->stream
, "h-float");
252 (*info
->fprintf_func
) (info
->stream
, "(%s)+", REGISTER_NAME (regnum
));
255 case 11: /* Byte displacement deferred */
256 (*info
->fprintf_func
) (info
->stream
, "@");
257 case 10: /* Byte displacement */
258 if (regnum
== PC_REGNUM
)
260 info
->target
= addr
+ *p
+ 2;
261 (*info
->print_address_func
) (info
->target
, info
);
264 (*info
->fprintf_func
) (info
->stream
, "%d(%s)", *p
, REGISTER_NAME (regnum
));
268 case 13: /* Word displacement deferred */
269 (*info
->fprintf_func
) (info
->stream
, "@");
270 case 12: /* Word displacement */
271 if (regnum
== PC_REGNUM
)
273 info
->target
= addr
+ *(short *) p
+ 3;
274 (*info
->print_address_func
) (info
->target
, info
);
277 (*info
->fprintf_func
) (info
->stream
, "%d(%s)",
278 *(short *) p
, REGISTER_NAME (regnum
));
282 case 15: /* Long displacement deferred */
283 (*info
->fprintf_func
) (info
->stream
, "@");
284 case 14: /* Long displacement */
285 if (regnum
== PC_REGNUM
)
287 info
->target
= addr
+ *(short *) p
+ 5;
288 (*info
->print_address_func
) (info
->target
, info
);
291 (*info
->fprintf_func
) (info
->stream
, "%d(%s)",
292 *(long *) p
, REGISTER_NAME (regnum
));
296 return (unsigned char *) p
;
300 _initialize_vax_tdep (void)
302 tm_print_insn
= vax_print_insn
;
This page took 0.036485 seconds and 4 git commands to generate.