src/cpus/cpu_transputer.c

/*
 *  Copyright (C) 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: cpu_transputer.c,v 1.1 2006/07/20 21:52:59 debug Exp $
 *
 *  INMOS transputer CPU emulation.
 */

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

#include "cpu.h"
#include "machine.h"
#include "memory.h"
#include "misc.h"
#include "symbol.h"

#define DYNTRANS_32
#include "tmp_transputer_head.c"


static char *opcode_names[16] = TRANSPUTER_INSTRUCTIONS;


/*
 *  transputer_cpu_new():
 *
 *  Create a new TRANSPUTER cpu object.
 *
 *  Returns 1 on success, 0 if there was no matching TRANSPUTER processor with
 *  this cpu_type_name.
 */
int transputer_cpu_new(struct cpu *cpu, struct memory *mem,
        struct machine *machine, int cpu_id, char *cpu_type_name)
{
        int i = 0;
        struct transputer_cpu_type_def cpu_type_defs[] =
            TRANSPUTER_CPU_TYPE_DEFS;

        /*  Scan the cpu_type_defs list for this cpu type:  */
        while (cpu_type_defs[i].name != NULL) {
                if (strcasecmp(cpu_type_defs[i].name, cpu_type_name) == 0) {
                        break;
                }
                i++;
        }
        if (cpu_type_defs[i].name == NULL)
                return 0;

        cpu->cd.transputer.cpu_type = cpu_type_defs[i];
        cpu->name = cpu->cd.transputer.cpu_type.name;
        cpu->byte_order = EMUL_LITTLE_ENDIAN;
        cpu->is_32bit = 1;

        if (cpu->cd.transputer.cpu_type.bits != 32) {
                fatal("Only 32-bit Transputer processors can be "
                    "emulated. 16-bit mode is not supported. Sorry.\n");
                exit(1);
        }

        cpu->run_instr = transputer_run_instr;
        cpu->memory_rw = transputer_memory_rw;
        cpu->update_translation_table = transputer_update_translation_table;
        cpu->invalidate_translation_caches =
            transputer_invalidate_translation_caches;
        cpu->invalidate_code_translation =
            transputer_invalidate_code_translation;

        /*  Only show name and caches etc for CPU nr 0 (in SMP machines):  */
        if (cpu_id == 0) {
                debug("%s", cpu->name);
        }

        return 1;
}


/*
 *  transputer_cpu_list_available_types():
 *
 *  Print a list of available TRANSPUTER CPU types.
 */
void transputer_cpu_list_available_types(void)
{
        int i = 0, j;
        struct transputer_cpu_type_def tdefs[] = TRANSPUTER_CPU_TYPE_DEFS;
        
        while (tdefs[i].name != NULL) {
                debug("%s", tdefs[i].name);
                for (j = 7 - strlen(tdefs[i].name); j > 0; j --)
                        debug(" ");
                i ++;
                if ((i % 8) == 0 || tdefs[i].name == NULL)
                        debug("\n");
        }
}


/*
 *  transputer_cpu_dumpinfo():
 */
void transputer_cpu_dumpinfo(struct cpu *cpu)
{
        /*  TODO  */
        debug("\n");
}


/*
 *  transputer_cpu_register_dump():
 *
 *  Dump cpu registers in a relatively readable format.
 *
 *  gprs: set to non-zero to dump GPRs and some special-purpose registers.
 *  coprocs: set bit 0..3 to dump registers in coproc 0..3.
 */
void transputer_cpu_register_dump(struct cpu *cpu, int gprs, int coprocs)
{
        char *symbol;
        uint64_t offset;
        int x = cpu->cpu_id;

        symbol = get_symbol_name(&cpu->machine->symbol_context,
            cpu->pc, &offset);

        debug("cpu%i: wptr = 0x%08"PRIx32"  oreg = 0x%08"PRIx32"  ip = 0x%08"
            PRIx32, x, cpu->cd.transputer.wptr, cpu->cd.transputer.oreg,
            (uint32_t)cpu->pc);
        debug("  <%s>\n", symbol != NULL? symbol : " no symbol ");

        debug("cpu%i:    a = 0x%08"PRIx32"     b = 0x%08"PRIx32"   c = 0x%08"
            PRIx32"\n", x, cpu->cd.transputer.a, cpu->cd.transputer.b,
            cpu->cd.transputer.c);

        /*  TODO: Error flags, Floating point registers, etc.  */
}


/*
 *  transputer_cpu_register_match():
 */
void transputer_cpu_register_match(struct machine *m, char *name,
        int writeflag, uint64_t *valuep, int *match_register)
{
        int cpunr = 0;

        /*  CPU number:  */
        /*  TODO  */

        /*  Register name:  */
        if (strcasecmp(name, "pc") == 0) {
                if (writeflag) {
                        m->cpus[cpunr]->pc = *valuep;
                } else
                        *valuep = m->cpus[cpunr]->pc;
                *match_register = 1;
        }

        /*  TODO  */
        /*  More register names...  */
}


/*
 *  transputer_cpu_tlbdump():
 *
 *  Called from the debugger to dump the TLB in a readable format.
 *  x is the cpu number to dump, or -1 to dump all CPUs.
 *
 *  If rawflag is nonzero, then the TLB contents isn't formated nicely,
 *  just dumped.
 */
void transputer_cpu_tlbdump(struct machine *m, int x, int rawflag)
{
}


/*
 *  transputer_cpu_gdb_stub():
 *
 *  Execute a "remote GDB" command. Returns a newly allocated response string
 *  on success, NULL on failure.
 */
char *transputer_cpu_gdb_stub(struct cpu *cpu, char *cmd)
{
        fatal("transputer_cpu_gdb_stub(): TODO\n");
        return NULL;
}


/*
 *  transputer_cpu_interrupt():
 */
int transputer_cpu_interrupt(struct cpu *cpu, uint64_t irq_nr)
{
        fatal("transputer_cpu_interrupt(): TODO\n");
        return 0;
}


/*
 *  transputer_cpu_interrupt_ack():
 */
int transputer_cpu_interrupt_ack(struct cpu *cpu, uint64_t irq_nr)
{
        /*  fatal("transputer_cpu_interrupt_ack(): TODO\n");  */
        return 0;
}


/*
 *  transputer_cpu_disassemble_instr():
 *
 *  Convert an instruction word into human readable format, for instruction
 *  tracing. On Transputers, an opcode is one byte, optionally followed by
 *  more instruction bytes.
 *
 *  If running is 1, cpu->pc should be the address of the instruction.
 *
 *  If running is 0, things that depend on the runtime environment (eg.
 *  register contents) will not be shown, and addr will be used instead of
 *  cpu->pc for relative addresses.
 */
int transputer_cpu_disassemble_instr(struct cpu *cpu, unsigned char *ib,
        int running, uint64_t dumpaddr)
{
        uint64_t offset;
        char *symbol;
        int opcode, operand;

        if (running)
                dumpaddr = cpu->pc;

        symbol = get_symbol_name(&cpu->machine->symbol_context,
            dumpaddr, &offset);
        if (symbol != NULL && offset==0)
                debug("<%s>\n", symbol);

        if (cpu->machine->ncpus > 1 && running)
                debug("cpu%i: ", cpu->cpu_id);

        debug("0x%08x:  ", (int)dumpaddr);

        opcode = ib[0] >> 4;
        operand = ib[0] & 15;

        debug("%02x   ", ib[0]);

        switch (opcode >> 4) {

        default:debug("%-6s %2i\n", opcode_names[opcode], operand);
        }

        return 1;
}


#include "tmp_transputer_tail.c"

1	dpavlin	28	/*
2			* Copyright (C) 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: cpu_transputer.c,v 1.1 2006/07/20 21:52:59 debug Exp $
29			*
30			* INMOS transputer CPU emulation.
31			*/
32
33			#include <stdio.h>
34			#include <stdlib.h>
35			#include <string.h>
36			#include <ctype.h>
37
38			#include "cpu.h"
39			#include "machine.h"
40			#include "memory.h"
41			#include "misc.h"
42			#include "symbol.h"
43
44			#define DYNTRANS_32
45			#include "tmp_transputer_head.c"
46
47
48			static char *opcode_names[16] = TRANSPUTER_INSTRUCTIONS;
49
50
51			/*
52			* transputer_cpu_new():
53			*
54			* Create a new TRANSPUTER cpu object.
55			*
56			* Returns 1 on success, 0 if there was no matching TRANSPUTER processor with
57			* this cpu_type_name.
58			*/
59			int transputer_cpu_new(struct cpu cpu, struct memory mem,
60			struct machine machine, int cpu_id, char cpu_type_name)
61			{
62			int i = 0;
63			struct transputer_cpu_type_def cpu_type_defs[] =
64			TRANSPUTER_CPU_TYPE_DEFS;
65
66			/* Scan the cpu_type_defs list for this cpu type: */
67			while (cpu_type_defs[i].name != NULL) {
68			if (strcasecmp(cpu_type_defs[i].name, cpu_type_name) == 0) {
69			break;
70			}
71			i++;
72			}
73			if (cpu_type_defs[i].name == NULL)
74			return 0;
75
76			cpu->cd.transputer.cpu_type = cpu_type_defs[i];
77			cpu->name = cpu->cd.transputer.cpu_type.name;
78			cpu->byte_order = EMUL_LITTLE_ENDIAN;
79			cpu->is_32bit = 1;
80
81			if (cpu->cd.transputer.cpu_type.bits != 32) {
82			fatal("Only 32-bit Transputer processors can be "
83			"emulated. 16-bit mode is not supported. Sorry.\n");
84			exit(1);
85			}
86
87			cpu->run_instr = transputer_run_instr;
88			cpu->memory_rw = transputer_memory_rw;
89			cpu->update_translation_table = transputer_update_translation_table;
90			cpu->invalidate_translation_caches =
91			transputer_invalidate_translation_caches;
92			cpu->invalidate_code_translation =
93			transputer_invalidate_code_translation;
94
95			/* Only show name and caches etc for CPU nr 0 (in SMP machines): */
96			if (cpu_id == 0) {
97			debug("%s", cpu->name);
98			}
99
100			return 1;
101			}
102
103
104			/*
105			* transputer_cpu_list_available_types():
106			*
107			* Print a list of available TRANSPUTER CPU types.
108			*/
109			void transputer_cpu_list_available_types(void)
110			{
111			int i = 0, j;
112			struct transputer_cpu_type_def tdefs[] = TRANSPUTER_CPU_TYPE_DEFS;
113
114			while (tdefs[i].name != NULL) {
115			debug("%s", tdefs[i].name);
116			for (j = 7 - strlen(tdefs[i].name); j > 0; j --)
117			debug(" ");
118			i ++;
119			if ((i % 8) == 0 \|\| tdefs[i].name == NULL)
120			debug("\n");
121			}
122			}
123
124
125			/*
126			* transputer_cpu_dumpinfo():
127			*/
128			void transputer_cpu_dumpinfo(struct cpu *cpu)
129			{
130			/* TODO */
131			debug("\n");
132			}
133
134
135			/*
136			* transputer_cpu_register_dump():
137			*
138			* Dump cpu registers in a relatively readable format.
139			*
140			* gprs: set to non-zero to dump GPRs and some special-purpose registers.
141			* coprocs: set bit 0..3 to dump registers in coproc 0..3.
142			*/
143			void transputer_cpu_register_dump(struct cpu *cpu, int gprs, int coprocs)
144			{
145			char *symbol;
146			uint64_t offset;
147			int x = cpu->cpu_id;
148
149			symbol = get_symbol_name(&cpu->machine->symbol_context,
150			cpu->pc, &offset);
151
152			debug("cpu%i: wptr = 0x%08"PRIx32" oreg = 0x%08"PRIx32" ip = 0x%08"
153			PRIx32, x, cpu->cd.transputer.wptr, cpu->cd.transputer.oreg,
154			(uint32_t)cpu->pc);
155			debug(" <%s>\n", symbol != NULL? symbol : " no symbol ");
156
157			debug("cpu%i: a = 0x%08"PRIx32" b = 0x%08"PRIx32" c = 0x%08"
158			PRIx32"\n", x, cpu->cd.transputer.a, cpu->cd.transputer.b,
159			cpu->cd.transputer.c);
160
161			/* TODO: Error flags, Floating point registers, etc. */
162			}
163
164
165			/*
166			* transputer_cpu_register_match():
167			*/
168			void transputer_cpu_register_match(struct machine m, char name,
169			int writeflag, uint64_t valuep, int match_register)
170			{
171			int cpunr = 0;
172
173			/* CPU number: */
174			/* TODO */
175
176			/* Register name: */
177			if (strcasecmp(name, "pc") == 0) {
178			if (writeflag) {
179			m->cpus[cpunr]->pc = *valuep;
180			} else
181			*valuep = m->cpus[cpunr]->pc;
182			*match_register = 1;
183			}
184
185			/* TODO */
186			/* More register names... */
187			}
188
189
190			/*
191			* transputer_cpu_tlbdump():
192			*
193			* Called from the debugger to dump the TLB in a readable format.
194			* x is the cpu number to dump, or -1 to dump all CPUs.
195			*
196			* If rawflag is nonzero, then the TLB contents isn't formated nicely,
197			* just dumped.
198			*/
199			void transputer_cpu_tlbdump(struct machine *m, int x, int rawflag)
200			{
201			}
202
203
204			/*
205			* transputer_cpu_gdb_stub():
206			*
207			* Execute a "remote GDB" command. Returns a newly allocated response string
208			* on success, NULL on failure.
209			*/
210			char transputer_cpu_gdb_stub(struct cpu cpu, char *cmd)
211			{
212			fatal("transputer_cpu_gdb_stub(): TODO\n");
213			return NULL;
214			}
215
216
217			/*
218			* transputer_cpu_interrupt():
219			*/
220			int transputer_cpu_interrupt(struct cpu *cpu, uint64_t irq_nr)
221			{
222			fatal("transputer_cpu_interrupt(): TODO\n");
223			return 0;
224			}
225
226
227			/*
228			* transputer_cpu_interrupt_ack():
229			*/
230			int transputer_cpu_interrupt_ack(struct cpu *cpu, uint64_t irq_nr)
231			{
232			/* fatal("transputer_cpu_interrupt_ack(): TODO\n"); */
233			return 0;
234			}
235
236
237			/*
238			* transputer_cpu_disassemble_instr():
239			*
240			* Convert an instruction word into human readable format, for instruction
241			* tracing. On Transputers, an opcode is one byte, optionally followed by
242			* more instruction bytes.
243			*
244			* If running is 1, cpu->pc should be the address of the instruction.
245			*
246			* If running is 0, things that depend on the runtime environment (eg.
247			* register contents) will not be shown, and addr will be used instead of
248			* cpu->pc for relative addresses.
249			*/
250			int transputer_cpu_disassemble_instr(struct cpu cpu, unsigned char ib,
251			int running, uint64_t dumpaddr)
252			{
253			uint64_t offset;
254			char *symbol;
255			int opcode, operand;
256
257			if (running)
258			dumpaddr = cpu->pc;
259
260			symbol = get_symbol_name(&cpu->machine->symbol_context,
261			dumpaddr, &offset);
262			if (symbol != NULL && offset==0)
263			debug("<%s>\n", symbol);
264
265			if (cpu->machine->ncpus > 1 && running)
266			debug("cpu%i: ", cpu->cpu_id);
267
268			debug("0x%08x: ", (int)dumpaddr);
269
270			opcode = ib[0] >> 4;
271			operand = ib[0] & 15;
272
273			debug("%02x ", ib[0]);
274
275			switch (opcode >> 4) {
276
277			default:debug("%-6s %2i\n", opcode_names[opcode], operand);
278			}
279
280			return 1;
281			}
282
283
284			#include "tmp_transputer_tail.c"
285