src/cpus/generate_head.c

/*
 *  Copyright (C) 2005-2006  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_head.c,v 1.23 2006/08/11 17:43:30 debug Exp $
 */

#include <stdio.h>
#include <stdlib.h>
#include <string.h>


/*  NOTE:  Static return buffer, so calling it multiple times in the
        same printf statement with the same argument works :-)  but not
        with different args. Hahaha. Really ugly.  */
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[])
{
        char *a, *b;

        if (argc != 3) {
                fprintf(stderr, "usage: %s arch Arch\n", argv[0]);
                fprintf(stderr, "Example: %s alpha Alpha\n", argv[0]);
                fprintf(stderr, "     or: %s arm ARM\n", argv[0]);
                exit(1);
        }

        a = argv[1];
        b = argv[2];


        printf("\n/*  AUTOMATICALLY GENERATED! Do not edit.  */\n\n");

        printf("#include <assert.h>\n");
        printf("#include \"debugger.h\"\n");

        printf("#define DYNTRANS_MAX_VPH_TLB_ENTRIES "
            "%s_MAX_VPH_TLB_ENTRIES\n", uppercase(a));
        printf("#define DYNTRANS_ARCH %s\n", a);
        printf("#define DYNTRANS_%s\n", uppercase(a));

        /*  For 64-bit platforms, arch_L2N, and arch_L3N must be defined.  */
        printf("#ifndef DYNTRANS_32\n");
        printf("#define DYNTRANS_L2N %s_L2N\n"
            "#define DYNTRANS_L3N %s_L3N\n"
            "#if !defined(%s_L2N) || !defined(%s_L3N)\n"
            "#error arch_L2N, and arch_L3N must be defined for this arch!\n"
            "#endif\n",
            uppercase(a), uppercase(a), uppercase(a), uppercase(a));
        printf("#define DYNTRANS_L2_64_TABLE %s_l2_64_table\n"
            "#define DYNTRANS_L3_64_TABLE %s_l3_64_table\n", a, a);
        printf("#endif\n");

        /*  Default pagesize is 4KB.  */
        printf("#ifndef DYNTRANS_PAGESIZE\n"
            "#define DYNTRANS_PAGESIZE 4096\n"
            "#endif\n");

        printf("#define DYNTRANS_IC %s_instr_call\n", a);
        printf("#define DYNTRANS_IC_ENTRIES_PER_PAGE "
            "%s_IC_ENTRIES_PER_PAGE\n", uppercase(a));
        printf("#define DYNTRANS_INSTR_ALIGNMENT_SHIFT "
            "%s_INSTR_ALIGNMENT_SHIFT\n", uppercase(a));
        printf("#define DYNTRANS_TC_PHYSPAGE %s_tc_physpage\n", a);
        printf("#define DYNTRANS_INVALIDATE_TLB_ENTRY "
            "%s_invalidate_tlb_entry\n", a);
        printf("#define DYNTRANS_ADDR_TO_PAGENR %s_ADDR_TO_PAGENR\n",
            uppercase(a));
        printf("#define DYNTRANS_PC_TO_IC_ENTRY %s_PC_TO_IC_ENTRY\n",
            uppercase(a));
        printf("#define DYNTRANS_TC_ALLOCATE "
            "%s_tc_allocate_default_page\n", a);
        printf("#define DYNTRANS_TC_PHYSPAGE %s_tc_physpage\n", a);
        printf("#define DYNTRANS_PC_TO_POINTERS %s_pc_to_pointers\n", a);
        printf("#define DYNTRANS_PC_TO_POINTERS_GENERIC "
            "%s_pc_to_pointers_generic\n", a);
        printf("#define COMBINE_INSTRUCTIONS %s_combine_instructions\n", a);
        printf("#define DISASSEMBLE %s_cpu_disassemble_instr\n", a);

        printf("\nextern volatile int single_step, single_step_breakpoint;"
            "\nextern int debugger_n_steps_left_before_interaction;\n"
            "extern int old_show_trace_tree;\n"
            "extern int old_instruction_trace;\n"
            "extern int old_quiet_mode;\n"
            "extern int quiet_mode;\n");

        printf("\n/* instr uses the same names as in "
            "cpu_%s_instr.c */\n#define instr(n) %s_instr_ ## n\n\n", a, a);

        printf("#ifdef DYNTRANS_DUALMODE_32\n"
            "#define instr32(n) %s32_instr_ ## n\n\n", a);
        printf("#endif\n\n");

        printf("\n#define X(n) void %s_instr_ ## n(struct cpu *cpu, \\\n"
            " struct %s_instr_call *ic)\n", a, a);

        printf("\n/*\n *  nothing:  Do nothing.\n *\n"
            " *  The difference between this function and a \"nop\" "
            "instruction is that\n *  this function does not increase "
            "the program counter.  It is used to \"get out\" of running in "
            "translated\n *  mode.\n */\n");
        printf("X(nothing)\n{\n");
        printf("\tcpu->cd.%s.next_ic --;\n", a);
        printf("}\n\n");

        /*  Ugly special hacks for Transputer and SH[34]:  */
        if (strcasecmp(argv[1], "transputer") == 0) {
                printf("static struct %s_instr_call nothing_call = { "
                    "instr(nothing), {0} };\n", a);
        } else if (strcasecmp(argv[1], "sh") == 0) {
                printf("static struct %s_instr_call nothing_call = { "
                    "instr(nothing), {0,0} };\n", a);
        } else {
                printf("static struct %s_instr_call nothing_call = { "
                    "instr(nothing), {0,0,0} };\n", a);
        }

        printf("\n");

        return 0;
}
1	/*
2	* Copyright (C) 2005-2006 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	* $Id: generate_head.c,v 1.23 2006/08/11 17:43:30 debug Exp $
29	*/
30
31	#include <stdio.h>
32	#include <stdlib.h>
33	#include <string.h>
34
35
36	/* NOTE: Static return buffer, so calling it multiple times in the
37	same printf statement with the same argument works :-) but not
38	with different args. Hahaha. Really ugly. */
39	char uppercase(char l)
40	{
41	static char staticbuf[1000];
42	size_t i = 0;
43
44	while (*l && i < sizeof(staticbuf)) {
45	char u = *l++;
46	if (u >= 'a' && u <= 'z')
47	u -= 32;
48	staticbuf[i++] = u;
49	}
50	if (i == sizeof(staticbuf))
51	i--;
52	staticbuf[i] = 0;
53	return staticbuf;
54	}
55
56
57	int main(int argc, char *argv[])
58	{
59	char a, b;
60
61	if (argc != 3) {
62	fprintf(stderr, "usage: %s arch Arch\n", argv[0]);
63	fprintf(stderr, "Example: %s alpha Alpha\n", argv[0]);
64	fprintf(stderr, " or: %s arm ARM\n", argv[0]);
65	exit(1);
66	}
67
68	a = argv[1];
69	b = argv[2];
70
71
72	printf("\n/* AUTOMATICALLY GENERATED! Do not edit. */\n\n");
73
74	printf("#include <assert.h>\n");
75	printf("#include \"debugger.h\"\n");
76
77	printf("#define DYNTRANS_MAX_VPH_TLB_ENTRIES "
78	"%s_MAX_VPH_TLB_ENTRIES\n", uppercase(a));
79	printf("#define DYNTRANS_ARCH %s\n", a);
80	printf("#define DYNTRANS_%s\n", uppercase(a));
81
82	/* For 64-bit platforms, arch_L2N, and arch_L3N must be defined. */
83	printf("#ifndef DYNTRANS_32\n");
84	printf("#define DYNTRANS_L2N %s_L2N\n"
85	"#define DYNTRANS_L3N %s_L3N\n"
86	"#if !defined(%s_L2N) \|\| !defined(%s_L3N)\n"
87	"#error arch_L2N, and arch_L3N must be defined for this arch!\n"
88	"#endif\n",
89	uppercase(a), uppercase(a), uppercase(a), uppercase(a));
90	printf("#define DYNTRANS_L2_64_TABLE %s_l2_64_table\n"
91	"#define DYNTRANS_L3_64_TABLE %s_l3_64_table\n", a, a);
92	printf("#endif\n");
93
94	/* Default pagesize is 4KB. */
95	printf("#ifndef DYNTRANS_PAGESIZE\n"
96	"#define DYNTRANS_PAGESIZE 4096\n"
97	"#endif\n");
98
99	printf("#define DYNTRANS_IC %s_instr_call\n", a);
100	printf("#define DYNTRANS_IC_ENTRIES_PER_PAGE "
101	"%s_IC_ENTRIES_PER_PAGE\n", uppercase(a));
102	printf("#define DYNTRANS_INSTR_ALIGNMENT_SHIFT "
103	"%s_INSTR_ALIGNMENT_SHIFT\n", uppercase(a));
104	printf("#define DYNTRANS_TC_PHYSPAGE %s_tc_physpage\n", a);
105	printf("#define DYNTRANS_INVALIDATE_TLB_ENTRY "
106	"%s_invalidate_tlb_entry\n", a);
107	printf("#define DYNTRANS_ADDR_TO_PAGENR %s_ADDR_TO_PAGENR\n",
108	uppercase(a));
109	printf("#define DYNTRANS_PC_TO_IC_ENTRY %s_PC_TO_IC_ENTRY\n",
110	uppercase(a));
111	printf("#define DYNTRANS_TC_ALLOCATE "
112	"%s_tc_allocate_default_page\n", a);
113	printf("#define DYNTRANS_TC_PHYSPAGE %s_tc_physpage\n", a);
114	printf("#define DYNTRANS_PC_TO_POINTERS %s_pc_to_pointers\n", a);
115	printf("#define DYNTRANS_PC_TO_POINTERS_GENERIC "
116	"%s_pc_to_pointers_generic\n", a);
117	printf("#define COMBINE_INSTRUCTIONS %s_combine_instructions\n", a);
118	printf("#define DISASSEMBLE %s_cpu_disassemble_instr\n", a);
119
120	printf("\nextern volatile int single_step, single_step_breakpoint;"
121	"\nextern int debugger_n_steps_left_before_interaction;\n"
122	"extern int old_show_trace_tree;\n"
123	"extern int old_instruction_trace;\n"
124	"extern int old_quiet_mode;\n"
125	"extern int quiet_mode;\n");
126
127	printf("\n/* instr uses the same names as in "
128	"cpu_%s_instr.c */\n#define instr(n) %s_instr_ ## n\n\n", a, a);
129
130	printf("#ifdef DYNTRANS_DUALMODE_32\n"
131	"#define instr32(n) %s32_instr_ ## n\n\n", a);
132	printf("#endif\n\n");
133
134	printf("\n#define X(n) void %s_instr_ ## n(struct cpu *cpu, \\\n"
135	" struct %s_instr_call *ic)\n", a, a);
136
137	printf("\n/\n nothing: Do nothing.\n *\n"
138	" * The difference between this function and a \"nop\" "
139	"instruction is that\n * this function does not increase "
140	"the program counter. It is used to \"get out\" of running in "
141	"translated\n * mode.\n */\n");
142	printf("X(nothing)\n{\n");
143	printf("\tcpu->cd.%s.next_ic --;\n", a);
144	printf("}\n\n");
145
146	/* Ugly special hacks for Transputer and SH[34]: */
147	if (strcasecmp(argv[1], "transputer") == 0) {
148	printf("static struct %s_instr_call nothing_call = { "
149	"instr(nothing), {0} };\n", a);
150	} else if (strcasecmp(argv[1], "sh") == 0) {
151	printf("static struct %s_instr_call nothing_call = { "
152	"instr(nothing), {0,0} };\n", a);
153	} else {
154	printf("static struct %s_instr_call nothing_call = { "
155	"instr(nothing), {0,0,0} };\n", a);
156	}
157
158	printf("\n");
159
160	return 0;
161	}