-/* Print m68k instructions for GDB, the GNU debugger.
- Copyright (C) 1986, 1987, 1989 Free Software Foundation, Inc.
+/* Print Motorola 68k instructions for GDB, the GNU debugger.
+ Copyright 1986, 1987, 1989, 1991, 1992 Free Software Foundation, Inc.
This file is part of GDB.
-GDB is free software; you can redistribute it and/or modify
+This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 1, or (at your option)
-any later version.
+the Free Software Foundation; either version 2 of the License, or
+(at your option) any later version.
-GDB is distributed in the hope that it will be useful,
+This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
-along with GDB; see the file COPYING. If not, write to
-the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
-
-#include <stdio.h>
-
-#include <setjmp.h>
-#include <signal.h>
+along with this program; if not, write to the Free Software
+Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
#include "defs.h"
-#include "param.h"
#include "symtab.h"
-#include "opcode.h"
+#include "opcode/m68k.h"
+#include "gdbcore.h"
+#include "ieee-float.h"
+
+/* Local function prototypes */
+
+static int
+fetch_arg PARAMS ((unsigned char *, int, int));
+
+static void
+print_base PARAMS ((int, int, FILE *));
+
+static unsigned char *
+print_indexed PARAMS ((int, unsigned char *, CORE_ADDR, FILE *));
+
+static unsigned char *
+print_insn_arg PARAMS ((char *, unsigned char *, unsigned char *, CORE_ADDR,
+ FILE *));
/* 68k instructions are never longer than this many bytes. */
#define MAXLEN 22
/* Number of elements in the opcode table. */
#define NOPCODES (sizeof m68k_opcodes / sizeof m68k_opcodes[0])
-extern char *reg_names[];
-char *fpcr_names[] = { "", "fpiar", "fpsr", "fpiar/fpsr", "fpcr",
- "fpiar/fpcr", "fpsr/fpcr", "fpiar-fpcr"};
+const char * const fpcr_names[] = {
+ "", "fpiar", "fpsr", "fpiar/fpsr", "fpcr",
+ "fpiar/fpcr", "fpsr/fpcr", "fpiar/fpsr/fpcr"};
-static unsigned char *print_insn_arg ();
-static unsigned char *print_indexed ();
-static void print_base ();
-static int fetch_arg ();
+/* Define accessors for 68K's 1, 2, and 4-byte signed quantities.
+ The _SHIFT values move the quantity to the high order end of an
+ `int' value, so it will sign-extend. Probably a few more casts
+ are needed to make it compile without warnings on finicky systems. */
+#define BITS_PER_BYTE 8
+#define BYTE_SHIFT (BITS_PER_BYTE * ((sizeof (int)) - 1))
+#define WORD_SHIFT (BITS_PER_BYTE * ((sizeof (int)) - 2))
+#define LONG_SHIFT (BITS_PER_BYTE * ((sizeof (int)) - 4))
-#define NEXTBYTE(p) (p += 2, ((char *)p)[-1])
+#define NEXTBYTE(p) (p += 2, ((int)(p[-1]) << BYTE_SHIFT) >> BYTE_SHIFT)
#define NEXTWORD(p) \
- (p += 2, ((((char *)p)[-2]) << 8) + p[-1])
+ (p += 2, (((int)((p[-2] << 8) + p[-1])) << WORD_SHIFT) >> WORD_SHIFT)
#define NEXTLONG(p) \
- (p += 4, (((((p[-4] << 8) + p[-3]) << 8) + p[-2]) << 8) + p[-1])
+ (p += 4, (((int)((((((p[-4] << 8) + p[-3]) << 8) + p[-2]) << 8) + p[-1])) \
+ << LONG_SHIFT) >> LONG_SHIFT)
+/* Ecch -- assumes host == target float formats. FIXME. */
#define NEXTSINGLE(p) \
(p += 4, *((float *)(p - 4)))
#define NEXTDOUBLE(p) \
(p += 8, *((double *)(p - 8)))
-
-#define NEXTEXTEND(p) \
- (p += 12, 0.0) /* Need a function to convert from extended to double
- precision... */
-
-#define NEXTPACKED(p) \
- (p += 12, 0.0) /* Need a function to convert from packed to double
- precision. Actually, it's easier to print a
- packed number than a double anyway, so maybe
- there should be a special case to handle this... */
\f
/* Print the m68k instruction at address MEMADDR in debugged memory,
on STREAM. Returns length of the instruction, in bytes. */
register int bestmask;
int best;
- read_memory (memaddr, buffer, MAXLEN);
+ read_memory (memaddr, (char *) buffer, MAXLEN);
bestmask = 0;
best = -1;
register int val;
register int place = d[1];
int regno;
- register char *regname;
+ register const char *regname;
register unsigned char *p1;
- register double flval;
+ double flval;
int flt_p;
switch (*d)
case 'Q':
val = fetch_arg (buffer, place, 3);
- if (val == 0) val = 8;
+ /* 0 means 8, except for the bkpt instruction... */
+ if (val == 0 && d[1] != 's')
+ val = 8;
fprintf_filtered (stream, "#%d", val);
break;
fprintf_filtered (stream, "%s", reg_names[fetch_arg (buffer, place, 4)]);
break;
+ case 'r':
+ fprintf_filtered (stream, "%s@", reg_names[fetch_arg (buffer, place, 4)]);
+ break;
+
case 'F':
fprintf_filtered (stream, "fp%d", fetch_arg (buffer, place, 3));
break;
case 'B':
if (place == 'b')
val = NEXTBYTE (p);
- else if (place == 'w')
+ else if (place == 'B')
+ val = NEXTBYTE (buffer); /* from the opcode word */
+ else if (place == 'w' || place == 'W')
val = NEXTWORD (p);
- else if (place == 'l')
+ else if (place == 'l' || place == 'L')
val = NEXTLONG (p);
else if (place == 'g')
{
- val = ((char *)buffer)[1];
+ val = NEXTBYTE (buffer);
if (val == 0)
val = NEXTWORD (p);
else if (val == -1)
flval = NEXTDOUBLE(p);
break;
+#ifdef HAVE_68881
case 'x':
- flval = NEXTEXTEND(p);
+ ieee_extended_to_double (&ext_format_68881, p, &flval);
+ p += 12;
break;
+#endif
case 'p':
- flval = NEXTPACKED(p);
+ p += 12;
+ flval = 0; /* FIXME, handle packed decimal someday. */
break;
default:
}
}
else
- abort ();
+ goto de_fault;
break;
- default:
+ default: de_fault:
error ("Invalid arg format in opcode table: \"%c\".", *d);
}
static int
fetch_arg (buffer, code, bits)
unsigned char *buffer;
- char code;
+ int code;
int bits;
{
register int val;
print_indexed (basereg, p, addr, stream)
int basereg;
unsigned char *p;
- FILE *stream;
CORE_ADDR addr;
+ FILE *stream;
{
register int word;
static char *scales[] = {"", "*2", "*4", "*8"};
else
fprintf_filtered (stream, "%d(%s)", disp, reg_names[regno]);
}
-\f
-static int have_fpu = 1;
-
-/* This is not part of insn printing, but it is machine-specific,
- so this is a convenient place to put it.
-
- Convert a 68881 extended float to a double.
- FROM is the address of the extended float.
- Store the double in *TO. */
-
-convert_from_68881 (from, to)
- char *from;
- double *to;
-{
- if (!have_fpu)
- {
- *to = 0.0;
- return;
- }
-#ifdef HPUX_ASM
- asm ("mov.l 8(%a6),%a0");
- asm ("mov.l 12(%a6),%a1");
- asm ("fmove.x (%a0),%fp0");
- asm ("fmove.d %fp0,(%a1)");
-#else /* not HPUX_ASM */
-#if 0
- asm ("movl a6@(8),a0");
- asm ("movl a6@(12),a1");
- asm ("fmovex a0@,fp0");
- asm ("fmoved fp0,a1@");
-#else
- /* Hand-assemble those insns since some assemblers lose
- and some have different syntax. */
- asm (".word 020156");
- asm (".word 8");
- asm (".word 021156");
- asm (".word 12");
- asm (".long 0xf2104800");
- asm (".long 0xf2117400");
-#endif
-#endif /* not HPUX_ASM */
-}
-
-/* The converse: convert the double *FROM to an extended float
- and store where TO points. */
-
-convert_to_68881 (from, to)
- double *from;
- char *to;
-{
- if (!have_fpu)
- return;
-#ifdef HPUX_ASM
- asm ("mov.l 8(%a6),%a0");
- asm ("mov.l 12(%a6),%a1");
- asm ("fmove.d (%a0),%fp0");
- asm ("fmove.x %fp0,(%a1)");
-#else /* not HPUX_ASM */
-#if 0
- asm ("movl a6@(8),a0");
- asm ("movl a6@(12),a1");
- asm ("fmoved a0@,fp0");
- asm ("fmovex fp0,a1@");
-#else
- /* Hand-assemble those insns since some assemblers lose. */
- asm (".word 020156");
- asm (".word 8");
- asm (".word 021156");
- asm (".word 12");
- asm (".long 0xf2105400");
- asm (".long 0xf2116800");
-#endif
-#endif /* not HPUX_ASM */
-}
-
-static jmp_buf fpu_check;
-
-void
-sigemt()
-{
- have_fpu = 0;
- longjmp (fpu_check, 1);
-}
-
-void
-_initialize_pinsn()
-{
- /* Want to figure out if we've got a coprocessor. The idea is to catch the
- signal that gets delivered if no coprocessor is around (SIGEMT) then
- execute a coprocessor instruction and see what happens. have_fpu is set
- to zero if the EMT signal arrives. Else it is left at 1. */
- /* If this turns out not to be portable to all 68k machines, we'll
- have to move it to the dep files. */
- void (*emthandler) ();
-
- emthandler = (void (*) ()) signal (SIGEMT, sigemt);
- if (!setjmp (fpu_check))
- {
-#if defined(HPUX_ASM)
- asm (" long 0xf2000600"); /* fmovel fp0, d0 */
-#else
- asm(".long 0xf2000600"); /* fmovel fp0, d0 */
-#endif
- }
- signal(SIGEMT, emthandler);
-}