1 /* Print vax instructions for GDB, the GNU debugger.
2 Copyright (C) 1986 Free Software Foundation, Inc.
4 GDB is distributed in the hope that it will be useful, but WITHOUT ANY
5 WARRANTY. No author or distributor accepts responsibility to anyone
6 for the consequences of using it or for whether it serves any
7 particular purpose or works at all, unless he says so in writing.
8 Refer to the GDB General Public License for full details.
10 Everyone is granted permission to copy, modify and redistribute GDB,
11 but only under the conditions described in the GDB General Public
12 License. A copy of this license is supposed to have been given to you
13 along with GDB so you can know your rights and responsibilities. It
14 should be in a file named COPYING. Among other things, the copyright
15 notice and this notice must be preserved on all copies.
17 In other words, go ahead and share GDB, but don't try to stop
18 anyone else from sharing it farther. Help stamp out software hoarding!
26 #include "vax-opcode.h"
28 /* Vax instructions are never longer than this. */
31 /* Number of elements in the opcode table. */
32 #define NOPCODES (sizeof votstrs / sizeof votstrs[0])
34 extern char *reg_names
[];
36 static unsigned char *print_insn_arg ();
38 /* Print the vax instruction at address MEMADDR in debugged memory,
39 on STREAM. Returns length of the instruction, in bytes. */
42 print_insn (memaddr
, stream
)
46 unsigned char buffer
[MAXLEN
];
48 register unsigned char *p
;
51 read_memory (memaddr
, buffer
, MAXLEN
);
53 for (i
= 0; i
< NOPCODES
; i
++)
54 if (votstrs
[i
].detail
.code
== buffer
[0]
55 || votstrs
[i
].detail
.code
== *(unsigned short *)buffer
)
58 /* Handle undefined instructions. */
61 fprintf (stream
, "0%o", buffer
[0]);
65 fprintf (stream
, "%s", votstrs
[i
].name
);
67 /* Point at first byte of argument data,
68 and at descriptor for first argument. */
69 p
= buffer
+ 1 + (votstrs
[i
].detail
.code
>= 0x100);
70 d
= votstrs
[i
].detail
.args
;
77 p
= print_insn_arg (d
, p
, memaddr
+ (p
- buffer
), stream
);
80 fprintf (stream
, ",");
85 static unsigned char *
86 print_insn_arg (d
, p
, addr
, stream
)
92 register int regnum
= *p
& 0xf;
98 fprintf (stream
, "0x%x", addr
+ *p
++ + 1);
101 fprintf (stream
, "0x%x", addr
+ *(short *)p
+ 2);
106 switch ((*p
++ >> 4) & 0xf)
111 case 3: /* Literal mode */
112 if (d
[1] == 'd' || d
[1] == 'f' || d
[1] == 'g' || d
[1] == 'h')
114 *(int *)&floatlitbuf
= 0x4000 + ((p
[-1] & 0x3f) << 4);
115 fprintf (stream
, "$%f", floatlitbuf
);
118 fprintf (stream
, "$%d", p
[-1] & 0x3f);
121 case 4: /* Indexed */
122 p
= (char *) print_insn_arg (d
, p
, addr
+ 1, stream
);
123 fprintf (stream
, "[%s]", reg_names
[regnum
]);
126 case 5: /* Register */
127 fprintf (stream
, reg_names
[regnum
]);
130 case 7: /* Autodecrement */
132 case 6: /* Register deferred */
133 fprintf (stream
, "(%s)", reg_names
[regnum
]);
136 case 9: /* Autoincrement deferred */
138 if (regnum
== PC_REGNUM
)
141 print_address (*(long *)p
, stream
);
145 case 8: /* Autoincrement */
146 if (regnum
== PC_REGNUM
)
152 fprintf (stream
, "%d", *p
++);
156 fprintf (stream
, "%d", *(short *)p
);
161 fprintf (stream
, "%d", *(long *)p
);
166 fprintf (stream
, "0x%x%08x", ((long *)p
)[1], ((long *)p
)[0]);
171 fprintf (stream
, "0x%x%08x%08x%08x",
172 ((long *)p
)[3], ((long *)p
)[2],
173 ((long *)p
)[1], ((long *)p
)[0]);
178 if (INVALID_FLOAT (p
, 4))
179 fprintf (stream
, "<<invalid float 0x%x>>", *(int *) p
);
181 fprintf (stream
, "%f", *(float *) p
);
186 if (INVALID_FLOAT (p
, 8))
187 fprintf (stream
, "<<invalid float 0x%x%08x>>",
188 ((long *)p
)[1], ((long *)p
)[0]);
190 fprintf (stream
, "%f", *(double *) p
);
195 fprintf (stream
, "g-float");
200 fprintf (stream
, "h-float");
207 fprintf (stream
, "(%s)+", reg_names
[regnum
]);
210 case 11: /* Byte displacement deferred */
212 case 10: /* Byte displacement */
213 if (regnum
== PC_REGNUM
)
214 print_address (addr
+ *p
+ 2, stream
);
216 fprintf (stream
, "%d(%s)", *p
, reg_names
[regnum
]);
220 case 13: /* Word displacement deferred */
222 case 12: /* Word displacement */
223 if (regnum
== PC_REGNUM
)
224 print_address (addr
+ *(short *)p
+ 3, stream
);
226 fprintf (stream
, "%d(%s)", *(short *)p
, reg_names
[regnum
]);
230 case 15: /* Long displacement deferred */
232 case 14: /* Long displacement */
233 if (regnum
== PC_REGNUM
)
234 print_address (addr
+ *(long *)p
+ 5, stream
);
236 fprintf (stream
, "%d(%s)", *(long *)p
, reg_names
[regnum
]);
240 return (unsigned char *) p
;