/* Morpho Technologies mRISC opcode support, for GNU Binutils.  -*- C -*-   Copyright 2001, 2007, 2008, 2009, 2012 Free Software Foundation, Inc.    Contributed by Red Hat Inc; developed under contract from   Morpho Technologies.    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.  */  /* 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"  *//* -- opc.h */ /* Check applicability of instructions against machines.  */#define CGEN_VALIDATE_INSN_SUPPORTED /* Allows reason codes to be output when assembler errors occur.  */#define CGEN_VERBOSE_ASSEMBLER_ERRORS /* Override disassembly hashing - there are variable bits in the top   byte of these instructions.  */#define CGEN_DIS_HASH_SIZE 8#define CGEN_DIS_HASH(buf, value) (((* (unsigned char *) (buf)) >> 5) % CGEN_DIS_HASH_SIZE) #define CGEN_ASM_HASH_SIZE 127#define CGEN_ASM_HASH(insn) mt_asm_hash (insn) extern unsigned int mt_asm_hash (const char *); extern int mt_cgen_insn_supported (CGEN_CPU_DESC, const CGEN_INSN *); /* -- opc.c */#include "safe-ctype.h" /* Special check to ensure that instruction exists for given machine.  */ intmt_cgen_insn_supported (CGEN_CPU_DESC cd, const CGEN_INSN *insn){  int machs = CGEN_INSN_ATTR_VALUE (insn, CGEN_INSN_MACH);   /* No mach attribute?  Assume it's supported for all machs.  */  if (machs == 0)    return 1;    return ((machs & cd->machs) != 0);} /* A better hash function for instruction mnemonics.  */ unsigned intmt_asm_hash (const char* insn){  unsigned int hash;  const char* m = insn;   for (hash = 0; *m && ! ISSPACE (*m); m++)    hash = (hash * 23) ^ (0x1F & TOLOWER (*m));   /* printf ("%s %d\n", insn, (hash % CGEN_ASM_HASH_SIZE)); */   return hash % CGEN_ASM_HASH_SIZE;} /* -- asm.c *//* Range checking for signed numbers.  Returns 0 if acceptable   and 1 if the value is out of bounds for a signed quantity.  */ static int signed_out_of_bounds (long val){  if ((val < -32768) || (val > 32767))    return 1;  return 0;} static const char *parse_loopsize (CGEN_CPU_DESC cd,		const char **strp,		int opindex,		void *arg){  signed long * valuep = (signed long *) arg;  const char *errmsg;  bfd_reloc_code_real_type code = BFD_RELOC_NONE;  enum cgen_parse_operand_result result_type;  bfd_vma value;   /* Is it a control transfer instructions?  */   if (opindex == (CGEN_OPERAND_TYPE) MT_OPERAND_LOOPSIZE)    {      code = BFD_RELOC_MT_PCINSN8;      errmsg = cgen_parse_address (cd, strp, opindex, code,                                   & result_type, & value);      *valuep = value;      return errmsg;    }   abort ();} static const char *parse_imm16 (CGEN_CPU_DESC cd,	     const char **strp,	     int opindex,	     void *arg){  signed long * valuep = (signed long *) arg;  const char *errmsg;  enum cgen_parse_operand_result result_type;  bfd_reloc_code_real_type code = BFD_RELOC_NONE;  bfd_vma value;   /* Is it a control transfer instructions?  */   if (opindex == (CGEN_OPERAND_TYPE) MT_OPERAND_IMM16O)    {      code = BFD_RELOC_16_PCREL;      errmsg = cgen_parse_address (cd, strp, opindex, code,                                   & result_type, & value);      if (errmsg == NULL)	{	  if (signed_out_of_bounds (value))	    errmsg = _("Operand out of range. Must be between -32768 and 32767.");	}      *valuep = value;      return errmsg;    }   /* If it's not a control transfer instruction, then     we have to check for %OP relocating operators.  */  if (opindex == (CGEN_OPERAND_TYPE) MT_OPERAND_IMM16L)    ;  else if (strncmp (*strp, "%hi16", 5) == 0)    {      *strp += 5;      code = BFD_RELOC_HI16;    }  else if (strncmp (*strp, "%lo16", 5) == 0)    {      *strp += 5;      code = BFD_RELOC_LO16;    }   /* If we found a %OP relocating operator, then parse it as an address.     If not, we need to parse it as an integer, either signed or unsigned     depending on which operand type we have.  */  if (code != BFD_RELOC_NONE)    {       /* %OP relocating operator found.  */       errmsg = cgen_parse_address (cd, strp, opindex, code,                                   & result_type, & value);       if (errmsg == NULL)	 {           switch (result_type)	     {	     case (CGEN_PARSE_OPERAND_RESULT_NUMBER):	       if (code == BFD_RELOC_HI16)		 value = (value >> 16) & 0xFFFF;	       else if (code == BFD_RELOC_LO16)		 value = value  & 0xFFFF;	       else 		 errmsg = _("Biiiig Trouble in parse_imm16!");	       break; 	     case (CGEN_PARSE_OPERAND_RESULT_QUEUED):	       /* No special processing for this case.  */	       break; 	     default:	       errmsg = _("The percent-operator's operand is not a symbol");	       break;             }	 }       *valuep = value;    }  else    {      /* Parse hex values like 0xffff as unsigned, and sign extend	 them manually.  */      int parse_signed = (opindex == (CGEN_OPERAND_TYPE)MT_OPERAND_IMM16);       if ((*strp)[0] == '0'	  && ((*strp)[1] == 'x' || (*strp)[1] == 'X'))	parse_signed = 0;       /* No relocating operator.  Parse as an number.  */      if (parse_signed)	{          /* Parse as as signed integer.  */           errmsg = cgen_parse_signed_integer (cd, strp, opindex, valuep);           if (errmsg == NULL) 	    {#if 0	      /* Manual range checking is needed for the signed case.  */	      if (*valuep & 0x8000)                value = 0xffff0000 | *valuep;	      else                 value = *valuep; 	      if (signed_out_of_bounds (value))	        errmsg = _("Operand out of range. Must be between -32768 and 32767.");	      /* Truncate to 16 bits. This is necessary		 because cgen will have sign extended *valuep.  */	      *valuep &= 0xFFFF; #endif	    }	}      else  	{          /* MT_OPERAND_IMM16Z.  Parse as an unsigned integer.  */          errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, (unsigned long *) valuep); 	  if (opindex == (CGEN_OPERAND_TYPE) MT_OPERAND_IMM16	      && *valuep >= 0x8000	      && *valuep <= 0xffff)	    *valuep -= 0x10000;	}    }   return errmsg;}  static const char *parse_dup (CGEN_CPU_DESC cd,	   const char **strp,	   int opindex,	   unsigned long *valuep){  const char *errmsg = NULL;   if (strncmp (*strp, "dup", 3) == 0 || strncmp (*strp, "DUP", 3) == 0)    {      *strp += 3;      *valuep = 1;    }  else if (strncmp (*strp, "xx", 2) == 0 || strncmp (*strp, "XX", 2) == 0)    {      *strp += 2;      *valuep = 0;    }  else    errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep);   return errmsg;}  static const char *parse_ball (CGEN_CPU_DESC cd,	    const char **strp,	    int opindex,	    unsigned long *valuep){  const char *errmsg = NULL;   if (strncmp (*strp, "all", 3) == 0 || strncmp (*strp, "ALL", 3) == 0)    {      *strp += 3;      *valuep = 1;    }  else if (strncmp (*strp, "one", 3) == 0 || strncmp (*strp, "ONE", 3) == 0)    {      *strp += 3;      *valuep = 0;    }  else    errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep);   return errmsg;} static const char *parse_xmode (CGEN_CPU_DESC cd,	     const char **strp,	     int opindex,	     unsigned long *valuep){  const char *errmsg = NULL;   if (strncmp (*strp, "pm", 2) == 0 || strncmp (*strp, "PM", 2) == 0)    {      *strp += 2;      *valuep = 1;    }  else if (strncmp (*strp, "xm", 2) == 0 || strncmp (*strp, "XM", 2) == 0)    {      *strp += 2;      *valuep = 0;    }  else    errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep);   return errmsg;} static const char *parse_rc (CGEN_CPU_DESC cd,	  const char **strp,	  int opindex,	  unsigned long *valuep){  const char *errmsg = NULL;   if (strncmp (*strp, "r", 1) == 0 || strncmp (*strp, "R", 1) == 0)    {      *strp += 1;      *valuep = 1;    }  else if (strncmp (*strp, "c", 1) == 0 || strncmp (*strp, "C", 1) == 0)    {      *strp += 1;      *valuep = 0;    }  else    errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep);   return errmsg;} static const char *parse_cbrb (CGEN_CPU_DESC cd,	    const char **strp,	    int opindex,	    unsigned long *valuep){  const char *errmsg = NULL;   if (strncmp (*strp, "rb", 2) == 0 || strncmp (*strp, "RB", 2) == 0)    {      *strp += 2;      *valuep = 1;    }  else if (strncmp (*strp, "cb", 2) == 0 || strncmp (*strp, "CB", 2) == 0)    {      *strp += 2;      *valuep = 0;    }  else    errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep);   return errmsg;} static const char *parse_rbbc (CGEN_CPU_DESC cd,	    const char **strp,	    int opindex,	    unsigned long *valuep){  const char *errmsg = NULL;   if (strncmp (*strp, "rt", 2) == 0 || strncmp (*strp, "RT", 2) == 0)    {      *strp += 2;      *valuep = 0;    }  else if (strncmp (*strp, "br1", 3) == 0 || strncmp (*strp, "BR1", 3) == 0)    {      *strp += 3;      *valuep = 1;    }  else if (strncmp (*strp, "br2", 3) == 0 || strncmp (*strp, "BR2", 3) == 0)    {      *strp += 3;      *valuep = 2;    }  else if (strncmp (*strp, "cs", 2) == 0 || strncmp (*strp, "CS", 2) == 0)    {      *strp += 2;      *valuep = 3;    }  else    errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep);   return errmsg;} static const char *parse_type (CGEN_CPU_DESC cd,	    const char **strp,	    int opindex,	    unsigned long *valuep){  const char *errmsg = NULL;   if (strncmp (*strp, "odd", 3) == 0 || strncmp (*strp, "ODD", 3) == 0)    {      *strp += 3;      *valuep = 0;    }  else if (strncmp (*strp, "even", 4) == 0 || strncmp (*strp, "EVEN", 4) == 0)    {      *strp += 4;      *valuep = 1;    }  else if (strncmp (*strp, "oe", 2) == 0 || strncmp (*strp, "OE", 2) == 0)    {      *strp += 2;      *valuep = 2;    }  else    errmsg = cgen_parse_unsigned_integer (cd, strp, opindex, valuep);  if ((errmsg == NULL) && (*valuep == 3))    errmsg = _("invalid operand.  type may have values 0,1,2 only.");   return errmsg;} /* -- dis.c */static voidprint_dollarhex (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, "$%lx", value & 0xffffffff);   if (0)    print_normal (cd, dis_info, value, attrs, pc, length);} static voidprint_pcrel (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_address (cd, dis_info, value + pc, attrs, pc, length);} /* -- */