/* generate.c -- generates file execgen.c from instruction set
|
/* generate.c -- generates file execgen.c from instruction set
|
Copyright (C) 1999 Damjan Lampret, lampret@opencores.org
|
Copyright (C) 1999 Damjan Lampret, lampret@opencores.org
|
|
|
This file is part of OpenRISC 1000 Architectural Simulator.
|
This file is part of OpenRISC 1000 Architectural Simulator.
|
|
|
This program is free software; you can redistribute it and/or modify
|
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
|
it under the terms of the GNU General Public License as published by
|
the Free Software Foundation; either version 2 of the License, or
|
the Free Software Foundation; either version 2 of the License, or
|
(at your option) any later version.
|
(at your option) any later version.
|
|
|
This program is distributed in the hope that it will be useful,
|
This program is distributed in the hope that it will be useful,
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
GNU General Public License for more details.
|
GNU General Public License for more details.
|
|
|
You should have received a copy of the GNU General Public License
|
You should have received a copy of the GNU General Public License
|
along with this program; if not, write to the Free Software
|
along with this program; if not, write to the Free Software
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
|
|
|
#include <stdlib.h>
|
#include <stdlib.h>
|
#include <stdio.h>
|
#include <stdio.h>
|
#include <string.h>
|
#include <string.h>
|
#include <stdarg.h>
|
#include <stdarg.h>
|
#include <ctype.h>
|
#include <ctype.h>
|
|
|
#include "config.h"
|
#include "config.h"
|
#include "opcode/or32.h"
|
#include "opcode/or32.h"
|
#include "abstract.h"
|
#include "abstract.h"
|
#include "labels.h"
|
#include "labels.h"
|
#include "parse.h"
|
#include "parse.h"
|
#include "execute.h"
|
#include "execute.h"
|
|
|
#define LEAF_FLAG (0x80000000)
|
#define LEAF_FLAG (0x80000000)
|
#define SHIFT {int i; for (i = 0; i < level; i++) fprintf (fo, " ");}
|
#define SHIFT {int i; for (i = 0; i < level; i++) fprintf (fo, " ");}
|
|
|
extern unsigned long *automata;
|
extern unsigned long *automata;
|
extern struct temp_insn_struct {
|
extern struct temp_insn_struct {
|
unsigned long insn;
|
unsigned long insn;
|
unsigned long insn_mask;
|
unsigned long insn_mask;
|
int in_pass;
|
int in_pass;
|
} *ti;
|
} *ti;
|
|
|
static char *in_file;
|
static char *in_file;
|
unsigned long op[MAX_OPERANDS];
|
unsigned long op[MAX_OPERANDS];
|
int num_op;
|
int num_op;
|
|
|
inline void debug(int level, const char *format, ...)
|
inline void debug(int level, const char *format, ...)
|
{
|
{
|
char *p;
|
char *p;
|
va_list ap;
|
va_list ap;
|
|
|
#if DEBUG
|
#if DEBUG
|
if ((p = malloc(1000)) == NULL)
|
if ((p = malloc(1000)) == NULL)
|
return;
|
return;
|
va_start(ap, format);
|
va_start(ap, format);
|
(void) vsnprintf(p, 1000, format, ap);
|
(void) vsnprintf(p, 1000, format, ap);
|
va_end(ap);
|
va_end(ap);
|
printf("%s\n", p);
|
printf("%s\n", p);
|
fflush(stdout);
|
fflush(stdout);
|
free(p);
|
free(p);
|
#endif
|
#endif
|
}
|
}
|
|
|
/* Whether this instruction stores something in register */
|
/* Whether this instruction stores something in register */
|
static int write_to_reg = 0;
|
static int write_to_reg = 0;
|
|
|
static int olevel;
|
static int olevel;
|
|
|
/* Following functions recursivelly searches for substrings eval_operand and
|
/* Following functions recursivelly searches for substrings eval_operand and
|
set_operand (see functions with the same name in execute.c) and replaces
|
set_operand (see functions with the same name in execute.c) and replaces
|
them with optimized code. */
|
them with optimized code. */
|
char *replace_operands (FILE *fo, char *str) {
|
char *replace_operands (FILE *fo, char *str) {
|
int replace = 0;
|
int replace = 0;
|
if (*str == '}') {olevel--;}
|
if (*str == '}') {olevel--;}
|
else if (*str == '{') {olevel++;}
|
else if (*str == '{') {olevel++;}
|
else if (strncmp ("eval_operand", str, 12) == 0) {
|
else if (strncmp ("eval_operand", str, 12) == 0) {
|
replace = 1; str += 12;
|
replace = 1; str += 12;
|
} else if (strncmp ("set_operand", str, 11) == 0) {
|
} else if (strncmp ("set_operand", str, 11) == 0) {
|
replace = 2; str += 11;
|
replace = 2; str += 11;
|
}
|
}
|
if (replace) {
|
if (replace) {
|
int width, oper;
|
int width, oper;
|
sscanf (str, "%i(%i", &width, &oper);
|
sscanf (str, "%i(%i", &width, &oper);
|
while (*str && *str != '(') str++;
|
while (*str && *str != '(') str++;
|
while (*str && *str != ',') str++;
|
while (*str && *str != ',') str++;
|
str++;
|
str++;
|
if (replace == 1) {
|
if (replace == 1) {
|
if (op[oper] & OPTYPE_DIS) {
|
if (op[oper] & OPTYPE_DIS) {
|
fprintf (fo, "eval_mem%i (%c", width, 'a' + oper);
|
fprintf (fo, "eval_mem%i (%c", width, 'a' + oper);
|
} else {
|
} else {
|
if (op[oper] & OPTYPE_REG) {
|
if (op[oper] & OPTYPE_REG) {
|
fprintf (fo, "(reg[%c]", 'a' + oper);
|
fprintf (fo, "(reg[%c]", 'a' + oper);
|
} else {
|
} else {
|
fprintf (fo, "(%c", 'a' + oper);
|
fprintf (fo, "(%c", 'a' + oper);
|
}
|
}
|
}
|
}
|
} else {
|
} else {
|
op[oper] |= OPTYPE_DST;
|
op[oper] |= OPTYPE_DST;
|
if (op[oper] & OPTYPE_DIS) {
|
if (op[oper] & OPTYPE_DIS) {
|
fprintf (fo, "set_mem%i(%c,", width, 'a' + oper);
|
fprintf (fo, "set_mem%i(%c,", width, 'a' + oper);
|
} else if (op[oper] & OPTYPE_REG) {
|
} else if (op[oper] & OPTYPE_REG) {
|
fprintf (fo, "reg[%c] = (", 'a' + oper);
|
fprintf (fo, "reg[%c] = (", 'a' + oper);
|
write_to_reg = 1;
|
write_to_reg = 1;
|
} else {
|
} else {
|
fprintf (stderr, "Invalid operand type.\n");
|
fprintf (stderr, "Invalid operand type.\n");
|
exit (1);
|
exit (1);
|
}
|
}
|
while (*str != ',') str = replace_operands (fo, str) + 1;
|
while (*str != ',') str = replace_operands (fo, str) + 1;
|
}
|
}
|
while (*str && *str != ')') str++;
|
while (*str && *str != ')') str++;
|
if (op[oper] & OPTYPE_DIS) fprintf (fo, ", &breakpoint)");
|
if (op[oper] & OPTYPE_DIS) fprintf (fo, ", &breakpoint)");
|
else fprintf (fo, ")");
|
else fprintf (fo, ")");
|
} else {
|
} else {
|
fputc (*str, fo);
|
fputc (*str, fo);
|
}
|
}
|
return str;
|
return str;
|
}
|
}
|
|
|
/* Generates a execute sequence for one instruction */
|
/* Generates a execute sequence for one instruction */
|
int output_function (FILE *fo, const char *func_name, int level)
|
int output_function (FILE *fo, const char *func_name, int level)
|
{
|
{
|
FILE *fi;
|
FILE *fi;
|
if ((fi = fopen (in_file, "rt")) == NULL) return 1;
|
if ((fi = fopen (in_file, "rt")) == NULL) return 1;
|
while (!feof (fi)) {
|
while (!feof (fi)) {
|
char line[10000], *str = line;
|
char line[10000], *str = line;
|
fgets (str, sizeof (line), fi);
|
fgets (str, sizeof (line), fi);
|
line[sizeof(line) - 1] = 0;
|
line[sizeof(line) - 1] = 0;
|
if (strncmp (str, "INSTRUCTION (", 13) == 0) {
|
if (strncmp (str, "INSTRUCTION (", 13) == 0) {
|
char *s;
|
char *s;
|
str += 13;
|
str += 13;
|
while (isspace (*str)) str++;
|
while (isspace (*str)) str++;
|
s = str;
|
s = str;
|
while (*s && *s != ')') s++;
|
while (*s && *s != ')') s++;
|
*s = 0;
|
*s = 0;
|
while (isspace(*(s - 1))) s--;
|
while (isspace(*(s - 1))) s--;
|
*s = 0;
|
*s = 0;
|
if (strcmp (str, func_name) == 0) {
|
if (strcmp (str, func_name) == 0) {
|
olevel = 1;
|
olevel = 1;
|
str += strlen (str) + 1;
|
str += strlen (str) + 1;
|
while (isspace (*str)) str++;
|
while (isspace (*str)) str++;
|
s = str;
|
s = str;
|
while (*s && *s != '\n' && *s != '\r') s++;
|
while (*s && *s != '\n' && *s != '\r') s++;
|
*s = 0;
|
*s = 0;
|
while (isspace(*(s - 1))) s--;
|
while (isspace(*(s - 1))) s--;
|
*s = 0;
|
*s = 0;
|
fprintf (fo, "%s", str);
|
fprintf (fo, "%s", str);
|
fprintf (fo, " /* \"%s\" */\n", func_name);
|
fprintf (fo, " /* \"%s\" */\n", func_name);
|
SHIFT;
|
SHIFT;
|
do {
|
do {
|
fgets (line, sizeof (line), fi);
|
fgets (line, sizeof (line), fi);
|
line[sizeof(line) - 1] = 0;
|
line[sizeof(line) - 1] = 0;
|
for (str = line; *str; str++) {
|
for (str = line; *str; str++) {
|
str = replace_operands (fo, str);
|
str = replace_operands (fo, str);
|
}
|
}
|
SHIFT;
|
SHIFT;
|
} while (olevel);
|
} while (olevel);
|
return 0;
|
return 0;
|
}
|
}
|
}
|
}
|
}
|
}
|
fprintf (fo, "{\n");
|
fprintf (fo, "{\n");
|
level++;
|
level++;
|
SHIFT; fprintf (fo, "%s ();\n", func_name);
|
SHIFT; fprintf (fo, "%s ();\n", func_name);
|
level--;
|
level--;
|
SHIFT; fprintf (fo, "}");
|
SHIFT; fprintf (fo, "}");
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Parses and puts operands into op[] structure.
|
/* Parses and puts operands into op[] structure.
|
Replacement for eval_operands routine. */
|
Replacement for eval_operands routine. */
|
|
|
static void
|
static void
|
gen_eval_operands (FILE *fo, int insn_index, int level)
|
gen_eval_operands (FILE *fo, int insn_index, int level)
|
{
|
{
|
struct insn_op_struct *opd = op_start[insn_index];
|
struct insn_op_struct *opd = op_start[insn_index];
|
int dis = 0;
|
int dis = 0;
|
int no = 0, num_op;
|
int no = 0;
|
int firstd = 1;
|
int firstd = 1;
|
|
|
while (1)
|
while (1)
|
{
|
{
|
int nbits = 0, first = 1;
|
int nbits = 0, first = 1;
|
while (1)
|
while (1)
|
{
|
{
|
SHIFT; fprintf (fo, "tmp %s= ((insn >> %i) & 0x%08x) << %i;\n", first ? "" : "|", opd->type & OPTYPE_SHR, (1 << opd->data) - 1, nbits);
|
SHIFT; fprintf (fo, "tmp %s= ((insn >> %i) & 0x%08x) << %i;\n", first ? "" : "|", opd->type & OPTYPE_SHR, (1 << opd->data) - 1, nbits);
|
nbits += opd->data;
|
nbits += opd->data;
|
if (opd->type & OPTYPE_OP)
|
if (opd->type & OPTYPE_OP)
|
break;
|
break;
|
opd++;
|
opd++;
|
first = 0;
|
first = 0;
|
}
|
}
|
|
|
/* Do we have to sign extend? */
|
/* Do we have to sign extend? */
|
if (opd->type & OPTYPE_SIG)
|
if (opd->type & OPTYPE_SIG)
|
{
|
{
|
int sbit = (opd->type & OPTYPE_SBIT) >> OPTYPE_SBIT_SHR;
|
int sbit = (opd->type & OPTYPE_SBIT) >> OPTYPE_SBIT_SHR;
|
SHIFT; fprintf (fo, "if (tmp & (1 << %i)) tmp |= 0xFFFFFFFF << %i; /* Sign extend */\n", sbit, sbit);
|
SHIFT; fprintf (fo, "if (tmp & (1 << %i)) tmp |= 0xFFFFFFFF << %i; /* Sign extend */\n", sbit, sbit);
|
}
|
}
|
if (opd->type & OPTYPE_DIS) {
|
if (opd->type & OPTYPE_DIS) {
|
/* We have to read register later. */
|
/* We have to read register later. */
|
SHIFT; fprintf (fo, "data %s= tmp;\n", firstd ? "" : "+");
|
SHIFT; fprintf (fo, "data %s= tmp;\n", firstd ? "" : "+");
|
firstd = 0;
|
firstd = 0;
|
dis = 1;
|
dis = 1;
|
} else
|
} else
|
{
|
{
|
if (dis && (opd->type & OPTYPE_REG)) {
|
if (dis && (opd->type & OPTYPE_REG)) {
|
if (MAX_GPRS == (1 << nbits)) {
|
if (MAX_GPRS == (1 << nbits)) {
|
SHIFT; fprintf (fo, "%c = data + reg [tmp];\n", 'a' + no);
|
SHIFT; fprintf (fo, "%c = data + reg [tmp];\n", 'a' + no);
|
} else {
|
} else {
|
SHIFT; fprintf (fo, "%c = data + eval_reg32 (tmp);\n", 'a' + no);
|
SHIFT; fprintf (fo, "%c = data + eval_reg32 (tmp);\n", 'a' + no);
|
}
|
}
|
} else {
|
} else {
|
SHIFT; fprintf (fo, "%c = tmp;\n", 'a' + no);
|
SHIFT; fprintf (fo, "%c = tmp;\n", 'a' + no);
|
}
|
}
|
op[no] = opd->type | (dis ? OPTYPE_DIS : 0);
|
op[no] = opd->type | (dis ? OPTYPE_DIS : 0);
|
no++;
|
no++;
|
firstd = 1;
|
firstd = 1;
|
dis = 0;
|
dis = 0;
|
}
|
}
|
if(opd->type & OPTYPE_LAST) goto last;
|
if(opd->type & OPTYPE_LAST) goto last;
|
opd++;
|
opd++;
|
}
|
}
|
|
|
last:
|
last:
|
num_op = no;
|
num_op = no;
|
SHIFT; fprintf (fo, "if (do_stats) {\n");
|
|
level++;
|
|
SHIFT; fprintf (fo, "num_op = %i;\n", no);
|
|
SHIFT; fprintf (fo, "insn_index = %i; /* \"%s\" */\n", insn_index, insn_name (insn_index));
|
|
for (no = 0; no < num_op; no++) {
|
|
SHIFT; fprintf (fo, "op[%i] = %c;\n", no, 'a' + no);
|
|
SHIFT; fprintf (fo, "op[%i + MAX_OPERANDS] = 0x%08x;\n", no, op[no]);
|
|
}
|
|
level--;
|
|
SHIFT; fprintf (fo, "}\n");
|
|
}
|
}
|
|
|
/* Generates decode and execute for one instruction instance */
|
/* Generates decode and execute for one instruction instance */
|
int output_call (FILE *fo, int index, int level)
|
int output_call (FILE *fo, int index, int level)
|
{
|
{
|
int i;
|
int i;
|
printf ("%i:%s\n", index, insn_name (index));
|
printf ("%i:%s\n", index, insn_name (index));
|
fprintf (fo, "{\n");
|
fprintf (fo, "{\n");
|
level++;
|
level++;
|
if (index >= 0) {
|
if (index >= 0) {
|
SHIFT; fprintf (fo, "unsigned long data, tmp;\n");
|
SHIFT; fprintf (fo, "unsigned long data, tmp;\n");
|
SHIFT; fprintf (fo, "unsigned long a, b, c; /* operands */\n");
|
SHIFT; fprintf (fo, "unsigned long a, b, c; /* operands */\n");
|
}
|
}
|
write_to_reg = 0;
|
write_to_reg = 0;
|
if (index >= 0) {
|
if (index >= 0)
|
gen_eval_operands (fo, index, level);
|
gen_eval_operands (fo, index, level);
|
} else {
|
else
|
SHIFT; fprintf (fo, "if (do_stats) {\n");
|
num_op = 0;
|
level++;
|
|
SHIFT; fprintf (fo, "num_op = 0;\n");
|
|
SHIFT; fprintf (fo, "insn_index = -1;\n");
|
|
level--;
|
|
SHIFT; fprintf (fo, "}\n");
|
|
}
|
|
SHIFT;
|
SHIFT;
|
if (index < 0) output_function (fo, "l_invalid", level);
|
if (index < 0) output_function (fo, "l_invalid", level);
|
else output_function (fo, or32_opcodes[index].function_name, level);
|
else output_function (fo, or32_opcodes[index].function_name, level);
|
fprintf (fo, "\n");
|
fprintf (fo, "\n");
|
for (i = 0; i < num_op; i++)
|
|
if (op[i] & OPTYPE_DST) {
|
SHIFT; fprintf (fo, "if (do_stats) {\n");
|
SHIFT; fprintf (fo, "IFF (config.cpu.dependstats) op[%i + MAX_OPERANDS] |= OPTYPE_DST;\n", i);
|
level++;
|
|
SHIFT; fprintf (fo, "num_op = %i;\n", num_op);
|
|
if (num_op) {SHIFT; fprintf (fo, " op = ¤t->op[0];\n");}
|
|
SHIFT; fprintf (fo, "current->insn_index = %i; /* \"%s\" */\n", index, insn_name (index));
|
|
for (i = 0; i < num_op; i++) {
|
|
SHIFT; fprintf (fo, "op[%i] = %c;\n", i, 'a' + i);
|
|
SHIFT; fprintf (fo, "op[%i + MAX_OPERANDS] = 0x%08x;\n", i, op[i]);
|
}
|
}
|
|
SHIFT; fprintf (fo, "analysis(current);\n");
|
|
level--;
|
|
SHIFT; fprintf (fo, "}\n");
|
if (write_to_reg) {
|
if (write_to_reg) {
|
SHIFT; fprintf (fo, "reg[0] = 0; /* Repair in case we changed it */\n", i);
|
SHIFT; fprintf (fo, "reg[0] = 0; /* Repair in case we changed it */\n", i);
|
}
|
}
|
level--;
|
level--;
|
SHIFT; fprintf (fo, "}");
|
SHIFT; fprintf (fo, "}");
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Generates .c file header */
|
/* Generates .c file header */
|
static int generate_header (FILE *fo)
|
int generate_header (FILE *fo)
|
{
|
{
|
fprintf (fo, "/* This file was automatically generated by generate (see cpu/or32/generate.c) */\n\n");
|
fprintf (fo, "/* This file was automatically generated by generate (see cpu/or32/generate.c) */\n\n");
|
fprintf (fo, "static inline void decode_execute (struct iqueue_entry *current)\n{\n");
|
fprintf (fo, "static inline void decode_execute (struct iqueue_entry *current)\n{\n");
|
fprintf (fo, " unsigned long insn = current->insn;\n");
|
fprintf (fo, " unsigned long insn = current->insn;\n");
|
fprintf (fo, " int insn_index;\n");
|
|
fprintf (fo, " op = ¤t->op[0];\n");
|
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Generates .c file footer */
|
/* Generates .c file footer */
|
int generate_footer (FILE *fo)
|
int generate_footer (FILE *fo)
|
{
|
{
|
fprintf (fo, " current->insn_index = insn_index;\n");
|
|
fprintf (fo, "}\n");
|
fprintf (fo, "}\n");
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Decodes all instructions and generates code for that. This function
|
/* Decodes all instructions and generates code for that. This function
|
is similar to insn_decode, except it decodes all instructions. */
|
is similar to insn_decode, except it decodes all instructions. */
|
static int generate_body (FILE *fo, unsigned long *a, unsigned long cur_mask, int level)
|
static int generate_body (FILE *fo, unsigned long *a, unsigned long cur_mask, int level)
|
{
|
{
|
|
|
int i;
|
int i;
|
if (!(*a & LEAF_FLAG)) {
|
if (!(*a & LEAF_FLAG)) {
|
unsigned int shift = *a++;
|
unsigned int shift = *a++;
|
unsigned int mask = *a++;
|
unsigned int mask = *a++;
|
int prev_invalid = 0;
|
int prev_invalid = 0;
|
fprintf (fo, "\n");
|
fprintf (fo, "\n");
|
SHIFT; fprintf (fo, "/* (insn >> %i) & 0x%x */\n", shift, mask);
|
SHIFT; fprintf (fo, "/* (insn >> %i) & 0x%x */\n", shift, mask);
|
SHIFT; fprintf (fo, "switch ((insn >> %i) & 0x%x) {\n", shift, mask);
|
SHIFT; fprintf (fo, "switch ((insn >> %i) & 0x%x) {\n", shift, mask);
|
level++;
|
level++;
|
|
|
/* Print each case recursively */
|
/* Print each case recursively */
|
for (i = 0; i <= mask; i++, a++) {
|
for (i = 0; i <= mask; i++, a++) {
|
/* Group invalid instruction decodes together */
|
/* Group invalid instruction decodes together */
|
if (!*a) {
|
if (!*a) {
|
if (prev_invalid) fprintf (fo, "\n");
|
if (prev_invalid) fprintf (fo, "\n");
|
prev_invalid = 1;
|
prev_invalid = 1;
|
SHIFT; fprintf (fo, "case 0x%02x: ", i);
|
SHIFT; fprintf (fo, "case 0x%02x: ", i);
|
} else {
|
} else {
|
if (prev_invalid) {
|
if (prev_invalid) {
|
if (output_call (fo, -1, level)) return 1;
|
if (output_call (fo, -1, level)) return 1;
|
fprintf (fo, " break;\n");
|
fprintf (fo, " break;\n");
|
}
|
}
|
SHIFT; fprintf (fo, "case 0x%02x: ", i);
|
SHIFT; fprintf (fo, "case 0x%02x: ", i);
|
if (generate_body (fo, automata + *a, cur_mask | (mask << shift), level + 1)) return 1;
|
if (generate_body (fo, automata + *a, cur_mask | (mask << shift), level + 1)) return 1;
|
prev_invalid = 0;
|
prev_invalid = 0;
|
}
|
}
|
}
|
}
|
if (prev_invalid) {
|
if (prev_invalid) {
|
if (output_call (fo, -1, level)) return 1;
|
if (output_call (fo, -1, level)) return 1;
|
fprintf (fo, " break;\n");
|
fprintf (fo, " break;\n");
|
}
|
}
|
level--;
|
level--;
|
if (level > 1)
|
if (level > 1)
|
fprintf (fo, "} break;\n");
|
fprintf (fo, "} break;\n");
|
else
|
else
|
fprintf (fo, "}\n");
|
fprintf (fo, "}\n");
|
} else {
|
} else {
|
i = *a & ~LEAF_FLAG;
|
i = *a & ~LEAF_FLAG;
|
/* Final check - do we have direct match?
|
/* Final check - do we have direct match?
|
(based on or32_opcodes this should be the only possibility,
|
(based on or32_opcodes this should be the only possibility,
|
but in case of invalid/missing instruction we must perform a check) */
|
but in case of invalid/missing instruction we must perform a check) */
|
|
|
if (ti[i].insn_mask != cur_mask) {
|
if (ti[i].insn_mask != cur_mask) {
|
fprintf (fo, "\n");
|
fprintf (fo, "\n");
|
SHIFT; fprintf (fo, "/* Not unique: real mask %08x and current mask %08x differ - do final check */\n", ti[i].insn_mask, cur_mask);
|
SHIFT; fprintf (fo, "/* Not unique: real mask %08x and current mask %08x differ - do final check */\n", ti[i].insn_mask, cur_mask);
|
SHIFT; fprintf (fo, "if ((insn & 0x%08x) == 0x%08x) ", ti[i].insn_mask, ti[i].insn);
|
SHIFT; fprintf (fo, "if ((insn & 0x%08x) == 0x%08x) ", ti[i].insn_mask, ti[i].insn);
|
output_call (fo, i, level);
|
output_call (fo, i, level);
|
fprintf (fo, " else ");
|
fprintf (fo, " else ");
|
if (output_call (fo, -1, level)) return 1;
|
if (output_call (fo, -1, level)) return 1;
|
} else {
|
} else {
|
output_call (fo, i, level - 1);
|
output_call (fo, i, level - 1);
|
}
|
}
|
fprintf (fo, " break;\n");
|
fprintf (fo, " break;\n");
|
}
|
}
|
return 0;
|
return 0;
|
}
|
}
|
|
|
/* Main function; it takes two parameters:
|
/* Main function; it takes two parameters:
|
input_file(possibly insnset.c) output_file(possibly execgen.c)*/
|
input_file(possibly insnset.c) output_file(possibly execgen.c)*/
|
int main (int argc, char *argv[])
|
int main (int argc, char *argv[])
|
{
|
{
|
FILE *fo;
|
FILE *fo;
|
|
|
if (argc != 3) {
|
if (argc != 3) {
|
fprintf (stderr, "USAGE: generate input_file(possibly insnset.c) output_file(possibly execgen.c)\n");
|
fprintf (stderr, "USAGE: generate input_file(possibly insnset.c) output_file(possibly execgen.c)\n");
|
exit (-1);
|
exit (-1);
|
}
|
}
|
|
|
in_file = argv[1];
|
in_file = argv[1];
|
if (!(fo = fopen (argv[2], "wt+"))) {
|
if (!(fo = fopen (argv[2], "wt+"))) {
|
fprintf (stderr, "Cannot create '%s'.\n", argv[2]);
|
fprintf (stderr, "Cannot create '%s'.\n", argv[2]);
|
exit (1);
|
exit (1);
|
}
|
}
|
|
|
build_automata ();
|
build_automata ();
|
if (generate_header (fo)) {fprintf (stderr, "generate_header\n"); return 1;}
|
if (generate_header (fo)) {fprintf (stderr, "generate_header\n"); return 1;}
|
if (generate_body (fo, automata, 0, 1)) {fprintf (stderr, "generate_body\n"); return 1;}
|
if (generate_body (fo, automata, 0, 1)) {fprintf (stderr, "generate_body\n"); return 1;}
|
if (generate_footer (fo)) {fprintf (stderr, "generate_footer\n"); return 1;}
|
if (generate_footer (fo)) {fprintf (stderr, "generate_footer\n"); return 1;}
|
fclose (fo);
|
fclose (fo);
|
destruct_automata ();
|
destruct_automata ();
|
return 0;
|
return 0;
|
}
|
}
|
|
|
|
|