[binutils.git] / sim / erc32 / sis.c

/*
 * This file is part of SIS.
 * 
 * SIS, SPARC instruction simulator. Copyright (C) 1995 Jiri Gaisler, European
 * Space Agency
 * 
 * This program is free software; you can redistribute it and/or modify it under
 * the terms of the GNU General Public License as published by the Free
 * Software Foundation; either version 2 of the License, or (at your option)
 * any later version.
 * 
 * This program is distributed in the hope that it will be useful, but WITHOUT
 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 * FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
 * more details.
 * 
 * You should have received a copy of the GNU General Public License along with
 * this program; if not, write to the Free Software Foundation, Inc., 675
 * Mass Ave, Cambridge, MA 02139, USA.
 * 
 */

#include "config.h"
#include <signal.h>
#include <string.h>
#ifdef HAVE_STDLIB_H
#include <stdlib.h>
#endif
#include <stdio.h>
#include <time.h>
#include <sys/fcntl.h>
#include "sis.h"
#include <dis-asm.h>
#include "sim-config.h"

#ifndef fprintf
extern          fprintf();
#endif

#define	VAL(x)	strtol(x,(char **)NULL,0)

/* Structures and functions from readline library */

typedef struct {
  char *line;
  char *data;
} HIST_ENTRY;

extern char *	readline PARAMS ((char *prompt));
extern void	using_history PARAMS ((void));
extern void	add_history PARAMS ((char *string));
extern HIST_ENTRY *remove_history PARAMS ((int which));


/* Command history buffer length - MUST be binary */
#define HIST_LEN	64

extern struct disassemble_info dinfo;
extern struct pstate sregs;
extern struct estate ebase;

extern int      ctrl_c;
extern int      nfp;
extern int      ift;
extern int      wrp;
extern int      rom8;
extern int      uben;
extern int      sis_verbose;
extern char    *sis_version;
extern struct estate ebase;
extern struct evcell evbuf[];
extern struct irqcell irqarr[];
extern int      irqpend, ext_irl;
extern int      termsave;
extern int      sparclite;
extern int      dumbio;
extern char     uart_dev1[];
extern char     uart_dev2[];
extern uint32   last_load_addr;

#ifdef ERA
extern int era;
#endif

int
run_sim(sregs, icount, dis)
    struct pstate  *sregs;
    unsigned int    icount;
    int             dis;
{
    int             irq, mexc, deb, asi;

    sregs->starttime = time(NULL);
    init_stdio();
    if (sregs->err_mode) icount = 0;
    deb = dis || sregs->histlen || sregs->bptnum;
    irq = 0;
    while (icount > 0) {

	if (sregs->psr & 0x080)
	    asi = 9;
   	else
	    asi = 8;
	mexc = memory_read(asi, sregs->pc, &sregs->inst, 2, &sregs->hold);
	sregs->icnt = 1;
	if (sregs->annul) {
	    sregs->annul = 0;
	    sregs->pc = sregs->npc;
	    sregs->npc = sregs->npc + 4;
	} else {
	    sregs->fhold = 0;
	    if (ext_irl) irq = check_interrupts(sregs);
	    if (!irq) {
		if (mexc) {
		    sregs->trap = I_ACC_EXC;
		} else {
		    if (deb) {
	    		if ((sregs->bphit = check_bpt(sregs)) != 0) {
            		    restore_stdio();
	    		    return (BPT_HIT);
	    		}
		        if (sregs->histlen) {
			    sregs->histbuf[sregs->histind].addr = sregs->pc;
			    sregs->histbuf[sregs->histind].time = ebase.simtime;
			    sregs->histind++;
			    if (sregs->histind >= sregs->histlen)
			        sregs->histind = 0;
		        }
		        if (dis) {
			    printf(" %8u ", ebase.simtime);
			    dis_mem(sregs->pc, 1, &dinfo);
		        }
		    }
		    dispatch_instruction(sregs);
		    icount--;
		}
	    }
	    if (sregs->trap) {
		irq = 0;
		sregs->err_mode = execute_trap(sregs);
        	if (sregs->err_mode) {
	            error_mode(sregs->pc);
	            icount = 0;
	        }
	    }
	}
	advance_time(sregs);
	if (ctrl_c || (sregs->tlimit <= ebase.simtime)) {
	    icount = 0;
	    if (sregs->tlimit <= ebase.simtime) sregs->tlimit = -1;
	}
    }
    sregs->tottime += time(NULL) - sregs->starttime;
    restore_stdio();
    if (sregs->err_mode)
	return (ERROR);
    if (ctrl_c) {
	ctrl_c = 0;
	return (CTRL_C);
    }
    return (TIME_OUT);
}

int
main(argc, argv)
    int             argc;
    char          **argv;
{

    int             cont = 1;
    int             stat = 1;
    int             freq = 14;
    int             copt = 0;

    char           *cfile, *bacmd;
    char           *cmdq[HIST_LEN];
    int             cmdi = 0;
    int             i;

    cfile = 0;
    for (i = 0; i < 64; i++)
	cmdq[i] = 0;
    printf("\n SIS - SPARC intruction simulator %s,  copyright Jiri Gaisler 1995\n", sis_version);
    printf(" Bug-reports to [email protected]\n\n");
    while (stat < argc) {
	if (argv[stat][0] == '-') {
	    if (strcmp(argv[stat], "-v") == 0) {
		sis_verbose = 1;
	    } else if (strcmp(argv[stat], "-c") == 0) {
		if ((stat + 1) < argc) {
		    copt = 1;
		    cfile = argv[++stat];
		}
	    } else if (strcmp(argv[stat], "-nfp") == 0)
		nfp = 1;
	    else if (strcmp(argv[stat], "-ift") == 0)
		ift = 1;
	    else if (strcmp(argv[stat], "-wrp") == 0)
		wrp = 1;
	    else if (strcmp(argv[stat], "-rom8") == 0)
		rom8 = 1;
	    else if (strcmp(argv[stat], "-uben") == 0)
		uben = 1;
	    else if (strcmp(argv[stat], "-uart1") == 0) {
		if ((stat + 1) < argc)
		    strcpy(uart_dev1, argv[++stat]);
	    } else if (strcmp(argv[stat], "-uart2") == 0) {
		if ((stat + 1) < argc)
		    strcpy(uart_dev2, argv[++stat]);
	    } else if (strcmp(argv[stat], "-freq") == 0) {
		if ((stat + 1) < argc)
		    freq = VAL(argv[++stat]);
	    } else if (strcmp(argv[stat], "-sparclite") == 0) {
		sparclite = 1;
#ifdef ERA
	    } else if (strcmp(argv[stat], "-era") == 0) {
		era = 1;
#endif
            } else if (strcmp(argv[stat], "-dumbio") == 0) {
		dumbio = 1;
	    } else {
		printf("unknown option %s\n", argv[stat]);
		usage();
		exit(1);
	    }
	} else {
	    last_load_addr = bfd_load(argv[stat]);
	}
	stat++;
    }
    if (nfp)
	printf("FPU disabled\n");
#ifdef ERA
    if (era)
	printf("ERA ECC emulation enabled\n");
#endif
    sregs.freq = freq;

    INIT_DISASSEMBLE_INFO(dinfo, stdout, (fprintf_ftype) fprintf);
    dinfo.endian = BFD_ENDIAN_BIG;

    termsave = fcntl(0, F_GETFL, 0);
    using_history();
    init_signals();
    ebase.simtime = 0;
    reset_all();
    init_bpt(&sregs);
    init_sim();
#ifdef STAT
    reset_stat(&sregs);
#endif

    if (copt) {
	bacmd = (char *) malloc(256);
	strcpy(bacmd, "batch ");
	strcat(bacmd, cfile);
	exec_cmd(&sregs, bacmd);
    }
    while (cont) {

	if (cmdq[cmdi] != 0) {
#if 0
	    remove_history(cmdq[cmdi]);
#else
	    remove_history(cmdi);
#endif
	    free(cmdq[cmdi]);
	    cmdq[cmdi] = 0;
	}
	cmdq[cmdi] = readline("sis> ");
	if (cmdq[cmdi] && *cmdq[cmdi])
	    add_history(cmdq[cmdi]);
	if (cmdq[cmdi])
	    stat = exec_cmd(&sregs, cmdq[cmdi]);
	else {
	    puts("\n");
	    exit(0);
	}
	switch (stat) {
	case OK:
	    break;
	case CTRL_C:
	    printf("\b\bInterrupt!\n");
	case TIME_OUT:
	    printf(" Stopped at time %d (%.3f ms)\n", ebase.simtime, 
	      ((double) ebase.simtime / (double) sregs.freq) / 1000.0);
	    break;
	case BPT_HIT:
	    printf("breakpoint at 0x%08x reached\n", sregs.pc);
	    sregs.bphit = 1;
	    break;
	case ERROR:
	    printf("IU in error mode (%d)\n", sregs.trap);
	    stat = 0;
	    printf(" %8d ", ebase.simtime);
	    dis_mem(sregs.pc, 1, &dinfo);
	    break;
	default:
	    break;
	}
	ctrl_c = 0;
	stat = OK;

	cmdi = (cmdi + 1) & (HIST_LEN - 1);

    }
    return 0;
}
Commit	Line	Data
c906108c SS	1	/*
	2	* This file is part of SIS.
	3	*
	4	* SIS, SPARC instruction simulator. Copyright (C) 1995 Jiri Gaisler, European
	5	* Space Agency
	6	*
	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 2 of the License, or (at your option)
	10	* any later version.
	11	*
	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
	15	* more details.
	16	*
	17	* You should have received a copy of the GNU General Public License along with
	18	* this program; if not, write to the Free Software Foundation, Inc., 675
	19	* Mass Ave, Cambridge, MA 02139, USA.
	20	*
	21	*/
	22
	23	#include "config.h"
	24	#include <signal.h>
	25	#include <string.h>
	26	#ifdef HAVE_STDLIB_H
	27	#include <stdlib.h>
	28	#endif
	29	#include <stdio.h>
	30	#include <time.h>
	31	#include <sys/fcntl.h>
	32	#include "sis.h"
	33	#include <dis-asm.h>
	34	#include "sim-config.h"
	35
	36	#ifndef fprintf
	37	extern fprintf();
	38	#endif
	39
	40	#define VAL(x) strtol(x,(char **)NULL,0)
	41
	42	/* Structures and functions from readline library */
	43
	44	typedef struct {
	45	char *line;
	46	char *data;
	47	} HIST_ENTRY;
	48
	49	extern char * readline PARAMS ((char *prompt));
	50	extern void using_history PARAMS ((void));
	51	extern void add_history PARAMS ((char *string));
	52	extern HIST_ENTRY *remove_history PARAMS ((int which));
	53
	54
	55
	56	/* Command history buffer length - MUST be binary */
	57	#define HIST_LEN 64
	58
	59	extern struct disassemble_info dinfo;
	60	extern struct pstate sregs;
	61	extern struct estate ebase;
	62
	63	extern int ctrl_c;
	64	extern int nfp;
65	extern int ift;
66	extern int wrp;
67	extern int rom8;
68	extern int uben;
69	extern int sis_verbose;
70	extern char *sis_version;
71	extern struct estate ebase;
72	extern struct evcell evbuf[];
73	extern struct irqcell irqarr[];
74	extern int irqpend, ext_irl;
75	extern int termsave;
76	extern int sparclite;
77	extern int dumbio;
78	extern char uart_dev1[];
79	extern char uart_dev2[];
80	extern uint32 last_load_addr;
81
82	#ifdef ERA
83	extern int era;
84	#endif
85
86	int
87	run_sim(sregs, icount, dis)
88	struct pstate *sregs;
89	unsigned int icount;
90	int dis;
91	{
92	int irq, mexc, deb, asi;
93
94	sregs->starttime = time(NULL);
95	init_stdio();
96	if (sregs->err_mode) icount = 0;
97	deb = dis \|\| sregs->histlen \|\| sregs->bptnum;
98	irq = 0;
99	while (icount > 0) {
100
101	if (sregs->psr & 0x080)
102	asi = 9;
103	else
104	asi = 8;
105	mexc = memory_read(asi, sregs->pc, &sregs->inst, 2, &sregs->hold);
106	sregs->icnt = 1;
107	if (sregs->annul) {
108	sregs->annul = 0;
109	sregs->pc = sregs->npc;
110	sregs->npc = sregs->npc + 4;
111	} else {
112	sregs->fhold = 0;
113	if (ext_irl) irq = check_interrupts(sregs);
114	if (!irq) {
115	if (mexc) {
116	sregs->trap = I_ACC_EXC;
117	} else {
118	if (deb) {
119	if ((sregs->bphit = check_bpt(sregs)) != 0) {
120	restore_stdio();
121	return (BPT_HIT);
122	}
123	if (sregs->histlen) {
124	sregs->histbuf[sregs->histind].addr = sregs->pc;
125	sregs->histbuf[sregs->histind].time = ebase.simtime;
126	sregs->histind++;
127	if (sregs->histind >= sregs->histlen)
128	sregs->histind = 0;
129	}
130	if (dis) {
131	printf(" %8u ", ebase.simtime);
132	dis_mem(sregs->pc, 1, &dinfo);
133	}
134	}
135	dispatch_instruction(sregs);
136	icount--;
137	}
138	}
139	if (sregs->trap) {
140	irq = 0;
141	sregs->err_mode = execute_trap(sregs);
142	if (sregs->err_mode) {
143	error_mode(sregs->pc);
144	icount = 0;
145	}
146	}
147	}
148	advance_time(sregs);
149	if (ctrl_c \|\| (sregs->tlimit <= ebase.simtime)) {
150	icount = 0;
151	if (sregs->tlimit <= ebase.simtime) sregs->tlimit = -1;
152	}
153	}
154	sregs->tottime += time(NULL) - sregs->starttime;
155	restore_stdio();
156	if (sregs->err_mode)
157	return (ERROR);
158	if (ctrl_c) {
159	ctrl_c = 0;
160	return (CTRL_C);
161	}
162	return (TIME_OUT);
163	}
164
165	int
166	main(argc, argv)
167	int argc;
168	char **argv;
169	{
170
171	int cont = 1;
172	int stat = 1;
173	int freq = 14;
174	int copt = 0;
175
176	char cfile, bacmd;
177	char *cmdq[HIST_LEN];
178	int cmdi = 0;
179	int i;
180
181	cfile = 0;
182	for (i = 0; i < 64; i++)
183	cmdq[i] = 0;
184	printf("\n SIS - SPARC intruction simulator %s, copyright Jiri Gaisler 1995\n", sis_version);
185	printf(" Bug-reports to [email protected]\n\n");
186	while (stat < argc) {
187	if (argv[stat][0] == '-') {
188	if (strcmp(argv[stat], "-v") == 0) {
189	sis_verbose = 1;
190	} else if (strcmp(argv[stat], "-c") == 0) {
191	if ((stat + 1) < argc) {
192	copt = 1;
193	cfile = argv[++stat];
194	}
195	} else if (strcmp(argv[stat], "-nfp") == 0)
196	nfp = 1;
197	else if (strcmp(argv[stat], "-ift") == 0)
198	ift = 1;
199	else if (strcmp(argv[stat], "-wrp") == 0)
200	wrp = 1;
201	else if (strcmp(argv[stat], "-rom8") == 0)
202	rom8 = 1;
203	else if (strcmp(argv[stat], "-uben") == 0)
204	uben = 1;
205	else if (strcmp(argv[stat], "-uart1") == 0) {
206	if ((stat + 1) < argc)
207	strcpy(uart_dev1, argv[++stat]);
208	} else if (strcmp(argv[stat], "-uart2") == 0) {
209	if ((stat + 1) < argc)
210	strcpy(uart_dev2, argv[++stat]);
211	} else if (strcmp(argv[stat], "-freq") == 0) {
212	if ((stat + 1) < argc)
213	freq = VAL(argv[++stat]);
214	} else if (strcmp(argv[stat], "-sparclite") == 0) {
215	sparclite = 1;
216	#ifdef ERA
217	} else if (strcmp(argv[stat], "-era") == 0) {
218	era = 1;
219	#endif
220	} else if (strcmp(argv[stat], "-dumbio") == 0) {
221	dumbio = 1;
222	} else {
223	printf("unknown option %s\n", argv[stat]);
224	usage();
225	exit(1);
226	}
227	} else {
228	last_load_addr = bfd_load(argv[stat]);
229	}
230	stat++;
231	}
232	if (nfp)
233	printf("FPU disabled\n");
234	#ifdef ERA
235	if (era)
236	printf("ERA ECC emulation enabled\n");
237	#endif
238	sregs.freq = freq;
239
240	INIT_DISASSEMBLE_INFO(dinfo, stdout, (fprintf_ftype) fprintf);
241	dinfo.endian = BFD_ENDIAN_BIG;
242
243	termsave = fcntl(0, F_GETFL, 0);
244	using_history();
245	init_signals();
246	ebase.simtime = 0;
247	reset_all();
248	init_bpt(&sregs);
249	init_sim();
250	#ifdef STAT
251	reset_stat(&sregs);
252	#endif
253
254	if (copt) {
255	bacmd = (char *) malloc(256);
256	strcpy(bacmd, "batch ");
257	strcat(bacmd, cfile);
258	exec_cmd(&sregs, bacmd);
259	}
260	while (cont) {
261
262	if (cmdq[cmdi] != 0) {
263	#if 0
264	remove_history(cmdq[cmdi]);
265	#else
266	remove_history(cmdi);
267	#endif
268	free(cmdq[cmdi]);
269	cmdq[cmdi] = 0;
270	}
271	cmdq[cmdi] = readline("sis> ");
272	if (cmdq[cmdi] && *cmdq[cmdi])
273	add_history(cmdq[cmdi]);
274	if (cmdq[cmdi])
275	stat = exec_cmd(&sregs, cmdq[cmdi]);
276	else {
277	puts("\n");
278	exit(0);
279	}
280	switch (stat) {
281	case OK:
282	break;
283	case CTRL_C:
284	printf("\b\bInterrupt!\n");
285	case TIME_OUT:
286	printf(" Stopped at time %d (%.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(" %8d ", 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