sim/d10v/gencode.c

   1 #include "config.h"
   2 #include <stdio.h>
   3 #include <ctype.h>
   4 #include <limits.h>
   5 #include "ansidecl.h"
   6 #include "opcode/d10v.h"
   7
   8 static void write_header (void);
   9 static void write_opcodes (void);
  10 static void write_template (void);
  11
  12 int
  13 main (argc, argv)
  14      int argc;
  15      char *argv[];
  16 {
  17   if ((argc > 1) && (strcmp (argv[1],"-h") == 0))
  18     write_header();
  19   else if ((argc > 1) && (strcmp (argv[1],"-t") == 0))
  20     write_template ();
  21   else
  22     write_opcodes();
  23   return 0;
  24 }
  25
  26
  27 static void
  28 write_header ()
  29 {
  30   struct d10v_opcode *opcode;
  31
  32   for (opcode = (struct d10v_opcode *)d10v_opcodes; opcode->name; opcode++)
  33     if (opcode->format != OPCODE_FAKE)
  34       printf("void OP_%X (void);\t\t/* %s */\n",opcode->opcode, opcode->name);
  35 }
  36
  37
  38 /* write_template creates a file all required functions, ready */
  39 /* to be filled out */
  40
  41 static void
  42 write_template ()
  43 {
  44   struct d10v_opcode *opcode;
  45   int i,j;
  46
  47   printf ("#include \"d10v_sim.h\"\n");
  48   printf ("#include \"simops.h\"\n");
  49
  50   for (opcode = (struct d10v_opcode *)d10v_opcodes; opcode->name; opcode++)
  51     {
  52       if (opcode->format != OPCODE_FAKE)
  53         {
  54           printf("/* %s */\nvoid\nOP_%X ()\n{\n",opcode->name,opcode->opcode);
  55
  56           /* count operands */
  57           j = 0;
  58           for (i=0;i<6;i++)
  59             {
  60               int flags = d10v_operands[opcode->operands[i]].flags;
  61               if ((flags & OPERAND_REG) || (flags & OPERAND_NUM) || (flags & OPERAND_ADDR))
  62                 j++;
  63             }
  64           switch (j)
  65             {
  66             case 0:
  67               printf ("printf(\"   %s\\n\");\n",opcode->name);
  68               break;
  69             case 1:
  70               printf ("printf(\"   %s\\t%%x\\n\",OP[0]);\n",opcode->name);
  71               break;
  72             case 2:
  73               printf ("printf(\"   %s\\t%%x,%%x\\n\",OP[0],OP[1]);\n",opcode->name);
  74               break;
  75             case 3:
  76               printf ("printf(\"   %s\\t%%x,%%x,%%x\\n\",OP[0],OP[1],OP[2]);\n",opcode->name);
  77               break;
  78             default:
  79               fprintf (stderr,"Too many operands: %d\n",j);
  80             }
  81           printf ("}\n\n");
  82         }
  83     }
  84 }
  85
  86
  87 long Opcodes[512];
  88 static int curop=0;
  89
  90 check_opcodes( long op)
  91 {
  92   int i;
  93
  94   for (i=0;i<curop;i++)
  95     if (Opcodes[i] == op)
  96       fprintf(stderr,"DUPLICATE OPCODES: %x\n",op);
  97 }
  98
  99
 100 static void
 101 write_opcodes ()
 102 {
 103   struct d10v_opcode *opcode;
 104   int i, j;
 105
 106   /* write out opcode table */
 107   printf ("#include \"d10v_sim.h\"\n");
 108   printf ("#include \"simops.h\"\n\n");
 109   printf ("struct simops Simops[] = {\n");
 110
 111   for (opcode = (struct d10v_opcode *)d10v_opcodes; opcode->name; opcode++)
 112     {
 113       if (opcode->format != OPCODE_FAKE)
 114         {
 115           printf ("  { %ld,%d,%ld,%d,%d,%d,%d,OP_%X,", opcode->opcode,
 116                   (opcode->format & LONG_OPCODE) ? 1 : 0, opcode->mask, opcode->format,
 117                   opcode->cycles, opcode->unit, opcode->exec_type, opcode->opcode);
 118
 119           /* REMOVE ME */
 120           check_opcodes (opcode->opcode);
 121           Opcodes[curop++] = opcode->opcode;
 122
 123           j = 0;
 124           for (i=0;i<6;i++)
 125             {
 126               int flags = d10v_operands[opcode->operands[i]].flags;
 127               if ((flags & OPERAND_REG) || (flags & OPERAND_NUM) || (flags & OPERAND_ADDR))
 128                 j++;
 129             }
 130           printf ("%d,",j);
 131
 132           j = 0;
 133           for (i=0;i<6;i++)
 134             {
 135               int flags = d10v_operands[opcode->operands[i]].flags;
 136               int shift = d10v_operands[opcode->operands[i]].shift;
 137               if ((flags & OPERAND_REG) || (flags & OPERAND_NUM)|| (flags & OPERAND_ADDR))
 138                 {
 139                   if (j == 0)
 140                     printf ("{");
 141                   else
 142                     printf (", ");
 143                   if ((flags & OPERAND_REG) && (opcode->format == LONG_L))
 144                     shift += 15;
 145                   printf ("%d,%d,%d",shift,d10v_operands[opcode->operands[i]].bits,flags);
 146                   j = 1;
 147                 }
 148             }
 149           if (j)
 150             printf ("}");
 151           printf ("},\n");
 152         }
 153     }
 154   printf ("{ 0,0,0,0,0,0,0,(void (*)(void))0,0,{0,0,0}},\n};\n");
 155 }