1 /* This file is part of SIS (SPARC instruction simulator)
2
3 Copyright (C) 1995-2024 Free Software Foundation, Inc.
4 Contributed by Jiri Gaisler, European Space Agency
5
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
10
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with this program. If not, see <http://www.gnu.org/licenses/>. */
18
19 /* This must come before any other includes. */
20 #include "defs.h"
21
22 #include <signal.h>
23 #include <string.h>
24 #include <stdlib.h>
25 #include <stdio.h>
26 #include <sys/fcntl.h>
27 #include "sis.h"
28 #include <dis-asm.h>
29 #include "sim-config.h"
30 #include <inttypes.h>
31
32 #define VAL(x) strtol(x,(char **)NULL,0)
33
34 /* Structures and functions from readline library */
35
36 #include "readline/readline.h"
37 #include "readline/history.h"
38
39 /* Command history buffer length - MUST be binary */
40 #define HIST_LEN 64
41
42 extern struct disassemble_info dinfo;
43 extern struct pstate sregs;
44 extern struct estate ebase;
45
46 extern int ctrl_c;
47 extern int nfp;
48 extern int ift;
49 extern int wrp;
50 extern int rom8;
51 extern int uben;
52 extern int sis_verbose;
53 extern char *sis_version;
54 extern struct estate ebase;
55 extern struct evcell evbuf[];
56 extern struct irqcell irqarr[];
57 extern int irqpend, ext_irl;
58 extern int termsave;
59 extern int sparclite;
60 extern int dumbio;
61 extern char uart_dev1[];
62 extern char uart_dev2[];
63 extern uint32_t last_load_addr;
64
65 #ifdef ERA
66 extern int era;
67 #endif
68
69 int
run_sim(struct pstate * sregs,uint64_t icount,int dis)70 run_sim(struct pstate *sregs, uint64_t icount, int dis)
71 {
72 int irq, mexc, deb;
73
74 sregs->starttime = get_time();
75 init_stdio();
76 if (sregs->err_mode) icount = 0;
77 deb = dis || sregs->histlen || sregs->bptnum;
78 irq = 0;
79 while (icount > 0) {
80
81 mexc = memory_iread (sregs->pc, &sregs->inst, &sregs->hold);
82 sregs->icnt = 1;
83 if (sregs->annul) {
84 sregs->annul = 0;
85 sregs->pc = sregs->npc;
86 sregs->npc = sregs->npc + 4;
87 } else {
88 sregs->fhold = 0;
89 if (ext_irl) irq = check_interrupts(sregs);
90 if (!irq) {
91 if (mexc) {
92 sregs->trap = I_ACC_EXC;
93 } else {
94 if (deb) {
95 if ((sregs->bphit = check_bpt(sregs)) != 0) {
96 restore_stdio();
97 return BPT_HIT;
98 }
99 if (sregs->histlen) {
100 sregs->histbuf[sregs->histind].addr = sregs->pc;
101 sregs->histbuf[sregs->histind].time = ebase.simtime;
102 sregs->histind++;
103 if (sregs->histind >= sregs->histlen)
104 sregs->histind = 0;
105 }
106 if (dis) {
107 printf(" %8" PRIu64 " ", ebase.simtime);
108 dis_mem(sregs->pc, 1, &dinfo);
109 }
110 }
111 dispatch_instruction(sregs);
112 icount--;
113 }
114 }
115 if (sregs->trap) {
116 irq = 0;
117 sregs->err_mode = execute_trap(sregs);
118 if (sregs->err_mode) {
119 error_mode(sregs->pc);
120 icount = 0;
121 }
122 }
123 }
124 advance_time(sregs);
125 if (ctrl_c || (sregs->tlimit <= ebase.simtime)) {
126 icount = 0;
127 if (sregs->tlimit <= ebase.simtime) sregs->tlimit = -1;
128 }
129 }
130 sregs->tottime += get_time() - sregs->starttime;
131 restore_stdio();
132 if (sregs->err_mode)
133 return ERROR;
134 if (ctrl_c) {
135 ctrl_c = 0;
136 return CTRL_C;
137 }
138 return TIME_OUT;
139 }
140
141 static int ATTRIBUTE_PRINTF (3, 4)
fprintf_styled(void * stream,enum disassembler_style style,const char * fmt,...)142 fprintf_styled (void *stream, enum disassembler_style style,
143 const char *fmt, ...)
144 {
145 int ret;
146 FILE *out = (FILE *) stream;
147 va_list args;
148
149 va_start (args, fmt);
150 ret = vfprintf (out, fmt, args);
151 va_end (args);
152
153 return ret;
154 }
155
156 int
main(int argc,char ** argv)157 main(int argc, char **argv)
158 {
159
160 int cont = 1;
161 int stat = 1;
162 int freq = 14;
163 int copt = 0;
164
165 char *cfile, *bacmd;
166 char *cmdq[HIST_LEN];
167 int cmdi = 0;
168 int i;
169 int lfile = 0;
170
171 cfile = 0;
172 for (i = 0; i < 64; i++)
173 cmdq[i] = 0;
174 printf("\n SIS - SPARC instruction simulator %s, copyright Jiri Gaisler 1995\n", sis_version);
175 printf(" Bug-reports to jgais@wd.estec.esa.nl\n\n");
176 while (stat < argc) {
177 if (argv[stat][0] == '-') {
178 if (strcmp(argv[stat], "-v") == 0) {
179 sis_verbose += 1;
180 } else if (strcmp(argv[stat], "-c") == 0) {
181 if ((stat + 1) < argc) {
182 copt = 1;
183 cfile = argv[++stat];
184 }
185 } else if (strcmp(argv[stat], "-nfp") == 0)
186 nfp = 1;
187 else if (strcmp(argv[stat], "-ift") == 0)
188 ift = 1;
189 else if (strcmp(argv[stat], "-wrp") == 0)
190 wrp = 1;
191 else if (strcmp(argv[stat], "-rom8") == 0)
192 rom8 = 1;
193 else if (strcmp(argv[stat], "-uben") == 0)
194 uben = 1;
195 else if (strcmp(argv[stat], "-uart1") == 0) {
196 if ((stat + 1) < argc)
197 strcpy(uart_dev1, argv[++stat]);
198 } else if (strcmp(argv[stat], "-uart2") == 0) {
199 if ((stat + 1) < argc)
200 strcpy(uart_dev2, argv[++stat]);
201 } else if (strcmp(argv[stat], "-freq") == 0) {
202 if ((stat + 1) < argc)
203 freq = VAL(argv[++stat]);
204 } else if (strcmp(argv[stat], "-sparclite") == 0) {
205 sparclite = 1;
206 #ifdef ERA
207 } else if (strcmp(argv[stat], "-era") == 0) {
208 era = 1;
209 #endif
210 } else if (strcmp(argv[stat], "-dumbio") == 0) {
211 dumbio = 1;
212 } else {
213 printf("unknown option %s\n", argv[stat]);
214 usage();
215 exit(1);
216 }
217 } else {
218 lfile = stat;
219 }
220 stat++;
221 }
222 if (nfp)
223 printf("FPU disabled\n");
224 #ifdef ERA
225 if (era)
226 printf("ERA ECC emulation enabled\n");
227 #endif
228 sregs.freq = freq;
229
230 INIT_DISASSEMBLE_INFO(dinfo, stdout, (fprintf_ftype) fprintf,
231 (fprintf_styled_ftype) fprintf_styled);
232 #ifdef HOST_LITTLE_ENDIAN
233 dinfo.endian = BFD_ENDIAN_LITTLE;
234 #else
235 dinfo.endian = BFD_ENDIAN_BIG;
236 #endif
237
238 #ifdef F_GETFL
239 termsave = fcntl(0, F_GETFL, 0);
240 #endif
241 using_history();
242 init_signals();
243 ebase.simtime = 0;
244 reset_all();
245 init_bpt(&sregs);
246 init_sim();
247 if (lfile)
248 last_load_addr = bfd_load(argv[lfile]);
249 #ifdef STAT
250 reset_stat(&sregs);
251 #endif
252
253 if (copt) {
254 bacmd = (char *) malloc(256);
255 strcpy(bacmd, "batch ");
256 strcat(bacmd, cfile);
257 exec_cmd(&sregs, bacmd);
258 }
259 while (cont) {
260
261 if (cmdq[cmdi] != 0) {
262 #if 0
263 remove_history(cmdq[cmdi]);
264 #else
265 remove_history(cmdi);
266 #endif
267 free(cmdq[cmdi]);
268 cmdq[cmdi] = 0;
269 }
270 cmdq[cmdi] = readline("sis> ");
271 if (cmdq[cmdi] && *cmdq[cmdi])
272 add_history(cmdq[cmdi]);
273 if (cmdq[cmdi])
274 stat = exec_cmd(&sregs, cmdq[cmdi]);
275 else {
276 puts("\n");
277 exit(0);
278 }
279 switch (stat) {
280 case OK:
281 break;
282 case CTRL_C:
283 printf("\b\bInterrupt!\n");
284 ATTRIBUTE_FALLTHROUGH;
285 case TIME_OUT:
286 printf(" Stopped at time %" PRIu64 " (%.3f ms)\n", ebase.simtime,
287 ((double) ebase.simtime / (double) sregs.freq) / 1000.0);
288 break;
289 case BPT_HIT:
290 printf("breakpoint at 0x%08x reached\n", sregs.pc);
291 sregs.bphit = 1;
292 break;
293 case ERROR:
294 printf("IU in error mode (%d)\n", sregs.trap);
295 stat = 0;
296 printf(" %8" PRIu64 " ", ebase.simtime);
297 dis_mem(sregs.pc, 1, &dinfo);
298 break;
299 default:
300 break;
301 }
302 ctrl_c = 0;
303 stat = OK;
304
305 cmdi = (cmdi + 1) & (HIST_LEN - 1);
306
307 }
308 return 0;
309 }
310
311