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	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	18	* $Id: generate_head.c,v 1.7 2005/10/27 14:01:13 debug Exp $
29	dpavlin	14	*/
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	dpavlin	18	"extern int show_opcode_statistics;\n"
107	dpavlin	14	"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	dpavlin	18	printf("/* This is for marking a physical page as containing"
117			"\n combined instructions: */\n");
118	dpavlin	14	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			}