src/cpus/cpu_hppa.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: cpu_hppa.c,v 1.15 2006/07/16 13:32:26 debug Exp $
 *
 *  HP PA-RISC CPU emulation.
 *
 *  TODO
 */

#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_DUALMODE_32
#include "tmp_hppa_head.c"


/*
 *  hppa_cpu_new():
 *
 *  Create a new HPPA cpu object.
 *
 *  Returns 1 on success, 0 if there was no matching HPPA processor with
 *  this cpu_type_name.
 */
int hppa_cpu_new(struct cpu *cpu, struct memory *mem, struct machine *machine,
        int cpu_id, char *cpu_type_name)
{
        if (strcasecmp(cpu_type_name, "HPPA") != 0)
                return 0;

        cpu->memory_rw = hppa_memory_rw;

        /*  TODO: per CPU type?  */
        cpu->byte_order = EMUL_LITTLE_ENDIAN;
        cpu->is_32bit = 1;
        cpu->cd.hppa.bits = 32;

        if (cpu->is_32bit) {
                cpu->run_instr = hppa32_run_instr;
                cpu->update_translation_table = hppa32_update_translation_table;
                cpu->invalidate_translation_caches =
                    hppa32_invalidate_translation_caches;
                cpu->invalidate_code_translation =
                    hppa32_invalidate_code_translation;
        } else {
                cpu->run_instr = hppa_run_instr;
                cpu->update_translation_table = hppa_update_translation_table;
                cpu->invalidate_translation_caches =
                    hppa_invalidate_translation_caches;
                cpu->invalidate_code_translation =
                    hppa_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;
}


/*
 *  hppa_cpu_list_available_types():
 *
 *  Print a list of available HPPA CPU types.
 */
void hppa_cpu_list_available_types(void)
{
        debug("HPPA\n");
        /*  TODO  */
}


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


/*
 *  hppa_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 hppa_cpu_register_dump(struct cpu *cpu, int gprs, int coprocs)
{
        char *symbol;
        uint64_t offset;
        int i, x = cpu->cpu_id, nregs = 32;
        int bits32 = cpu->cd.hppa.bits == 32;

        if (gprs) {
                /*  Special registers (pc, ...) first:  */
                symbol = get_symbol_name(&cpu->machine->symbol_context,
                    cpu->pc, &offset);

                debug("cpu%i: pc  = 0x", x);
                if (bits32)
                        debug("%08"PRIx32, (uint32_t) cpu->pc);
                else
                        debug("%016"PRIx64, (uint64_t) cpu->pc);
                debug("  <%s>\n", symbol != NULL? symbol : " no symbol ");

                if (bits32) {
                        /*  32-bit:  */
                        for (i=0; i<nregs; i++) {
                                if ((i % 4) == 0)
                                        debug("cpu%i:", x);
                                debug(" r%02i = 0x%08"PRIx32" ", i,
                                    (uint32_t)cpu->cd.hppa.r[i]);
                                if ((i % 4) == 3)
                                        debug("\n");
                        }
                } else {
                        /*  64-bit:  */
                        for (i=0; i<nregs; i++) {
                                int r = (i >> 1) + ((i & 1) << 4);
                                if ((i % 2) == 0)
                                        debug("cpu%i:", x);
                                debug(" r%02i = 0x%016"PRIx64" ", r,
                                    (uint64_t) cpu->cd.hppa.r[r]);
                                if ((i % 2) == 1)
                                        debug("\n");
                        }
                }
        }
}


/*
 *  hppa_cpu_register_match():
 */
void hppa_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;
        }
}


/*
 *  hppa_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 hppa_cpu_tlbdump(struct machine *m, int x, int rawflag)
{
}


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


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


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


/*
 *  hppa_cpu_disassemble_instr():
 *
 *  Convert an instruction word into human readable format, for instruction
 *  tracing.
 *
 *  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 hppa_cpu_disassemble_instr(struct cpu *cpu, unsigned char *instr,
        int running, uint64_t dumpaddr)
{
        uint64_t offset;
        uint32_t iword;
        char *symbol;

        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);

        if (cpu->cd.hppa.bits == 32)
                debug("%08"PRIx32, (uint32_t) dumpaddr);
        else
                debug("%016"PRIx64, (uint64_t) dumpaddr);

        if (cpu->byte_order == EMUL_BIG_ENDIAN)
                iword = (instr[0] << 24) + (instr[1] << 16) + (instr[2] << 8)
                    + instr[3];
        else
                iword = (instr[3] << 24) + (instr[2] << 16) + (instr[1] << 8)
                    + instr[0];

        debug(": %08"PRIx32"\t", (uint32_t) iword);

        /*
         *  Decode the instruction:
         */

        debug("TODO\n");

        return sizeof(iword);
}


#include "tmp_hppa_tail.c"

1	dpavlin	14	/*
2	dpavlin	24	* Copyright (C) 2005-2006 Anders Gavare. All rights reserved.
3	dpavlin	14	*
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	dpavlin	20	* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
19	dpavlin	14	* 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	28	* $Id: cpu_hppa.c,v 1.15 2006/07/16 13:32:26 debug Exp $
29	dpavlin	14	*
30			* HP PA-RISC CPU emulation.
31			*
32			* TODO
33			*/
34
35			#include <stdio.h>
36			#include <stdlib.h>
37			#include <string.h>
38			#include <ctype.h>
39
40			#include "cpu.h"
41			#include "machine.h"
42			#include "memory.h"
43			#include "misc.h"
44			#include "symbol.h"
45
46
47			#define DYNTRANS_DUALMODE_32
48			#include "tmp_hppa_head.c"
49
50
51			/*
52			* hppa_cpu_new():
53			*
54			* Create a new HPPA cpu object.
55			*
56			* Returns 1 on success, 0 if there was no matching HPPA processor with
57			* this cpu_type_name.
58			*/
59			int hppa_cpu_new(struct cpu cpu, struct memory mem, struct machine *machine,
60			int cpu_id, char *cpu_type_name)
61			{
62			if (strcasecmp(cpu_type_name, "HPPA") != 0)
63			return 0;
64
65			cpu->memory_rw = hppa_memory_rw;
66
67			/* TODO: per CPU type? */
68			cpu->byte_order = EMUL_LITTLE_ENDIAN;
69			cpu->is_32bit = 1;
70			cpu->cd.hppa.bits = 32;
71
72			if (cpu->is_32bit) {
73	dpavlin	28	cpu->run_instr = hppa32_run_instr;
74	dpavlin	14	cpu->update_translation_table = hppa32_update_translation_table;
75	dpavlin	18	cpu->invalidate_translation_caches =
76			hppa32_invalidate_translation_caches;
77	dpavlin	14	cpu->invalidate_code_translation =
78			hppa32_invalidate_code_translation;
79			} else {
80	dpavlin	28	cpu->run_instr = hppa_run_instr;
81	dpavlin	14	cpu->update_translation_table = hppa_update_translation_table;
82	dpavlin	18	cpu->invalidate_translation_caches =
83			hppa_invalidate_translation_caches;
84	dpavlin	14	cpu->invalidate_code_translation =
85			hppa_invalidate_code_translation;
86			}
87
88	dpavlin	20	/* Only show name and caches etc for CPU nr 0 (in SMP machines): */
89	dpavlin	14	if (cpu_id == 0) {
90			debug("%s", cpu->name);
91			}
92
93			return 1;
94			}
95
96
97			/*
98			* hppa_cpu_list_available_types():
99			*
100			* Print a list of available HPPA CPU types.
101			*/
102			void hppa_cpu_list_available_types(void)
103			{
104			debug("HPPA\n");
105			/* TODO */
106			}
107
108
109			/*
110			* hppa_cpu_dumpinfo():
111			*/
112			void hppa_cpu_dumpinfo(struct cpu *cpu)
113			{
114			debug("\n");
115			/* TODO */
116			}
117
118
119			/*
120			* hppa_cpu_register_dump():
121			*
122			* Dump cpu registers in a relatively readable format.
123			*
124			* gprs: set to non-zero to dump GPRs and some special-purpose registers.
125			* coprocs: set bit 0..3 to dump registers in coproc 0..3.
126			*/
127			void hppa_cpu_register_dump(struct cpu *cpu, int gprs, int coprocs)
128			{
129			char *symbol;
130	dpavlin	20	uint64_t offset;
131	dpavlin	14	int i, x = cpu->cpu_id, nregs = 32;
132			int bits32 = cpu->cd.hppa.bits == 32;
133
134			if (gprs) {
135			/* Special registers (pc, ...) first: */
136			symbol = get_symbol_name(&cpu->machine->symbol_context,
137			cpu->pc, &offset);
138
139			debug("cpu%i: pc = 0x", x);
140			if (bits32)
141	dpavlin	24	debug("%08"PRIx32, (uint32_t) cpu->pc);
142	dpavlin	14	else
143	dpavlin	24	debug("%016"PRIx64, (uint64_t) cpu->pc);
144	dpavlin	14	debug(" <%s>\n", symbol != NULL? symbol : " no symbol ");
145
146			if (bits32) {
147			/* 32-bit: */
148			for (i=0; i<nregs; i++) {
149			if ((i % 4) == 0)
150			debug("cpu%i:", x);
151	dpavlin	24	debug(" r%02i = 0x%08"PRIx32" ", i,
152			(uint32_t)cpu->cd.hppa.r[i]);
153	dpavlin	14	if ((i % 4) == 3)
154			debug("\n");
155			}
156			} else {
157			/* 64-bit: */
158			for (i=0; i<nregs; i++) {
159			int r = (i >> 1) + ((i & 1) << 4);
160			if ((i % 2) == 0)
161			debug("cpu%i:", x);
162	dpavlin	24	debug(" r%02i = 0x%016"PRIx64" ", r,
163			(uint64_t) cpu->cd.hppa.r[r]);
164	dpavlin	14	if ((i % 2) == 1)
165			debug("\n");
166			}
167			}
168			}
169			}
170
171
172			/*
173			* hppa_cpu_register_match():
174			*/
175			void hppa_cpu_register_match(struct machine m, char name,
176			int writeflag, uint64_t valuep, int match_register)
177			{
178			int cpunr = 0;
179
180			/* CPU number: */
181
182			/* TODO */
183
184			/* Register name: */
185			if (strcasecmp(name, "pc") == 0) {
186			if (writeflag) {
187			m->cpus[cpunr]->pc = *valuep;
188			} else
189			*valuep = m->cpus[cpunr]->pc;
190			*match_register = 1;
191			}
192			}
193
194
195			/*
196	dpavlin	24	* hppa_cpu_tlbdump():
197			*
198			* Called from the debugger to dump the TLB in a readable format.
199			* x is the cpu number to dump, or -1 to dump all CPUs.
200			*
201			* If rawflag is nonzero, then the TLB contents isn't formated nicely,
202			* just dumped.
203			*/
204			void hppa_cpu_tlbdump(struct machine *m, int x, int rawflag)
205			{
206			}
207
208
209			/*
210			* hppa_cpu_gdb_stub():
211			*
212			* Execute a "remote GDB" command. Returns a newly allocated response string
213			* on success, NULL on failure.
214			*/
215			char hppa_cpu_gdb_stub(struct cpu cpu, char *cmd)
216			{
217			fatal("hppa_cpu_gdb_stub(): TODO\n");
218			return NULL;
219			}
220
221
222			/*
223	dpavlin	14	* hppa_cpu_interrupt():
224			*/
225			int hppa_cpu_interrupt(struct cpu *cpu, uint64_t irq_nr)
226			{
227			fatal("hppa_cpu_interrupt(): TODO\n");
228			return 0;
229			}
230
231
232			/*
233			* hppa_cpu_interrupt_ack():
234			*/
235			int hppa_cpu_interrupt_ack(struct cpu *cpu, uint64_t irq_nr)
236			{
237			/* fatal("hppa_cpu_interrupt_ack(): TODO\n"); */
238			return 0;
239			}
240
241
242			/*
243			* hppa_cpu_disassemble_instr():
244			*
245			* Convert an instruction word into human readable format, for instruction
246			* tracing.
247			*
248	dpavlin	20	* If running is 1, cpu->pc should be the address of the instruction.
249	dpavlin	14	*
250			* If running is 0, things that depend on the runtime environment (eg.
251	dpavlin	20	* register contents) will not be shown, and addr will be used instead of
252	dpavlin	14	* cpu->pc for relative addresses.
253			*/
254			int hppa_cpu_disassemble_instr(struct cpu cpu, unsigned char instr,
255	dpavlin	24	int running, uint64_t dumpaddr)
256	dpavlin	14	{
257	dpavlin	20	uint64_t offset;
258	dpavlin	14	uint32_t iword;
259	dpavlin	20	char *symbol;
260	dpavlin	14
261			if (running)
262			dumpaddr = cpu->pc;
263
264			symbol = get_symbol_name(&cpu->machine->symbol_context,
265			dumpaddr, &offset);
266			if (symbol != NULL && offset==0)
267			debug("<%s>\n", symbol);
268
269			if (cpu->machine->ncpus > 1 && running)
270			debug("cpu%i: ", cpu->cpu_id);
271
272			if (cpu->cd.hppa.bits == 32)
273	dpavlin	24	debug("%08"PRIx32, (uint32_t) dumpaddr);
274	dpavlin	14	else
275	dpavlin	24	debug("%016"PRIx64, (uint64_t) dumpaddr);
276	dpavlin	14
277			if (cpu->byte_order == EMUL_BIG_ENDIAN)
278			iword = (instr[0] << 24) + (instr[1] << 16) + (instr[2] << 8)
279			+ instr[3];
280			else
281			iword = (instr[3] << 24) + (instr[2] << 16) + (instr[1] << 8)
282			+ instr[0];
283
284	dpavlin	24	debug(": %08"PRIx32"\t", (uint32_t) iword);
285	dpavlin	14
286			/*
287			* Decode the instruction:
288			*/
289
290			debug("TODO\n");
291
292			return sizeof(iword);
293			}
294
295
296			#include "tmp_hppa_tail.c"
297