1 /* 2 * @(#)ka730.c 7.1 (UofMD/Berkeley) 05/20/88 3 */ 4 5 #if VAX730 6 7 /* 8 * 730-specific code. 9 */ 10 11 #include "param.h" 12 13 #include "cpu.h" 14 #include "mem.h" 15 #include "mtpr.h" 16 17 struct mcr730 { 18 int mc_addr; /* address and syndrome */ 19 int mc_err; /* error bits */ 20 }; 21 22 #define M730_UNCORR 0x80000000 /* rds, uncorrectable error */ 23 #define M730_CRD 0x40000000 /* crd */ 24 #define M730_FTBPE 0x20000000 /* force tbuf parity error */ 25 #define M730_ENACRD 0x10000000 /* enable crd interrupt */ 26 #define M730_MME 0x08000000 /* mem-man enable (ala ipr) */ 27 #define M730_DM 0x04000000 /* diagnostic mode */ 28 #define M730_DISECC 0x02000000 /* disable ecc */ 29 30 #define M730_INH(mcr) ((mcr)->mc_err = M730_MME) 31 #define M730_ENA(mcr) ((mcr)->mc_err = (M730_MME|M730_ENACRD)) 32 #define M730_ERR(mcr) ((mcr)->mc_err & (M730_UNCORR|M730_CRD)) 33 #define M730_SYN(addr) ((mcr)->mc_addr & 0x7f) 34 #define M730_ADDR(addr) (((mcr)->mc_addr >> 8) & 0x7fff) 35 36 /* enable crd interrupts */ 37 ka730_memenable() 38 { 39 40 M730_ENA((struct mcr730 *)mcraddr[0]); 41 } 42 43 /* log crd errors */ 44 ka730_memerr() 45 { 46 register struct mcr730 *mcr = (struct mcr730 *)mcraddr[0]; 47 struct mcr730 amcr; 48 49 /* 50 * Must be careful on the 730 not to use invalid 51 * instructions in I/O space, so make a copy; 52 */ 53 amcr.mc_addr = mcr->mc_addr; 54 amcr.mc_err = mcr->mc_err; 55 if (M730_ERR(&amcr)) { 56 printf("mcr0: %s", (amcr.mc_err & M730_UNCORR) ? 57 "hard error" : "soft ecc"); 58 printf(" addr %x syn %x\n", M730_ADDR(&amcr), M730_SYN(&amcr)); 59 M730_INH(mcr); 60 } 61 } 62 63 #define NMC730 12 64 char *mc730[] = { 65 "tb par", "bad retry", "bad intr id", "cant write ptem", 66 "unkn mcr err", "iib rd err", "nxm ref", "cp rds", 67 "unalgn ioref", "nonlw ioref", "bad ioaddr", "unalgn ubaddr", 68 }; 69 70 struct mc730frame { 71 int mc3_bcnt; /* byte count == 0xc */ 72 int mc3_summary; /* summary parameter */ 73 int mc3_parm[2]; /* parameter 1 and 2 */ 74 int mc3_pc; /* trapped pc */ 75 int mc3_psl; /* trapped psl */ 76 }; 77 78 ka730_mchk(cmcf) 79 caddr_t cmcf; 80 { 81 register struct mc730frame *mcf = (struct mc730frame *)cmcf; 82 register u_int type = mcf->mc3_summary; 83 84 printf("machine check %x: %s\n", type, 85 type < NMC730 ? mc730[type] : "???"); 86 printf("\tparams %x,%x pc %x psl %x mcesr %x\n", 87 mcf->mc3_parm[0], mcf->mc3_parm[1], 88 mcf->mc3_pc, mcf->mc3_psl, mfpr(MCESR)); 89 mtpr(MCESR, 0xf); 90 return (MCHK_PANIC); 91 } 92 #endif 93