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