[thirdparty/binutils-gdb.git] / gdb / vax-tdep.c

/* Print VAX instructions for GDB, the GNU debugger.
   Copyright 1986, 1989, 1991, 1992, 1996 Free Software Foundation, Inc.

This file is part of GDB.

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 2 of the License, or
(at your option) any later version.

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 this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */

#include "defs.h"
#include "symtab.h"
#include "opcode/vax.h"

/* Vax instructions are never longer than this.  */
#define MAXLEN 62

/* Number of elements in the opcode table.  */
#define NOPCODES (sizeof votstrs / sizeof votstrs[0])

static unsigned char *print_insn_arg ();
\f
/* Print the vax instruction at address MEMADDR in debugged memory,
   from disassembler info INFO.
   Returns length of the instruction, in bytes.  */

static int
vax_print_insn (memaddr, info)
     CORE_ADDR memaddr;
     disassemble_info *info;
{
  unsigned char buffer[MAXLEN];
  register int i;
  register unsigned char *p;
  register char *d;

  int status = (*info->read_memory_func) (memaddr, buffer, MAXLEN, info);
  if (status != 0)
    {
      (*info->memory_error_func) (status, memaddr, info);
      return -1;
    }

  for (i = 0; i < NOPCODES; i++)
    if (votstrs[i].detail.code == buffer[0]
	|| votstrs[i].detail.code == *(unsigned short *)buffer)
      break;

  /* Handle undefined instructions.  */
  if (i == NOPCODES)
    {
      (*info->fprintf_func) (info->stream, "0%o", buffer[0]);
      return 1;
    }

  (*info->fprintf_func) (info->stream, "%s", votstrs[i].name);

  /* Point at first byte of argument data,
     and at descriptor for first argument.  */
  p = buffer + 1 + (votstrs[i].detail.code >= 0x100);
  d = votstrs[i].detail.args;

  if (*d)
    (*info->fprintf_func) (info->stream, " ");

  while (*d)
    {
      p = print_insn_arg (d, p, memaddr + (p - buffer), info);
      d += 2;
      if (*d)
	(*info->fprintf_func) (info->stream, ",");
    }
  return p - buffer;
}

static unsigned char *
print_insn_arg (d, p, addr, info)
     char *d;
     register char *p;
     CORE_ADDR addr;
     disassemble_info *info;
{
  register int regnum = *p & 0xf;
  float floatlitbuf;

  if (*d == 'b')
    {
      if (d[1] == 'b')
	(*info->fprintf_func) (info->stream, "0x%x", addr + *p++ + 1);
      else
	{
	  (*info->fprintf_func) (info->stream, "0x%x", addr + *(short *)p + 2);
	  p += 2;
	}
    }
  else
    switch ((*p++ >> 4) & 0xf)
      {
      case 0:
      case 1:
      case 2:
      case 3:			/* Literal mode */
	if (d[1] == 'd' || d[1] == 'f' || d[1] == 'g' || d[1] == 'h')
	  {
	    *(int *)&floatlitbuf = 0x4000 + ((p[-1] & 0x3f) << 4);
	    (*info->fprintf_func) (info->stream, "$%f", floatlitbuf);
	  }
	else
	  (*info->fprintf_func) (info->stream, "$%d", p[-1] & 0x3f);
	break;

      case 4:			/* Indexed */
	p = (char *) print_insn_arg (d, p, addr + 1, info);
	(*info->fprintf_func) (info->stream, "[%s]", REGISTER_NAME (regnum));
	break;

      case 5:			/* Register */
	(*info->fprintf_func) (info->stream, REGISTER_NAME (regnum));
	break;

      case 7:			/* Autodecrement */
	(*info->fprintf_func) (info->stream, "-");
      case 6:			/* Register deferred */
	(*info->fprintf_func) (info->stream, "(%s)", REGISTER_NAME (regnum));
	break;

      case 9:			/* Autoincrement deferred */
	(*info->fprintf_func) (info->stream, "@");
	if (regnum == PC_REGNUM)
	  {
	    (*info->fprintf_func) (info->stream, "#");
	    info->target = *(long *)p;
	    (*info->print_address_func) (info->target, info);
	    p += 4;
	    break;
	  }
      case 8:			/* Autoincrement */
	if (regnum == PC_REGNUM)
	  {
	    (*info->fprintf_func) (info->stream, "#");
	    switch (d[1])
	      {
	      case 'b':
		(*info->fprintf_func) (info->stream, "%d", *p++);
		break;

	      case 'w':
		(*info->fprintf_func) (info->stream, "%d", *(short *)p);
		p += 2;
		break;

	      case 'l':
		(*info->fprintf_func) (info->stream, "%d", *(long *)p);
		p += 4;
		break;

	      case 'q':
		(*info->fprintf_func) (info->stream, "0x%x%08x",
				       ((long *)p)[1], ((long *)p)[0]);
		p += 8;
		break;

	      case 'o':
		(*info->fprintf_func) (info->stream, "0x%x%08x%08x%08x",
				       ((long *)p)[3], ((long *)p)[2],
				       ((long *)p)[1], ((long *)p)[0]);
		p += 16;
		break;

	      case 'f':
		if (INVALID_FLOAT (p, 4))
		  (*info->fprintf_func) (info->stream,
					 "<<invalid float 0x%x>>",
					 *(int *) p);
		else
		  (*info->fprintf_func) (info->stream, "%f", *(float *) p);
		p += 4;
		break;

	      case 'd':
		if (INVALID_FLOAT (p, 8))
		  (*info->fprintf_func) (info->stream,
					 "<<invalid float 0x%x%08x>>",
					 ((long *)p)[1], ((long *)p)[0]);
		else
		  (*info->fprintf_func) (info->stream, "%f", *(double *) p);
		p += 8;
		break;

	      case 'g':
		(*info->fprintf_func) (info->stream, "g-float");
		p += 8;
		break;

	      case 'h':
		(*info->fprintf_func) (info->stream, "h-float");
		p += 16;
		break;

	      }
	  }
	else
	  (*info->fprintf_func) (info->stream, "(%s)+", REGISTER_NAME (regnum));
	break;

      case 11:			/* Byte displacement deferred */
	(*info->fprintf_func) (info->stream, "@");
      case 10:			/* Byte displacement */
	if (regnum == PC_REGNUM)
	  {
	    info->target = addr + *p + 2;
	    (*info->print_address_func) (info->target, info);
	  }
	else
	  (*info->fprintf_func) (info->stream, "%d(%s)", *p, REGISTER_NAME (regnum));
	p += 1;
	break;

      case 13:			/* Word displacement deferred */
	(*info->fprintf_func) (info->stream, "@");
      case 12:			/* Word displacement */
	if (regnum == PC_REGNUM)
	  {
	    info->target = addr + *(short *)p + 3;
	    (*info->print_address_func) (info->target, info);
	  }
	else
	  (*info->fprintf_func) (info->stream, "%d(%s)",
				 *(short *)p, REGISTER_NAME (regnum));
	p += 2;
	break;

      case 15:			/* Long displacement deferred */
	(*info->fprintf_func) (info->stream, "@");
      case 14:			/* Long displacement */
	if (regnum == PC_REGNUM)
	  {
	    info->target = addr + *(short *)p + 5;
	    (*info->print_address_func) (info->target, info);
	  }
	else
	  (*info->fprintf_func) (info->stream, "%d(%s)",
				 *(long *)p, REGISTER_NAME (regnum));
	p += 4;
      }

  return (unsigned char *) p;
}

void
_initialize_vax_tdep ()
{
  tm_print_insn = vax_print_insn;
}
Commit	Line	Data
7d9884b9	1	/* Print VAX instructions for GDB, the GNU debugger.
0f75e2e3	2	Copyright 1986, 1989, 1991, 1992, 1996 Free Software Foundation, Inc.
dd3b648e RP	3
	4	This file is part of GDB.
	5
99a7de40	6	This program is free software; you can redistribute it and/or modify
dd3b648e	7	it under the terms of the GNU General Public License as published by
99a7de40 JG	8	the Free Software Foundation; either version 2 of the License, or
99a7de40 JG	9	(at your option) any later version.
dd3b648e	10
99a7de40	11	This program is distributed in the hope that it will be useful,
dd3b648e RP	12	but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	GNU General Public License for more details.
	15
	16	You should have received a copy of the GNU General Public License
99a7de40	17	along with this program; if not, write to the Free Software
6c9638b4	18	Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
dd3b648e	19
dd3b648e	20	#include "defs.h"
dd3b648e	21	#include "symtab.h"
aab77d5f	22	#include "opcode/vax.h"
dd3b648e RP	23
	24	/* Vax instructions are never longer than this. */
	25	#define MAXLEN 62
	26
	27	/* Number of elements in the opcode table. */
	28	#define NOPCODES (sizeof votstrs / sizeof votstrs[0])
	29
dd3b648e RP	30	static unsigned char *print_insn_arg ();
	31	\f
	32	/* Print the vax instruction at address MEMADDR in debugged memory,
0f75e2e3 PS	33	from disassembler info INFO.
0f75e2e3 PS	34	Returns length of the instruction, in bytes. */
dd3b648e	35
0f75e2e3 PS	36	static int
0f75e2e3 PS	37	vax_print_insn (memaddr, info)
dd3b648e	38	CORE_ADDR memaddr;
0f75e2e3	39	disassemble_info *info;
dd3b648e RP	40	{
	41	unsigned char buffer[MAXLEN];
	42	register int i;
	43	register unsigned char *p;
	44	register char *d;
	45
94cff946 PS	46	int status = (*info->read_memory_func) (memaddr, buffer, MAXLEN, info);
	47	if (status != 0)
	48	{
	49	(*info->memory_error_func) (status, memaddr, info);
	50	return -1;
	51	}
dd3b648e RP	52
	53	for (i = 0; i < NOPCODES; i++)
	54	if (votstrs[i].detail.code == buffer[0]
	55	\|\| votstrs[i].detail.code == (unsigned short )buffer)
	56	break;
	57
	58	/* Handle undefined instructions. */
	59	if (i == NOPCODES)
	60	{
94cff946	61	(*info->fprintf_func) (info->stream, "0%o", buffer[0]);
dd3b648e RP	62	return 1;
	63	}
	64
94cff946	65	(*info->fprintf_func) (info->stream, "%s", votstrs[i].name);
dd3b648e RP	66
	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;
	71
	72	if (*d)
94cff946	73	(*info->fprintf_func) (info->stream, " ");
dd3b648e RP	74
	75	while (*d)
	76	{
94cff946	77	p = print_insn_arg (d, p, memaddr + (p - buffer), info);
dd3b648e RP	78	d += 2;
dd3b648e RP	79	if (*d)
94cff946	80	(*info->fprintf_func) (info->stream, ",");
dd3b648e RP	81	}
	82	return p - buffer;
	83	}
	84
	85	static unsigned char *
94cff946	86	print_insn_arg (d, p, addr, info)
dd3b648e RP	87	char *d;
	88	register char *p;
	89	CORE_ADDR addr;
94cff946	90	disassemble_info *info;
dd3b648e RP	91	{
	92	register int regnum = *p & 0xf;
	93	float floatlitbuf;
	94
	95	if (*d == 'b')
	96	{
	97	if (d[1] == 'b')
94cff946	98	(info->fprintf_func) (info->stream, "0x%x", addr + p++ + 1);
dd3b648e RP	99	else
dd3b648e RP	100	{
94cff946	101	(info->fprintf_func) (info->stream, "0x%x", addr + (short *)p + 2);
dd3b648e RP	102	p += 2;
	103	}
	104	}
	105	else
	106	switch ((*p++ >> 4) & 0xf)
	107	{
	108	case 0:
	109	case 1:
	110	case 2:
	111	case 3: /* Literal mode */
	112	if (d[1] == 'd' \|\| d[1] == 'f' \|\| d[1] == 'g' \|\| d[1] == 'h')
	113	{
	114	(int )&floatlitbuf = 0x4000 + ((p[-1] & 0x3f) << 4);
94cff946	115	(*info->fprintf_func) (info->stream, "$%f", floatlitbuf);
dd3b648e RP	116	}
dd3b648e RP	117	else
94cff946	118	(*info->fprintf_func) (info->stream, "$%d", p[-1] & 0x3f);
dd3b648e RP	119	break;
	120
	121	case 4: /* Indexed */
94cff946	122	p = (char *) print_insn_arg (d, p, addr + 1, info);
d70a61e7	123	(*info->fprintf_func) (info->stream, "[%s]", REGISTER_NAME (regnum));
dd3b648e RP	124	break;
	125
	126	case 5: /* Register */
d70a61e7	127	(*info->fprintf_func) (info->stream, REGISTER_NAME (regnum));
dd3b648e RP	128	break;
	129
	130	case 7: /* Autodecrement */
94cff946	131	(*info->fprintf_func) (info->stream, "-");
dd3b648e	132	case 6: /* Register deferred */
d70a61e7	133	(*info->fprintf_func) (info->stream, "(%s)", REGISTER_NAME (regnum));
dd3b648e RP	134	break;
	135
	136	case 9: /* Autoincrement deferred */
94cff946	137	(*info->fprintf_func) (info->stream, "@");
dd3b648e RP	138	if (regnum == PC_REGNUM)
dd3b648e RP	139	{
94cff946 PS	140	(*info->fprintf_func) (info->stream, "#");
	141	info->target = (long )p;
	142	(*info->print_address_func) (info->target, info);
dd3b648e RP	143	p += 4;
	144	break;
	145	}
	146	case 8: /* Autoincrement */
	147	if (regnum == PC_REGNUM)
	148	{
94cff946	149	(*info->fprintf_func) (info->stream, "#");
dd3b648e RP	150	switch (d[1])
	151	{
	152	case 'b':
94cff946	153	(info->fprintf_func) (info->stream, "%d", p++);
dd3b648e RP	154	break;
	155
	156	case 'w':
94cff946	157	(info->fprintf_func) (info->stream, "%d", (short *)p);
dd3b648e RP	158	p += 2;
	159	break;
	160
	161	case 'l':
94cff946	162	(info->fprintf_func) (info->stream, "%d", (long *)p);
dd3b648e RP	163	p += 4;
	164	break;
	165
	166	case 'q':
94cff946 PS	167	(*info->fprintf_func) (info->stream, "0x%x%08x",
94cff946 PS	168	((long )p)[1], ((long )p)[0]);
dd3b648e RP	169	p += 8;
	170	break;
	171
	172	case 'o':
94cff946 PS	173	(*info->fprintf_func) (info->stream, "0x%x%08x%08x%08x",
	174	((long )p)[3], ((long )p)[2],
	175	((long )p)[1], ((long )p)[0]);
dd3b648e RP	176	p += 16;
	177	break;
	178
	179	case 'f':
	180	if (INVALID_FLOAT (p, 4))
94cff946 PS	181	(*info->fprintf_func) (info->stream,
	182	"<<invalid float 0x%x>>",
	183	(int ) p);
dd3b648e	184	else
94cff946	185	(info->fprintf_func) (info->stream, "%f", (float *) p);
dd3b648e RP	186	p += 4;
	187	break;
	188
	189	case 'd':
	190	if (INVALID_FLOAT (p, 8))
94cff946 PS	191	(*info->fprintf_func) (info->stream,
	192	"<<invalid float 0x%x%08x>>",
	193	((long )p)[1], ((long )p)[0]);
dd3b648e	194	else
94cff946	195	(info->fprintf_func) (info->stream, "%f", (double *) p);
dd3b648e RP	196	p += 8;
	197	break;
	198
	199	case 'g':
94cff946	200	(*info->fprintf_func) (info->stream, "g-float");
dd3b648e RP	201	p += 8;
	202	break;
	203
	204	case 'h':
94cff946	205	(*info->fprintf_func) (info->stream, "h-float");
dd3b648e RP	206	p += 16;
	207	break;
	208
	209	}
	210	}
	211	else
d70a61e7	212	(*info->fprintf_func) (info->stream, "(%s)+", REGISTER_NAME (regnum));
dd3b648e RP	213	break;
	214
	215	case 11: /* Byte displacement deferred */
94cff946	216	(*info->fprintf_func) (info->stream, "@");
dd3b648e RP	217	case 10: /* Byte displacement */
dd3b648e RP	218	if (regnum == PC_REGNUM)
94cff946 PS	219	{
	220	info->target = addr + *p + 2;
	221	(*info->print_address_func) (info->target, info);
	222	}
dd3b648e	223	else
d70a61e7	224	(info->fprintf_func) (info->stream, "%d(%s)", p, REGISTER_NAME (regnum));
dd3b648e RP	225	p += 1;
	226	break;
	227
	228	case 13: /* Word displacement deferred */
94cff946	229	(*info->fprintf_func) (info->stream, "@");
dd3b648e RP	230	case 12: /* Word displacement */
dd3b648e RP	231	if (regnum == PC_REGNUM)
94cff946 PS	232	{
	233	info->target = addr + (short )p + 3;
	234	(*info->print_address_func) (info->target, info);
	235	}
dd3b648e	236	else
94cff946	237	(*info->fprintf_func) (info->stream, "%d(%s)",
d70a61e7	238	(short )p, REGISTER_NAME (regnum));
dd3b648e RP	239	p += 2;
	240	break;
	241
	242	case 15: /* Long displacement deferred */
94cff946	243	(*info->fprintf_func) (info->stream, "@");
dd3b648e RP	244	case 14: /* Long displacement */
dd3b648e RP	245	if (regnum == PC_REGNUM)
94cff946 PS	246	{
	247	info->target = addr + (short )p + 5;
	248	(*info->print_address_func) (info->target, info);
	249	}
dd3b648e	250	else
94cff946	251	(*info->fprintf_func) (info->stream, "%d(%s)",
d70a61e7	252	(long )p, REGISTER_NAME (regnum));
dd3b648e RP	253	p += 4;
	254	}
	255
	256	return (unsigned char *) p;
	257	}
0f75e2e3 PS	258
	259	void
	260	_initialize_vax_tdep ()
	261	{
	262	tm_print_insn = vax_print_insn;
	263	}