/*
 * MCA implementation for AMD K8 CPUs
 * Copyright (c) 2007 Advanced Micro Devices, Inc.
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 */


/* K8 common MCA documentation published at
 *
 * AMD64 Architecture Programmer's Manual Volume 2:
 * System Programming
 * Publication # 24593 Revision: 3.12
 * Issue Date: September 2006
 *
 * URL:
 * http://www.amd.com/us-en/assets/content_type/white_papers_and_tech_docs/24593.pdf
 */

/* The related documentation for K8 Revisions A - E is:
 *
 * BIOS and Kernel Developer's Guide for
 * AMD Athlon 64 and AMD Opteron Processors
 * Publication # 26094 Revision: 3.30
 * Issue Date: February 2006
 *
 * URL:
 * http://www.amd.com/us-en/assets/content_type/white_papers_and_tech_docs/26094.PDF
 */

/* The related documentation for K8 Revisions F - G is:
 *
 * BIOS and Kernel Developer's Guide for
 * AMD NPT Family 0Fh Processors
 * Publication # 32559 Revision: 3.04
 * Issue Date: December 2006
 *
 * URL:
 * http://www.amd.com/us-en/assets/content_type/white_papers_and_tech_docs/32559.pdf
 */


#include <xen/config.h>
#include <xen/init.h>
#include <xen/types.h>
#include <xen/kernel.h>
#include <xen/smp.h>
#include <xen/sched.h>
#include <xen/sched-if.h>
#include <xen/softirq.h>

#include <asm/processor.h>
#include <asm/shared.h>
#include <asm/system.h>
#include <asm/msr.h>

#include "mce.h"
#include "mce_quirks.h"

/* Machine Check Handler for AMD K8 family series */
static void k8_machine_check(struct cpu_user_regs *regs, long error_code)
{
	mcheck_cmn_handler(regs, error_code, mca_allbanks,
			   __get_cpu_var(mce_clear_banks));
}

static int k8_need_clearbank_scan(enum mca_source who, uint64_t status)
{
	if (who != MCA_MCE_SCAN)
		return 1;

	/*
	 * For fatal error, it shouldn't be cleared so that sticky bank
	 * have a chance to be handled after reboot by polling.
	 */
	if ((status & MCi_STATUS_UC) && (status & MCi_STATUS_PCC))
		return 0;

	return 1;
}

/* AMD K8 machine check */
enum mcheck_type amd_k8_mcheck_init(struct cpuinfo_x86 *c)
{
	uint32_t i;
	enum mcequirk_amd_flags quirkflag;

	quirkflag = mcequirk_lookup_amd_quirkdata(c);

	mce_handler_init();
	x86_mce_vector_register(k8_machine_check);
	mce_need_clearbank_register(k8_need_clearbank_scan);

	for (i = 0; i < nr_mce_banks; i++) {
		if (quirkflag == MCEQUIRK_K8_GART && i == 4) {
			mcequirk_amd_apply(quirkflag);
		} else {
			/* Enable error reporting of all errors */
			wrmsrl(MSR_IA32_MCx_CTL(i), 0xffffffffffffffffULL);
			wrmsrl(MSR_IA32_MCx_STATUS(i), 0x0ULL);
		}
	}

	return mcheck_amd_k8;
}
