root/arch/alpha/kernel/err_ev7.c
// SPDX-License-Identifier: GPL-2.0
/*
 *      linux/arch/alpha/kernel/err_ev7.c
 *
 *      Copyright (C) 2000 Jeff Wiedemeier (Compaq Computer Corporation)
 *
 *      Error handling code supporting Alpha systems
 */

#include <linux/init.h>
#include <linux/sched.h>

#include <asm/io.h>
#include <asm/hwrpb.h>
#include <asm/smp.h>
#include <asm/err_common.h>
#include <asm/err_ev7.h>

#include "err_impl.h"
#include "proto.h"

struct ev7_lf_subpackets *
ev7_collect_logout_frame_subpackets(struct el_subpacket *el_ptr,
                                    struct ev7_lf_subpackets *lf_subpackets)
{
        struct el_subpacket *subpacket;
        int i;

        /*
         * A Marvel machine check frame is always packaged in an
         * el_subpacket of class HEADER, type LOGOUT_FRAME.
         */
        if (el_ptr->class != EL_CLASS__HEADER || 
            el_ptr->type != EL_TYPE__HEADER__LOGOUT_FRAME)
                return NULL;

        /*
         * It is a logout frame header. Look at the one subpacket.
         */
        el_ptr = (struct el_subpacket *)
                ((unsigned long)el_ptr + el_ptr->length);

        /*
         * It has to be class PAL, type LOGOUT_FRAME.
         */
        if (el_ptr->class != EL_CLASS__PAL ||
            el_ptr->type != EL_TYPE__PAL__LOGOUT_FRAME)
                return NULL;

        lf_subpackets->logout = (struct ev7_pal_logout_subpacket *)
                el_ptr->by_type.raw.data_start;

        /*
         * Process the subpackets.
         */
        subpacket = (struct el_subpacket *)
                ((unsigned long)el_ptr + el_ptr->length);
        for (i = 0;
             subpacket && i < lf_subpackets->logout->subpacket_count;
             subpacket = (struct el_subpacket *)
                     ((unsigned long)subpacket + subpacket->length), i++) {
                /*
                 * All subpackets should be class PAL.
                 */
                if (subpacket->class != EL_CLASS__PAL) {
                        printk("%s**UNEXPECTED SUBPACKET CLASS %d "
                               "IN LOGOUT FRAME (packet %d\n",
                               err_print_prefix, subpacket->class, i);
                        return NULL;
                }

                /*
                 * Remember the subpacket.
                 */
                switch(subpacket->type) {
                case EL_TYPE__PAL__EV7_PROCESSOR:
                        lf_subpackets->ev7 =
                                (struct ev7_pal_processor_subpacket *)
                                subpacket->by_type.raw.data_start;
                        break;

                case EL_TYPE__PAL__EV7_RBOX:
                        lf_subpackets->rbox = (struct ev7_pal_rbox_subpacket *)
                                subpacket->by_type.raw.data_start;
                        break;

                case EL_TYPE__PAL__EV7_ZBOX:
                        lf_subpackets->zbox = (struct ev7_pal_zbox_subpacket *)
                                subpacket->by_type.raw.data_start;
                        break;

                case EL_TYPE__PAL__EV7_IO:
                        lf_subpackets->io = (struct ev7_pal_io_subpacket *)
                                subpacket->by_type.raw.data_start;
                        break;

                case EL_TYPE__PAL__ENV__AMBIENT_TEMPERATURE:
                case EL_TYPE__PAL__ENV__AIRMOVER_FAN:
                case EL_TYPE__PAL__ENV__VOLTAGE:
                case EL_TYPE__PAL__ENV__INTRUSION:
                case EL_TYPE__PAL__ENV__POWER_SUPPLY:
                case EL_TYPE__PAL__ENV__LAN:
                case EL_TYPE__PAL__ENV__HOT_PLUG:
                        lf_subpackets->env[ev7_lf_env_index(subpacket->type)] =
                                (struct ev7_pal_environmental_subpacket *)
                                subpacket->by_type.raw.data_start;
                        break;
                                
                default:
                        /*
                         * Don't know what kind of frame this is.
                         */
                        return NULL;
                }
        }

        return lf_subpackets;
}

void
ev7_machine_check(unsigned long vector, unsigned long la_ptr)
{
        struct el_subpacket *el_ptr = (struct el_subpacket *)la_ptr;
        char *saved_err_prefix = err_print_prefix;

        /*
         * Sync the processor
         */
        mb();
        draina();

        err_print_prefix = KERN_CRIT;
        printk("%s*CPU %s Error (Vector 0x%x) reported on CPU %d\n",
               err_print_prefix, 
               (vector == SCB_Q_PROCERR) ? "Correctable" : "Uncorrectable",
               (unsigned int)vector, (int)smp_processor_id());
        el_process_subpacket(el_ptr);
        err_print_prefix = saved_err_prefix;

        /* 
         * Release the logout frame 
         */
        wrmces(0x7);
        mb();
}

static char *el_ev7_processor_subpacket_annotation[] = {
        "Subpacket Header",     "I_STAT",       "DC_STAT",
        "C_ADDR",               "C_SYNDROME_1", "C_SYNDROME_0",
        "C_STAT",               "C_STS",        "MM_STAT",
        "EXC_ADDR",             "IER_CM",       "ISUM",
        "PAL_BASE",             "I_CTL",        "PROCESS_CONTEXT",
        "CBOX_CTL",             "CBOX_STP_CTL", "CBOX_ACC_CTL",
        "CBOX_LCL_SET",         "CBOX_GLB_SET", "BBOX_CTL",
        "BBOX_ERR_STS",         "BBOX_ERR_IDX", "CBOX_DDP_ERR_STS",
        "BBOX_DAT_RMP",         NULL
};

static char *el_ev7_zbox_subpacket_annotation[] = {
        "Subpacket Header",     
        "ZBOX(0): DRAM_ERR_STATUS_2 / DRAM_ERR_STATUS_1",
        "ZBOX(0): DRAM_ERROR_CTL    / DRAM_ERR_STATUS_3",
        "ZBOX(0): DIFT_TIMEOUT      / DRAM_ERR_ADR",
        "ZBOX(0): FRC_ERR_ADR       / DRAM_MAPPER_CTL",
        "ZBOX(0): reserved          / DIFT_ERR_STATUS",
        "ZBOX(1): DRAM_ERR_STATUS_2 / DRAM_ERR_STATUS_1",
        "ZBOX(1): DRAM_ERROR_CTL    / DRAM_ERR_STATUS_3",
        "ZBOX(1): DIFT_TIMEOUT      / DRAM_ERR_ADR",
        "ZBOX(1): FRC_ERR_ADR       / DRAM_MAPPER_CTL",
        "ZBOX(1): reserved          / DIFT_ERR_STATUS",
        "CBOX_CTL",             "CBOX_STP_CTL",
        "ZBOX(0)_ERROR_PA",     "ZBOX(1)_ERROR_PA",
        "ZBOX(0)_ORED_SYNDROME","ZBOX(1)_ORED_SYNDROME",
        NULL
};

static char *el_ev7_rbox_subpacket_annotation[] = {
        "Subpacket Header",     "RBOX_CFG",     "RBOX_N_CFG",
        "RBOX_S_CFG",           "RBOX_E_CFG",   "RBOX_W_CFG",
        "RBOX_N_ERR",           "RBOX_S_ERR",   "RBOX_E_ERR",
        "RBOX_W_ERR",           "RBOX_IO_CFG",  "RBOX_IO_ERR",
        "RBOX_L_ERR",           "RBOX_WHOAMI",  "RBOX_IMASL",
        "RBOX_INTQ",            "RBOX_INT",     NULL
};

static char *el_ev7_io_subpacket_annotation[] = {
        "Subpacket Header",     "IO_ASIC_REV",  "IO_SYS_REV",
        "IO7_UPH",              "HPI_CTL",      "CRD_CTL",
        "HEI_CTL",              "PO7_ERROR_SUM","PO7_UNCRR_SYM",
        "PO7_CRRCT_SYM",        "PO7_UGBGE_SYM","PO7_ERR_PKT0",
        "PO7_ERR_PKT1",         "reserved",     "reserved",
        "PO0_ERR_SUM",          "PO0_TLB_ERR",  "PO0_SPL_COMPLT",
        "PO0_TRANS_SUM",        "PO0_FIRST_ERR","PO0_MULT_ERR",
        "DM CSR PH",            "DM CSR PH",    "DM CSR PH",
        "DM CSR PH",            "reserved",
        "PO1_ERR_SUM",          "PO1_TLB_ERR",  "PO1_SPL_COMPLT",
        "PO1_TRANS_SUM",        "PO1_FIRST_ERR","PO1_MULT_ERR",
        "DM CSR PH",            "DM CSR PH",    "DM CSR PH",
        "DM CSR PH",            "reserved",
        "PO2_ERR_SUM",          "PO2_TLB_ERR",  "PO2_SPL_COMPLT",
        "PO2_TRANS_SUM",        "PO2_FIRST_ERR","PO2_MULT_ERR",
        "DM CSR PH",            "DM CSR PH",    "DM CSR PH",
        "DM CSR PH",            "reserved",
        "PO3_ERR_SUM",          "PO3_TLB_ERR",  "PO3_SPL_COMPLT",
        "PO3_TRANS_SUM",        "PO3_FIRST_ERR","PO3_MULT_ERR",
        "DM CSR PH",            "DM CSR PH",    "DM CSR PH",
        "DM CSR PH",            "reserved",     
        NULL
};
        
static struct el_subpacket_annotation el_ev7_pal_annotations[] = {
        SUBPACKET_ANNOTATION(EL_CLASS__PAL,
                             EL_TYPE__PAL__EV7_PROCESSOR,
                             1,
                             "EV7 Processor Subpacket",
                             el_ev7_processor_subpacket_annotation),
        SUBPACKET_ANNOTATION(EL_CLASS__PAL,
                             EL_TYPE__PAL__EV7_ZBOX,
                             1,
                             "EV7 ZBOX Subpacket",
                             el_ev7_zbox_subpacket_annotation),
        SUBPACKET_ANNOTATION(EL_CLASS__PAL,
                             EL_TYPE__PAL__EV7_RBOX,
                             1,
                             "EV7 RBOX Subpacket",
                             el_ev7_rbox_subpacket_annotation),
        SUBPACKET_ANNOTATION(EL_CLASS__PAL,
                             EL_TYPE__PAL__EV7_IO,
                             1,
                             "EV7 IO Subpacket",
                             el_ev7_io_subpacket_annotation)
};

static struct el_subpacket *
ev7_process_pal_subpacket(struct el_subpacket *header)
{
        struct ev7_pal_subpacket *packet;

        if (header->class != EL_CLASS__PAL) {
                printk("%s  ** Unexpected header CLASS %d TYPE %d, aborting\n",
                       err_print_prefix,
                       header->class, header->type);
                return NULL;
        }

        packet = (struct ev7_pal_subpacket *)header->by_type.raw.data_start;

        switch(header->type) {
        case EL_TYPE__PAL__LOGOUT_FRAME:
                printk("%s*** MCHK occurred on LPID %lld (RBOX %llx)\n",
                       err_print_prefix,
                       packet->by_type.logout.whami, 
                       packet->by_type.logout.rbox_whami);
                el_print_timestamp(&packet->by_type.logout.timestamp);
                printk("%s  EXC_ADDR: %016llx\n"
                         "  HALT_CODE: %llx\n",
                       err_print_prefix,
                       packet->by_type.logout.exc_addr,
                       packet->by_type.logout.halt_code);
                el_process_subpackets(header,
                                      packet->by_type.logout.subpacket_count);
                break;
        default:
                printk("%s  ** PAL TYPE %d SUBPACKET\n", 
                       err_print_prefix,
                       header->type);
                el_annotate_subpacket(header);
                break;
        }
        
        return (struct el_subpacket *)((unsigned long)header + header->length);
}

struct el_subpacket_handler ev7_pal_subpacket_handler =
        SUBPACKET_HANDLER_INIT(EL_CLASS__PAL, ev7_process_pal_subpacket);

void __init
ev7_register_error_handlers(void)
{
        int i;

        for (i = 0; i < ARRAY_SIZE(el_ev7_pal_annotations); i++)
                cdl_register_subpacket_annotation(&el_ev7_pal_annotations[i]);

        cdl_register_subpacket_handler(&ev7_pal_subpacket_handler);
}