NetBSD/sys/arch/sun3x/dev/memerr.c

255 lines
6.7 KiB
C

/* $NetBSD: memerr.c,v 1.3 1997/04/25 19:02:46 gwr Exp $ */
/*
* Copyright (c) 1992, 1993
* The Regents of the University of California. All rights reserved.
*
* This software was developed by the Computer Systems Engineering group
* at Lawrence Berkeley Laboratory under DARPA contract BG 91-66 and
* contributed to Berkeley.
*
* All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Lawrence Berkeley Laboratory.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by the University of
* California, Berkeley and its contributors.
* 4. Neither the name of the University nor the names of its contributors
* may be used to endorse or promote products derived from this software
* without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*
* @(#)memreg.c 8.1 (Berkeley) 6/11/93
*/
#include <sys/param.h>
#include <sys/systm.h>
#include <sys/device.h>
#include <machine/autoconf.h>
#include <machine/cpu.h>
#include <machine/idprom.h>
#include <machine/obio.h>
#include <machine/pte.h>
#include <machine/machdep.h>
#include "memerr.h"
/* #include "eccreg.h" - not yet */
#define ME_PRI 7 /* Interrupt level (NMI) */
extern unsigned char cpu_machine_id;
enum memerr_type { ME_PAR = 0, ME_ECC = 1 };
struct memerr_softc {
struct device sc_dev;
struct memerr *sc_reg;
enum memerr_type sc_type;
char *sc_typename; /* "Parity" or "ECC" */
char *sc_csrbits; /* how to print csr bits */
/* XXX: counters? */
};
static int memerr_match __P((struct device *, struct cfdata *, void *));
static void memerr_attach __P((struct device *, struct device *, void *));
static int memerr_interrupt __P((void *));
static void memerr_correctable __P((struct memerr_softc *));
struct cfattach memerr_ca = {
sizeof(struct memerr_softc), memerr_match, memerr_attach
};
struct cfdriver memerr_cd = {
NULL, "memerr", DV_DULL
};
static int
memerr_match(parent, cf, args)
struct device *parent;
struct cfdata *cf;
void *args;
{
struct confargs *ca = args;
/* This driver only supports one unit. */
if (cf->cf_unit != 0)
return (0);
/* The peek returns -1 on bus error. */
if (bus_peek(ca->ca_bustype, ca->ca_paddr, 1) == -1)
return (0);
/* Default interrupt priority. */
if (ca->ca_intpri == -1)
ca->ca_intpri = ME_PRI;
return (1);
}
static void
memerr_attach(parent, self, args)
struct device *parent;
struct device *self;
void *args;
{
struct memerr_softc *sc = (void *)self;
struct confargs *ca = args;
struct memerr *mer;
/*
* Which type of memory subsystem do we have?
*/
switch (cpu_machine_id) {
case SUN3X_MACH_470:
sc->sc_type = ME_ECC;
sc->sc_typename = "ECC";
sc->sc_csrbits = ME_ECC_STR;
break;
default:
sc->sc_type = ME_PAR;
sc->sc_typename = "Parity";
sc->sc_csrbits = ME_PAR_STR;
break;
}
printf(": (%s memory)\n", sc->sc_typename);
mer = (struct memerr *)
obio_mapin(ca->ca_paddr, sizeof(*mer));
if (mer == NULL)
panic("memerr: can not map register");
sc->sc_reg = mer;
/* Install interrupt handler. */
isr_add_autovect(memerr_interrupt,
(void *)sc, ca->ca_intpri);
/* Enable error interrupt (and checking). */
if (sc->sc_type == ME_PAR)
mer->me_csr = ME_CSR_IENA | ME_PAR_CHECK;
else {
/*
* XXX: Some day, figure out how to decode
* correctable errors and set ME_ECC_CE_ENA
* here so we can log them...
*/
mer->me_csr = ME_CSR_IENA; /* | ME_ECC_CE_ENA */
}
}
/*****************************************************************
* Functions for ECC memory
*****************************************************************/
static int
memerr_interrupt(arg)
void *arg;
{
struct memerr_softc *sc = arg;
volatile struct memerr *me = sc->sc_reg;
u_char csr, ctx;
u_int pa, va;
int pte;
char bits[64];
csr = me->me_csr;
if ((csr & ME_CSR_IPEND) == 0)
return (0);
va = me->me_vaddr;
ctx = (va >> 28) & 0xF;
va &= 0x0FFFffff;
pte = get_pte(va);
#if 0 /* XXX */
pa = PG_PA(pte); /* XXX */
#else
pa = pte & MMU_SHORT_PTE_BASEADDR;
#endif
printf("\nMemory error on %s cycle!\n",
(ctx & 8) ? "DVMA" : "CPU");
printf(" ctx=%d, vaddr=0x%x, paddr=0x%x\n",
(ctx & 7), va, pa);
printf(" csr=%s\n", bitmask_snprintf(csr, sc->sc_csrbits,
bits, sizeof(bits)));
/*
* If we have parity-checked memory, there is
* not much to be done. Any error is fatal.
*/
if (sc->sc_type == ME_PAR) {
if (csr & ME_PAR_EMASK) {
/* Parity errors are fatal. */
goto die;
}
/* The IPEND bit was set, but no error bits. */
goto noerror;
}
/*
* We have ECC memory. More complicated...
*/
if (csr & (ME_ECC_WBTMO | ME_ECC_WBERR)) {
printf(" write-back failed, pte=0x%x\n", pte);
goto die;
}
if (csr & ME_ECC_UE) {
printf(" uncorrectable ECC error\n");
goto die;
}
if (csr & ME_ECC_CE) {
/* Just log this and continue. */
memerr_correctable(sc);
goto recover;
}
/* The IPEND bit was set, but no error bits. */
goto noerror;
die:
panic("all bets are off...");
noerror:
printf("memerr: no error bits set?\n");
recover:
/* Clear the error by writing the address register. */
me->me_vaddr = 0;
return (1);
}
/*
* Announce (and log) a correctable ECC error.
* Need to look at the ECC syndrome register on
* the memory board that caused the error...
*/
void
memerr_correctable(sc)
struct memerr_softc *sc;
{
/* XXX: Not yet... */
}