1 /* opc2c.c --- generate C opcode decoder code from from .opc file
3 Copyright (C) 2005, 2007, 2008, 2009 Free Software Foundation, Inc.
4 Contributed by Red Hat, Inc.
6 This file is part of the GNU opcode library.
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.
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.
18 You should have received a copy of the GNU General Public License
19 along with this program. If not, see <http://www.gnu.org/licenses/>. */
27 #include "libiberty.h"
29 static char * line_buf
= NULL
;
30 static int line_buf_size
= 0;
41 line_buf
= (char *) malloc (LBUFINCR
);
42 line_buf_size
= LBUFINCR
;
45 /* Points to last byte. */
46 line_ptr
= line_buf
+ line_buf_size
- 1;
48 /* So we can see if fgets put a 0 there. */
50 if (fgets (line_buf
, line_buf_size
, f
) == 0)
53 /* We filled the buffer? */
54 while (line_ptr
[0] == 0 && line_ptr
[-1] != '\n')
56 /* Make the buffer bigger and read more of the line. */
57 line_buf_size
+= LBUFINCR
;
58 line_buf
= (char *) realloc (line_buf
, line_buf_size
);
60 /* Points to last byte again. */
61 line_ptr
= line_buf
+ line_buf_size
- 1;
62 /* So we can see if fgets put a 0 there. */
65 if (fgets (line_buf
+ line_buf_size
- LBUFINCR
- 1, LBUFINCR
+ 1, f
) == 0)
73 static int errors
= 0;
88 char id
[MAX_BYTES
* 8 + 1];
89 unsigned char var_start
[MAX_BYTES
* 8 + 1];
92 unsigned char decodable_mask
;
93 unsigned char decodable_bits
;
100 struct Indirect
* last_ind
;
116 unsigned char * patterns
;
122 unsigned char cur_bits
[MAX_BYTES
+ 1];
124 char * orig_filename
;
126 FILE * sim_log
= NULL
;
127 #define lprintf if (sim_log) fprintf
129 opcode prefix_text
, suffix_text
;
139 typedef struct Indirect
144 struct Indirect
* ind
;
149 Indirect indirect
[256];
152 next_varybits (int bits
, opcode
* op
, int byte
)
154 int mask
= op
->b
[byte
].decodable_mask
;
157 for (i
= 0; i
< 8; i
++)
158 if (!(mask
& (1 << i
)))
174 valid_varybits (int bits
, opcode
* op
, int byte
)
180 for (vn
= 0; vn
< op
->nvaries
; vn
++)
187 if (byte
!= op
->vary
[vn
].byte
)
189 v
= vary
[op
->vary
[vn
].varyno
];
190 ob
= (bits
>> op
->vary
[vn
].shift
) & v
->mask
;
191 lprintf (sim_log
, "varybits: vary %s ob %x\n", v
->name
, ob
);
193 for (i
= 0; i
< v
->n_patterns
; i
++)
194 if (ob
== v
->patterns
[i
])
196 lprintf (sim_log
, " found at %d\n", i
);
208 prmb (int mask
, int bits
)
210 static char buf
[8][30];
217 for (i
= 0; i
< 8; i
++)
235 op_cmp (const void *va
, const void *vb
)
237 const opcode
* a
= *(const opcode
**) va
;
238 const opcode
* b
= *(const opcode
**) vb
;
240 if (a
->nbytes
!= b
->nbytes
)
241 return a
->nbytes
- b
->nbytes
;
243 return strcmp (a
->id
, b
->id
);
247 dump_lines (opcode
* op
, int level
, Indirect
* ind
)
252 if (op
->semantics_label
)
254 printf ("%*sgoto op_semantics_%d;\n", level
, "", op
->semantics_label
);
258 if (ind
!= op
->last_ind
)
260 static int labelno
= 0;
262 printf ("%*sop_semantics_%d:\n", level
, "", labelno
);
263 op
->semantics_label
= labelno
;
269 printf ("%*s{\n", level
, "");
270 printf ("%*s %s\n", level
, "", op
->comment
);
273 for (i
= 0; i
< op
->nbytes
* 8;)
275 if (isalpha (op
->id
[i
]))
283 while (op
->id
[i
] && isalpha (op
->id
[i
]))
285 mask
= (mask
<< 1) | 1;
288 if (op
->var_start
[i
])
292 varnames
[vn
++] = strdup (name
);
293 printf ("#line %d \"%s\"\n", op
->lineno
+ 1, orig_filename
);
296 fprintf (stderr
, "Error: variable %s spans bytes: %s\n",
300 else if (shift
&& (mask
!= 0xff))
301 printf ("%*s int %s AU = (op[%d] >> %d) & 0x%02x;\n",
302 level
, "", name
, byte
, shift
, mask
);
303 else if (mask
!= 0xff)
304 printf ("%*s int %s AU = op[%d] & 0x%02x;\n",
305 level
, "", name
, byte
, mask
);
307 printf ("%*s int %s AU = op[%d];\n", level
, "", name
, byte
);
315 printf ("%*s if (trace)\n", level
, "");
316 printf ("%*s {\n", level
, "");
317 printf ("%*s printf (\"\\033[33m%%s\\033[0m ", level
, "");
318 for (i
= 0; i
< op
->nbytes
; i
++)
321 printf (",\n%*s \"%s\"", level
, "", op
->comment
);
322 for (i
= 0; i
< op
->nbytes
; i
++)
325 printf (",\n%*s op[%d]", level
, "", i
);
327 printf (", op[%d]", i
);
330 for (i
= 0; i
< vn
; i
++)
331 printf ("%*s printf (\" %s = 0x%%x%s\", %s);\n", level
, "",
332 varnames
[i
], (i
< vn
- 1) ? "," : "\\n", varnames
[i
]);
333 printf ("%*s }\n", level
, "");
337 printf ("%*s SYNTAX(\"%s\");\n", level
, "", op
->syntax
);
339 printf ("#line %d \"%s\"\n", op
->lineno
+ 1, orig_filename
);
341 for (i
= 0; i
< op
->nlines
; i
++)
342 printf ("%*s%s", level
, "", op
->lines
[i
]);
345 printf ("%*s}\n", level
, "");
349 store_opcode_bits (opcode
* op
, int byte
, Indirect
* ind
)
351 int bits
= op
->b
[byte
].decodable_bits
;
355 if (!valid_varybits (bits
, op
, byte
))
358 switch (ind
[bits
].type
)
361 if (byte
== op
->dbytes
- 1)
363 ind
[bits
].type
= T_op
;
372 ind
[bits
].type
= T_indirect
;
373 ind
[bits
].u
.ind
= (Indirect
*) malloc (256 * sizeof (Indirect
));
374 for (i2
= 0; i2
< 256; i2
++)
375 ind
[bits
].u
.ind
[i2
].type
= T_unused
;
376 store_opcode_bits (op
, byte
+ 1, ind
[bits
].u
.ind
);
381 if (byte
< op
->dbytes
- 1)
382 store_opcode_bits (op
, byte
+ 1, ind
[bits
].u
.ind
);
392 while ((bits
= next_varybits (bits
, op
, byte
)) != 0);
396 emit_indirect (Indirect
* ind
, int byte
)
402 for (j
= 0; j
< 256; j
++)
410 mask
|= ind
[j
].u
.op
->b
[byte
].decodable_mask
;
418 printf ("%*s GETBYTE ();\n", byte
* 6, "");
419 printf ("%*s switch (op[%d] & 0x%02x)\n", byte
* 6, "", byte
, mask
);
420 printf ("%*s {\n", byte
* 6, "");
422 for (j
= 0; j
< 256; j
++)
423 if ((j
& ~mask
) == 0)
433 for (n
= j
; n
< 256; n
++)
435 && ind
[n
].type
== T_op
&& ind
[n
].u
.op
== ind
[j
].u
.op
)
437 ind
[n
].type
= T_done
;
438 printf ("%*s case 0x%02x:\n", byte
* 6, "", n
);
440 for (n
= byte
; n
< ind
[j
].u
.op
->nbytes
- 1; n
++)
441 printf ("%*s GETBYTE();\n", byte
* 6, "");
442 dump_lines (ind
[j
].u
.op
, byte
* 6 + 6, ind
);
443 printf ("%*s break;\n", byte
* 6, "");
446 printf ("%*s case 0x%02x:\n", byte
* 6, "", j
);
447 emit_indirect (ind
[j
].u
.ind
, byte
+ 1);
448 printf ("%*s break;\n", byte
* 6, "");
453 printf ("%*s default: UNSUPPORTED(); break;\n", byte
* 6, "");
454 printf ("%*s }\n", byte
* 6, "");
458 pv_dup (char * p
, char * ep
)
461 char *rv
= (char *) malloc (n
+ 1);
469 str2mask (char * str
, char * ep
)
471 unsigned char rv
= 0;
484 process_vary (char * line
)
488 Vary
* v
= (Vary
*) malloc (sizeof (Vary
));
492 vary
= (Vary
**) realloc (vary
, n_varies
* sizeof (Vary
*));
494 vary
= (Vary
**) malloc (n_varies
* sizeof (Vary
*));
495 vary
[n_varies
- 1] = v
;
499 for (cp
= line
; isspace (*cp
); cp
++);
500 for (ep
= cp
; *ep
&& !isspace (*ep
); ep
++);
502 v
->name
= pv_dup (cp
, ep
);
503 v
->nlen
= strlen (v
->name
);
504 v
->mask
= (1 << v
->nlen
) - 1;
507 v
->patterns
= (unsigned char *) malloc (1);
510 for (cp
= ep
; isspace (*cp
); cp
++);
513 for (ep
= cp
; *ep
&& !isspace (*ep
); ep
++);
515 v
->patterns
= (unsigned char *) realloc (v
->patterns
, v
->n_patterns
);
516 v
->patterns
[v
->n_patterns
- 1] = str2mask (cp
, ep
);
521 fieldcmp (opcode
* op
, int bit
, char *name
)
523 int n
= strlen (name
);
525 if (memcmp (op
->id
+ bit
, name
, n
) == 0
526 && (!isalpha (op
->id
[bit
+ n
]) || op
->var_start
[bit
+ n
]))
532 log_indirect (Indirect
* ind
, int byte
)
537 for (i
= 0; i
< 256; i
++)
540 for (j
= 0; j
< byte
; j
++)
541 fprintf (sim_log
, "%s ", prmb (255, cur_bits
[j
]));
542 fprintf (sim_log
, "%s ", prmb (255, i
));
548 if (last_c
&& (ind
[i
].u
.op
->comment
== last_c
))
549 fprintf (sim_log
, "''\n");
551 fprintf (sim_log
, "%s\n", ind
[i
].u
.op
->comment
);
552 last_c
= ind
[i
].u
.op
->comment
;
555 fprintf (sim_log
, "unused\n");
558 fprintf (sim_log
, "indirect\n");
560 log_indirect (ind
[i
].u
.ind
, byte
+ 1);
568 main (int argc
, char ** argv
)
575 int skipping_section
= 0;
577 if (argc
> 2 && strcmp (argv
[1], "-l") == 0)
579 sim_log
= fopen (argv
[2], "w");
580 fprintf (stderr
, "sim_log: %s\n", argv
[2]);
587 fprintf (stderr
, "usage: opc2c infile.opc > outfile.opc\n");
591 orig_filename
= lbasename (argv
[1]);
592 in
= fopen (argv
[1], "r");
595 fprintf (stderr
, "Unable to open file %s for reading: %s\n", argv
[1],
601 opcodes
= (opcode
**) malloc (sizeof (opcode
*));
604 while ((line
= safe_fgets (in
)) != 0)
607 if (strncmp (line
, "/*?* ", 5) == 0)
609 skipping_section
= 1;
612 if (strncmp (line
, " /** ", 6) == 0
613 && (isdigit (line
[6]) || memcmp (line
+ 6, "VARY", 4) == 0))
615 if (line
[0] == '/' && line
[1] == '*' && line
[2] == '*')
617 skipping_section
= 0;
618 if (strncmp (line
, "/** */", 6) == 0)
623 else if (strncmp (line
, "/** VARY ", 9) == 0)
624 process_vary (line
+ 9);
633 (opcode
**) realloc (opcodes
, n_opcodes
* sizeof (opcode
*));
634 op
= (opcode
*) malloc (sizeof (opcode
));
635 opcodes
[n_opcodes
- 1] = op
;
637 op
->nbytes
= op
->dbytes
= 0;
638 memset (op
->id
, 0, sizeof (op
->id
));
639 memset (op
->var_start
, 0, sizeof (op
->var_start
));
640 for (i
= 0; i
< MAX_BYTES
; i
++)
642 op
->b
[i
].decodable_mask
= 0;
643 op
->b
[i
].decodable_bits
= 0;
645 op
->comment
= strdup (line
);
646 op
->comment
[strlen (op
->comment
) - 1] = 0;
647 while (op
->comment
[0] && isspace (op
->comment
[0]))
653 op
->semantics_label
= 0;
658 for (lp
= line
+ 4; *lp
; lp
++)
663 if (strncmp (lp
, "*/", 2) == 0)
665 else if ((lp
[0] == ' ' && lp
[1] == ' ') || (lp
[0] == '\t'))
667 while (*lp
== ' ' || *lp
== '\t')
669 op
->syntax
= strdup (lp
);
670 lp
= strstr (op
->syntax
, "*/");
674 while ((*lp
== ' ' || *lp
== '\t')
684 if (*lp
== '0' || *lp
== '1')
686 op
->b
[byte
].decodable_mask
|= 1 << bit
;
688 if (op
->dbytes
< byte
+ 1)
689 op
->dbytes
= byte
+ 1;
693 op
->var_start
[i
] = 1;
695 if (op
->dbytes
< byte
+ 1)
696 op
->dbytes
= byte
+ 1;
699 op
->b
[byte
].decodable_bits
|= 1 << bit
;
701 op
->nbytes
= byte
+ 1;
707 else if (!skipping_section
)
712 (char **) realloc (op
->lines
, op
->nlines
* sizeof (char *));
714 op
->lines
= (char **) malloc (op
->nlines
* sizeof (char *));
715 op
->lines
[op
->nlines
- 1] = strdup (line
);
721 for (i
= 0; i
< n_varies
; i
++)
724 lprintf (sim_log
, "V[%s] %d\n", v
->name
, v
->nlen
);
725 for (j
= 0; j
< v
->n_patterns
; j
++)
726 lprintf (sim_log
, " P %02x\n", v
->patterns
[j
]);
730 for (i
= n_opcodes
- 2; i
>= 0; i
--)
732 if (opcodes
[i
]->nlines
== 0)
734 opcodes
[i
]->nlines
= opcodes
[i
+ 1]->nlines
;
735 opcodes
[i
]->lines
= opcodes
[i
+ 1]->lines
;
739 for (i
= 0; i
< 256; i
++)
740 indirect
[i
].type
= T_unused
;
742 qsort (opcodes
, n_opcodes
, sizeof (opcodes
[0]), op_cmp
);
744 vlist
= (VaryRef
*) malloc (n_varies
* sizeof (VaryRef
));
746 for (i
= 0; i
< n_opcodes
; i
++)
750 for (j
= 0; j
< opcodes
[i
]->nbytes
; j
++)
751 lprintf (sim_log
, "%s ",
752 prmb (opcodes
[i
]->b
[j
].decodable_mask
,
753 opcodes
[i
]->b
[j
].decodable_bits
));
754 lprintf (sim_log
, " %s\n", opcodes
[i
]->comment
);
756 for (j
= 0; j
< opcodes
[i
]->nbytes
; j
++)
758 for (b
= 0; b
< 8; b
++)
759 if (isalpha (opcodes
[i
]->id
[j
* 8 + b
]))
760 for (v
= 0; v
< n_varies
; v
++)
761 if (fieldcmp (opcodes
[i
], j
* 8 + b
, vary
[v
]->name
))
763 int nv
= opcodes
[i
]->nvaries
++;
766 (VaryRef
*) realloc (opcodes
[i
]->vary
,
767 (nv
+ 1) * sizeof (VaryRef
));
770 (VaryRef
*) malloc ((nv
+ 1) * sizeof (VaryRef
));
772 opcodes
[i
]->vary
[nv
].varyno
= v
;
773 opcodes
[i
]->vary
[nv
].byte
= j
;
774 opcodes
[i
]->vary
[nv
].shift
= 8 - b
- vary
[v
]->nlen
;
775 lprintf (sim_log
, "[vary %s shift %d]\n",
776 vary
[v
]->name
, opcodes
[i
]->vary
[nv
].shift
);
782 for (i
= 0; i
< n_opcodes
; i
++)
785 int bytes
= opcodes
[i
]->dbytes
;
787 lprintf (sim_log
, "\nmask:");
788 for (i2
= 0; i2
< opcodes
[i
]->nbytes
; i2
++)
789 lprintf (sim_log
, " %02x", opcodes
[i
]->b
[i2
].decodable_mask
);
790 lprintf (sim_log
, "%*s%s\n", 13 - 3 * opcodes
[i
]->nbytes
, "",
791 opcodes
[i
]->comment
);
793 lprintf (sim_log
, "bits:");
794 for (i2
= 0; i2
< opcodes
[i
]->nbytes
; i2
++)
795 lprintf (sim_log
, " %02x", opcodes
[i
]->b
[i2
].decodable_bits
);
796 lprintf (sim_log
, "%*s(%s) %d byte%s\n", 13 - 3 * opcodes
[i
]->nbytes
,
797 "", opcodes
[i
]->id
, bytes
, bytes
== 1 ? "" : "s");
799 store_opcode_bits (opcodes
[i
], 0, indirect
);
802 dump_lines (&prefix_text
, 0, 0);
804 emit_indirect (indirect
, 0);
806 dump_lines (&suffix_text
, 0, 0);
809 log_indirect (indirect
, 0);
This page took 0.045496 seconds and 4 git commands to generate.