src/cpus/generate_arm_dpi.c

/*
 *  Copyright (C) 2005  Anders Gavare.  All rights reserved.
 *
 *  Redistribution and use in source and binary forms, with or without
 *  modification, are permitted provided that the following conditions are met:
 *
 *  1. Redistributions of source code must retain the above copyright
 *     notice, this list of conditions and the following disclaimer.
 *  2. Redistributions in binary form must reproduce the above copyright
 *     notice, this list of conditions and the following disclaimer in the
 *     documentation and/or other materials provided with the distribution.
 *  3. The name of the author may not be used to endorse or promote products
 *     derived from this software without specific prior written permission.
 *
 *  THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 *  ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 *  IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 *  ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
 *  FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 *  DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 *  OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 *  HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 *  LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 *  OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 *  SUCH DAMAGE.
 *
 *
 *  $Id: generate_arm_dpi.c,v 1.5 2005/12/26 12:32:10 debug Exp $
 */

#include <stdio.h>

char *cond[16] = {
        "eq", "ne", "cs", "cc", "mi", "pl", "vs", "vc",
        "hi", "ls", "ge", "lt", "gt", "le", "", "" };

char *op[16] = {
        "and", "eor", "sub", "rsb", "add", "adc", "sbc", "rsc",
        "tst", "teq", "cmp", "cmn", "orr", "mov", "bic", "mvn" };


static char *uppercase(char *l)
{
        static char staticbuf[1000];
        size_t i = 0;

        while (*l && i < sizeof(staticbuf)) {
                char u = *l++;
                if (u >= 'a' && u <= 'z')
                        u -= 32;
                staticbuf[i++] = u;
        }
        if (i == sizeof(staticbuf))
                i--;
        staticbuf[i] = 0;
        return staticbuf;
}


int main(int argc, char *argv[])
{
        int n, a, reg, pc, s, c;

        printf("\n/*  AUTOMATICALLY GENERATED! Do not edit.  */\n\n");
        printf("#include <stdio.h>\n#include <stdlib.h>\n"
            "#include \"cpu.h\"\n"
            "#include \"misc.h\"\n"
            "#define DYNTRANS_PC_TO_POINTERS arm_pc_to_pointers\n"
            "#include \"quick_pc_to_pointers.h\"\n"
            "#define reg(x) (*((uint32_t *)(x)))\n");
        printf("extern void arm_instr_nop(struct cpu *, "
            "struct arm_instr_call *);\n");
        printf("extern void arm_instr_invalid(struct cpu *, "
            "struct arm_instr_call *);\n");
        printf("extern void arm_pc_to_pointers(struct cpu *);\n");

        for (reg=0; reg<=2; reg++)
          for (pc=0; pc<=1; pc++)
            for (s=0; s<=1; s++)
              for (a=0; a<16; a++) {
                if (a >= 8 && a <= 11 && s == 0)
                        continue;
                if (reg == 2 && pc)
                        continue;
                printf("#define A__NAME arm_instr_%s%s%s%s\n",
                    op[a], s? "s" : "", pc? "_pc" : "", reg?
                    (reg==2? "_regshort" : "_reg") : "");

                for (c=0; c<14; c++)
                        printf("#define A__NAME__%s arm_instr_%s%s%s%s__%s\n",
                            cond[c], op[a], s? "s" : "", pc? "_pc" : "",
                            reg? (reg==2? "_regshort" : "_reg") : "", cond[c]);
                if (s)  printf("#define A__S\n");
                switch (reg) {
                case 1: printf("#define A__REG\n"); break;
                case 2: printf("#define A__REGSHORT\n"); break;
                }
                if (pc) printf("#define A__PC\n");
                printf("#define A__%s\n", uppercase(op[a]));
                printf("#include \"cpu_arm_instr_dpi.c\"\n");
                printf("#undef A__%s\n", uppercase(op[a]));
                if (s)  printf("#undef A__S\n");
                switch (reg) {
                case 1: printf("#undef A__REG\n"); break;
                case 2: printf("#undef A__REGSHORT\n"); break;
                }
                if (pc) printf("#undef A__PC\n");
                for (c=0; c<14; c++)
                        printf("#undef A__NAME__%s\n", cond[c]);
                printf("#undef A__NAME\n");
              }

        printf("\n\tvoid (*arm_dpi_instr[2 * 2 * 2 * 16 * 16])(struct cpu *,\n"
            "\t\tstruct arm_instr_call *) = {\n");
        n = 0;
        for (reg=0; reg<=1; reg++)
          for (pc=0; pc<=1; pc++)
            for (s=0; s<=1; s++)
              for (a=0; a<16; a++)
                    for (c=0; c<16; c++) {
                        if (c == 15)
                                printf("\tarm_instr_nop");
                        else if (a >= 8 && a <= 11 && s == 0)
                                printf("\tarm_instr_invalid");
                        else
                                printf("\tarm_instr_%s%s%s%s%s%s",
                                    op[a], s? "s" : "", pc? "_pc" : "",
                                    reg? "_reg" : "",
                                    c!=14? "__" : "", cond[c]);
                        n++;
                        if (n != 2 * 2 * 2 * 16 * 16)
                                printf(",");
                        printf("\n");
                  }

        printf("};\n\n");

        printf("\n\tvoid (*arm_dpi_instr_regshort[2 * 16 * 16])(struct cpu *,\n"
            "\t\tstruct arm_instr_call *) = {\n");
        n = 0;
        for (s=0; s<=1; s++)
            for (a=0; a<16; a++)
                for (c=0; c<16; c++) {
                        if (c == 15)
                                printf("\tarm_instr_nop");
                        else if (a >= 8 && a <= 11 && s == 0)
                                printf("\tarm_instr_invalid");
                        else
                                printf("\tarm_instr_%s%s_regshort%s%s",
                                    op[a], s? "s" : "",
                                    c!=14? "__" : "", cond[c]);
                        n++;
                        if (n != 2 * 16 * 16)
                                printf(",");
                        printf("\n");
                  }

        printf("};\n\n");

        return 0;
}

1	dpavlin	14	/*
2			* Copyright (C) 2005 Anders Gavare. All rights reserved.
3			*
4			* Redistribution and use in source and binary forms, with or without
5			* modification, are permitted provided that the following conditions are met:
6			*
7			* 1. Redistributions of source code must retain the above copyright
8			* notice, this list of conditions and the following disclaimer.
9			* 2. Redistributions in binary form must reproduce the above copyright
10			* notice, this list of conditions and the following disclaimer in the
11			* documentation and/or other materials provided with the distribution.
12			* 3. The name of the author may not be used to endorse or promote products
13			* derived from this software without specific prior written permission.
14			*
15			* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
16			* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17			* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18			* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19			* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
20			* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
21			* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
22			* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
23			* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
24			* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
25			* SUCH DAMAGE.
26			*
27			*
28	dpavlin	22	* $Id: generate_arm_dpi.c,v 1.5 2005/12/26 12:32:10 debug Exp $
29	dpavlin	14	*/
30
31			#include <stdio.h>
32
33			char *cond[16] = {
34			"eq", "ne", "cs", "cc", "mi", "pl", "vs", "vc",
35			"hi", "ls", "ge", "lt", "gt", "le", "", "" };
36
37			char *op[16] = {
38			"and", "eor", "sub", "rsb", "add", "adc", "sbc", "rsc",
39			"tst", "teq", "cmp", "cmn", "orr", "mov", "bic", "mvn" };
40
41
42	dpavlin	22	static char uppercase(char l)
43	dpavlin	14	{
44			static char staticbuf[1000];
45	dpavlin	22	size_t i = 0;
46	dpavlin	14
47			while (*l && i < sizeof(staticbuf)) {
48			char u = *l++;
49			if (u >= 'a' && u <= 'z')
50			u -= 32;
51			staticbuf[i++] = u;
52			}
53			if (i == sizeof(staticbuf))
54			i--;
55			staticbuf[i] = 0;
56			return staticbuf;
57			}
58
59
60			int main(int argc, char *argv[])
61			{
62			int n, a, reg, pc, s, c;
63
64			printf("\n/* AUTOMATICALLY GENERATED! Do not edit. */\n\n");
65			printf("#include <stdio.h>\n#include <stdlib.h>\n"
66			"#include \"cpu.h\"\n"
67			"#include \"misc.h\"\n"
68	dpavlin	22	"#define DYNTRANS_PC_TO_POINTERS arm_pc_to_pointers\n"
69			"#include \"quick_pc_to_pointers.h\"\n"
70	dpavlin	14	"#define reg(x) (((uint32_t )(x)))\n");
71			printf("extern void arm_instr_nop(struct cpu *, "
72			"struct arm_instr_call *);\n");
73			printf("extern void arm_instr_invalid(struct cpu *, "
74			"struct arm_instr_call *);\n");
75	dpavlin	22	printf("extern void arm_pc_to_pointers(struct cpu *);\n");
76	dpavlin	14
77	dpavlin	20	for (reg=0; reg<=2; reg++)
78	dpavlin	14	for (pc=0; pc<=1; pc++)
79			for (s=0; s<=1; s++)
80			for (a=0; a<16; a++) {
81			if (a >= 8 && a <= 11 && s == 0)
82			continue;
83	dpavlin	20	if (reg == 2 && pc)
84			continue;
85	dpavlin	14	printf("#define A__NAME arm_instr_%s%s%s%s\n",
86	dpavlin	20	op[a], s? "s" : "", pc? "_pc" : "", reg?
87			(reg==2? "_regshort" : "_reg") : "");
88	dpavlin	14
89			for (c=0; c<14; c++)
90			printf("#define A__NAME__%s arm_instr_%s%s%s%s__%s\n",
91			cond[c], op[a], s? "s" : "", pc? "_pc" : "",
92	dpavlin	20	reg? (reg==2? "_regshort" : "_reg") : "", cond[c]);
93	dpavlin	14	if (s) printf("#define A__S\n");
94	dpavlin	20	switch (reg) {
95			case 1: printf("#define A__REG\n"); break;
96			case 2: printf("#define A__REGSHORT\n"); break;
97			}
98	dpavlin	14	if (pc) printf("#define A__PC\n");
99			printf("#define A__%s\n", uppercase(op[a]));
100			printf("#include \"cpu_arm_instr_dpi.c\"\n");
101			printf("#undef A__%s\n", uppercase(op[a]));
102			if (s) printf("#undef A__S\n");
103	dpavlin	20	switch (reg) {
104			case 1: printf("#undef A__REG\n"); break;
105			case 2: printf("#undef A__REGSHORT\n"); break;
106			}
107	dpavlin	14	if (pc) printf("#undef A__PC\n");
108			for (c=0; c<14; c++)
109			printf("#undef A__NAME__%s\n", cond[c]);
110			printf("#undef A__NAME\n");
111			}
112
113			printf("\n\tvoid (arm_dpi_instr[2 2 * 2 * 16 * 16])(struct cpu *,\n"
114			"\t\tstruct arm_instr_call *) = {\n");
115			n = 0;
116			for (reg=0; reg<=1; reg++)
117			for (pc=0; pc<=1; pc++)
118			for (s=0; s<=1; s++)
119			for (a=0; a<16; a++)
120			for (c=0; c<16; c++) {
121			if (c == 15)
122			printf("\tarm_instr_nop");
123			else if (a >= 8 && a <= 11 && s == 0)
124			printf("\tarm_instr_invalid");
125			else
126			printf("\tarm_instr_%s%s%s%s%s%s",
127			op[a], s? "s" : "", pc? "_pc" : "",
128			reg? "_reg" : "",
129			c!=14? "__" : "", cond[c]);
130			n++;
131			if (n != 2 * 2 * 2 * 16 * 16)
132			printf(",");
133			printf("\n");
134			}
135
136			printf("};\n\n");
137
138	dpavlin	20	printf("\n\tvoid (arm_dpi_instr_regshort[2 16 * 16])(struct cpu *,\n"
139			"\t\tstruct arm_instr_call *) = {\n");
140			n = 0;
141			for (s=0; s<=1; s++)
142			for (a=0; a<16; a++)
143			for (c=0; c<16; c++) {
144			if (c == 15)
145			printf("\tarm_instr_nop");
146			else if (a >= 8 && a <= 11 && s == 0)
147			printf("\tarm_instr_invalid");
148			else
149			printf("\tarm_instr_%s%s_regshort%s%s",
150			op[a], s? "s" : "",
151			c!=14? "__" : "", cond[c]);
152			n++;
153			if (n != 2 * 16 * 16)
154			printf(",");
155			printf("\n");
156			}
157
158			printf("};\n\n");
159
160	dpavlin	14	return 0;
161			}
162