src/cpus/generate_head.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_head.c,v 1.7 2005/10/27 14:01:13 debug Exp $
 */

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


char *uppercase(char *l)
{
        static char staticbuf[1000];
        int 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("#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));
        printf("#ifdef DYNTRANS_32\n"
            "#define DYNTRANS_1LEVEL\n"
            "#endif\n");
        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 show_opcode_statistics;\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("/*  This is for marking a physical page as containing"
            "\n    combined instructions:  */\n");
        printf("#define combined (cpu->cd.%s.cur_physpage->flags "
            "|= COMBINATIONS)\n", a);

        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 or the number of\n *  translated "
            "instructions.  It is used to \"get out\" of running in "
            "translated\n *  mode.\n *\n"
            " *  IMPORTANT NOTE: Do a   cpu->running_translated = 0;\n"
            " *                  before setting cpu->cd.%s.next_ic = "
            "&nothing_call;\n */\n", a);
        printf("X(nothing)\n{\n");
        printf("\tcpu->n_translated_instrs --;\n");
        printf("\tcpu->cd.%s.next_ic --;\n", a);
        printf("}\n\n");

        /*  TODO: solve this in a nicer way!  */
        if (strcmp(a, "avr") == 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 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.7 2005/10/27 14:01:13 debug Exp $
29	*/
30
31	#include <stdio.h>
32	#include <stdlib.h>
33	#include <string.h>
34
35
36	char uppercase(char l)
37	{
38	static char staticbuf[1000];
39	int i = 0;
40
41	while (*l && i < sizeof(staticbuf)) {
42	char u = *l++;
43	if (u >= 'a' && u <= 'z')
44	u -= 32;
45	staticbuf[i++] = u;
46	}
47	if (i == sizeof(staticbuf))
48	i--;
49	staticbuf[i] = 0;
50	return staticbuf;
51	}
52
53
54	int main(int argc, char *argv[])
55	{
56	char a, b;
57
58	if (argc != 3) {
59	fprintf(stderr, "usage: %s arch Arch\n", argv[0]);
60	fprintf(stderr, "Example: %s alpha Alpha\n", argv[0]);
61	fprintf(stderr, " or: %s arm ARM\n", argv[0]);
62	exit(1);
63	}
64
65	a = argv[1];
66	b = argv[2];
67
68	printf("\n/* AUTOMATICALLY GENERATED! Do not edit. */\n\n");
69
70	printf("#define DYNTRANS_MAX_VPH_TLB_ENTRIES "
71	"%s_MAX_VPH_TLB_ENTRIES\n", uppercase(a));
72	printf("#define DYNTRANS_ARCH %s\n", a);
73	printf("#define DYNTRANS_%s\n", uppercase(a));
74	printf("#ifdef DYNTRANS_32\n"
75	"#define DYNTRANS_1LEVEL\n"
76	"#endif\n");
77	printf("#ifndef DYNTRANS_PAGESIZE\n"
78	"#define DYNTRANS_PAGESIZE 4096\n"
79	"#endif\n");
80	printf("#define DYNTRANS_IC %s_instr_call\n", a);
81	printf("#define DYNTRANS_IC_ENTRIES_PER_PAGE "
82	"%s_IC_ENTRIES_PER_PAGE\n", uppercase(a));
83	printf("#define DYNTRANS_INSTR_ALIGNMENT_SHIFT "
84	"%s_INSTR_ALIGNMENT_SHIFT\n", uppercase(a));
85	printf("#define DYNTRANS_TC_PHYSPAGE %s_tc_physpage\n", a);
86	printf("#define DYNTRANS_INVALIDATE_TLB_ENTRY "
87	"%s_invalidate_tlb_entry\n", a);
88	printf("#define DYNTRANS_ADDR_TO_PAGENR %s_ADDR_TO_PAGENR\n",
89	uppercase(a));
90	printf("#define DYNTRANS_PC_TO_IC_ENTRY %s_PC_TO_IC_ENTRY\n",
91	uppercase(a));
92	printf("#define DYNTRANS_TC_ALLOCATE "
93	"%s_tc_allocate_default_page\n", a);
94	printf("#define DYNTRANS_TC_PHYSPAGE %s_tc_physpage\n", a);
95	printf("#define DYNTRANS_PC_TO_POINTERS %s_pc_to_pointers\n", a);
96	printf("#define DYNTRANS_PC_TO_POINTERS_GENERIC "
97	"%s_pc_to_pointers_generic\n", a);
98	printf("#define COMBINE_INSTRUCTIONS %s_combine_instructions\n", a);
99	printf("#define DISASSEMBLE %s_cpu_disassemble_instr\n", a);
100
101	printf("\nextern volatile int single_step, single_step_breakpoint;"
102	"\nextern int debugger_n_steps_left_before_interaction;\n"
103	"extern int old_show_trace_tree;\n"
104	"extern int old_instruction_trace;\n"
105	"extern int old_quiet_mode;\n"
106	"extern int show_opcode_statistics;\n"
107	"extern int quiet_mode;\n");
108
109	printf("\n/* instr uses the same names as in "
110	"cpu_%s_instr.c */\n#define instr(n) %s_instr_ ## n\n\n", a, a);
111
112	printf("#ifdef DYNTRANS_DUALMODE_32\n"
113	"#define instr32(n) %s32_instr_ ## n\n\n", a);
114	printf("#endif\n\n");
115
116	printf("/* This is for marking a physical page as containing"
117	"\n combined instructions: */\n");
118	printf("#define combined (cpu->cd.%s.cur_physpage->flags "
119	"\|= COMBINATIONS)\n", a);
120
121	printf("\n#define X(n) void %s_instr_ ## n(struct cpu *cpu, \\\n"
122	" struct %s_instr_call *ic)\n", a, a);
123
124	printf("\n/\n nothing: Do nothing.\n *\n"
125	" * The difference between this function and a \"nop\" "
126	"instruction is that\n * this function does not increase "
127	"the program counter or the number of\n * translated "
128	"instructions. It is used to \"get out\" of running in "
129	"translated\n * mode.\n *\n"
130	" * IMPORTANT NOTE: Do a cpu->running_translated = 0;\n"
131	" * before setting cpu->cd.%s.next_ic = "
132	"&nothing_call;\n */\n", a);
133	printf("X(nothing)\n{\n");
134	printf("\tcpu->n_translated_instrs --;\n");
135	printf("\tcpu->cd.%s.next_ic --;\n", a);
136	printf("}\n\n");
137
138	/* TODO: solve this in a nicer way! */
139	if (strcmp(a, "avr") == 0)
140	printf("static struct %s_instr_call nothing_call = { "
141	"instr(nothing), {0,0} };\n", a);
142	else
143	printf("static struct %s_instr_call nothing_call = { "
144	"instr(nothing), {0,0,0} };\n", a);
145
146	printf("\n");
147
148	return 0;
149	}