src/cpus/generate_m88k_bcnd.c

/*
 *  Copyright (C) 2007  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_m88k_bcnd.c,v 1.3 2007/05/27 03:01:28 debug Exp $
 */

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


void print_function_name(int samepage, int n_bit, int m5)
{
        printf("bcnd_");

        if (n_bit)
                printf("n_");

        if (samepage)
                printf("samepage_");

        switch (m5) {
        case 0x1: printf("gt0"); break;
        case 0x2: printf("eq0"); break;
        case 0x3: printf("ge0"); break;
        case 0xc: printf("lt0"); break;
        case 0xd: printf("ne0"); break;
        case 0xe: printf("le0"); break;
        }
}


void print_operator(int m5)
{
        switch (m5) {
        case 0x1: printf(">"); break;
        case 0x2: printf("=="); break;
        case 0x3: printf(">="); break;
        case 0xc: printf("<"); break;
        case 0xd: printf("!="); break;
        case 0xe: printf("<="); break;
        }
}


void bcnd(int samepage, int n_bit, int m5)
{
        if (samepage && n_bit)
                return;

        printf("\nX(");
        print_function_name(samepage, n_bit, m5);
        printf(")\n{\n");

        /*  Easiest case is without the n_bit:  */
        if (!n_bit) {
                printf("\tif ((int32_t)reg(ic->arg[0]) ");
                print_operator(m5);
                printf(" 0) {\n");

                if (samepage)
                        printf("\t\tcpu->cd.m88k.next_ic = (struct m88k_"
                            "instr_call *) ic->arg[2];\n");
                else
                        printf("\t\tcpu->pc = (cpu->pc & 0xfffff000) + "
                            "(int32_t)ic->arg[2];\n\t\tquick_pc_to_"
                            "pointers(cpu);\n");

                printf("\t}\n");
        } else {
                /*  n_bit, i.e. delay slot:  */
                printf("\tint cond = (int32_t)reg(ic->arg[0]) ");
                print_operator(m5);
                printf(" 0;\n");

                printf("\tcpu->cd.m88k.delay_target = (cpu->pc\n");
                printf("\t\t& ~((M88K_IC_ENTRIES_PER_PAGE-1)"
                    " << M88K_INSTR_ALIGNMENT_SHIFT))\n");
                printf("\t\t+ ic->arg[2];\n");

                printf("\tcpu->delay_slot = TO_BE_DELAYED;\n");
                printf("\tic[1].f(cpu, ic+1);\n");
                printf("\tcpu->n_translated_instrs ++;\n");

                printf("\tif (!(cpu->delay_slot & EXCEPTION_IN_"
                    "DELAY_SLOT)) {\n");
                printf("\t\tcpu->delay_slot = NOT_DELAYED;\n");
                printf("\t\tif (cond) {\n");

                printf("\t\t\tcpu->pc = cpu->cd.m88k.delay_target;\n");
                printf("\t\t\tquick_pc_to_pointers(cpu);\n");

                printf("\t\t} else\n");
                printf("\t\t\tcpu->cd.m88k.next_ic ++;\n");
                printf("\t} else\n");
                printf("\t\tcpu->delay_slot = NOT_DELAYED;\n");

        }

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


int main(int argc, char *argv[])
{
        int samepage, n_bit, m5;

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

        for (samepage=0; samepage<=1; samepage++)
                for (n_bit=0; n_bit<=1; n_bit++)
                        for (m5=0; m5<=31; m5++) {
                                if (m5 == 1 || m5 == 2 || m5 == 3 ||
                                    m5 == 0xc || m5 == 0xd || m5 == 0xe)
                                        bcnd(samepage, n_bit, m5);
                        }

        /*  Array of pointers to all the functions:  */
        printf("\n\nvoid (*m88k_bcnd[32 * 2 * 2])(struct cpu *, struct "
            "m88k_instr_call *) = {\n");
        for (samepage=0; samepage<=1; samepage++)
                for (n_bit=0; n_bit<=1; n_bit++)
                        for (m5=0; m5<=31; m5++) {
                                if (m5 || n_bit || samepage)
                                        printf(",\n");

                                if (m5 == 1 || m5 == 2 || m5 == 3 ||
                                    m5 == 0xc || m5 == 0xd || m5 == 0xe) {
                                        if (samepage && n_bit)
                                                printf("NULL");
                                        else {
                                                printf("m88k_instr_");
                                                print_function_name(
                                                    samepage, n_bit, m5);
                                        }
                                } else
                                        printf("NULL");
                        }
        printf(" };\n");

        return 0;
}

1	/*
2	* Copyright (C) 2007 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_m88k_bcnd.c,v 1.3 2007/05/27 03:01:28 debug Exp $
29	*/
30
31	#include <stdio.h>
32	#include <string.h>
33
34
35	void print_function_name(int samepage, int n_bit, int m5)
36	{
37	printf("bcnd_");
38
39	if (n_bit)
40	printf("n_");
41
42	if (samepage)
43	printf("samepage_");
44
45	switch (m5) {
46	case 0x1: printf("gt0"); break;
47	case 0x2: printf("eq0"); break;
48	case 0x3: printf("ge0"); break;
49	case 0xc: printf("lt0"); break;
50	case 0xd: printf("ne0"); break;
51	case 0xe: printf("le0"); break;
52	}
53	}
54
55
56	void print_operator(int m5)
57	{
58	switch (m5) {
59	case 0x1: printf(">"); break;
60	case 0x2: printf("=="); break;
61	case 0x3: printf(">="); break;
62	case 0xc: printf("<"); break;
63	case 0xd: printf("!="); break;
64	case 0xe: printf("<="); break;
65	}
66	}
67
68
69	void bcnd(int samepage, int n_bit, int m5)
70	{
71	if (samepage && n_bit)
72	return;
73
74	printf("\nX(");
75	print_function_name(samepage, n_bit, m5);
76	printf(")\n{\n");
77
78	/* Easiest case is without the n_bit: */
79	if (!n_bit) {
80	printf("\tif ((int32_t)reg(ic->arg[0]) ");
81	print_operator(m5);
82	printf(" 0) {\n");
83
84	if (samepage)
85	printf("\t\tcpu->cd.m88k.next_ic = (struct m88k_"
86	"instr_call *) ic->arg[2];\n");
87	else
88	printf("\t\tcpu->pc = (cpu->pc & 0xfffff000) + "
89	"(int32_t)ic->arg[2];\n\t\tquick_pc_to_"
90	"pointers(cpu);\n");
91
92	printf("\t}\n");
93	} else {
94	/* n_bit, i.e. delay slot: */
95	printf("\tint cond = (int32_t)reg(ic->arg[0]) ");
96	print_operator(m5);
97	printf(" 0;\n");
98
99	printf("\tcpu->cd.m88k.delay_target = (cpu->pc\n");
100	printf("\t\t& ~((M88K_IC_ENTRIES_PER_PAGE-1)"
101	" << M88K_INSTR_ALIGNMENT_SHIFT))\n");
102	printf("\t\t+ ic->arg[2];\n");
103
104	printf("\tcpu->delay_slot = TO_BE_DELAYED;\n");
105	printf("\tic[1].f(cpu, ic+1);\n");
106	printf("\tcpu->n_translated_instrs ++;\n");
107
108	printf("\tif (!(cpu->delay_slot & EXCEPTION_IN_"
109	"DELAY_SLOT)) {\n");
110	printf("\t\tcpu->delay_slot = NOT_DELAYED;\n");
111	printf("\t\tif (cond) {\n");
112
113	printf("\t\t\tcpu->pc = cpu->cd.m88k.delay_target;\n");
114	printf("\t\t\tquick_pc_to_pointers(cpu);\n");
115
116	printf("\t\t} else\n");
117	printf("\t\t\tcpu->cd.m88k.next_ic ++;\n");
118	printf("\t} else\n");
119	printf("\t\tcpu->delay_slot = NOT_DELAYED;\n");
120
121	}
122
123	printf("}\n\n");
124	}
125
126
127	int main(int argc, char *argv[])
128	{
129	int samepage, n_bit, m5;
130
131	printf("\n/* AUTOMATICALLY GENERATED! Do not edit. */\n\n");
132
133	for (samepage=0; samepage<=1; samepage++)
134	for (n_bit=0; n_bit<=1; n_bit++)
135	for (m5=0; m5<=31; m5++) {
136	if (m5 == 1 \|\| m5 == 2 \|\| m5 == 3 \|\|
137	m5 == 0xc \|\| m5 == 0xd \|\| m5 == 0xe)
138	bcnd(samepage, n_bit, m5);
139	}
140
141	/* Array of pointers to all the functions: */
142	printf("\n\nvoid (m88k_bcnd[32 2 * 2])(struct cpu *, struct "
143	"m88k_instr_call *) = {\n");
144	for (samepage=0; samepage<=1; samepage++)
145	for (n_bit=0; n_bit<=1; n_bit++)
146	for (m5=0; m5<=31; m5++) {
147	if (m5 \|\| n_bit \|\| samepage)
148	printf(",\n");
149
150	if (m5 == 1 \|\| m5 == 2 \|\| m5 == 3 \|\|
151	m5 == 0xc \|\| m5 == 0xd \|\| m5 == 0xe) {
152	if (samepage && n_bit)
153	printf("NULL");
154	else {
155	printf("m88k_instr_");
156	print_function_name(
157	samepage, n_bit, m5);
158	}
159	} else
160	printf("NULL");
161	}
162	printf(" };\n");
163
164	return 0;
165	}
166