/* Assembler interface for targets using CGEN. -*- C -*-
CGEN: Cpu tools GENerator
-THIS FILE IS MACHINE GENERATED WITH CGEN.
-- the resultant file is machine generated, cgen-asm.in isn't
+ THIS FILE IS MACHINE GENERATED WITH CGEN.
+ - the resultant file is machine generated, cgen-asm.in isn't
-Copyright 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
+ Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2005, 2007, 2008, 2010
+ Free Software Foundation, Inc.
-This file is part of the GNU Binutils and GDB, the GNU debugger.
+ This file is part of libopcodes.
-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, or (at your option)
-any later version.
+ This library 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, 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.
+ It 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. */
-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. */
/* ??? Eventually more and more of this stuff can go to cpu-independent files.
Keep that in mind. */
/* -- assembler routines inserted here. */
/* -- asm.c */
-static const char * parse_ulo16
- PARAMS ((CGEN_CPU_DESC, const char **, int, unsigned long *));
-static const char * parse_uslo16
- PARAMS ((CGEN_CPU_DESC, const char **, int, signed long *));
-static const char * parse_uhi16
- PARAMS ((CGEN_CPU_DESC, const char **, int, unsigned long *));
-static long parse_register_number
- PARAMS ((const char **));
-static const char * parse_spr
- PARAMS ((CGEN_CPU_DESC, const char **, CGEN_KEYWORD *, long *));
-static const char * parse_d12
- PARAMS ((CGEN_CPU_DESC, const char **, int, long *));
-static const char * parse_s12
- PARAMS ((CGEN_CPU_DESC, const char **, int, long *));
-static const char * parse_u12
- PARAMS ((CGEN_CPU_DESC, const char **, int, long *));
-static const char * parse_even_register
- PARAMS ((CGEN_CPU_DESC, const char **, CGEN_KEYWORD *, long *));
-static const char * parse_A0
- PARAMS ((CGEN_CPU_DESC, const char **, int, unsigned long *));
-static const char * parse_A1
- PARAMS ((CGEN_CPU_DESC, const char **, int, unsigned long *));
-static const char * parse_A
- PARAMS ((CGEN_CPU_DESC, const char **, int, unsigned long *, unsigned long));
-
inline static const char *
parse_symbolic_address (CGEN_CPU_DESC cd,
const char **strp,
}
static const char *
-parse_ulo16 (cd, strp, opindex, valuep)
- CGEN_CPU_DESC cd;
- const char **strp;
- int opindex;
- unsigned long *valuep;
+parse_ulo16 (CGEN_CPU_DESC cd,
+ const char **strp,
+ int opindex,
+ unsigned long *valuep)
{
const char *errmsg;
enum cgen_parse_operand_result result_type;
{
*strp += 4;
errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_FRV_LO16,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing `)'";
++*strp;
*strp += 9;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GPRELLO,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 7;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTLO,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 15;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_FUNCDESC_GOTLO,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 10;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTOFFLO,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 18;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_FUNCDESC_GOTOFFLO,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 14;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTTLSDESCLO,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 11;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_TLSMOFFLO,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 13;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTTLSOFFLO,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
}
static const char *
-parse_uslo16 (cd, strp, opindex, valuep)
- CGEN_CPU_DESC cd;
- const char **strp;
- int opindex;
- signed long *valuep;
+parse_uslo16 (CGEN_CPU_DESC cd,
+ const char **strp,
+ int opindex,
+ signed long *valuep)
{
const char *errmsg;
enum cgen_parse_operand_result result_type;
{
*strp += 4;
errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_FRV_LO16,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing `)'";
++*strp;
*strp += 9;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GPRELLO,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 7;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTLO,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 15;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_FUNCDESC_GOTLO,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 10;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTOFFLO,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 18;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_FUNCDESC_GOTOFFLO,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 14;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTTLSDESCLO,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 11;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_TLSMOFFLO,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 13;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTTLSOFFLO,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
}
static const char *
-parse_uhi16 (cd, strp, opindex, valuep)
- CGEN_CPU_DESC cd;
- const char **strp;
- int opindex;
- unsigned long *valuep;
+parse_uhi16 (CGEN_CPU_DESC cd,
+ const char **strp,
+ int opindex,
+ unsigned long *valuep)
{
const char *errmsg;
enum cgen_parse_operand_result result_type;
{
*strp += 4;
errmsg = cgen_parse_address (cd, strp, opindex, BFD_RELOC_FRV_HI16,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing `)'";
++*strp;
*strp += 9;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GPRELHI,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 7;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTHI,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 15;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_FUNCDESC_GOTHI,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 10;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTOFFHI,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 18;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_FUNCDESC_GOTOFFHI,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 11;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_TLSMOFFHI,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 13;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTTLSOFFHI,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
}
static long
-parse_register_number (strp)
- const char **strp;
+parse_register_number (const char **strp)
{
int regno;
+
if (**strp < '0' || **strp > '9')
return -1; /* error */
}
static const char *
-parse_spr (cd, strp, table, valuep)
- CGEN_CPU_DESC cd;
- const char **strp;
- CGEN_KEYWORD * table;
- long *valuep;
+parse_spr (CGEN_CPU_DESC cd,
+ const char **strp,
+ CGEN_KEYWORD * table,
+ long *valuep)
{
const char *save_strp;
long regno;
*strp += 4;
regno = parse_register_number (strp);
if (**strp != ']')
- return "missing `]'";
+ return _("missing `]'");
++*strp;
if (! spr_valid (regno))
- return "Special purpose register number is out of range";
+ return _("Special purpose register number is out of range");
*valuep = regno;
return NULL;
}
if (regno != -1)
{
if (! spr_valid (regno))
- return "Special purpose register number is out of range";
+ return _("Special purpose register number is out of range");
*valuep = regno;
return NULL;
}
}
static const char *
-parse_d12 (cd, strp, opindex, valuep)
- CGEN_CPU_DESC cd;
- const char **strp;
- int opindex;
- long *valuep;
+parse_d12 (CGEN_CPU_DESC cd,
+ const char **strp,
+ int opindex,
+ long *valuep)
{
const char *errmsg;
enum cgen_parse_operand_result result_type;
*strp += 9;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GPREL12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing `)'";
++*strp;
*strp += 7;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOT12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 15;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_FUNCDESC_GOT12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 10;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTOFF12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 18;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_FUNCDESC_GOTOFF12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 14;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTTLSDESC12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 11;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_TLSMOFF12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 13;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTTLSOFF12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
}
static const char *
-parse_s12 (cd, strp, opindex, valuep)
- CGEN_CPU_DESC cd;
- const char **strp;
- int opindex;
- long *valuep;
+parse_s12 (CGEN_CPU_DESC cd,
+ const char **strp,
+ int opindex,
+ long *valuep)
{
const char *errmsg;
enum cgen_parse_operand_result result_type;
*strp += 9;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GPREL12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing `)'";
++*strp;
*strp += 7;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOT12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 15;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_FUNCDESC_GOT12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 10;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTOFF12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 18;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_FUNCDESC_GOTOFF12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 14;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTTLSDESC12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 11;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_TLSMOFF12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
*strp += 13;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GOTTLSOFF12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing ')'";
++*strp;
}
static const char *
-parse_u12 (cd, strp, opindex, valuep)
- CGEN_CPU_DESC cd;
- const char **strp;
- int opindex;
- long *valuep;
+parse_u12 (CGEN_CPU_DESC cd,
+ const char **strp,
+ int opindex,
+ long *valuep)
{
const char *errmsg;
enum cgen_parse_operand_result result_type;
*strp += 9;
errmsg = parse_symbolic_address (cd, strp, opindex,
BFD_RELOC_FRV_GPRELU12,
- &result_type, &value);
+ & result_type, & value);
if (**strp != ')')
return "missing `)'";
++*strp;
}
static const char *
-parse_A (cd, strp, opindex, valuep, A)
- CGEN_CPU_DESC cd;
- const char **strp;
- int opindex;
- unsigned long *valuep;
- unsigned long A;
+parse_A (CGEN_CPU_DESC cd,
+ const char **strp,
+ int opindex,
+ unsigned long *valuep,
+ unsigned long A)
{
const char *errmsg;
return errmsg;
if (*valuep != A)
- return "Value of A operand must be 0 or 1";
+ return _("Value of A operand must be 0 or 1");
return NULL;
}
static const char *
-parse_A0 (cd, strp, opindex, valuep)
- CGEN_CPU_DESC cd;
- const char **strp;
- int opindex;
- unsigned long *valuep;
+parse_A0 (CGEN_CPU_DESC cd,
+ const char **strp,
+ int opindex,
+ unsigned long *valuep)
{
return parse_A (cd, strp, opindex, valuep, 0);
}
static const char *
-parse_A1 (cd, strp, opindex, valuep)
- CGEN_CPU_DESC cd;
- const char **strp;
- int opindex;
- unsigned long *valuep;
+parse_A1 (CGEN_CPU_DESC cd,
+ const char **strp,
+ int opindex,
+ unsigned long *valuep)
{
return parse_A (cd, strp, opindex, valuep, 1);
}
static const char *
-parse_even_register (cd, strP, tableP, valueP)
- CGEN_CPU_DESC cd;
- const char ** strP;
- CGEN_KEYWORD * tableP;
- long * valueP;
+parse_even_register (CGEN_CPU_DESC cd,
+ const char ** strP,
+ CGEN_KEYWORD * tableP,
+ long * valueP)
{
const char * errmsg;
const char * saved_star_strP = * strP;
BFD_RELOC_FRV_GETTLSOFF,
resultp, &value);
if (**strp != ')')
- return "missing `)'";
+ return _("missing `)'");
++*strp;
*valuep = value;
return errmsg;
/* -- */
const char * frv_cgen_parse_operand
- PARAMS ((CGEN_CPU_DESC, int, const char **, CGEN_FIELDS *));
+ (CGEN_CPU_DESC, int, const char **, CGEN_FIELDS *);
/* Main entry point for operand parsing.
the handlers. */
const char *
-frv_cgen_parse_operand (cd, opindex, strp, fields)
- CGEN_CPU_DESC cd;
- int opindex;
- const char ** strp;
- CGEN_FIELDS * fields;
+frv_cgen_parse_operand (CGEN_CPU_DESC cd,
+ int opindex,
+ const char ** strp,
+ CGEN_FIELDS * fields)
{
const char * errmsg = NULL;
/* Used by scalar operands that still need to be parsed. */
};
void
-frv_cgen_init_asm (cd)
- CGEN_CPU_DESC cd;
+frv_cgen_init_asm (CGEN_CPU_DESC cd)
{
frv_cgen_init_opcode_table (cd);
frv_cgen_init_ibld_table (cd);
cd->parse_handlers = & frv_cgen_parse_handlers[0];
cd->parse_operand = frv_cgen_parse_operand;
+#ifdef CGEN_ASM_INIT_HOOK
+CGEN_ASM_INIT_HOOK
+#endif
}
\f
continue;
}
+#ifdef CGEN_MNEMONIC_OPERANDS
+ (void) past_opcode_p;
+#endif
/* We have an operand of some sort. */
- errmsg = cd->parse_operand (cd, CGEN_SYNTAX_FIELD (*syn),
- &str, fields);
+ errmsg = cd->parse_operand (cd, CGEN_SYNTAX_FIELD (*syn), &str, fields);
if (errmsg)
return errmsg;
{
static char errbuf[150];
-#ifdef CGEN_VERBOSE_ASSEMBLER_ERRORS
const char *tmp_errmsg;
-
- /* If requesting verbose error messages, use insert_errmsg.
- Failing that, use parse_errmsg. */
- tmp_errmsg = (insert_errmsg ? insert_errmsg :
- parse_errmsg ? parse_errmsg :
- recognized_mnemonic ?
- _("unrecognized form of instruction") :
- _("unrecognized instruction"));
-
- if (strlen (start) > 50)
- /* xgettext:c-format */
- sprintf (errbuf, "%s `%.50s...'", tmp_errmsg, start);
- else
- /* xgettext:c-format */
- sprintf (errbuf, "%s `%.50s'", tmp_errmsg, start);
+#ifdef CGEN_VERBOSE_ASSEMBLER_ERRORS
+#define be_verbose 1
#else
- if (strlen (start) > 50)
- /* xgettext:c-format */
- sprintf (errbuf, _("bad instruction `%.50s...'"), start);
- else
- /* xgettext:c-format */
- sprintf (errbuf, _("bad instruction `%.50s'"), start);
+#define be_verbose 0
#endif
+
+ if (be_verbose)
+ {
+ /* If requesting verbose error messages, use insert_errmsg.
+ Failing that, use parse_errmsg. */
+ tmp_errmsg = (insert_errmsg ? insert_errmsg :
+ parse_errmsg ? parse_errmsg :
+ recognized_mnemonic ?
+ _("unrecognized form of instruction") :
+ _("unrecognized instruction"));
+
+ if (strlen (start) > 50)
+ /* xgettext:c-format */
+ sprintf (errbuf, "%s `%.50s...'", tmp_errmsg, start);
+ else
+ /* xgettext:c-format */
+ sprintf (errbuf, "%s `%.50s'", tmp_errmsg, start);
+ }
+ else
+ {
+ if (strlen (start) > 50)
+ /* xgettext:c-format */
+ sprintf (errbuf, _("bad instruction `%.50s...'"), start);
+ else
+ /* xgettext:c-format */
+ sprintf (errbuf, _("bad instruction `%.50s'"), start);
+ }
*errmsg = errbuf;
return NULL;
}
}
-\f
-#if 0 /* This calls back to GAS which we can't do without care. */
-
-/* Record each member of OPVALS in the assembler's symbol table.
- This lets GAS parse registers for us.
- ??? Interesting idea but not currently used. */
-
-/* Record each member of OPVALS in the assembler's symbol table.
- FIXME: Not currently used. */
-
-void
-frv_cgen_asm_hash_keywords (CGEN_CPU_DESC cd, CGEN_KEYWORD *opvals)
-{
- CGEN_KEYWORD_SEARCH search = cgen_keyword_search_init (opvals, NULL);
- const CGEN_KEYWORD_ENTRY * ke;
-
- while ((ke = cgen_keyword_search_next (& search)) != NULL)
- {
-#if 0 /* Unnecessary, should be done in the search routine. */
- if (! frv_cgen_opval_supported (ke))
- continue;
-#endif
- cgen_asm_record_register (cd, ke->name, ke->value);
- }
-}
-
-#endif /* 0 */