2 * This file is part of SIS.
4 * SIS, SPARC instruction simulator V1.6 Copyright (C) 1995 Jiri Gaisler,
5 * European Space Agency
7 * This program is free software; you can redistribute it and/or modify it under
8 * the terms of the GNU General Public License as published by the Free
9 * Software Foundation; either version 3 of the License, or (at your option)
12 * This program is distributed in the hope that it will be useful, but WITHOUT
13 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
17 * You should have received a copy of the GNU General Public License along with
18 * this program; if not, see <http://www.gnu.org/licenses/>.
27 #include <sys/fcntl.h>
29 #include "libiberty.h"
32 #include "sim-config.h"
34 #include "gdb/remote-sim.h"
35 #include "gdb/signals.h"
39 extern struct disassemble_info dinfo
;
40 extern struct pstate sregs
;
41 extern struct estate ebase
;
43 extern int current_target_byte_order
;
50 extern int sis_verbose
;
51 extern char *sis_version
;
52 extern struct estate ebase
;
53 extern struct evcell evbuf
[];
54 extern struct irqcell irqarr
[];
55 extern int irqpend
, ext_irl
;
58 extern int sparclite_board
;
60 extern char uart_dev1
[], uart_dev2
[];
62 int sis_gdb_break
= 1;
64 host_callback
*sim_callback
;
67 run_sim(sregs
, icount
, dis
)
75 (*sim_callback
->printf_filtered
) (sim_callback
, "resuming at %x\n",
78 sregs
->starttime
= get_time();
80 if ((sregs
->pc
!= 0) && (ebase
.simtime
== 0))
82 while (!sregs
->err_mode
& (icount
> 0)) {
88 if (sregs
->psr
& 0x080)
93 #if 0 /* DELETE ME! for debugging purposes only */
95 if (sregs
->pc
== 0 || sregs
->npc
== 0)
96 printf ("bogus pc or npc\n");
98 mexc
= memory_read(sregs
->asi
, sregs
->pc
, &sregs
->inst
,
100 #if 1 /* DELETE ME! for debugging purposes only */
102 printf("pc %x, np %x, sp %x, fp %x, wm %x, cw %x, i %08x\n",
103 sregs
->pc
, sregs
->npc
,
104 sregs
->r
[(((sregs
->psr
& 7) << 4) + 14) & 0x7f],
105 sregs
->r
[(((sregs
->psr
& 7) << 4) + 30) & 0x7f],
113 sregs
->pc
= sregs
->npc
;
114 sregs
->npc
= sregs
->npc
+ 4;
116 if (ext_irl
) irq
= check_interrupts(sregs
);
119 sregs
->trap
= I_ACC_EXC
;
121 if ((sis_gdb_break
) && (sregs
->inst
== 0x91d02001)) {
123 (*sim_callback
->printf_filtered
) (sim_callback
,
124 "SW BP hit at %x\n", sregs
->pc
);
130 dispatch_instruction(sregs
);
136 sregs
->err_mode
= execute_trap(sregs
);
145 sregs
->tottime
+= get_time() - sregs
->starttime
;
149 error_mode(sregs
->pc
);
154 (*sim_callback
->printf_filtered
) (sim_callback
,
155 "HW BP hit at %x\n", sregs
->pc
);
166 sim_open (kind
, callback
, abfd
, argv
)
168 struct host_callback_struct
*callback
;
177 sim_callback
= callback
;
181 while (stat
< argc
) {
182 if (argv
[stat
][0] == '-') {
183 if (strcmp(argv
[stat
], "-v") == 0) {
186 if (strcmp(argv
[stat
], "-nfp") == 0) {
189 if (strcmp(argv
[stat
], "-ift") == 0) {
192 if (strcmp(argv
[stat
], "-sparclite") == 0) {
195 if (strcmp(argv
[stat
], "-sparclite-board") == 0) {
198 if (strcmp(argv
[stat
], "-dumbio") == 0) {
201 if (strcmp(argv
[stat
], "-wrp") == 0) {
204 if (strcmp(argv
[stat
], "-rom8") == 0) {
207 if (strcmp(argv
[stat
], "-uben") == 0) {
210 if (strcmp(argv
[stat
], "-uart1") == 0) {
211 if ((stat
+ 1) < argc
)
212 strcpy(uart_dev1
, argv
[++stat
]);
214 if (strcmp(argv
[stat
], "-uart2") == 0) {
215 if ((stat
+ 1) < argc
)
216 strcpy(uart_dev2
, argv
[++stat
]);
218 if (strcmp(argv
[stat
], "-nogdb") == 0) {
221 if (strcmp(argv
[stat
], "-freq") == 0) {
222 if ((stat
+ 1) < argc
) {
223 freq
= strtol(argv
[++stat
], (char **)NULL
, 0);
226 if (strncmp(argv
[stat
], "--sysroot=", sizeof("--sysroot=") - 1) == 0) {
227 /* Ignore until we start to support this. */
229 (*sim_callback
->printf_filtered
) (sim_callback
,
230 "unknown option %s\n",
234 bfd_load(argv
[stat
]);
239 (*sim_callback
->printf_filtered
) (sim_callback
, "\n SIS - SPARC instruction simulator %s\n", sis_version
);
240 (*sim_callback
->printf_filtered
) (sim_callback
, " Bug-reports to Jiri Gaisler ESA/ESTEC (jgais@wd.estec.esa.nl)\n");
242 (*sim_callback
->printf_filtered
) (sim_callback
, "no FPU\n");
244 (*sim_callback
->printf_filtered
) (sim_callback
, "simulating Sparclite\n");
246 (*sim_callback
->printf_filtered
) (sim_callback
, "dumb IO (no input, dumb output)\n");
247 if (sis_gdb_break
== 0)
248 (*sim_callback
->printf_filtered
) (sim_callback
, "disabling GDB trap handling for breakpoints\n");
250 (*sim_callback
->printf_filtered
) (sim_callback
, " ERC32 freq %d Mhz\n", freq
);
253 sregs
.freq
= freq
? freq
: 15;
254 termsave
= fcntl(0, F_GETFL
, 0);
255 INIT_DISASSEMBLE_INFO(dinfo
, stdout
,(fprintf_ftype
)fprintf
);
256 dinfo
.endian
= BFD_ENDIAN_BIG
;
263 /* Fudge our descriptor for now. */
268 sim_close(sd
, quitting
)
274 fcntl(0, F_SETFL
, termsave
);
279 sim_load(sd
, prog
, abfd
, from_tty
)
290 sim_create_inferior(sd
, abfd
, argv
, env
)
296 bfd_vma start_address
= 0;
298 start_address
= bfd_get_start_address (abfd
);
303 sregs
.pc
= start_address
& ~3;
304 sregs
.npc
= sregs
.pc
+ 4;
309 sim_store_register(sd
, regno
, value
, length
)
312 unsigned char *value
;
315 /* FIXME: Review the computation of regval. */
317 if (current_target_byte_order
== BIG_ENDIAN
)
318 regval
= (value
[0] << 24) | (value
[1] << 16)
319 | (value
[2] << 8) | value
[3];
321 regval
= (value
[3] << 24) | (value
[2] << 16)
322 | (value
[1] << 8) | value
[0];
323 set_regi(&sregs
, regno
, regval
);
329 sim_fetch_register(sd
, regno
, buf
, length
)
335 get_regi(&sregs
, regno
, buf
);
340 sim_write(sd
, mem
, buf
, length
)
343 const unsigned char *buf
;
346 return (sis_memory_write(mem
, buf
, length
));
350 sim_read(sd
, mem
, buf
, length
)
356 return (sis_memory_read(mem
, buf
, length
));
360 sim_info(sd
, verbose
)
370 sim_stop_reason(sd
, reason
, sigrc
)
372 enum sim_stop
* reason
;
378 *reason
= sim_stopped
;
379 *sigrc
= GDB_SIGNAL_INT
;
384 *reason
= sim_stopped
;
385 *sigrc
= GDB_SIGNAL_TRAP
;
389 *reason
= sim_exited
;
395 /* Flush all register windows out to the stack. Starting after the invalid
396 window, flush all windows up to, and including the current window. This
397 allows GDB to do backtraces and look at local variables for frames that
398 are still in the register windows. Note that strictly speaking, this
399 behavior is *wrong* for several reasons. First, it doesn't use the window
400 overflow handlers. It therefore assumes standard frame layouts and window
401 handling policies. Second, it changes system state behind the back of the
402 target program. I expect this to mainly pose problems when debugging trap
414 /* Keep current window handy */
416 cwp
= sregs
.psr
& PSR_CWP
;
418 /* Calculate the invalid window from the wim. */
420 for (invwin
= 0; invwin
<= PSR_CWP
; invwin
++)
421 if ((sregs
.wim
>> invwin
) & 1)
424 /* Start saving with the window after the invalid window. */
426 invwin
= (invwin
- 1) & PSR_CWP
;
428 for (win
= invwin
; ; win
= (win
- 1) & PSR_CWP
)
433 sp
= sregs
.r
[(win
* 16 + 14) & 0x7f];
435 if (sis_verbose
> 2) {
436 uint32 fp
= sregs
.r
[(win
* 16 + 30) & 0x7f];
437 printf("flush_window: win %d, sp %x, fp %x\n", win
, sp
, fp
);
441 for (i
= 0; i
< 16; i
++)
442 memory_write (11, sp
+ 4 * i
, &sregs
.r
[(win
* 16 + 16 + i
) & 0x7f], 2,
451 sim_resume(SIM_DESC sd
, int step
, int siggnal
)
453 simstat
= run_sim(&sregs
, UINT64_MAX
, 0);
455 if (sis_gdb_break
) flush_windows ();
459 sim_do_command(sd
, cmd
)
463 exec_cmd(&sregs
, cmd
);
467 sim_complete_command (SIM_DESC sd
, const char *text
, const char *word
)
472 #if 0 /* FIXME: These shouldn't exist. */
475 sim_insert_breakpoint(int addr
)
477 if (sregs
.bptnum
< BPT_MAX
) {
478 sregs
.bpts
[sregs
.bptnum
] = addr
& ~0x3;
481 (*sim_callback
->printf_filtered
) (sim_callback
, "inserted HW BP at %x\n", addr
);
488 sim_remove_breakpoint(int addr
)
492 while ((i
< sregs
.bptnum
) && (sregs
.bpts
[i
] != addr
))
494 if (addr
== sregs
.bpts
[i
]) {
495 for (; i
< sregs
.bptnum
- 1; i
++)
496 sregs
.bpts
[i
] = sregs
.bpts
[i
+ 1];
499 (*sim_callback
->printf_filtered
) (sim_callback
, "removed HW BP at %x\n", addr
);