[deliverable/binutils-gdb.git] / cpu / fr30.opc

/* FR30 opcode support.  -*- C -*-
   Copyright 2011 Free Software Foundation, Inc.

   Contributed by Red Hat Inc;

   This file is part of the GNU Binutils.

   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 3 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., 51 Franklin Street - Fifth Floor, Boston,
   MA 02110-1301, USA.  */

/* This file is an addendum to fr30.cpu.  Heavy use of C code isn't
   appropriate in .cpu files, so it resides here.  This especially applies
   to assembly/disassembly where parsing/printing can be quite involved.
   Such things aren't really part of the specification of the cpu, per se,
   so .cpu files provide the general framework and .opc files handle the
   nitty-gritty details as necessary.

   Each section is delimited with start and end markers.

   <arch>-opc.h additions use: "-- opc.h"
   <arch>-opc.c additions use: "-- opc.c"
   <arch>-asm.c additions use: "-- asm.c"
   <arch>-dis.c additions use: "-- dis.c"
   <arch>-ibd.h additions use: "-- ibd.h".  */
\f
/* -- opc.h */

/* ??? This can be improved upon.  */
#undef  CGEN_DIS_HASH_SIZE
#define CGEN_DIS_HASH_SIZE 16
#undef  CGEN_DIS_HASH
#define CGEN_DIS_HASH(buffer, value) (((unsigned char *) (buffer))[0] >> 4)

/* -- */
\f
/* -- asm.c */
/* Handle register lists for LDMx and STMx.  */

static int
parse_register_number (const char **strp)
{
  int regno;

  if (**strp < '0' || **strp > '9')
    return -1; /* Error.  */
  regno = **strp - '0';
  ++*strp;

  if (**strp >= '0' && **strp <= '9')
    {
      regno = regno * 10 + (**strp - '0');
      ++*strp;
    }

  return regno;
}

static const char *
parse_register_list (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
		     const char **strp,
		     int opindex ATTRIBUTE_UNUSED,
		     unsigned long *valuep,
		     int high_low,   /* 0 == high, 1 == low.  */
		     int load_store) /* 0 == load, 1 == store.  */
{
  *valuep = 0;
  while (**strp && **strp != ')')
    {
      int regno;

      if (**strp != 'R' && **strp != 'r')
	break;
      ++*strp;

      regno = parse_register_number (strp);
      if (regno == -1)
	return _("Register number is not valid");
      if (regno > 7 && !high_low)
	return _("Register must be between r0 and r7");
      if (regno < 8 && high_low)
	return _("Register must be between r8 and r15");

      if (high_low)
	regno -= 8;

      if (load_store) /* Mask is reversed for store.  */
	*valuep |= 0x80 >> regno;
      else
	*valuep |= 1 << regno;

      if (**strp == ',')
	{
	  if (*(*strp + 1) == ')')
	    break;
	  ++*strp;
	}
    }

  if (!*strp || **strp != ')')
    return _("Register list is not valid");

  return NULL;
}

static const char *
parse_low_register_list_ld (CGEN_CPU_DESC cd,
			    const char **strp,
			    int opindex,
			    unsigned long *valuep)
{
  return parse_register_list (cd, strp, opindex, valuep,
			      0 /* Low.  */, 0 /* Load.  */);
}

static const char *
parse_hi_register_list_ld (CGEN_CPU_DESC cd,
			   const char **strp,
			   int opindex,
			   unsigned long *valuep)
{
  return parse_register_list (cd, strp, opindex, valuep,
			      1 /* High.  */, 0 /* Load.  */);
}

static const char *
parse_low_register_list_st (CGEN_CPU_DESC cd,
			    const char **strp,
			    int opindex,
			    unsigned long *valuep)
{
  return parse_register_list (cd, strp, opindex, valuep,
			      0 /* Low.  */, 1 /* Store.  */);
}

static const char *
parse_hi_register_list_st (CGEN_CPU_DESC cd,
			   const char **strp,
			   int opindex,
			   unsigned long *valuep)
{
  return parse_register_list (cd, strp, opindex, valuep,
			      1 /* High.  */, 1 /* Store.  */);
}

/* -- */

/* -- dis.c */
static void
print_register_list (void * dis_info,
		     long value,
		     long offset,
		     int load_store) /* 0 == load, 1 == store.  */
{
  disassemble_info *info = dis_info;
  int mask;
  int reg_index = 0;
  char * comma = "";

  if (load_store)
    mask = 0x80;
  else
    mask = 1;

  if (value & mask)
    {
      (*info->fprintf_func) (info->stream, "r%li", reg_index + offset);
      comma = ",";
    }
    
  for (reg_index = 1; reg_index <= 7; ++reg_index)
    {
      if (load_store)
	mask >>= 1;
      else
	mask <<= 1;

      if (value & mask)
	{
	  (*info->fprintf_func) (info->stream, "%sr%li", comma, reg_index + offset);
	  comma = ",";
	}
    }
}

static void
print_hi_register_list_ld (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
			   void * dis_info,
			   long value,
			   unsigned int attrs ATTRIBUTE_UNUSED,
			   bfd_vma pc ATTRIBUTE_UNUSED,
			   int length ATTRIBUTE_UNUSED)
{
  print_register_list (dis_info, value, 8, 0 /* Load.  */);
}

static void
print_low_register_list_ld (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
			    void * dis_info,
			    long value,
			    unsigned int attrs ATTRIBUTE_UNUSED,
			    bfd_vma pc ATTRIBUTE_UNUSED,
			    int length ATTRIBUTE_UNUSED)
{
  print_register_list (dis_info, value, 0, 0 /* Load.  */);
}

static void
print_hi_register_list_st (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
			   void * dis_info,
			   long value,
			   unsigned int attrs ATTRIBUTE_UNUSED,
			   bfd_vma pc ATTRIBUTE_UNUSED,
			   int length ATTRIBUTE_UNUSED)
{
  print_register_list (dis_info, value, 8, 1 /* Store.  */);
}

static void
print_low_register_list_st (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
			    void * dis_info,
			    long value,
			    unsigned int attrs ATTRIBUTE_UNUSED,
			    bfd_vma pc ATTRIBUTE_UNUSED,
			    int length ATTRIBUTE_UNUSED)
{
  print_register_list (dis_info, value, 0, 1 /* Store.  */);
}

static void
print_m4 (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
	  void * dis_info,
	  long value,
	  unsigned int attrs ATTRIBUTE_UNUSED,
	  bfd_vma pc ATTRIBUTE_UNUSED,
	  int length ATTRIBUTE_UNUSED)
{
  disassemble_info *info = (disassemble_info *) dis_info;

  (*info->fprintf_func) (info->stream, "%ld", value);
}
/* -- */
Commit	Line	Data
dc15e575 NC	1	/* FR30 opcode support. -- C --
	2	Copyright 2011 Free Software Foundation, Inc.
	3
	4	Contributed by Red Hat Inc;
	5
	6	This file is part of the GNU Binutils.
	7
	8	This program is free software; you can redistribute it and/or modify
	9	it under the terms of the GNU General Public License as published by
	10	the Free Software Foundation; either version 3 of the License, or
	11	(at your option) any later version.
	12
	13	This program is distributed in the hope that it will be useful,
	14	but WITHOUT ANY WARRANTY; without even the implied warranty of
	15	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	16	GNU General Public License for more details.
	17
	18	You should have received a copy of the GNU General Public License
	19	along with this program; if not, write to the Free Software
	20	Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
	21	MA 02110-1301, USA. */
	22
	23	/* This file is an addendum to fr30.cpu. Heavy use of C code isn't
	24	appropriate in .cpu files, so it resides here. This especially applies
	25	to assembly/disassembly where parsing/printing can be quite involved.
	26	Such things aren't really part of the specification of the cpu, per se,
	27	so .cpu files provide the general framework and .opc files handle the
	28	nitty-gritty details as necessary.
	29
	30	Each section is delimited with start and end markers.
	31
	32	<arch>-opc.h additions use: "-- opc.h"
	33	<arch>-opc.c additions use: "-- opc.c"
	34	<arch>-asm.c additions use: "-- asm.c"
	35	<arch>-dis.c additions use: "-- dis.c"
	36	<arch>-ibd.h additions use: "-- ibd.h". */
	37	\f
	38	/* -- opc.h */
	39
	40	/* ??? This can be improved upon. */
	41	#undef CGEN_DIS_HASH_SIZE
	42	#define CGEN_DIS_HASH_SIZE 16
	43	#undef CGEN_DIS_HASH
	44	#define CGEN_DIS_HASH(buffer, value) (((unsigned char *) (buffer))[0] >> 4)
	45
	46	/* -- */
	47	\f
	48	/* -- asm.c */
	49	/* Handle register lists for LDMx and STMx. */
	50
	51	static int
	52	parse_register_number (const char **strp)
	53	{
	54	int regno;
	55
	56	if (strp < '0' \|\| strp > '9')
	57	return -1; /* Error. */
	58	regno = **strp - '0';
	59	++*strp;
	60
	61	if (strp >= '0' && strp <= '9')
	62	{
	63	regno = regno * 10 + (**strp - '0');
	64	++*strp;
65	}
66
67	return regno;
68	}
69
70	static const char *
71	parse_register_list (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
72	const char **strp,
73	int opindex ATTRIBUTE_UNUSED,
74	unsigned long *valuep,
75	int high_low, /* 0 == high, 1 == low. */
76	int load_store) /* 0 == load, 1 == store. */
77	{
78	*valuep = 0;
79	while (strp && strp != ')')
80	{
81	int regno;
82
83	if (strp != 'R' && strp != 'r')
84	break;
85	++*strp;
86
87	regno = parse_register_number (strp);
88	if (regno == -1)
89	return _("Register number is not valid");
90	if (regno > 7 && !high_low)
91	return _("Register must be between r0 and r7");
92	if (regno < 8 && high_low)
93	return _("Register must be between r8 and r15");
94
95	if (high_low)
96	regno -= 8;
97
98	if (load_store) /* Mask is reversed for store. */
99	*valuep \|= 0x80 >> regno;
100	else
101	*valuep \|= 1 << regno;
102
103	if (**strp == ',')
104	{
105	if ((strp + 1) == ')')
106	break;
107	++*strp;
108	}
109	}
110
111	if (!strp \|\| *strp != ')')
112	return _("Register list is not valid");
113
114	return NULL;
115	}
116
117	static const char *
118	parse_low_register_list_ld (CGEN_CPU_DESC cd,
119	const char **strp,
120	int opindex,
121	unsigned long *valuep)
122	{
123	return parse_register_list (cd, strp, opindex, valuep,
124	0 /* Low. /, 0 / Load. */);
125	}
126
127	static const char *
128	parse_hi_register_list_ld (CGEN_CPU_DESC cd,
129	const char **strp,
130	int opindex,
131	unsigned long *valuep)
132	{
133	return parse_register_list (cd, strp, opindex, valuep,
134	1 /* High. /, 0 / Load. */);
135	}
136
137	static const char *
138	parse_low_register_list_st (CGEN_CPU_DESC cd,
139	const char **strp,
140	int opindex,
141	unsigned long *valuep)
142	{
143	return parse_register_list (cd, strp, opindex, valuep,
144	0 /* Low. /, 1 / Store. */);
145	}
146
147	static const char *
148	parse_hi_register_list_st (CGEN_CPU_DESC cd,
149	const char **strp,
150	int opindex,
151	unsigned long *valuep)
152	{
153	return parse_register_list (cd, strp, opindex, valuep,
154	1 /* High. /, 1 / Store. */);
155	}
156
157	/* -- */
158
159	/* -- dis.c */
160	static void
161	print_register_list (void * dis_info,
162	long value,
163	long offset,
164	int load_store) /* 0 == load, 1 == store. */
165	{
166	disassemble_info *info = dis_info;
167	int mask;
168	int reg_index = 0;
169	char * comma = "";
170
171	if (load_store)
172	mask = 0x80;
173	else
174	mask = 1;
175
176	if (value & mask)
177	{
178	(*info->fprintf_func) (info->stream, "r%li", reg_index + offset);
179	comma = ",";
180	}
181
182	for (reg_index = 1; reg_index <= 7; ++reg_index)
183	{
184	if (load_store)
185	mask >>= 1;
186	else
187	mask <<= 1;
188
189	if (value & mask)
190	{
191	(*info->fprintf_func) (info->stream, "%sr%li", comma, reg_index + offset);
192	comma = ",";
193	}
194	}
195	}
196
197	static void
198	print_hi_register_list_ld (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
199	void * dis_info,
200	long value,
201	unsigned int attrs ATTRIBUTE_UNUSED,
202	bfd_vma pc ATTRIBUTE_UNUSED,
203	int length ATTRIBUTE_UNUSED)
204	{
205	print_register_list (dis_info, value, 8, 0 /* Load. */);
206	}
207
208	static void
209	print_low_register_list_ld (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
210	void * dis_info,
211	long value,
212	unsigned int attrs ATTRIBUTE_UNUSED,
213	bfd_vma pc ATTRIBUTE_UNUSED,
214	int length ATTRIBUTE_UNUSED)
215	{
216	print_register_list (dis_info, value, 0, 0 /* Load. */);
217	}
218
219	static void
220	print_hi_register_list_st (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
221	void * dis_info,
222	long value,
223	unsigned int attrs ATTRIBUTE_UNUSED,
224	bfd_vma pc ATTRIBUTE_UNUSED,
225	int length ATTRIBUTE_UNUSED)
226	{
227	print_register_list (dis_info, value, 8, 1 /* Store. */);
228	}
229
230	static void
231	print_low_register_list_st (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
232	void * dis_info,
233	long value,
234	unsigned int attrs ATTRIBUTE_UNUSED,
235	bfd_vma pc ATTRIBUTE_UNUSED,
236	int length ATTRIBUTE_UNUSED)
237	{
238	print_register_list (dis_info, value, 0, 1 /* Store. */);
239	}
240
241	static void
242	print_m4 (CGEN_CPU_DESC cd ATTRIBUTE_UNUSED,
243	void * dis_info,
244	long value,
245	unsigned int attrs ATTRIBUTE_UNUSED,
246	bfd_vma pc ATTRIBUTE_UNUSED,
247	int length ATTRIBUTE_UNUSED)
248	{
249	disassemble_info info = (disassemble_info ) dis_info;
250
251	(*info->fprintf_func) (info->stream, "%ld", value);
252	}
253	/* -- */