25 |
* SUCH DAMAGE. |
* SUCH DAMAGE. |
26 |
* |
* |
27 |
* |
* |
28 |
* $Id: emul.c,v 1.247 2006/02/04 12:27:12 debug Exp $ |
* $Id: emul.c,v 1.260 2006/07/26 23:21:47 debug Exp $ |
29 |
* |
* |
30 |
* Emulation startup and misc. routines. |
* Emulation startup and misc. routines. |
31 |
*/ |
*/ |
39 |
#include <unistd.h> |
#include <unistd.h> |
40 |
|
|
41 |
#include "arcbios.h" |
#include "arcbios.h" |
|
#include "bintrans.h" |
|
42 |
#include "cpu.h" |
#include "cpu.h" |
43 |
#include "emul.h" |
#include "emul.h" |
44 |
#include "console.h" |
#include "console.h" |
55 |
#include "x11.h" |
#include "x11.h" |
56 |
|
|
57 |
|
|
|
extern int force_debugger_at_exit; |
|
|
|
|
58 |
extern int extra_argc; |
extern int extra_argc; |
59 |
extern char **extra_argv; |
extern char **extra_argv; |
60 |
|
|
61 |
extern int verbose; |
extern int verbose; |
62 |
extern int quiet_mode; |
extern int quiet_mode; |
63 |
|
extern int force_debugger_at_exit; |
64 |
|
extern int single_step; |
65 |
|
extern int old_show_trace_tree; |
66 |
|
extern int old_instruction_trace; |
67 |
|
extern int old_quiet_mode; |
68 |
|
extern int quiet_mode; |
69 |
|
|
70 |
extern struct emul *debugger_emul; |
extern struct emul *debugger_emul; |
71 |
extern struct diskimage *diskimages[]; |
extern struct diskimage *diskimages[]; |
108 |
uint64_t addr; |
uint64_t addr; |
109 |
int res = get_symbol_addr(&m->symbol_context, |
int res = get_symbol_addr(&m->symbol_context, |
110 |
m->breakpoint_string[i], &addr); |
m->breakpoint_string[i], &addr); |
111 |
if (!res) |
if (!res) { |
112 |
fprintf(stderr, |
fprintf(stderr, |
113 |
"WARNING! Breakpoint '%s' could not be" |
"ERROR! Breakpoint '%s' could not be" |
114 |
" parsed\n", |
" parsed\n", |
115 |
m->breakpoint_string[i]); |
m->breakpoint_string[i]); |
116 |
else { |
} else { |
117 |
dp = addr; |
dp = addr; |
118 |
string_flag = 1; |
string_flag = 1; |
119 |
} |
} |
943 |
if (m->arch == ARCH_ALPHA) |
if (m->arch == ARCH_ALPHA) |
944 |
m->arch_pagesize = 8192; |
m->arch_pagesize = 8192; |
945 |
|
|
|
if (m->arch != ARCH_MIPS) |
|
|
m->bintrans_enable = 0; |
|
|
|
|
946 |
machine_memsize_fix(m); |
machine_memsize_fix(m); |
947 |
|
|
948 |
/* |
/* |
990 |
} |
} |
991 |
memset(m->cpus, 0, sizeof(struct cpu *) * m->ncpus); |
memset(m->cpus, 0, sizeof(struct cpu *) * m->ncpus); |
992 |
|
|
|
/* Initialize dynamic binary translation, if available: */ |
|
|
if (m->bintrans_enable) |
|
|
bintrans_init(m, m->memory); |
|
|
|
|
993 |
debug("cpu0"); |
debug("cpu0"); |
994 |
if (m->ncpus > 1) |
if (m->ncpus > 1) |
995 |
debug(" .. cpu%i", m->ncpus - 1); |
debug(" .. cpu%i", m->ncpus - 1); |
996 |
debug(": "); |
debug(": "); |
997 |
for (i=0; i<m->ncpus; i++) { |
for (i=0; i<m->ncpus; i++) { |
998 |
m->cpus[i] = cpu_new(m->memory, m, i, m->cpu_name); |
m->cpus[i] = cpu_new(m->memory, m, i, m->cpu_name); |
999 |
if (m->bintrans_enable) |
if (m->cpus[i] == NULL) { |
1000 |
bintrans_init_cpu(m->cpus[i]); |
fprintf(stderr, "Unable to create CPU object. " |
1001 |
|
"Aborting."); |
1002 |
|
exit(1); |
1003 |
|
} |
1004 |
} |
} |
1005 |
debug("\n"); |
debug("\n"); |
1006 |
|
|
1011 |
m->cpus[m->ncpus] = cpu_new(m->memory, m, |
m->cpus[m->ncpus] = cpu_new(m->memory, m, |
1012 |
0 /* use 0 here to show info with debug() */, |
0 /* use 0 here to show info with debug() */, |
1013 |
"Allegrex" /* TODO */); |
"Allegrex" /* TODO */); |
|
if (m->bintrans_enable) |
|
|
bintrans_init_cpu(m->cpus[m->ncpus]); |
|
1014 |
debug("\n"); |
debug("\n"); |
1015 |
m->ncpus ++; |
m->ncpus ++; |
1016 |
} |
} |
1271 |
break; |
break; |
1272 |
|
|
1273 |
case ARCH_SH: |
case ARCH_SH: |
1274 |
if (cpu->cd.sh.bits == 32) |
if (cpu->cd.sh.cpu_type.bits == 32) |
1275 |
cpu->pc &= 0xffffffffULL; |
cpu->pc &= 0xffffffffULL; |
1276 |
cpu->pc &= ~1; |
cpu->pc &= ~1; |
1277 |
break; |
break; |
1279 |
case ARCH_SPARC: |
case ARCH_SPARC: |
1280 |
break; |
break; |
1281 |
|
|
1282 |
|
case ARCH_TRANSPUTER: |
1283 |
|
cpu->pc &= 0xffffffffULL; |
1284 |
|
break; |
1285 |
|
|
1286 |
case ARCH_X86: |
case ARCH_X86: |
1287 |
/* |
/* |
1288 |
* NOTE: The toc field is used to indicate an ELF32 |
* NOTE: The toc field is used to indicate an ELF32 |
1336 |
useremul_setup(cpu, n_load, load_names); |
useremul_setup(cpu, n_load, load_names); |
1337 |
|
|
1338 |
/* Startup the bootstrap CPU: */ |
/* Startup the bootstrap CPU: */ |
1339 |
cpu->bootstrap_cpu_flag = 1; |
cpu->running = 1; |
|
cpu->running = 1; |
|
1340 |
|
|
1341 |
/* ... or pause all CPUs, if start_paused is set: */ |
/* ... or pause all CPUs, if start_paused is set: */ |
1342 |
if (m->start_paused) { |
if (m->start_paused) { |
1355 |
|
|
1356 |
symbol_recalc_sizes(&m->symbol_context); |
symbol_recalc_sizes(&m->symbol_context); |
1357 |
|
|
|
if (m->max_random_cycles_per_chunk > 0) |
|
|
debug("using random cycle chunks (1 to %i cycles)\n", |
|
|
m->max_random_cycles_per_chunk); |
|
|
|
|
1358 |
/* Special hack for ARC/SGI emulation: */ |
/* Special hack for ARC/SGI emulation: */ |
1359 |
if ((m->machine_type == MACHINE_ARC || |
if ((m->machine_type == MACHINE_ARC || |
1360 |
m->machine_type == MACHINE_SGI) && m->prom_emulation) |
m->machine_type == MACHINE_SGI) && m->prom_emulation) |
1489 |
{ |
{ |
1490 |
int iadd = DEBUG_INDENTATION; |
int iadd = DEBUG_INDENTATION; |
1491 |
struct emul *e = emul_new(fname); |
struct emul *e = emul_new(fname); |
|
FILE *f; |
|
|
char buf[128]; |
|
|
size_t len; |
|
1492 |
|
|
1493 |
debug("Creating emulation from configfile \"%s\":\n", fname); |
debug("Creating emulation from configfile \"%s\":\n", fname); |
1494 |
debug_indentation(iadd); |
debug_indentation(iadd); |
1495 |
|
|
1496 |
f = fopen(fname, "r"); |
emul_parse_config(e, fname); |
|
if (f == NULL) { |
|
|
perror(fname); |
|
|
exit(1); |
|
|
} |
|
1497 |
|
|
|
/* Read header: (must be !!gxemul) */ |
|
|
len = fread(buf, 1, 8, f); |
|
|
if (len != 8 || strncmp(buf, "!!gxemul", 8) != 0) { |
|
|
fprintf(stderr, "%s: must start with '!!gxemul'\n", fname); |
|
|
exit(1); |
|
|
} |
|
|
|
|
|
/* Restart from beginning: */ |
|
|
rewind(f); |
|
|
|
|
|
emul_parse_config(e, f); |
|
|
|
|
|
fclose(f); |
|
1498 |
debug_indentation(-iadd); |
debug_indentation(-iadd); |
1499 |
return e; |
return e; |
1500 |
} |
} |
1584 |
while (go) { |
while (go) { |
1585 |
go = 0; |
go = 0; |
1586 |
|
|
1587 |
x11_check_event(emuls, n_emuls); |
/* Flush X11 and serial console output every now and then: */ |
1588 |
|
if (emuls[0]->machines[0]->ninstrs > |
1589 |
for (i=0; i<n_emuls; i++) { |
emuls[0]->machines[0]->ninstrs_flush + (1<<19)) { |
1590 |
e = emuls[i]; |
x11_check_event(emuls, n_emuls); |
1591 |
if (e == NULL) |
console_flush(); |
1592 |
continue; |
emuls[0]->machines[0]->ninstrs_flush = |
1593 |
|
emuls[0]->machines[0]->ninstrs; |
1594 |
for (j=0; j<e->n_machines; j++) { |
} |
1595 |
/* TODO: cpu_run() is a strange name, since |
|
1596 |
there can be multiple cpus in a machine */ |
if (emuls[0]->machines[0]->ninstrs > |
1597 |
anything = cpu_run(e, e->machines[j]); |
emuls[0]->machines[0]->ninstrs_show + (1<<25)) { |
1598 |
if (anything) |
emuls[0]->machines[0]->ninstrs_since_gettimeofday += |
1599 |
go = 1; |
(emuls[0]->machines[0]->ninstrs - |
1600 |
} |
emuls[0]->machines[0]->ninstrs_show); |
1601 |
|
cpu_show_cycles(emuls[0]->machines[0], 0); |
1602 |
|
emuls[0]->machines[0]->ninstrs_show = |
1603 |
|
emuls[0]->machines[0]->ninstrs; |
1604 |
|
} |
1605 |
|
|
1606 |
|
if (single_step == ENTER_SINGLE_STEPPING) { |
1607 |
|
/* TODO: Cleanup! */ |
1608 |
|
old_instruction_trace = |
1609 |
|
emuls[0]->machines[0]->instruction_trace; |
1610 |
|
old_quiet_mode = quiet_mode; |
1611 |
|
old_show_trace_tree = |
1612 |
|
emuls[0]->machines[0]->show_trace_tree; |
1613 |
|
emuls[0]->machines[0]->instruction_trace = 1; |
1614 |
|
emuls[0]->machines[0]->show_trace_tree = 1; |
1615 |
|
quiet_mode = 0; |
1616 |
|
single_step = SINGLE_STEPPING; |
1617 |
|
} |
1618 |
|
|
1619 |
|
if (single_step == SINGLE_STEPPING) |
1620 |
|
debugger(); |
1621 |
|
|
1622 |
|
e = emuls[0]; /* Note: Only 1 emul supported now. */ |
1623 |
|
|
1624 |
|
for (j=0; j<e->n_machines; j++) { |
1625 |
|
if (e->machines[j]->gdb.port > 0) |
1626 |
|
debugger_gdb_check_incoming(e->machines[j]); |
1627 |
|
|
1628 |
|
anything = machine_run(e->machines[j]); |
1629 |
|
if (anything) |
1630 |
|
go = 1; |
1631 |
} |
} |
1632 |
} |
} |
1633 |
|
|