arch/powerpc/lib/test_emulate_step.c - SHIFTPHONES/kernel/common - Gitiles

 // SPDX-License-Identifier: GPL-2.0-or-later
 /*
  * Simple sanity tests for instruction emulation infrastructure.
  *
  * Copyright IBM Corp. 2016
  */

 #define pr_fmt(fmt) "emulate_step_test: " fmt

 #include <linux/ptrace.h>
 #include <asm/sstep.h>
 #include <asm/ppc-opcode.h>
 #include <asm/code-patching.h>

 #define IMM_L(i)		((uintptr_t)(i) & 0xffff)
 #define IMM_DS(i)		((uintptr_t)(i) & 0xfffc)

 /*
  * Defined with TEST_ prefix so it does not conflict with other
  * definitions.
  */
 #define TEST_LD(r, base, i)	(PPC_INST_LD | ___PPC_RT(r) |		\
 					___PPC_RA(base) | IMM_DS(i))
 #define TEST_LWZ(r, base, i)	(PPC_INST_LWZ | ___PPC_RT(r) |		\
 					___PPC_RA(base) | IMM_L(i))
 #define TEST_LWZX(t, a, b)	(PPC_INST_LWZX | ___PPC_RT(t) |		\
 					___PPC_RA(a) | ___PPC_RB(b))
 #define TEST_STD(r, base, i)	(PPC_INST_STD | ___PPC_RS(r) |		\
 					___PPC_RA(base) | IMM_DS(i))
 #define TEST_LDARX(t, a, b, eh)	(PPC_INST_LDARX | ___PPC_RT(t) |	\
 					___PPC_RA(a) | ___PPC_RB(b) |	\
 					__PPC_EH(eh))
 #define TEST_STDCX(s, a, b)	(PPC_INST_STDCX | ___PPC_RS(s) |	\
 					___PPC_RA(a) | ___PPC_RB(b))
 #define TEST_LFSX(t, a, b)	(PPC_INST_LFSX | ___PPC_RT(t) |		\
 					___PPC_RA(a) | ___PPC_RB(b))
 #define TEST_STFSX(s, a, b)	(PPC_INST_STFSX | ___PPC_RS(s) |	\
 					___PPC_RA(a) | ___PPC_RB(b))
 #define TEST_LFDX(t, a, b)	(PPC_INST_LFDX | ___PPC_RT(t) |		\
 					___PPC_RA(a) | ___PPC_RB(b))
 #define TEST_STFDX(s, a, b)	(PPC_INST_STFDX | ___PPC_RS(s) |	\
 					___PPC_RA(a) | ___PPC_RB(b))
 #define TEST_LVX(t, a, b)	(PPC_INST_LVX | ___PPC_RT(t) |		\
 					___PPC_RA(a) | ___PPC_RB(b))
 #define TEST_STVX(s, a, b)	(PPC_INST_STVX | ___PPC_RS(s) |		\
 					___PPC_RA(a) | ___PPC_RB(b))
 #define TEST_LXVD2X(s, a, b)	(PPC_INST_LXVD2X | VSX_XX1((s), R##a, R##b))
 #define TEST_STXVD2X(s, a, b)	(PPC_INST_STXVD2X | VSX_XX1((s), R##a, R##b))
 #define TEST_ADD(t, a, b)	(PPC_INST_ADD | ___PPC_RT(t) |		\
 					___PPC_RA(a) | ___PPC_RB(b))
 #define TEST_ADD_DOT(t, a, b)	(PPC_INST_ADD | ___PPC_RT(t) |		\
 					___PPC_RA(a) | ___PPC_RB(b) | 0x1)
 #define TEST_ADDC(t, a, b)	(PPC_INST_ADDC | ___PPC_RT(t) |		\
 					___PPC_RA(a) | ___PPC_RB(b))
 #define TEST_ADDC_DOT(t, a, b)	(PPC_INST_ADDC | ___PPC_RT(t) |		\
 					___PPC_RA(a) | ___PPC_RB(b) | 0x1)

 #define MAX_SUBTESTS	16

 #define IGNORE_GPR(n)	(0x1UL << (n))
 #define IGNORE_XER	(0x1UL << 32)
 #define IGNORE_CCR	(0x1UL << 33)

 static void __init init_pt_regs(struct pt_regs *regs)
 {
 	static unsigned long msr;
 	static bool msr_cached;

 	memset(regs, 0, sizeof(struct pt_regs));

 	if (likely(msr_cached)) {
 		regs->msr = msr;
 		return;
 	}

 	asm volatile("mfmsr %0" : "=r"(regs->msr));

 	regs->msr |= MSR_FP;
 	regs->msr |= MSR_VEC;
 	regs->msr |= MSR_VSX;

 	msr = regs->msr;
 	msr_cached = true;
 }

 static void __init show_result(char *mnemonic, char *result)
 {
 	pr_info("%-14s : %s\n", mnemonic, result);
 }

 static void __init show_result_with_descr(char *mnemonic, char *descr,
 					  char *result)
 {
 	pr_info("%-14s : %-50s %s\n", mnemonic, descr, result);
 }

 static void __init test_ld(void)
 {
 	struct pt_regs regs;
 	unsigned long a = 0x23;
 	int stepped = -1;

 	init_pt_regs(&regs);
 	regs.gpr[3] = (unsigned long) &a;

 	/* ld r5, 0(r3) */
 	stepped = emulate_step(&regs, TEST_LD(5, 3, 0));

 	if (stepped == 1 && regs.gpr[5] == a)
 		show_result("ld", "PASS");
 	else
 		show_result("ld", "FAIL");
 }

 static void __init test_lwz(void)
 {
 	struct pt_regs regs;
 	unsigned int a = 0x4545;
 	int stepped = -1;

 	init_pt_regs(&regs);
 	regs.gpr[3] = (unsigned long) &a;

 	/* lwz r5, 0(r3) */
 	stepped = emulate_step(&regs, TEST_LWZ(5, 3, 0));

 	if (stepped == 1 && regs.gpr[5] == a)
 		show_result("lwz", "PASS");
 	else
 		show_result("lwz", "FAIL");
 }

 static void __init test_lwzx(void)
 {
 	struct pt_regs regs;
 	unsigned int a[3] = {0x0, 0x0, 0x1234};
 	int stepped = -1;

 	init_pt_regs(&regs);
 	regs.gpr[3] = (unsigned long) a;
 	regs.gpr[4] = 8;
 	regs.gpr[5] = 0x8765;

 	/* lwzx r5, r3, r4 */
 	stepped = emulate_step(&regs, TEST_LWZX(5, 3, 4));
 	if (stepped == 1 && regs.gpr[5] == a[2])
 		show_result("lwzx", "PASS");
 	else
 		show_result("lwzx", "FAIL");
 }

 static void __init test_std(void)
 {
 	struct pt_regs regs;
 	unsigned long a = 0x1234;
 	int stepped = -1;

 	init_pt_regs(&regs);
 	regs.gpr[3] = (unsigned long) &a;
 	regs.gpr[5] = 0x5678;

 	/* std r5, 0(r3) */
 	stepped = emulate_step(&regs, TEST_STD(5, 3, 0));
 	if (stepped == 1 && regs.gpr[5] == a)
 		show_result("std", "PASS");
 	else
 		show_result("std", "FAIL");
 }

 static void __init test_ldarx_stdcx(void)
 {
 	struct pt_regs regs;
 	unsigned long a = 0x1234;
 	int stepped = -1;
 	unsigned long cr0_eq = 0x1 << 29; /* eq bit of CR0 */

 	init_pt_regs(&regs);
 	asm volatile("mfcr %0" : "=r"(regs.ccr));


 	/*** ldarx ***/

 	regs.gpr[3] = (unsigned long) &a;
 	regs.gpr[4] = 0;
 	regs.gpr[5] = 0x5678;

 	/* ldarx r5, r3, r4, 0 */
 	stepped = emulate_step(&regs, TEST_LDARX(5, 3, 4, 0));

 	/*
 	 * Don't touch 'a' here. Touching 'a' can do Load/store
 	 * of 'a' which result in failure of subsequent stdcx.
 	 * Instead, use hardcoded value for comparison.
 	 */
 	if (stepped <= 0 || regs.gpr[5] != 0x1234) {
 		show_result("ldarx / stdcx.", "FAIL (ldarx)");
 		return;
 	}


 	/*** stdcx. ***/

 	regs.gpr[5] = 0x9ABC;

 	/* stdcx. r5, r3, r4 */
 	stepped = emulate_step(&regs, TEST_STDCX(5, 3, 4));

 	/*
 	 * Two possible scenarios that indicates successful emulation
 	 * of stdcx. :
 	 *  1. Reservation is active and store is performed. In this
 	 *     case cr0.eq bit will be set to 1.
 	 *  2. Reservation is not active and store is not performed.
 	 *     In this case cr0.eq bit will be set to 0.
 	 */
 	if (stepped == 1 && ((regs.gpr[5] == a && (regs.ccr & cr0_eq))
 			|| (regs.gpr[5] != a && !(regs.ccr & cr0_eq))))
 		show_result("ldarx / stdcx.", "PASS");
 	else
 		show_result("ldarx / stdcx.", "FAIL (stdcx.)");
 }

 #ifdef CONFIG_PPC_FPU
 static void __init test_lfsx_stfsx(void)
 {
 	struct pt_regs regs;
 	union {
 		float a;
 		int b;
 	} c;
 	int cached_b;
 	int stepped = -1;

 	init_pt_regs(&regs);


 	/*** lfsx ***/

 	c.a = 123.45;
 	cached_b = c.b;

 	regs.gpr[3] = (unsigned long) &c.a;
 	regs.gpr[4] = 0;

 	/* lfsx frt10, r3, r4 */
 	stepped = emulate_step(&regs, TEST_LFSX(10, 3, 4));

 	if (stepped == 1)
 		show_result("lfsx", "PASS");
 	else
 		show_result("lfsx", "FAIL");


 	/*** stfsx ***/

 	c.a = 678.91;

 	/* stfsx frs10, r3, r4 */
 	stepped = emulate_step(&regs, TEST_STFSX(10, 3, 4));

 	if (stepped == 1 && c.b == cached_b)
 		show_result("stfsx", "PASS");
 	else
 		show_result("stfsx", "FAIL");
 }

 static void __init test_lfdx_stfdx(void)
 {
 	struct pt_regs regs;
 	union {
 		double a;
 		long b;
 	} c;
 	long cached_b;
 	int stepped = -1;

 	init_pt_regs(&regs);


 	/*** lfdx ***/

 	c.a = 123456.78;
 	cached_b = c.b;

 	regs.gpr[3] = (unsigned long) &c.a;
 	regs.gpr[4] = 0;

 	/* lfdx frt10, r3, r4 */
 	stepped = emulate_step(&regs, TEST_LFDX(10, 3, 4));

 	if (stepped == 1)
 		show_result("lfdx", "PASS");
 	else
 		show_result("lfdx", "FAIL");


 	/*** stfdx ***/

 	c.a = 987654.32;

 	/* stfdx frs10, r3, r4 */
 	stepped = emulate_step(&regs, TEST_STFDX(10, 3, 4));

 	if (stepped == 1 && c.b == cached_b)
 		show_result("stfdx", "PASS");
 	else
 		show_result("stfdx", "FAIL");
 }
 #else
 static void __init test_lfsx_stfsx(void)
 {
 	show_result("lfsx", "SKIP (CONFIG_PPC_FPU is not set)");
 	show_result("stfsx", "SKIP (CONFIG_PPC_FPU is not set)");
 }

 static void __init test_lfdx_stfdx(void)
 {
 	show_result("lfdx", "SKIP (CONFIG_PPC_FPU is not set)");
 	show_result("stfdx", "SKIP (CONFIG_PPC_FPU is not set)");
 }
 #endif /* CONFIG_PPC_FPU */

 #ifdef CONFIG_ALTIVEC
 static void __init test_lvx_stvx(void)
 {
 	struct pt_regs regs;
 	union {
 		vector128 a;
 		u32 b[4];
 	} c;
 	u32 cached_b[4];
 	int stepped = -1;

 	init_pt_regs(&regs);


 	/*** lvx ***/

 	cached_b[0] = c.b[0] = 923745;
 	cached_b[1] = c.b[1] = 2139478;
 	cached_b[2] = c.b[2] = 9012;
 	cached_b[3] = c.b[3] = 982134;

 	regs.gpr[3] = (unsigned long) &c.a;
 	regs.gpr[4] = 0;

 	/* lvx vrt10, r3, r4 */
 	stepped = emulate_step(&regs, TEST_LVX(10, 3, 4));

 	if (stepped == 1)
 		show_result("lvx", "PASS");
 	else
 		show_result("lvx", "FAIL");


 	/*** stvx ***/

 	c.b[0] = 4987513;
 	c.b[1] = 84313948;
 	c.b[2] = 71;
 	c.b[3] = 498532;

 	/* stvx vrs10, r3, r4 */
 	stepped = emulate_step(&regs, TEST_STVX(10, 3, 4));

 	if (stepped == 1 && cached_b[0] == c.b[0] && cached_b[1] == c.b[1] &&
 	    cached_b[2] == c.b[2] && cached_b[3] == c.b[3])
 		show_result("stvx", "PASS");
 	else
 		show_result("stvx", "FAIL");
 }
 #else
 static void __init test_lvx_stvx(void)
 {
 	show_result("lvx", "SKIP (CONFIG_ALTIVEC is not set)");
 	show_result("stvx", "SKIP (CONFIG_ALTIVEC is not set)");
 }
 #endif /* CONFIG_ALTIVEC */

 #ifdef CONFIG_VSX
 static void __init test_lxvd2x_stxvd2x(void)
 {
 	struct pt_regs regs;
 	union {
 		vector128 a;
 		u32 b[4];
 	} c;
 	u32 cached_b[4];
 	int stepped = -1;

 	init_pt_regs(&regs);


 	/*** lxvd2x ***/

 	cached_b[0] = c.b[0] = 18233;
 	cached_b[1] = c.b[1] = 34863571;
 	cached_b[2] = c.b[2] = 834;
 	cached_b[3] = c.b[3] = 6138911;

 	regs.gpr[3] = (unsigned long) &c.a;
 	regs.gpr[4] = 0;

 	/* lxvd2x vsr39, r3, r4 */
 	stepped = emulate_step(&regs, TEST_LXVD2X(39, 3, 4));

 	if (stepped == 1 && cpu_has_feature(CPU_FTR_VSX)) {
 		show_result("lxvd2x", "PASS");
 	} else {
 		if (!cpu_has_feature(CPU_FTR_VSX))
 			show_result("lxvd2x", "PASS (!CPU_FTR_VSX)");
 		else
 			show_result("lxvd2x", "FAIL");
 	}


 	/*** stxvd2x ***/

 	c.b[0] = 21379463;
 	c.b[1] = 87;
 	c.b[2] = 374234;
 	c.b[3] = 4;

 	/* stxvd2x vsr39, r3, r4 */
 	stepped = emulate_step(&regs, TEST_STXVD2X(39, 3, 4));

 	if (stepped == 1 && cached_b[0] == c.b[0] && cached_b[1] == c.b[1] &&
 	    cached_b[2] == c.b[2] && cached_b[3] == c.b[3] &&
 	    cpu_has_feature(CPU_FTR_VSX)) {
 		show_result("stxvd2x", "PASS");
 	} else {
 		if (!cpu_has_feature(CPU_FTR_VSX))
 			show_result("stxvd2x", "PASS (!CPU_FTR_VSX)");
 		else
 			show_result("stxvd2x", "FAIL");
 	}
 }
 #else
 static void __init test_lxvd2x_stxvd2x(void)
 {
 	show_result("lxvd2x", "SKIP (CONFIG_VSX is not set)");
 	show_result("stxvd2x", "SKIP (CONFIG_VSX is not set)");
 }
 #endif /* CONFIG_VSX */

 static void __init run_tests_load_store(void)
 {
 	test_ld();
 	test_lwz();
 	test_lwzx();
 	test_std();
 	test_ldarx_stdcx();
 	test_lfsx_stfsx();
 	test_lfdx_stfdx();
 	test_lvx_stvx();
 	test_lxvd2x_stxvd2x();
 }

 struct compute_test {
 	char *mnemonic;
 	struct {
 		char *descr;
 		unsigned long flags;
 		unsigned int instr;
 		struct pt_regs regs;
 	} subtests[MAX_SUBTESTS + 1];
 };

 static struct compute_test compute_tests[] = {
 	{
 		.mnemonic = "nop",
 		.subtests = {
 			{
 				.descr = "R0 = LONG_MAX",
 				.instr = PPC_INST_NOP,
 				.regs = {
 					.gpr[0] = LONG_MAX,
 				}
 			}
 		}
 	},
 	{
 		.mnemonic = "add",
 		.subtests = {
 			{
 				.descr = "RA = LONG_MIN, RB = LONG_MIN",
 				.instr = TEST_ADD(20, 21, 22),
 				.regs = {
 					.gpr[21] = LONG_MIN,
 					.gpr[22] = LONG_MIN,
 				}
 			},
 			{
 				.descr = "RA = LONG_MIN, RB = LONG_MAX",
 				.instr = TEST_ADD(20, 21, 22),
 				.regs = {
 					.gpr[21] = LONG_MIN,
 					.gpr[22] = LONG_MAX,
 				}
 			},
 			{
 				.descr = "RA = LONG_MAX, RB = LONG_MAX",
 				.instr = TEST_ADD(20, 21, 22),
 				.regs = {
 					.gpr[21] = LONG_MAX,
 					.gpr[22] = LONG_MAX,
 				}
 			},
 			{
 				.descr = "RA = ULONG_MAX, RB = ULONG_MAX",
 				.instr = TEST_ADD(20, 21, 22),
 				.regs = {
 					.gpr[21] = ULONG_MAX,
 					.gpr[22] = ULONG_MAX,
 				}
 			},
 			{
 				.descr = "RA = ULONG_MAX, RB = 0x1",
 				.instr = TEST_ADD(20, 21, 22),
 				.regs = {
 					.gpr[21] = ULONG_MAX,
 					.gpr[22] = 0x1,
 				}
 			},
 			{
 				.descr = "RA = INT_MIN, RB = INT_MIN",
 				.instr = TEST_ADD(20, 21, 22),
 				.regs = {
 					.gpr[21] = INT_MIN,
 					.gpr[22] = INT_MIN,
 				}
 			},
 			{
 				.descr = "RA = INT_MIN, RB = INT_MAX",
 				.instr = TEST_ADD(20, 21, 22),
 				.regs = {
 					.gpr[21] = INT_MIN,
 					.gpr[22] = INT_MAX,
 				}
 			},
 			{
 				.descr = "RA = INT_MAX, RB = INT_MAX",
 				.instr = TEST_ADD(20, 21, 22),
 				.regs = {
 					.gpr[21] = INT_MAX,
 					.gpr[22] = INT_MAX,
 				}
 			},
 			{
 				.descr = "RA = UINT_MAX, RB = UINT_MAX",
 				.instr = TEST_ADD(20, 21, 22),
 				.regs = {
 					.gpr[21] = UINT_MAX,
 					.gpr[22] = UINT_MAX,
 				}
 			},
 			{
 				.descr = "RA = UINT_MAX, RB = 0x1",
 				.instr = TEST_ADD(20, 21, 22),
 				.regs = {
 					.gpr[21] = UINT_MAX,
 					.gpr[22] = 0x1,
 				}
 			}
 		}
 	},
 	{
 		.mnemonic = "add.",
 		.subtests = {
 			{
 				.descr = "RA = LONG_MIN, RB = LONG_MIN",
 				.flags = IGNORE_CCR,
 				.instr = TEST_ADD_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = LONG_MIN,
 					.gpr[22] = LONG_MIN,
 				}
 			},
 			{
 				.descr = "RA = LONG_MIN, RB = LONG_MAX",
 				.instr = TEST_ADD_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = LONG_MIN,
 					.gpr[22] = LONG_MAX,
 				}
 			},
 			{
 				.descr = "RA = LONG_MAX, RB = LONG_MAX",
 				.flags = IGNORE_CCR,
 				.instr = TEST_ADD_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = LONG_MAX,
 					.gpr[22] = LONG_MAX,
 				}
 			},
 			{
 				.descr = "RA = ULONG_MAX, RB = ULONG_MAX",
 				.instr = TEST_ADD_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = ULONG_MAX,
 					.gpr[22] = ULONG_MAX,
 				}
 			},
 			{
 				.descr = "RA = ULONG_MAX, RB = 0x1",
 				.instr = TEST_ADD_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = ULONG_MAX,
 					.gpr[22] = 0x1,
 				}
 			},
 			{
 				.descr = "RA = INT_MIN, RB = INT_MIN",
 				.instr = TEST_ADD_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = INT_MIN,
 					.gpr[22] = INT_MIN,
 				}
 			},
 			{
 				.descr = "RA = INT_MIN, RB = INT_MAX",
 				.instr = TEST_ADD_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = INT_MIN,
 					.gpr[22] = INT_MAX,
 				}
 			},
 			{
 				.descr = "RA = INT_MAX, RB = INT_MAX",
 				.instr = TEST_ADD_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = INT_MAX,
 					.gpr[22] = INT_MAX,
 				}
 			},
 			{
 				.descr = "RA = UINT_MAX, RB = UINT_MAX",
 				.instr = TEST_ADD_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = UINT_MAX,
 					.gpr[22] = UINT_MAX,
 				}
 			},
 			{
 				.descr = "RA = UINT_MAX, RB = 0x1",
 				.instr = TEST_ADD_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = UINT_MAX,
 					.gpr[22] = 0x1,
 				}
 			}
 		}
 	},
 	{
 		.mnemonic = "addc",
 		.subtests = {
 			{
 				.descr = "RA = LONG_MIN, RB = LONG_MIN",
 				.instr = TEST_ADDC(20, 21, 22),
 				.regs = {
 					.gpr[21] = LONG_MIN,
 					.gpr[22] = LONG_MIN,
 				}
 			},
 			{
 				.descr = "RA = LONG_MIN, RB = LONG_MAX",
 				.instr = TEST_ADDC(20, 21, 22),
 				.regs = {
 					.gpr[21] = LONG_MIN,
 					.gpr[22] = LONG_MAX,
 				}
 			},
 			{
 				.descr = "RA = LONG_MAX, RB = LONG_MAX",
 				.instr = TEST_ADDC(20, 21, 22),
 				.regs = {
 					.gpr[21] = LONG_MAX,
 					.gpr[22] = LONG_MAX,
 				}
 			},
 			{
 				.descr = "RA = ULONG_MAX, RB = ULONG_MAX",
 				.instr = TEST_ADDC(20, 21, 22),
 				.regs = {
 					.gpr[21] = ULONG_MAX,
 					.gpr[22] = ULONG_MAX,
 				}
 			},
 			{
 				.descr = "RA = ULONG_MAX, RB = 0x1",
 				.instr = TEST_ADDC(20, 21, 22),
 				.regs = {
 					.gpr[21] = ULONG_MAX,
 					.gpr[22] = 0x1,
 				}
 			},
 			{
 				.descr = "RA = INT_MIN, RB = INT_MIN",
 				.instr = TEST_ADDC(20, 21, 22),
 				.regs = {
 					.gpr[21] = INT_MIN,
 					.gpr[22] = INT_MIN,
 				}
 			},
 			{
 				.descr = "RA = INT_MIN, RB = INT_MAX",
 				.instr = TEST_ADDC(20, 21, 22),
 				.regs = {
 					.gpr[21] = INT_MIN,
 					.gpr[22] = INT_MAX,
 				}
 			},
 			{
 				.descr = "RA = INT_MAX, RB = INT_MAX",
 				.instr = TEST_ADDC(20, 21, 22),
 				.regs = {
 					.gpr[21] = INT_MAX,
 					.gpr[22] = INT_MAX,
 				}
 			},
 			{
 				.descr = "RA = UINT_MAX, RB = UINT_MAX",
 				.instr = TEST_ADDC(20, 21, 22),
 				.regs = {
 					.gpr[21] = UINT_MAX,
 					.gpr[22] = UINT_MAX,
 				}
 			},
 			{
 				.descr = "RA = UINT_MAX, RB = 0x1",
 				.instr = TEST_ADDC(20, 21, 22),
 				.regs = {
 					.gpr[21] = UINT_MAX,
 					.gpr[22] = 0x1,
 				}
 			},
 			{
 				.descr = "RA = LONG_MIN | INT_MIN, RB = LONG_MIN | INT_MIN",
 				.instr = TEST_ADDC(20, 21, 22),
 				.regs = {
 					.gpr[21] = LONG_MIN | (uint)INT_MIN,
 					.gpr[22] = LONG_MIN | (uint)INT_MIN,
 				}
 			}
 		}
 	},
 	{
 		.mnemonic = "addc.",
 		.subtests = {
 			{
 				.descr = "RA = LONG_MIN, RB = LONG_MIN",
 				.flags = IGNORE_CCR,
 				.instr = TEST_ADDC_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = LONG_MIN,
 					.gpr[22] = LONG_MIN,
 				}
 			},
 			{
 				.descr = "RA = LONG_MIN, RB = LONG_MAX",
 				.instr = TEST_ADDC_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = LONG_MIN,
 					.gpr[22] = LONG_MAX,
 				}
 			},
 			{
 				.descr = "RA = LONG_MAX, RB = LONG_MAX",
 				.flags = IGNORE_CCR,
 				.instr = TEST_ADDC_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = LONG_MAX,
 					.gpr[22] = LONG_MAX,
 				}
 			},
 			{
 				.descr = "RA = ULONG_MAX, RB = ULONG_MAX",
 				.instr = TEST_ADDC_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = ULONG_MAX,
 					.gpr[22] = ULONG_MAX,
 				}
 			},
 			{
 				.descr = "RA = ULONG_MAX, RB = 0x1",
 				.instr = TEST_ADDC_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = ULONG_MAX,
 					.gpr[22] = 0x1,
 				}
 			},
 			{
 				.descr = "RA = INT_MIN, RB = INT_MIN",
 				.instr = TEST_ADDC_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = INT_MIN,
 					.gpr[22] = INT_MIN,
 				}
 			},
 			{
 				.descr = "RA = INT_MIN, RB = INT_MAX",
 				.instr = TEST_ADDC_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = INT_MIN,
 					.gpr[22] = INT_MAX,
 				}
 			},
 			{
 				.descr = "RA = INT_MAX, RB = INT_MAX",
 				.instr = TEST_ADDC_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = INT_MAX,
 					.gpr[22] = INT_MAX,
 				}
 			},
 			{
 				.descr = "RA = UINT_MAX, RB = UINT_MAX",
 				.instr = TEST_ADDC_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = UINT_MAX,
 					.gpr[22] = UINT_MAX,
 				}
 			},
 			{
 				.descr = "RA = UINT_MAX, RB = 0x1",
 				.instr = TEST_ADDC_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = UINT_MAX,
 					.gpr[22] = 0x1,
 				}
 			},
 			{
 				.descr = "RA = LONG_MIN | INT_MIN, RB = LONG_MIN | INT_MIN",
 				.instr = TEST_ADDC_DOT(20, 21, 22),
 				.regs = {
 					.gpr[21] = LONG_MIN | (uint)INT_MIN,
 					.gpr[22] = LONG_MIN | (uint)INT_MIN,
 				}
 			}
 		}
 	}
 };

 static int __init emulate_compute_instr(struct pt_regs *regs,
 					unsigned int instr)
 {
 	struct instruction_op op;

 	if (!regs || !instr)
 		return -EINVAL;

 	if (analyse_instr(&op, regs, instr) != 1 ||
 	    GETTYPE(op.type) != COMPUTE) {
 		pr_info("emulation failed, instruction = 0x%08x\n", instr);
 		return -EFAULT;
 	}

 	emulate_update_regs(regs, &op);
 	return 0;
 }

 static int __init execute_compute_instr(struct pt_regs *regs,
 					unsigned int instr)
 {
 	extern int exec_instr(struct pt_regs *regs);
 	extern s32 patch__exec_instr;

 	if (!regs || !instr)
 		return -EINVAL;

 	/* Patch the NOP with the actual instruction */
 	patch_instruction_site(&patch__exec_instr, instr);
 	if (exec_instr(regs)) {
 		pr_info("execution failed, instruction = 0x%08x\n", instr);
 		return -EFAULT;
 	}

 	return 0;
 }

 #define gpr_mismatch(gprn, exp, got)	\
 	pr_info("GPR%u mismatch, exp = 0x%016lx, got = 0x%016lx\n",	\
 		gprn, exp, got)

 #define reg_mismatch(name, exp, got)	\
 	pr_info("%s mismatch, exp = 0x%016lx, got = 0x%016lx\n",	\
 		name, exp, got)

 static void __init run_tests_compute(void)
 {
 	unsigned long flags;
 	struct compute_test *test;
 	struct pt_regs *regs, exp, got;
 	unsigned int i, j, k, instr;
 	bool ignore_gpr, ignore_xer, ignore_ccr, passed;

 	for (i = 0; i < ARRAY_SIZE(compute_tests); i++) {
 		test = &compute_tests[i];

 		for (j = 0; j < MAX_SUBTESTS && test->subtests[j].descr; j++) {
 			instr = test->subtests[j].instr;
 			flags = test->subtests[j].flags;
 			regs = &test->subtests[j].regs;
 			ignore_xer = flags & IGNORE_XER;
 			ignore_ccr = flags & IGNORE_CCR;
 			passed = true;

 			memcpy(&exp, regs, sizeof(struct pt_regs));
 			memcpy(&got, regs, sizeof(struct pt_regs));

 			/*
 			 * Set a compatible MSR value explicitly to ensure
 			 * that XER and CR bits are updated appropriately
 			 */
 			exp.msr = MSR_KERNEL;
 			got.msr = MSR_KERNEL;

 			if (emulate_compute_instr(&got, instr) ||
 			    execute_compute_instr(&exp, instr)) {
 				passed = false;
 				goto print;
 			}

 			/* Verify GPR values */
 			for (k = 0; k < 32; k++) {
 				ignore_gpr = flags & IGNORE_GPR(k);
 				if (!ignore_gpr && exp.gpr[k] != got.gpr[k]) {
 					passed = false;
 					gpr_mismatch(k, exp.gpr[k], got.gpr[k]);
 				}
 			}

 			/* Verify LR value */
 			if (exp.link != got.link) {
 				passed = false;
 				reg_mismatch("LR", exp.link, got.link);
 			}

 			/* Verify XER value */
 			if (!ignore_xer && exp.xer != got.xer) {
 				passed = false;
 				reg_mismatch("XER", exp.xer, got.xer);
 			}

 			/* Verify CR value */
 			if (!ignore_ccr && exp.ccr != got.ccr) {
 				passed = false;
 				reg_mismatch("CR", exp.ccr, got.ccr);
 			}

 print:
 			show_result_with_descr(test->mnemonic,
 					       test->subtests[j].descr,
 					       passed ? "PASS" : "FAIL");
 		}
 	}
 }

 static int __init test_emulate_step(void)
 {
 	printk(KERN_INFO "Running instruction emulation self-tests ...\n");
 	run_tests_load_store();
 	run_tests_compute();

 	return 0;
 }
 late_initcall(test_emulate_step);
	// SPDX-License-Identifier: GPL-2.0-or-later
	/*
	* Simple sanity tests for instruction emulation infrastructure.
	*
	* Copyright IBM Corp. 2016
	*/

	#define pr_fmt(fmt) "emulate_step_test: " fmt

	#include <linux/ptrace.h>
	#include <asm/sstep.h>
	#include <asm/ppc-opcode.h>
	#include <asm/code-patching.h>

	#define IMM_L(i) ((uintptr_t)(i) & 0xffff)
	#define IMM_DS(i) ((uintptr_t)(i) & 0xfffc)

	/*
	* Defined with TEST_ prefix so it does not conflict with other
	* definitions.
	*/
	#define TEST_LD(r, base, i) (PPC_INST_LD \| ___PPC_RT(r) \| \
	___PPC_RA(base) \| IMM_DS(i))
	#define TEST_LWZ(r, base, i) (PPC_INST_LWZ \| ___PPC_RT(r) \| \
	___PPC_RA(base) \| IMM_L(i))
	#define TEST_LWZX(t, a, b) (PPC_INST_LWZX \| ___PPC_RT(t) \| \
	___PPC_RA(a) \| ___PPC_RB(b))
	#define TEST_STD(r, base, i) (PPC_INST_STD \| ___PPC_RS(r) \| \
	___PPC_RA(base) \| IMM_DS(i))
	#define TEST_LDARX(t, a, b, eh) (PPC_INST_LDARX \| ___PPC_RT(t) \| \
	___PPC_RA(a) \| ___PPC_RB(b) \| \
	__PPC_EH(eh))
	#define TEST_STDCX(s, a, b) (PPC_INST_STDCX \| ___PPC_RS(s) \| \
	___PPC_RA(a) \| ___PPC_RB(b))
	#define TEST_LFSX(t, a, b) (PPC_INST_LFSX \| ___PPC_RT(t) \| \
	___PPC_RA(a) \| ___PPC_RB(b))
	#define TEST_STFSX(s, a, b) (PPC_INST_STFSX \| ___PPC_RS(s) \| \
	___PPC_RA(a) \| ___PPC_RB(b))
	#define TEST_LFDX(t, a, b) (PPC_INST_LFDX \| ___PPC_RT(t) \| \
	___PPC_RA(a) \| ___PPC_RB(b))
	#define TEST_STFDX(s, a, b) (PPC_INST_STFDX \| ___PPC_RS(s) \| \
	___PPC_RA(a) \| ___PPC_RB(b))
	#define TEST_LVX(t, a, b) (PPC_INST_LVX \| ___PPC_RT(t) \| \
	___PPC_RA(a) \| ___PPC_RB(b))
	#define TEST_STVX(s, a, b) (PPC_INST_STVX \| ___PPC_RS(s) \| \
	___PPC_RA(a) \| ___PPC_RB(b))
	#define TEST_LXVD2X(s, a, b) (PPC_INST_LXVD2X \| VSX_XX1((s), R##a, R##b))
	#define TEST_STXVD2X(s, a, b) (PPC_INST_STXVD2X \| VSX_XX1((s), R##a, R##b))
	#define TEST_ADD(t, a, b) (PPC_INST_ADD \| ___PPC_RT(t) \| \
	___PPC_RA(a) \| ___PPC_RB(b))
	#define TEST_ADD_DOT(t, a, b) (PPC_INST_ADD \| ___PPC_RT(t) \| \
	___PPC_RA(a) \| ___PPC_RB(b) \| 0x1)
	#define TEST_ADDC(t, a, b) (PPC_INST_ADDC \| ___PPC_RT(t) \| \
	___PPC_RA(a) \| ___PPC_RB(b))
	#define TEST_ADDC_DOT(t, a, b) (PPC_INST_ADDC \| ___PPC_RT(t) \| \
	___PPC_RA(a) \| ___PPC_RB(b) \| 0x1)

	#define MAX_SUBTESTS 16

	#define IGNORE_GPR(n) (0x1UL << (n))
	#define IGNORE_XER (0x1UL << 32)
	#define IGNORE_CCR (0x1UL << 33)

	static void __init init_pt_regs(struct pt_regs *regs)
	{
	static unsigned long msr;
	static bool msr_cached;

	memset(regs, 0, sizeof(struct pt_regs));

	if (likely(msr_cached)) {
	regs->msr = msr;
	return;
	}

	asm volatile("mfmsr %0" : "=r"(regs->msr));

	regs->msr \|= MSR_FP;
	regs->msr \|= MSR_VEC;
	regs->msr \|= MSR_VSX;

	msr = regs->msr;
	msr_cached = true;
	}

	static void __init show_result(char mnemonic, char result)
	{
	pr_info("%-14s : %s\n", mnemonic, result);
	}

	static void __init show_result_with_descr(char mnemonic, char descr,
	char *result)
	{
	pr_info("%-14s : %-50s %s\n", mnemonic, descr, result);
	}

	static void __init test_ld(void)
	{
	struct pt_regs regs;
	unsigned long a = 0x23;
	int stepped = -1;

	init_pt_regs(&regs);
	regs.gpr[3] = (unsigned long) &a;

	/* ld r5, 0(r3) */
	stepped = emulate_step(&regs, TEST_LD(5, 3, 0));

	if (stepped == 1 && regs.gpr[5] == a)
	show_result("ld", "PASS");
	else
	show_result("ld", "FAIL");
	}

	static void __init test_lwz(void)
	{
	struct pt_regs regs;
	unsigned int a = 0x4545;
	int stepped = -1;

	init_pt_regs(&regs);
	regs.gpr[3] = (unsigned long) &a;

	/* lwz r5, 0(r3) */
	stepped = emulate_step(&regs, TEST_LWZ(5, 3, 0));

	if (stepped == 1 && regs.gpr[5] == a)
	show_result("lwz", "PASS");
	else
	show_result("lwz", "FAIL");
	}

	static void __init test_lwzx(void)
	{
	struct pt_regs regs;
	unsigned int a[3] = {0x0, 0x0, 0x1234};
	int stepped = -1;

	init_pt_regs(&regs);
	regs.gpr[3] = (unsigned long) a;
	regs.gpr[4] = 8;
	regs.gpr[5] = 0x8765;

	/* lwzx r5, r3, r4 */
	stepped = emulate_step(&regs, TEST_LWZX(5, 3, 4));
	if (stepped == 1 && regs.gpr[5] == a[2])
	show_result("lwzx", "PASS");
	else
	show_result("lwzx", "FAIL");
	}

	static void __init test_std(void)
	{
	struct pt_regs regs;
	unsigned long a = 0x1234;
	int stepped = -1;

	init_pt_regs(&regs);
	regs.gpr[3] = (unsigned long) &a;
	regs.gpr[5] = 0x5678;

	/* std r5, 0(r3) */
	stepped = emulate_step(&regs, TEST_STD(5, 3, 0));
	if (stepped == 1 && regs.gpr[5] == a)
	show_result("std", "PASS");
	else
	show_result("std", "FAIL");
	}

	static void __init test_ldarx_stdcx(void)
	{
	struct pt_regs regs;
	unsigned long a = 0x1234;
	int stepped = -1;
	unsigned long cr0_eq = 0x1 << 29; /* eq bit of CR0 */

	init_pt_regs(&regs);
	asm volatile("mfcr %0" : "=r"(regs.ccr));


	/* ldarx */

	regs.gpr[3] = (unsigned long) &a;
	regs.gpr[4] = 0;
	regs.gpr[5] = 0x5678;

	/* ldarx r5, r3, r4, 0 */
	stepped = emulate_step(&regs, TEST_LDARX(5, 3, 4, 0));

	/*
	* Don't touch 'a' here. Touching 'a' can do Load/store
	* of 'a' which result in failure of subsequent stdcx.
	* Instead, use hardcoded value for comparison.
	*/
	if (stepped <= 0 \|\| regs.gpr[5] != 0x1234) {
	show_result("ldarx / stdcx.", "FAIL (ldarx)");
	return;
	}


	/* stdcx. */

	regs.gpr[5] = 0x9ABC;

	/* stdcx. r5, r3, r4 */
	stepped = emulate_step(&regs, TEST_STDCX(5, 3, 4));

	/*
	* Two possible scenarios that indicates successful emulation
	* of stdcx. :
	* 1. Reservation is active and store is performed. In this
	* case cr0.eq bit will be set to 1.
	* 2. Reservation is not active and store is not performed.
	* In this case cr0.eq bit will be set to 0.
	*/
	if (stepped == 1 && ((regs.gpr[5] == a && (regs.ccr & cr0_eq))
	\|\| (regs.gpr[5] != a && !(regs.ccr & cr0_eq))))
	show_result("ldarx / stdcx.", "PASS");
	else
	show_result("ldarx / stdcx.", "FAIL (stdcx.)");
	}

	#ifdef CONFIG_PPC_FPU
	static void __init test_lfsx_stfsx(void)
	{
	struct pt_regs regs;
	union {
	float a;
	int b;
	} c;
	int cached_b;
	int stepped = -1;

	init_pt_regs(&regs);


	/* lfsx */

	c.a = 123.45;
	cached_b = c.b;

	regs.gpr[3] = (unsigned long) &c.a;
	regs.gpr[4] = 0;

	/* lfsx frt10, r3, r4 */
	stepped = emulate_step(&regs, TEST_LFSX(10, 3, 4));

	if (stepped == 1)
	show_result("lfsx", "PASS");
	else
	show_result("lfsx", "FAIL");


	/* stfsx */

	c.a = 678.91;

	/* stfsx frs10, r3, r4 */
	stepped = emulate_step(&regs, TEST_STFSX(10, 3, 4));

	if (stepped == 1 && c.b == cached_b)
	show_result("stfsx", "PASS");
	else
	show_result("stfsx", "FAIL");
	}

	static void __init test_lfdx_stfdx(void)
	{
	struct pt_regs regs;
	union {
	double a;
	long b;
	} c;
	long cached_b;
	int stepped = -1;

	init_pt_regs(&regs);


	/* lfdx */

	c.a = 123456.78;
	cached_b = c.b;

	regs.gpr[3] = (unsigned long) &c.a;
	regs.gpr[4] = 0;

	/* lfdx frt10, r3, r4 */
	stepped = emulate_step(&regs, TEST_LFDX(10, 3, 4));

	if (stepped == 1)
	show_result("lfdx", "PASS");
	else
	show_result("lfdx", "FAIL");


	/* stfdx */

	c.a = 987654.32;

	/* stfdx frs10, r3, r4 */
	stepped = emulate_step(&regs, TEST_STFDX(10, 3, 4));

	if (stepped == 1 && c.b == cached_b)
	show_result("stfdx", "PASS");
	else
	show_result("stfdx", "FAIL");
	}
	#else
	static void __init test_lfsx_stfsx(void)
	{
	show_result("lfsx", "SKIP (CONFIG_PPC_FPU is not set)");
	show_result("stfsx", "SKIP (CONFIG_PPC_FPU is not set)");
	}

	static void __init test_lfdx_stfdx(void)
	{
	show_result("lfdx", "SKIP (CONFIG_PPC_FPU is not set)");
	show_result("stfdx", "SKIP (CONFIG_PPC_FPU is not set)");
	}
	#endif /* CONFIG_PPC_FPU */

	#ifdef CONFIG_ALTIVEC
	static void __init test_lvx_stvx(void)
	{
	struct pt_regs regs;
	union {
	vector128 a;
	u32 b[4];
	} c;
	u32 cached_b[4];
	int stepped = -1;

	init_pt_regs(&regs);


	/* lvx */

	cached_b[0] = c.b[0] = 923745;
	cached_b[1] = c.b[1] = 2139478;
	cached_b[2] = c.b[2] = 9012;
	cached_b[3] = c.b[3] = 982134;

	regs.gpr[3] = (unsigned long) &c.a;
	regs.gpr[4] = 0;

	/* lvx vrt10, r3, r4 */
	stepped = emulate_step(&regs, TEST_LVX(10, 3, 4));

	if (stepped == 1)
	show_result("lvx", "PASS");
	else
	show_result("lvx", "FAIL");


	/* stvx */

	c.b[0] = 4987513;
	c.b[1] = 84313948;
	c.b[2] = 71;
	c.b[3] = 498532;

	/* stvx vrs10, r3, r4 */
	stepped = emulate_step(&regs, TEST_STVX(10, 3, 4));

	if (stepped == 1 && cached_b[0] == c.b[0] && cached_b[1] == c.b[1] &&
	cached_b[2] == c.b[2] && cached_b[3] == c.b[3])
	show_result("stvx", "PASS");
	else
	show_result("stvx", "FAIL");
	}
	#else
	static void __init test_lvx_stvx(void)
	{
	show_result("lvx", "SKIP (CONFIG_ALTIVEC is not set)");
	show_result("stvx", "SKIP (CONFIG_ALTIVEC is not set)");
	}
	#endif /* CONFIG_ALTIVEC */

	#ifdef CONFIG_VSX
	static void __init test_lxvd2x_stxvd2x(void)
	{
	struct pt_regs regs;
	union {
	vector128 a;
	u32 b[4];
	} c;
	u32 cached_b[4];
	int stepped = -1;

	init_pt_regs(&regs);


	/* lxvd2x */

	cached_b[0] = c.b[0] = 18233;
	cached_b[1] = c.b[1] = 34863571;
	cached_b[2] = c.b[2] = 834;
	cached_b[3] = c.b[3] = 6138911;

	regs.gpr[3] = (unsigned long) &c.a;
	regs.gpr[4] = 0;

	/* lxvd2x vsr39, r3, r4 */
	stepped = emulate_step(&regs, TEST_LXVD2X(39, 3, 4));

	if (stepped == 1 && cpu_has_feature(CPU_FTR_VSX)) {
	show_result("lxvd2x", "PASS");
	} else {
	if (!cpu_has_feature(CPU_FTR_VSX))
	show_result("lxvd2x", "PASS (!CPU_FTR_VSX)");
	else
	show_result("lxvd2x", "FAIL");
	}


	/* stxvd2x */

	c.b[0] = 21379463;
	c.b[1] = 87;
	c.b[2] = 374234;
	c.b[3] = 4;

	/* stxvd2x vsr39, r3, r4 */
	stepped = emulate_step(&regs, TEST_STXVD2X(39, 3, 4));

	if (stepped == 1 && cached_b[0] == c.b[0] && cached_b[1] == c.b[1] &&
	cached_b[2] == c.b[2] && cached_b[3] == c.b[3] &&
	cpu_has_feature(CPU_FTR_VSX)) {
	show_result("stxvd2x", "PASS");
	} else {
	if (!cpu_has_feature(CPU_FTR_VSX))
	show_result("stxvd2x", "PASS (!CPU_FTR_VSX)");
	else
	show_result("stxvd2x", "FAIL");
	}
	}
	#else
	static void __init test_lxvd2x_stxvd2x(void)
	{
	show_result("lxvd2x", "SKIP (CONFIG_VSX is not set)");
	show_result("stxvd2x", "SKIP (CONFIG_VSX is not set)");
	}
	#endif /* CONFIG_VSX */

	static void __init run_tests_load_store(void)
	{
	test_ld();
	test_lwz();
	test_lwzx();
	test_std();
	test_ldarx_stdcx();
	test_lfsx_stfsx();
	test_lfdx_stfdx();
	test_lvx_stvx();
	test_lxvd2x_stxvd2x();
	}

	struct compute_test {
	char *mnemonic;
	struct {
	char *descr;
	unsigned long flags;
	unsigned int instr;
	struct pt_regs regs;
	} subtests[MAX_SUBTESTS + 1];
	};

	static struct compute_test compute_tests[] = {
	{
	.mnemonic = "nop",
	.subtests = {
	{
	.descr = "R0 = LONG_MAX",
	.instr = PPC_INST_NOP,
	.regs = {
	.gpr[0] = LONG_MAX,
	}
	}
	}
	},
	{
	.mnemonic = "add",
	.subtests = {
	{
	.descr = "RA = LONG_MIN, RB = LONG_MIN",
	.instr = TEST_ADD(20, 21, 22),
	.regs = {
	.gpr[21] = LONG_MIN,
	.gpr[22] = LONG_MIN,
	}
	},
	{
	.descr = "RA = LONG_MIN, RB = LONG_MAX",
	.instr = TEST_ADD(20, 21, 22),
	.regs = {
	.gpr[21] = LONG_MIN,
	.gpr[22] = LONG_MAX,
	}
	},
	{
	.descr = "RA = LONG_MAX, RB = LONG_MAX",
	.instr = TEST_ADD(20, 21, 22),
	.regs = {
	.gpr[21] = LONG_MAX,
	.gpr[22] = LONG_MAX,
	}
	},
	{
	.descr = "RA = ULONG_MAX, RB = ULONG_MAX",
	.instr = TEST_ADD(20, 21, 22),
	.regs = {
	.gpr[21] = ULONG_MAX,
	.gpr[22] = ULONG_MAX,
	}
	},
	{
	.descr = "RA = ULONG_MAX, RB = 0x1",
	.instr = TEST_ADD(20, 21, 22),
	.regs = {
	.gpr[21] = ULONG_MAX,
	.gpr[22] = 0x1,
	}
	},
	{
	.descr = "RA = INT_MIN, RB = INT_MIN",
	.instr = TEST_ADD(20, 21, 22),
	.regs = {
	.gpr[21] = INT_MIN,
	.gpr[22] = INT_MIN,
	}
	},
	{
	.descr = "RA = INT_MIN, RB = INT_MAX",
	.instr = TEST_ADD(20, 21, 22),
	.regs = {
	.gpr[21] = INT_MIN,
	.gpr[22] = INT_MAX,
	}
	},
	{
	.descr = "RA = INT_MAX, RB = INT_MAX",
	.instr = TEST_ADD(20, 21, 22),
	.regs = {
	.gpr[21] = INT_MAX,
	.gpr[22] = INT_MAX,
	}
	},
	{
	.descr = "RA = UINT_MAX, RB = UINT_MAX",
	.instr = TEST_ADD(20, 21, 22),
	.regs = {
	.gpr[21] = UINT_MAX,
	.gpr[22] = UINT_MAX,
	}
	},
	{
	.descr = "RA = UINT_MAX, RB = 0x1",
	.instr = TEST_ADD(20, 21, 22),
	.regs = {
	.gpr[21] = UINT_MAX,
	.gpr[22] = 0x1,
	}
	}
	}
	},
	{
	.mnemonic = "add.",
	.subtests = {
	{
	.descr = "RA = LONG_MIN, RB = LONG_MIN",
	.flags = IGNORE_CCR,
	.instr = TEST_ADD_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = LONG_MIN,
	.gpr[22] = LONG_MIN,
	}
	},
	{
	.descr = "RA = LONG_MIN, RB = LONG_MAX",
	.instr = TEST_ADD_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = LONG_MIN,
	.gpr[22] = LONG_MAX,
	}
	},
	{
	.descr = "RA = LONG_MAX, RB = LONG_MAX",
	.flags = IGNORE_CCR,
	.instr = TEST_ADD_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = LONG_MAX,
	.gpr[22] = LONG_MAX,
	}
	},
	{
	.descr = "RA = ULONG_MAX, RB = ULONG_MAX",
	.instr = TEST_ADD_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = ULONG_MAX,
	.gpr[22] = ULONG_MAX,
	}
	},
	{
	.descr = "RA = ULONG_MAX, RB = 0x1",
	.instr = TEST_ADD_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = ULONG_MAX,
	.gpr[22] = 0x1,
	}
	},
	{
	.descr = "RA = INT_MIN, RB = INT_MIN",
	.instr = TEST_ADD_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = INT_MIN,
	.gpr[22] = INT_MIN,
	}
	},
	{
	.descr = "RA = INT_MIN, RB = INT_MAX",
	.instr = TEST_ADD_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = INT_MIN,
	.gpr[22] = INT_MAX,
	}
	},
	{
	.descr = "RA = INT_MAX, RB = INT_MAX",
	.instr = TEST_ADD_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = INT_MAX,
	.gpr[22] = INT_MAX,
	}
	},
	{
	.descr = "RA = UINT_MAX, RB = UINT_MAX",
	.instr = TEST_ADD_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = UINT_MAX,
	.gpr[22] = UINT_MAX,
	}
	},
	{
	.descr = "RA = UINT_MAX, RB = 0x1",
	.instr = TEST_ADD_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = UINT_MAX,
	.gpr[22] = 0x1,
	}
	}
	}
	},
	{
	.mnemonic = "addc",
	.subtests = {
	{
	.descr = "RA = LONG_MIN, RB = LONG_MIN",
	.instr = TEST_ADDC(20, 21, 22),
	.regs = {
	.gpr[21] = LONG_MIN,
	.gpr[22] = LONG_MIN,
	}
	},
	{
	.descr = "RA = LONG_MIN, RB = LONG_MAX",
	.instr = TEST_ADDC(20, 21, 22),
	.regs = {
	.gpr[21] = LONG_MIN,
	.gpr[22] = LONG_MAX,
	}
	},
	{
	.descr = "RA = LONG_MAX, RB = LONG_MAX",
	.instr = TEST_ADDC(20, 21, 22),
	.regs = {
	.gpr[21] = LONG_MAX,
	.gpr[22] = LONG_MAX,
	}
	},
	{
	.descr = "RA = ULONG_MAX, RB = ULONG_MAX",
	.instr = TEST_ADDC(20, 21, 22),
	.regs = {
	.gpr[21] = ULONG_MAX,
	.gpr[22] = ULONG_MAX,
	}
	},
	{
	.descr = "RA = ULONG_MAX, RB = 0x1",
	.instr = TEST_ADDC(20, 21, 22),
	.regs = {
	.gpr[21] = ULONG_MAX,
	.gpr[22] = 0x1,
	}
	},
	{
	.descr = "RA = INT_MIN, RB = INT_MIN",
	.instr = TEST_ADDC(20, 21, 22),
	.regs = {
	.gpr[21] = INT_MIN,
	.gpr[22] = INT_MIN,
	}
	},
	{
	.descr = "RA = INT_MIN, RB = INT_MAX",
	.instr = TEST_ADDC(20, 21, 22),
	.regs = {
	.gpr[21] = INT_MIN,
	.gpr[22] = INT_MAX,
	}
	},
	{
	.descr = "RA = INT_MAX, RB = INT_MAX",
	.instr = TEST_ADDC(20, 21, 22),
	.regs = {
	.gpr[21] = INT_MAX,
	.gpr[22] = INT_MAX,
	}
	},
	{
	.descr = "RA = UINT_MAX, RB = UINT_MAX",
	.instr = TEST_ADDC(20, 21, 22),
	.regs = {
	.gpr[21] = UINT_MAX,
	.gpr[22] = UINT_MAX,
	}
	},
	{
	.descr = "RA = UINT_MAX, RB = 0x1",
	.instr = TEST_ADDC(20, 21, 22),
	.regs = {
	.gpr[21] = UINT_MAX,
	.gpr[22] = 0x1,
	}
	},
	{
	.descr = "RA = LONG_MIN \| INT_MIN, RB = LONG_MIN \| INT_MIN",
	.instr = TEST_ADDC(20, 21, 22),
	.regs = {
	.gpr[21] = LONG_MIN \| (uint)INT_MIN,
	.gpr[22] = LONG_MIN \| (uint)INT_MIN,
	}
	}
	}
	},
	{
	.mnemonic = "addc.",
	.subtests = {
	{
	.descr = "RA = LONG_MIN, RB = LONG_MIN",
	.flags = IGNORE_CCR,
	.instr = TEST_ADDC_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = LONG_MIN,
	.gpr[22] = LONG_MIN,
	}
	},
	{
	.descr = "RA = LONG_MIN, RB = LONG_MAX",
	.instr = TEST_ADDC_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = LONG_MIN,
	.gpr[22] = LONG_MAX,
	}
	},
	{
	.descr = "RA = LONG_MAX, RB = LONG_MAX",
	.flags = IGNORE_CCR,
	.instr = TEST_ADDC_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = LONG_MAX,
	.gpr[22] = LONG_MAX,
	}
	},
	{
	.descr = "RA = ULONG_MAX, RB = ULONG_MAX",
	.instr = TEST_ADDC_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = ULONG_MAX,
	.gpr[22] = ULONG_MAX,
	}
	},
	{
	.descr = "RA = ULONG_MAX, RB = 0x1",
	.instr = TEST_ADDC_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = ULONG_MAX,
	.gpr[22] = 0x1,
	}
	},
	{
	.descr = "RA = INT_MIN, RB = INT_MIN",
	.instr = TEST_ADDC_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = INT_MIN,
	.gpr[22] = INT_MIN,
	}
	},
	{
	.descr = "RA = INT_MIN, RB = INT_MAX",
	.instr = TEST_ADDC_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = INT_MIN,
	.gpr[22] = INT_MAX,
	}
	},
	{
	.descr = "RA = INT_MAX, RB = INT_MAX",
	.instr = TEST_ADDC_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = INT_MAX,
	.gpr[22] = INT_MAX,
	}
	},
	{
	.descr = "RA = UINT_MAX, RB = UINT_MAX",
	.instr = TEST_ADDC_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = UINT_MAX,
	.gpr[22] = UINT_MAX,
	}
	},
	{
	.descr = "RA = UINT_MAX, RB = 0x1",
	.instr = TEST_ADDC_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = UINT_MAX,
	.gpr[22] = 0x1,
	}
	},
	{
	.descr = "RA = LONG_MIN \| INT_MIN, RB = LONG_MIN \| INT_MIN",
	.instr = TEST_ADDC_DOT(20, 21, 22),
	.regs = {
	.gpr[21] = LONG_MIN \| (uint)INT_MIN,
	.gpr[22] = LONG_MIN \| (uint)INT_MIN,
	}
	}
	}
	}
	};

	static int __init emulate_compute_instr(struct pt_regs *regs,
	unsigned int instr)
	{
	struct instruction_op op;

	if (!regs \|\| !instr)
	return -EINVAL;

	if (analyse_instr(&op, regs, instr) != 1 \|\|
	GETTYPE(op.type) != COMPUTE) {
	pr_info("emulation failed, instruction = 0x%08x\n", instr);
	return -EFAULT;
	}

	emulate_update_regs(regs, &op);
	return 0;
	}

	static int __init execute_compute_instr(struct pt_regs *regs,
	unsigned int instr)
	{
	extern int exec_instr(struct pt_regs *regs);
	extern s32 patch__exec_instr;

	if (!regs \|\| !instr)
	return -EINVAL;

	/* Patch the NOP with the actual instruction */
	patch_instruction_site(&patch__exec_instr, instr);
	if (exec_instr(regs)) {
	pr_info("execution failed, instruction = 0x%08x\n", instr);
	return -EFAULT;
	}

	return 0;
	}

	#define gpr_mismatch(gprn, exp, got) \
	pr_info("GPR%u mismatch, exp = 0x%016lx, got = 0x%016lx\n", \
	gprn, exp, got)

	#define reg_mismatch(name, exp, got) \
	pr_info("%s mismatch, exp = 0x%016lx, got = 0x%016lx\n", \
	name, exp, got)

	static void __init run_tests_compute(void)
	{
	unsigned long flags;
	struct compute_test *test;
	struct pt_regs *regs, exp, got;
	unsigned int i, j, k, instr;
	bool ignore_gpr, ignore_xer, ignore_ccr, passed;

	for (i = 0; i < ARRAY_SIZE(compute_tests); i++) {
	test = &compute_tests[i];

	for (j = 0; j < MAX_SUBTESTS && test->subtests[j].descr; j++) {
	instr = test->subtests[j].instr;
	flags = test->subtests[j].flags;
	regs = &test->subtests[j].regs;
	ignore_xer = flags & IGNORE_XER;
	ignore_ccr = flags & IGNORE_CCR;
	passed = true;

	memcpy(&exp, regs, sizeof(struct pt_regs));
	memcpy(&got, regs, sizeof(struct pt_regs));

	/*
	* Set a compatible MSR value explicitly to ensure
	* that XER and CR bits are updated appropriately
	*/
	exp.msr = MSR_KERNEL;
	got.msr = MSR_KERNEL;

	if (emulate_compute_instr(&got, instr) \|\|
	execute_compute_instr(&exp, instr)) {
	passed = false;
	goto print;
	}

	/* Verify GPR values */
	for (k = 0; k < 32; k++) {
	ignore_gpr = flags & IGNORE_GPR(k);
	if (!ignore_gpr && exp.gpr[k] != got.gpr[k]) {
	passed = false;
	gpr_mismatch(k, exp.gpr[k], got.gpr[k]);
	}
	}

	/* Verify LR value */
	if (exp.link != got.link) {
	passed = false;
	reg_mismatch("LR", exp.link, got.link);
	}

	/* Verify XER value */
	if (!ignore_xer && exp.xer != got.xer) {
	passed = false;
	reg_mismatch("XER", exp.xer, got.xer);
	}

	/* Verify CR value */
	if (!ignore_ccr && exp.ccr != got.ccr) {
	passed = false;
	reg_mismatch("CR", exp.ccr, got.ccr);
	}

	print:
	show_result_with_descr(test->mnemonic,
	test->subtests[j].descr,
	passed ? "PASS" : "FAIL");
	}
	}
	}

	static int __init test_emulate_step(void)
	{
	printk(KERN_INFO "Running instruction emulation self-tests ...\n");
	run_tests_load_store();
	run_tests_compute();

	return 0;
	}
	late_initcall(test_emulate_step);