From f24b7b69ee85bc69a18926dbcfe4427b7c41356a Mon Sep 17 00:00:00 2001 From: Jackie Smith Cashion Date: Mon, 16 Sep 1996 10:47:20 +0000 Subject: [PATCH] Mon Sep 16 11:38:16 1996 James G. Smith * interp.c (sim_monitor): Improved monitor printf simulation. Tidied up simulator warnings, and added "--log" option for directing warning message output. * gencode.c: Use sim_warning() rather than WARNING macro. --- sim/mips/ChangeLog | 32 +++++ sim/mips/gencode.c | 8 +- sim/mips/interp.c | 306 ++++++++++++++++++++++++++++++++++++--------- 3 files changed, 284 insertions(+), 62 deletions(-) diff --git a/sim/mips/ChangeLog b/sim/mips/ChangeLog index 3391ebf8ede..9acd9c3b3ad 100644 --- a/sim/mips/ChangeLog +++ b/sim/mips/ChangeLog @@ -1,3 +1,35 @@ +Mon Sep 16 11:38:16 1996 James G. Smith + + * interp.c (sim_monitor): Improved monitor printf + simulation. Tidied up simulator warnings, and added "--log" option + for directing warning message output. + * gencode.c: Use sim_warning() rather than WARNING macro. + +Thu Aug 22 15:03:12 1996 Ian Lance Taylor + + * Makefile.in (gencode): Depend upon gencode.o, getopt.o, and + getopt1.o, rather than on gencode.c. Link objects together. + Don't link against -liberty. + (gencode.o, getopt.o, getopt1.o): New targets. + * gencode.c: Include and "ansidecl.h". + (AND): Undefine after including "ansidecl.h". + (ULONG_MAX): Define if not defined. + (OP_*): Don't define macros; now defined in opcode/mips.h. + (main): Call my_strtoul rather than strtoul. + (my_strtoul): New static function. + +Wed Jul 17 18:12:38 1996 Stu Grossman (grossman@critters.cygnus.com) + + * gencode.c (process_instructions): Generate word64 and uword64 + instead of `long long' and `unsigned long long' data types. + * interp.c: #include sysdep.h to get signals, and define default + for SIGBUS. + * (Convert): Work around for Visual-C++ compiler bug with type + conversion. + * support.h: Make things compile under Visual-C++ by using + __int64 instead of `long long'. Change many refs to long long + into word64/uword64 typedefs. + Wed Jun 26 12:24:55 1996 Jason Molenda (crash@godzilla.cygnus.co.jp) * Makefile.in (bindir, libdir, datadir, mandir, infodir, includedir, diff --git a/sim/mips/gencode.c b/sim/mips/gencode.c index b5b5363395f..1e0dbf7a12c 100644 --- a/sim/mips/gencode.c +++ b/sim/mips/gencode.c @@ -948,7 +948,7 @@ process_instructions(doarch,features) ensure that the following opcode processing is not executed. i.e. the code falls straight out to the simulator control loop. */ - printf(" WARNING(\"Instruction has lo-order offset bits set in instruction\");\n"); + printf(" sim_warning(\"Instruction has lo-order offset bits set in instruction\");\n"); printf(" }\n"); } #endif @@ -1162,7 +1162,7 @@ process_instructions(doarch,features) else { if (features & FEATURE_WARN_LOHI) { printf(" if (%sACCESS != 0)\n",regname); - printf(" WARNING(\"MT (move-to) over-writing %s register value\");\n",regname); + printf(" sim_warning(\"MT (move-to) over-writing %s register value\");\n",regname); } printf(" %s = op1;\n",regname); } @@ -1273,7 +1273,7 @@ process_instructions(doarch,features) if (features & FEATURE_WARN_RESULT) { /* Give user a warning if either op1 or op2 are not 16bit signed integers */ printf(" if (NOTHALFWORDVALUE(op1) || NOTHALFWORDVALUE(op2))\n"); - printf(" WARNING(\"MADD16 operation with non-16bit operands\");\n"); + printf(" sim_warning(\"MADD16 operation with non-16bit operands\");\n"); } printf(" {\n"); printf(" uword64 temp = (op1 * op2);\n"); /* 16x16 multiply */ @@ -1340,7 +1340,7 @@ process_instructions(doarch,features) if (MIPS_DECODE[loop].flags & LINK) { if (features & FEATURE_WARN_R31) { printf(" if (((instruction >> %d) & 0x%08X) == 31)\n",OP_SH_RS,OP_MASK_RS); - printf(" WARNING(\"Branch with link using r31 as source operand\");\n"); + printf(" sim_warning(\"Branch with link using r31 as source operand\");\n"); } printf(" GPR[31] = (PC + 4); /* NOTE: PC is already 8 ahead */\n"); } diff --git a/sim/mips/interp.c b/sim/mips/interp.c index b4b4fd3d17e..c5fdaeb6705 100644 --- a/sim/mips/interp.c +++ b/sim/mips/interp.c @@ -68,6 +68,12 @@ code on the hardware. #include "support.h" /* internal support manifests */ +#include "sysdep.h" + +#ifndef SIGBUS +#define SIGBUS SIGSEGV +#endif + /* Get the simulator engine description, without including the code: */ #define SIM_MANIFESTS #include "engine.c" @@ -169,10 +175,6 @@ typedef enum { static host_callback *callback = NULL; /* handle onto the current callback structure */ -/* The warning system should be improved, to allow more information to - be passed about the cause: */ -#define WARNING(m) { callback->printf_filtered(callback,"SIM Warning: %s\n",(m)); } - /* This is nasty, since we have to rely on matching the register numbers used by GDB. Unfortunately, depending on the MIPS target GDB uses different register numbers. We cannot just include the @@ -322,18 +324,18 @@ static ut_reg pending_slot_value[PSLOTS]; /* The following are not used for MIPS IV onwards: */ #define PENDING_FILL(r,v) {\ -printf("DBG: FILL BEFORE pending_in = %d, pending_out = %d, pending_total = %d\n",pending_in,pending_out,pending_total);\ +/* printf("DBG: FILL BEFORE pending_in = %d, pending_out = %d, pending_total = %d\n",pending_in,pending_out,pending_total); */\ if (pending_slot_reg[pending_in] != (LAST_EMBED_REGNUM + 1))\ - callback->printf_filtered(callback,"SIM Warning: Attempt to over-write pending value\n");\ + sim_warning("Attempt to over-write pending value");\ pending_slot_count[pending_in] = 2;\ pending_slot_reg[pending_in] = (r);\ pending_slot_value[pending_in] = (uword64)(v);\ -printf("DBG: FILL reg %d value = 0x%08X%08X\n",(r),WORD64HI(v),WORD64LO(v));\ +/*printf("DBG: FILL reg %d value = 0x%08X%08X\n",(r),WORD64HI(v),WORD64LO(v));*/\ pending_total++;\ pending_in++;\ if (pending_in == PSLOTS)\ pending_in = 0;\ -printf("DBG: FILL AFTER pending_in = %d, pending_out = %d, pending_total = %d\n",pending_in,pending_out,pending_total);\ +/*printf("DBG: FILL AFTER pending_in = %d, pending_out = %d, pending_total = %d\n",pending_in,pending_out,pending_total);*/\ } static int LLBIT = 0; @@ -349,17 +351,20 @@ static int LOACCESS = 0; /* The HIACCESS and LOACCESS counts are used to ensure that corruptions caused by using the HI or LO register to close to a following operation are spotted. */ +static ut_reg HLPC = 0; +/* TODO: The 4300 has interlocks so we should not need to warn of the possible over-write (CHECK THIS) */ /* If either of the preceding two instructions have accessed the HI or LO registers, then the values they see should be undefined. However, to keep the simulator world simple, we just let them use the value read and raise a warning to notify the user: */ #define CHECKHILO(s) {\ if ((HIACCESS != 0) || (LOACCESS != 0))\ - callback->printf_filtered(callback,"SIM Warning: %s over-writing HI and LO registers values\n",(s));\ + sim_warning("%s over-writing HI and LO registers values (PC = 0x%08X%08X HLPC = 0x%08X%08X)\n",(s),(unsigned int)(PC>>32),(unsigned int)(PC&0xFFFFFFFF),(unsigned int)(HLPC>>32),(unsigned int)(HLPC&0xFFFFFFFF));\ /* Set the access counts, since we are about\ to update the HI and LO registers: */\ HIACCESS = LOACCESS = 3; /* 3rd instruction will be safe */\ + HLPC = PC;\ } /* NOTE: We keep the following status flags as bit values (1 for true, @@ -424,7 +429,8 @@ static unsigned int state = 0; static unsigned int rcexit = 0; /* _exit() reason code holder */ #define DELAYSLOT() {\ - if (state & simDELAYSLOT) callback->printf_filtered(callback,"SIM Warning: Delay slot already activated (branch in delay slot?)\n");\ + if (state & simDELAYSLOT)\ + sim_warning("Delay slot already activated (branch in delay slot?)");\ state |= simDELAYSLOT;\ } @@ -448,6 +454,9 @@ static unsigned char *monitor = NULL; static ut_reg monitor_base = 0xBFC00000; static unsigned monitor_size = (1 << 11); /* power-of-2 */ +static char *logfile = NULL; /* logging disabled by default */ +static FILE *logfh = NULL; + #if defined(TRACE) static char *tracefile = "trace.din"; /* default filename for trace log */ static FILE *tracefh = NULL; @@ -480,6 +489,7 @@ static fnptr_swap_long host_swap_long; /*---------------------------------------------------------------------------*/ static void dotrace PARAMS((FILE *tracefh,int type,unsigned int address,int width,char *comment,...)); +static void sim_warning PARAMS((char *fmt,...)); extern void sim_error PARAMS((char *fmt,...)); static void ColdReset PARAMS((void)); static int AddressTranslation PARAMS((uword64 vAddr,int IorD,int LorS,uword64 *pAddr,int *CCA,int host,int raw)); @@ -573,6 +583,7 @@ sim_open (args) int argc; static struct option cmdline[] = { {"help", 0,0,'h'}, + {"log", 1,0,'l'}, {"name", 1,0,'n'}, {"profile", 0,0,'p'}, {"size", 1,0,'s'}, @@ -611,7 +622,7 @@ sim_open (args) switch (c) { case 'h': callback->printf_filtered(callback,"Usage:\n\t\ -target sim [-h] [--name=] [--size=]"); +target sim [-h] [--log=] [--name=] [--size=]"); #if defined(TRACE) callback->printf_filtered(callback," [-t [--tracefile=]]"); #endif /* TRACE */ @@ -621,6 +632,19 @@ target sim [-h] [--name=] [--size=]"); callback->printf_filtered(callback,"\n"); break; + case 'l': + if (optarg != NULL) { + char *tmp; + tmp = (char *)malloc(strlen(optarg) + 1); + if (tmp == NULL) + callback->printf_filtered(callback,"Failed to allocate buffer for logfile name \"%s\"\n",optarg); + else { + strcpy(tmp,optarg); + logfile = tmp; + } + } + break; + case 'n': callback->printf_filtered(callback,"Explicit model selection not yet available (Ignoring \"%s\")\n",optarg); break; @@ -688,16 +712,30 @@ Re-compile simulator with \"-DPROFILE\" to enable this option.\n"); } } +#if 0 if (optind < argc) { callback->printf_filtered(callback,"Warning: Ignoring spurious non-option arguments "); while (optind < argc) callback->printf_filtered(callback,"\"%s\" ",argv[optind++]); callback->printf_filtered(callback,"\n"); } +#endif freeargv(argv); } + if (logfile != NULL) { + if (strcmp(logfile,"-") == 0) + logfh = stdout; + else { + logfh = fopen(logfile,"wb+"); + if (logfh == NULL) { + callback->printf_filtered(callback,"Failed to create file \"%s\", writing log information to stderr.\n",tracefile); + logfh = stderr; + } + } + } + /* If the host has "mmap" available we could use it to provide a very large virtual address space for the simulator, since memory would only be allocated within the "mmap" space as it is @@ -772,7 +810,7 @@ Re-compile simulator with \"-DPROFILE\" to enable this option.\n"); if (AddressTranslation(vaddr,isDATA,isSTORE,&paddr,&cca,isTARGET,isRAW)) StoreMemory(cca,AccessLength_WORD,value,paddr,vaddr,isRAW); else - callback->printf_filtered(callback,"Failed to write to monitor space 0x%08X%08X\n",WORD64HI(vaddr),WORD64LO(vaddr)); + sim_error("Failed to write to monitor space 0x%08X%08X",WORD64HI(vaddr),WORD64LO(vaddr)); } } @@ -780,7 +818,7 @@ Re-compile simulator with \"-DPROFILE\" to enable this option.\n"); if (state & simTRACE) { tracefh = fopen(tracefile,"wb+"); if (tracefh == NULL) { - callback->printf_filtered(callback,"Failed to create file \"%s\", writing trace information to stderr.\n",tracefile); + sim_warning("Failed to create file \"%s\", writing trace information to stderr.",tracefile); tracefh = stderr; } } @@ -815,7 +853,7 @@ writeout32(fh,val) buff[3] = ((val >> 24) & 0xFF); } if (fwrite(buff,4,1,fh) != 1) { - callback->printf_filtered(callback,"Failed to write 4bytes to the profile file\n"); + sim_warning("Failed to write 4bytes to the profile file"); res = 0; } return(res); @@ -836,7 +874,7 @@ writeout16(fh,val) buff[1] = ((val >> 8) & 0xFF); } if (fwrite(buff,2,1,fh) != 1) { - callback->printf_filtered(callback,"Failed to write 2bytes to the profile file\n"); + sim_warning("Failed to write 2bytes to the profile file"); res = 0; } return(res); @@ -864,7 +902,7 @@ sim_close (quitting) int loop; if (pf == NULL) - callback->printf_filtered(callback,"Failed to open \"gmon.out\" profile file\n"); + sim_warning("Failed to open \"gmon.out\" profile file"); else { int ok; #ifdef DEBUG @@ -900,6 +938,10 @@ sim_close (quitting) state &= ~simTRACE; #endif /* TRACE */ + if (logfh != NULL && logfh != stdout && logfh != stderr) + fclose(logfh); + logfh = NULL; + if (membank) free(membank); /* cfree not available on all hosts */ membank = NULL; @@ -1083,7 +1125,7 @@ sim_store_register (rn,memory) numbering one. We need to know what the width of each logical register number is for the architecture being simulated. */ if (register_widths[rn] == 0) - callback->printf_filtered(callback,"Warning: Invalid register width for %d (register store ignored)\n",rn); + sim_warning("Invalid register width for %d (register store ignored)",rn); else { if (register_widths[rn] == 32) registers[rn] = host_read_word(memory); @@ -1104,7 +1146,7 @@ sim_fetch_register (rn,memory) #endif /* DEBUG */ if (register_widths[rn] == 0) - callback->printf_filtered(callback,"Warning: Invalid register width for %d (register fetch ignored)\n",rn); + sim_warning("Invalid register width for %d (register fetch ignored)",rn); else { if (register_widths[rn] == 32) *((unsigned int *)memory) = host_swap_word(registers[rn] & 0xFFFFFFFF); @@ -1171,7 +1213,9 @@ sim_stop_reason (reason,sigrc) break; } } else if (state & simEXIT) { +#if 0 printf("DBG: simEXIT (%d)\n",rcexit); +#endif *reason = sim_exited; *sigrc = rcexit; } else { /* assume single-stepping */ @@ -1253,8 +1297,8 @@ sim_create_inferior (start_address,argv,env) used by other clients of the simulator. */ if (argv || env) { +#if 0 /* def DEBUG */ callback->printf_filtered(callback,"sim_create_inferior() : passed arguments ignored\n"); -#if 1 /* def DEBUG */ { char **cptr; for (cptr = argv; (cptr && *cptr); cptr++) @@ -1416,7 +1460,7 @@ sim_set_profile_size (n) else profile_hist = (unsigned short *)realloc(profile_hist,bsize); if (profile_hist == NULL) { - callback->printf_filtered(callback,"Failed to allocate VM for profiling buffer (0x%08X bytes)\n",bsize); + sim_warning("Failed to allocate VM for profiling buffer (0x%08X bytes)",bsize); state &= ~simPROFILE; } } @@ -1431,6 +1475,10 @@ sim_size(newsize) { char *new; /* Used by "run", and internally, to set the simulated memory size */ + if (newsize == 0) { + callback->printf_filtered(callback,"Zero not valid: Memory size still 0x%08X bytes\n",membank_size); + return; + } newsize = power2(newsize); if (membank == NULL) new = (char *)calloc(64,(membank_size / 64)); @@ -1438,13 +1486,12 @@ sim_size(newsize) new = (char *)realloc(membank,newsize); if (new == NULL) { if (membank == NULL) - callback->printf_filtered(callback,"Not enough VM for simulation memory of 0x%08X bytes\n",membank_size); + sim_error("Not enough VM for simulation memory of 0x%08X bytes",membank_size); else - callback->printf_filtered(callback,"Failed to resize memory (still 0x%08X bytes)\n",membank_size); + sim_warning("Failed to resize memory (still 0x%08X bytes)",membank_size); } else { membank_size = (unsigned)newsize; membank = new; - callback->printf_filtered(callback,"Memory size now 0x%08X bytes\n",membank_size); #if defined(PROFILE) /* Ensure that we sample across the new memory range */ sim_set_profile_size(profile_nsamples); @@ -1504,7 +1551,7 @@ sim_monitor(reason) if (AddressTranslation(A0,isDATA,isLOAD,&paddr,&cca,isHOST,isREAL)) V0 = callback->open(callback,(char *)((int)paddr),(int)A1); else - callback->printf_filtered(callback,"WARNING: Attempt to pass pointer that does not reference simulated memory\n"); + sim_error("Attempt to pass pointer that does not reference simulated memory"); } break; @@ -1516,7 +1563,7 @@ sim_monitor(reason) if (AddressTranslation(A1,isDATA,isLOAD,&paddr,&cca,isHOST,isREAL)) V0 = callback->read(callback,(int)A0,(char *)((int)paddr),(int)A2); else - callback->printf_filtered(callback,"WARNING: Attempt to pass pointer that does not reference simulated memory\n"); + sim_error("Attempt to pass pointer that does not reference simulated memory"); } break; @@ -1528,7 +1575,7 @@ sim_monitor(reason) if (AddressTranslation(A1,isDATA,isLOAD,&paddr,&cca,isHOST,isREAL)) V0 = callback->write(callback,(int)A0,(const char *)((int)paddr),(int)A2); else - callback->printf_filtered(callback,"WARNING: Attempt to pass pointer that does not reference simulated memory\n"); + sim_error("Attempt to pass pointer that does not reference simulated memory"); } break; @@ -1540,7 +1587,7 @@ sim_monitor(reason) { char tmp; if (callback->read_stdin(callback,&tmp,sizeof(char)) != sizeof(char)) { - callback->printf_filtered(callback,"WARNING: Invalid return from character read\n"); + sim_error("Invalid return from character read"); V0 = -1; } else @@ -1556,7 +1603,7 @@ sim_monitor(reason) break; case 17: /* void _exit() */ - callback->printf_filtered(callback,"sim_monitor(17): _exit(int reason) to be coded\n"); + sim_warning("sim_monitor(17): _exit(int reason) to be coded"); state |= (simSTOP | simEXIT); /* stop executing code */ rcexit = (unsigned int)(A0 & 0xFFFFFFFF); break; @@ -1597,7 +1644,7 @@ sim_monitor(reason) failed = -1; if (failed) - callback->printf_filtered(callback,"WARNING: Invalid pointer passed into monitor call\n"); + sim_error("Invalid pointer passed into monitor call"); } break; @@ -1607,24 +1654,133 @@ sim_monitor(reason) /* A2 = optional argument 2 */ /* A3 = optional argument 3 */ /* out: void */ + /* The following is based on the PMON printf source */ { uword64 paddr; int cca; - if (AddressTranslation(A0,isDATA,isLOAD,&paddr,&cca,isHOST,isREAL)) - callback->printf_filtered(callback,(char *)((int)paddr),(int)A1,(int)A2,(int)A2); - else - callback->printf_filtered(callback,"WARNING: Attempt to pass pointer that does not reference simulated memory\n"); + /* This isn't the quickest way, since we call the host print + routine for every character almost. But it does avoid + having to allocate and manage a temporary string buffer. */ + if (AddressTranslation(A0,isDATA,isLOAD,&paddr,&cca,isHOST,isREAL)) { + char *s = (char *)((int)paddr); + ut_reg *ap = &A1; /* 1st argument */ + /* TODO: Include check that we only use three arguments (A1, A2 and A3) */ + for (; *s;) { + if (*s == '%') { + char tmp[40]; + enum {FMT_RJUST, FMT_LJUST, FMT_RJUST0, FMT_CENTER} fmt = FMT_RJUST; + int width = 0, trunc = 0, haddot = 0, longlong = 0; + int base = 10; + s++; + for (; *s; s++) { + if (strchr ("dobxXulscefg%", *s)) + break; + else if (*s == '-') + fmt = FMT_LJUST; + else if (*s == '0') + fmt = FMT_RJUST0; + else if (*s == '~') + fmt = FMT_CENTER; + else if (*s == '*') { + if (haddot) + trunc = (int)*ap++; + else + width = (int)*ap++; + } else if (*s >= '1' && *s <= '9') { + char *t; + unsigned int n; + for (t = s; isdigit (*s); s++); + strncpy (tmp, t, s - t); + tmp[s - t] = '\0'; + n = (unsigned int)strtol(tmp,NULL,10); + if (haddot) + trunc = n; + else + width = n; + s--; + } else if (*s == '.') + haddot = 1; + } + if (*s == '%') { + callback->printf_filtered(callback,"%%"); + } else if (*s == 's') { + if ((int)*ap != 0) { + if (AddressTranslation(*ap++,isDATA,isLOAD,&paddr,&cca,isHOST,isREAL)) { + char *p = (char *)((int)paddr);; + callback->printf_filtered(callback,p); + } else { + ap++; + sim_error("Attempt to pass pointer that does not reference simulated memory"); + } + } + else + callback->printf_filtered(callback,"(null)"); + } else if (*s == 'c') { + int n = (int)*ap++; + callback->printf_filtered(callback,"%c",n); + } else { + if (*s == 'l') { + if (*++s == 'l') { + longlong = 1; + ++s; + } + } + if (strchr ("dobxXu", *s)) { + long long lv = (long long)*ap++; + if (*s == 'b') + callback->printf_filtered(callback,""); + else { + sprintf(tmp,"%%%s%c",longlong ? "ll" : "",*s); + if (longlong) + callback->printf_filtered(callback,tmp,lv); + else + callback->printf_filtered(callback,tmp,(int)lv); + } + } else if (strchr ("eEfgG", *s)) { + double dbl = (double)*ap++; + sprintf(tmp,"%%%d.%d%c",width,trunc,*s); + callback->printf_filtered(callback,tmp,dbl); + trunc = 0; + } + } + s++; + } else + callback->printf_filtered(callback,"%c",*s++); + } + } else + sim_error("Attempt to pass pointer that does not reference simulated memory"); } break; default: - callback->printf_filtered(callback,"TODO: sim_monitor(%d) : PC = 0x%08X%08X\n",reason,WORD64HI(IPC),WORD64LO(IPC)); - callback->printf_filtered(callback,"(Arguments : A0 = 0x%08X%08X : A1 = 0x%08X%08X : A2 = 0x%08X%08X : A3 = 0x%08X%08X)\n",WORD64HI(A0),WORD64LO(A0),WORD64HI(A1),WORD64LO(A1),WORD64HI(A2),WORD64LO(A2),WORD64HI(A3),WORD64LO(A3)); + sim_warning("TODO: sim_monitor(%d) : PC = 0x%08X%08X",reason,WORD64HI(IPC),WORD64LO(IPC)); + sim_warning("(Arguments : A0 = 0x%08X%08X : A1 = 0x%08X%08X : A2 = 0x%08X%08X : A3 = 0x%08X%08X)",WORD64HI(A0),WORD64LO(A0),WORD64HI(A1),WORD64LO(A1),WORD64HI(A2),WORD64LO(A2),WORD64HI(A3),WORD64LO(A3)); break; } return; } +void +sim_warning(fmt) + char *fmt; +{ + va_list ap; + va_start(ap,fmt); + if (logfh != NULL) { +#if 1 + fprintf(logfh,"SIM Warning: "); + fprintf(logfh,fmt,ap); + fprintf(logfh,"\n"); +#else /* we should provide a method of routing log messages to the simulator output stream */ + callback->printf_filtered(callback,"SIM Warning: "); + callback->printf_filtered(callback,fmt,ap); +#endif + } + va_end(ap); + SignalException(SimulatorFault,""); + return; +} + void sim_error(fmt) char *fmt; @@ -1979,14 +2135,14 @@ AddressTranslation(vAddr,IorD,LorS,pAddr,CCA,host,raw) *pAddr = (int)&monitor[((unsigned int)(vAddr - monitor_base) & (monitor_size - 1))]; } else { #if 1 /* def DEBUG */ - callback->printf_filtered(callback,"Failed: AddressTranslation(0x%08X%08X,%s,%s,...) IPC = 0x%08X%08X\n",WORD64HI(vAddr),WORD64LO(vAddr),(IorD ? "isDATA" : "isINSTRUCTION"),(LorS ? "isSTORE" : "isLOAD"),WORD64HI(IPC),WORD64LO(IPC)); + sim_warning("Failed: AddressTranslation(0x%08X%08X,%s,%s,...) IPC = 0x%08X%08X",WORD64HI(vAddr),WORD64LO(vAddr),(IorD ? "isDATA" : "isINSTRUCTION"),(LorS ? "isSTORE" : "isLOAD"),WORD64HI(IPC),WORD64LO(IPC)); #endif /* DEBUG */ res = 0; /* AddressTranslation has failed */ *pAddr = -1; if (!raw) /* only generate exceptions on real memory transfers */ SignalException((LorS == isSTORE) ? AddressStore : AddressLoad); else - callback->printf_filtered(callback,"AddressTranslation for %s %s from 0x%08X%08X failed\n",(IorD ? "data" : "instruction"),(LorS ? "store" : "load"),WORD64HI(vAddr),WORD64LO(vAddr)); + sim_warning("AddressTranslation for %s %s from 0x%08X%08X failed",(IorD ? "data" : "instruction"),(LorS ? "store" : "load"),WORD64HI(vAddr),WORD64LO(vAddr)); } return(res); @@ -2046,11 +2202,11 @@ LoadMemory(CCA,AccessLength,pAddr,vAddr,IorD,raw) #if defined(WARN_MEM) if (CCA != uncached) - callback->printf_filtered(callback,"SIM Warning: LoadMemory CCA (%d) is not uncached (currently all accesses treated as cached)\n",CCA); + sim_warning("LoadMemory CCA (%d) is not uncached (currently all accesses treated as cached)",CCA); if (((pAddr & LOADDRMASK) + AccessLength) > LOADDRMASK) { /* In reality this should be a Bus Error */ - sim_error("AccessLength of %d would extend over 64bit aligned boundary for physical address 0x%08X%08X\n",AccessLength,WORD64HI(pAddr),WORD64LO(pAddr)); + sim_error("AccessLength of %d would extend over %dbit aligned boundary for physical address 0x%08X%08X\n",AccessLength,(LOADDRMASK + 1)<<2,WORD64HI(pAddr),WORD64LO(pAddr)); } #endif /* WARN_MEM */ @@ -2192,10 +2348,10 @@ StoreMemory(CCA,AccessLength,MemElem,pAddr,vAddr,raw) #if defined(WARN_MEM) if (CCA != uncached) - callback->printf_filtered(callback,"SIM Warning: StoreMemory CCA (%d) is not uncached (currently all accesses treated as cached)\n",CCA); + sim_warning("StoreMemory CCA (%d) is not uncached (currently all accesses treated as cached)",CCA); if (((pAddr & LOADDRMASK) + AccessLength) > LOADDRMASK) - sim_error("AccessLength of %d would extend over 64bit aligned boundary for physical address 0x%08X%08X\n",AccessLength,WORD64HI(pAddr),WORD64LO(pAddr)); + sim_error("AccessLength of %d would extend over %dbit aligned boundary for physical address 0x%08X%08X\n",AccessLength,(LOADDRMASK + 1)<<2,WORD64HI(pAddr),WORD64LO(pAddr)); #endif /* WARN_MEM */ #if defined(TRACE) @@ -2331,7 +2487,7 @@ SignalException(exception) reality we should either simulate them, or allow the user to ignore them at run-time. */ case Trap : - callback->printf_filtered(callback,"Ignoring instruction TRAP (PC 0x%08X%08X)\n",WORD64HI(IPC),WORD64LO(IPC)); + sim_warning("Ignoring instruction TRAP (PC 0x%08X%08X)",WORD64HI(IPC),WORD64LO(IPC)); break; case ReservedInstruction : @@ -2358,19 +2514,34 @@ SignalException(exception) case with the current IDT monitor). */ break; /* out of the switch statement */ } /* else fall through to normal exception processing */ - callback->printf_filtered(callback,"DBG: ReservedInstruction 0x%08X at IPC = 0x%08X%08X\n",instruction,WORD64HI(IPC),WORD64LO(IPC)); + sim_warning("ReservedInstruction 0x%08X at IPC = 0x%08X%08X",instruction,WORD64HI(IPC),WORD64LO(IPC)); } default: #if 1 /* def DEBUG */ - callback->printf_filtered(callback,"DBG: SignalException(%d) IPC = 0x%08X%08X\n",exception,WORD64HI(IPC),WORD64LO(IPC)); + if (exception != BreakPoint) + callback->printf_filtered(callback,"DBG: SignalException(%d) IPC = 0x%08X%08X\n",exception,WORD64HI(IPC),WORD64LO(IPC)); #endif /* DEBUG */ /* Store exception code into current exception id variable (used by exit code): */ /* TODO: If not simulating exceptions then stop the simulator execution. At the moment we always stop the simulation. */ +#if 1 /* bodge to allow exit() code to be returned, by assuming that a breakpoint exception after a monitor exit() call should be silent */ +/* further bodged since the standard libgloss/mips world doesn't use the _exit() monitor call, it just uses a break instruction */ + if (exception == BreakPoint /* && state & simEXIT */) + { + state |= simSTOP; +#if 1 /* since the _exit() monitor call may not be called */ + state |= simEXIT; + rcexit = (unsigned int)(A0 & 0xFFFFFFFF); +#endif + } + else + state |= (simSTOP | simEXCEPTION); +#else state |= (simSTOP | simEXCEPTION); +#endif CAUSE = (exception << 2); if (state & simDELAYSLOT) { CAUSE |= cause_BD; @@ -2409,7 +2580,7 @@ SignalException(exception) static void UndefinedResult() { - callback->printf_filtered(callback,"UndefinedResult: IPC = 0x%08X%08X\n",WORD64HI(IPC),WORD64LO(IPC)); + sim_warning("UndefinedResult: IPC = 0x%08X%08X",WORD64HI(IPC),WORD64LO(IPC)); #if 0 /* Disabled for the moment, since it actually happens a lot at the moment. */ state |= simSTOP; #endif @@ -2424,8 +2595,13 @@ CacheOp(op,pAddr,vAddr,instruction) uword64 vAddr; unsigned int instruction; { +#if 1 /* stop warning message being displayed (we should really just remove the code) */ + static int icache_warning = 1; + static int dcache_warning = 1; +#else static int icache_warning = 0; static int dcache_warning = 0; +#endif /* If CP0 is not useable (User or Supervisor mode) and the CP0 enable bit in the Status Register is clear - a coprocessor @@ -2445,7 +2621,7 @@ CacheOp(op,pAddr,vAddr,instruction) case 6: /* Hit Writeback */ if (!icache_warning) { - callback->printf_filtered(callback,"SIM Warning: Instruction CACHE operation %d to be coded\n",(op >> 2)); + sim_warning("Instruction CACHE operation %d to be coded",(op >> 2)); icache_warning = 1; } break; @@ -2467,7 +2643,7 @@ CacheOp(op,pAddr,vAddr,instruction) case 6: /* Hit Writeback */ if (!dcache_warning) { - callback->printf_filtered(callback,"SIM Warning: Data CACHE operation %d to be coded\n",(op >> 2)); + sim_warning("Data CACHE operation %d to be coded",(op >> 2)); dcache_warning = 1; } break; @@ -2579,7 +2755,7 @@ ValueFPR(fpr,fmt) #endif /* DEBUG */ } if (fmt != fpr_state[fpr]) { - callback->printf_filtered(callback,"Warning: FPR %d (format %s) being accessed with format %s - setting to unknown (PC = 0x%08X%08X)\n",fpr,DOFMT(fpr_state[fpr]),DOFMT(fmt),WORD64HI(IPC),WORD64LO(IPC)); + sim_warning("FPR %d (format %s) being accessed with format %s - setting to unknown (PC = 0x%08X%08X)",fpr,DOFMT(fpr_state[fpr]),DOFMT(fmt),WORD64HI(IPC),WORD64LO(IPC)); fpr_state[fpr] = fmt_unknown; } @@ -2633,7 +2809,7 @@ ValueFPR(fpr,fmt) case fmt_uninterpreted: case fmt_double: case fmt_long: - value = ((FGR[fpr+1] << 32) | (FGR[fpr] & 0xFFFFFFFF)); + value = ((((uword64)FGR[fpr+1]) << 32) | (FGR[fpr] & 0xFFFFFFFF)); break; default : @@ -3233,6 +3409,7 @@ Convert(rm,op,from,to) case fmt_double: { double tmp; + word64 xxx; switch (from) { case fmt_single: @@ -3243,7 +3420,8 @@ Convert(rm,op,from,to) break; case fmt_word: - tmp = (double)((word64)SIGNEXTEND((op & 0xFFFFFFFF),32)); + xxx = SIGNEXTEND((op & 0xFFFFFFFF),32); + tmp = xxx; break; case fmt_long: @@ -3354,7 +3532,9 @@ COP_LW(coproc_num,coproc_reg,memword) #endif /* HASFPU */ default: +#if 0 /* this should be controlled by a configuration option */ callback->printf_filtered(callback,"COP_LW(%d,%d,0x%08X) at IPC = 0x%08X%08X : TODO (architecture specific)\n",coproc_num,coproc_reg,memword,WORD64HI(IPC),WORD64LO(IPC)); +#endif break; } @@ -3374,7 +3554,9 @@ COP_LD(coproc_num,coproc_reg,memword) #endif /* HASFPU */ default: +#if 0 /* this message should be controlled by a configuration option */ callback->printf_filtered(callback,"COP_LD(%d,%d,0x%08X%08X) at IPC = 0x%08X%08X : TODO (architecture specific)\n",coproc_num,coproc_reg,WORD64HI(memword),WORD64LO(memword),WORD64HI(IPC),WORD64LO(IPC)); +#endif break; } @@ -3405,7 +3587,9 @@ COP_SW(coproc_num,coproc_reg) #endif /* HASFPU */ default: +#if 0 /* should be controlled by configuration option */ callback->printf_filtered(callback,"COP_SW(%d,%d) at IPC = 0x%08X%08X : TODO (architecture specific)\n",coproc_num,coproc_reg,WORD64HI(IPC),WORD64LO(IPC)); +#endif break; } @@ -3436,7 +3620,9 @@ COP_SD(coproc_num,coproc_reg) #endif /* HASFPU */ default: +#if 0 /* should be controlled by configuration option */ callback->printf_filtered(callback,"COP_SD(%d,%d) at IPC = 0x%08X%08X : TODO (architecture specific)\n",coproc_num,coproc_reg,WORD64HI(IPC),WORD64LO(IPC)); +#endif break; } @@ -3498,14 +3684,18 @@ decode_coproc(instruction) int rt = ((instruction >> 16) & 0x1F); int rd = ((instruction >> 11) & 0x1F); if (code == 0x00) { /* MF : move from */ +#if 0 /* message should be controlled by configuration option */ callback->printf_filtered(callback,"Warning: MFC0 %d,%d not handled yet (architecture specific)\n",rt,rd); +#endif GPR[rt] = 0xDEADC0DE; /* CPR[0,rd] */ } else { /* MT : move to */ /* CPR[0,rd] = GPR[rt]; */ +#if 0 /* should be controlled by configuration option */ callback->printf_filtered(callback,"Warning: MTC0 %d,%d not handled yet (architecture specific)\n",rt,rd); +#endif } } else - callback->printf_filtered(callback,"Warning: Unrecognised COP0 instruction 0x%08X at IPC = 0x%08X%08X : No handler present\n",instruction,WORD64HI(IPC),WORD64LO(IPC)); + sim_warning("Unrecognised COP0 instruction 0x%08X at IPC = 0x%08X%08X : No handler present",instruction,WORD64HI(IPC),WORD64LO(IPC)); /* TODO: When executing an ERET or RFE instruction we should clear LLBIT, to ensure that any out-standing atomic read/modify/write sequence fails. */ @@ -3513,7 +3703,7 @@ decode_coproc(instruction) break; case 2: /* undefined co-processor */ - callback->printf_filtered(callback,"Warning: COP2 instruction 0x%08X at IPC = 0x%08X%08X : No handler present\n",instruction,WORD64HI(IPC),WORD64LO(IPC)); + sim_warning("COP2 instruction 0x%08X at IPC = 0x%08X%08X : No handler present",instruction,WORD64HI(IPC),WORD64LO(IPC)); break; case 1: /* should not occur (FPU co-processor) */ @@ -3572,13 +3762,13 @@ simulate () #endif /* DEBUG */ if (AddressTranslation(PC,isINSTRUCTION,isLOAD,&paddr,&cca,isTARGET,isREAL)) { /* Copy the action of the LW instruction */ - unsigned int reverse = (ReverseEndian ? 1 : 0); - unsigned int bigend = (BigEndianCPU ? 1 : 0); + unsigned int reverse = (ReverseEndian ? (LOADDRMASK >> 2) : 0); + unsigned int bigend = (BigEndianCPU ? (LOADDRMASK >> 2) : 0); uword64 value; unsigned int byte; - paddr = ((paddr & ~0x7) | ((paddr & 0x7) ^ (reverse << 2))); + paddr = ((paddr & ~LOADDRMASK) | ((paddr & LOADDRMASK) ^ (reverse << 2))); value = LoadMemory(cca,AccessLength_WORD,paddr,vaddr,isINSTRUCTION,isREAL); - byte = ((vaddr & 0x7) ^ (bigend << 2)); + byte = ((vaddr & LOADDRMASK) ^ (bigend << 2)); instruction = ((value >> (8 * byte)) & 0xFFFFFFFF); } else { fprintf(stderr,"Cannot translate address for PC = 0x%08X%08X failed\n",WORD64HI(PC),WORD64LO(PC)); @@ -3671,7 +3861,7 @@ simulate () if (!(state & simSKIPNEXT)) { /* Include the simulator engine */ #include "engine.c" -#if ((GPRLEN == 64) && !defined(PROCESSOR_64BIT)) || ((GPRLEN == 32) && defined(PROCESSOR_64BIT)) +#if ((GPRLEN == 64) && !PROCESSOR_64BIT) || ((GPRLEN == 32) && PROCESSOR_64BIT) #error "Mismatch between run-time simulator code and simulation engine" #endif @@ -3689,7 +3879,7 @@ simulate () than within the simulator, since it will help keep the simulator small. */ if (ZERO != 0) { - callback->printf_filtered(callback,"SIM Warning: The ZERO register has been updated with 0x%08X%08X (PC = 0x%08X%08X)\nSIM Warning: Resetting back to zero\n",WORD64HI(ZERO),WORD64LO(ZERO),WORD64HI(IPC),WORD64LO(IPC)); + sim_warning("The ZERO register has been updated with 0x%08X%08X (PC = 0x%08X%08X) (reset back to zero)",WORD64HI(ZERO),WORD64LO(ZERO),WORD64HI(IPC),WORD64LO(IPC)); ZERO = 0; /* reset back to zero before next instruction */ } #endif /* WARN_ZERO */ -- 2.30.2