1992/0321/ss/faultsparc.c (diff list | history)

ss/faultsparc.c on 1990/1223
1990/1223		#include "u.h"
1992/0321		#include "../port/lib.h"
1990/1223		#include "mem.h" #include "dat.h" #include "fns.h" #include "ureg.h"
1992/0111		#include "../port/error.h"
1990/1223		void
1990/1226		faultsparc(Ureg *ur)
1990/1223		{ ulong addr, badvaddr;
1991/0717		char buf[ERRLEN];
1991/01151		int user, read;
1990/1226		ulong tbr;
1990/1223
1990/1227		tbr = (ur->tbr&0xFFF)>>4;
1990/1226		addr = ur->pc; /* assume instr. exception */
1990/1231		read = 1; if(tbr == 9){ /* data access exception */ /* * According to the book, this isn't good enough. We'll see. */
1990/1226		addr = getw2(SEVAR);
1990/1231		if(getw2(SER) & 0x8000) read = 0;
1990/1226		} spllo();
1990/1223		if(u == 0){ dumpregs(ur);
1991/01151		panic("fault u==0 pc=%lux addr=%lux", ur->pc, addr);
1990/1223		}
1990/1226		/* addr &= VAMASK; /**/
1990/1223		badvaddr = addr; addr &= ~(BY2PG-1);
1990/1231		user = !(ur->psr&PSRPSUPER);
1990/1223		if(fault(addr, read) < 0){ if(user){
1991/1218		sprint(buf, "sys: trap: fault %s addr=0x%lux", read? "read" : "write", badvaddr);
1991/0717		postnote(u->p, 1, buf, NDebug); return;
1990/1223		} dumpregs(ur); panic("fault: 0x%lux", badvaddr); exit(); }
1991/01151		splhi();
1991/0110		} void faultasync(Ureg *ur) { int user; print("interrupt 15 ASER %lux ASEVAR %lux SER %lux\n", getw2(ASER), getw2(ASEVAR), getw2(SER)); dumpregs(ur); /* * Clear interrupt by toggling low bit of interrupt register */ *intrreg &= ~1; *intrreg |= 1; user = !(ur->psr&PSRPSUPER); if(user) pexit("Suicide", 0); panic("interrupt 15");
1990/1226		} /* * called in sysfile.c */ void evenaddr(ulong addr) { if(addr & 3){ postnote(u->p, 1, "sys: odd address", NDebug); error(Ebadarg); }
1990/1223		}