[pcsx_rearmed.git] / libpcsxcore / lightrec / plugin.c

#include <lightrec.h>
#include <stdbool.h>
#include <stdio.h>
#include <unistd.h>
#include <signal.h>
#include <assert.h>

#include "../cdrom.h"
#include "../gpu.h"
#include "../gte.h"
#include "../mdec.h"
#include "../psxdma.h"
#include "../psxhw.h"
#include "../psxmem.h"
#include "../r3000a.h"
#include "../psxinterpreter.h"
#include "../new_dynarec/events.h"

#include "../frontend/main.h"

#include "mem.h"
#include "plugin.h"

#if (defined(__arm__) || defined(__aarch64__)) && !defined(ALLOW_LIGHTREC_ON_ARM)
#error "Lightrec should not be used on ARM (please specify DYNAREC=ari64 to make)"
#endif

#define ARRAY_SIZE(x) (sizeof(x) ? sizeof(x) / sizeof((x)[0]) : 0)

#if __BYTE_ORDER__ == __ORDER_BIG_ENDIAN__
#	define LE32TOH(x)	__builtin_bswap32(x)
#	define HTOLE32(x)	__builtin_bswap32(x)
#	define LE16TOH(x)	__builtin_bswap16(x)
#	define HTOLE16(x)	__builtin_bswap16(x)
#else
#	define LE32TOH(x)	(x)
#	define HTOLE32(x)	(x)
#	define LE16TOH(x)	(x)
#	define HTOLE16(x)	(x)
#endif

#ifdef __GNUC__
#	define likely(x)       __builtin_expect(!!(x),1)
#	define unlikely(x)     __builtin_expect(!!(x),0)
#else
#	define likely(x)       (x)
#	define unlikely(x)     (x)
#endif

psxRegisters psxRegs;
Rcnt rcnts[4];

static struct lightrec_state *lightrec_state;

static char *name = "retroarch.exe";

static bool use_lightrec_interpreter;
static bool use_pcsx_interpreter;
static bool block_stepping;
static u32 cycle_mult_to_pcsx; // 22.10 fractional
static u32 cycle_mult_from_pcsx;

enum my_cp2_opcodes {
	OP_CP2_RTPS		= 0x01,
	OP_CP2_NCLIP		= 0x06,
	OP_CP2_OP		= 0x0c,
	OP_CP2_DPCS		= 0x10,
	OP_CP2_INTPL		= 0x11,
	OP_CP2_MVMVA		= 0x12,
	OP_CP2_NCDS		= 0x13,
	OP_CP2_CDP		= 0x14,
	OP_CP2_NCDT		= 0x16,
	OP_CP2_NCCS		= 0x1b,
	OP_CP2_CC		= 0x1c,
	OP_CP2_NCS		= 0x1e,
	OP_CP2_NCT		= 0x20,
	OP_CP2_SQR		= 0x28,
	OP_CP2_DCPL		= 0x29,
	OP_CP2_DPCT		= 0x2a,
	OP_CP2_AVSZ3		= 0x2d,
	OP_CP2_AVSZ4		= 0x2e,
	OP_CP2_RTPT		= 0x30,
	OP_CP2_GPF		= 0x3d,
	OP_CP2_GPL		= 0x3e,
	OP_CP2_NCCT		= 0x3f,
};

static void (*cp2_ops[])(struct psxCP2Regs *) = {
	[OP_CP2_RTPS] = gteRTPS,
	[OP_CP2_RTPS] = gteRTPS,
	[OP_CP2_NCLIP] = gteNCLIP,
	[OP_CP2_OP] = gteOP,
	[OP_CP2_DPCS] = gteDPCS,
	[OP_CP2_INTPL] = gteINTPL,
	[OP_CP2_MVMVA] = gteMVMVA,
	[OP_CP2_NCDS] = gteNCDS,
	[OP_CP2_CDP] = gteCDP,
	[OP_CP2_NCDT] = gteNCDT,
	[OP_CP2_NCCS] = gteNCCS,
	[OP_CP2_CC] = gteCC,
	[OP_CP2_NCS] = gteNCS,
	[OP_CP2_NCT] = gteNCT,
	[OP_CP2_SQR] = gteSQR,
	[OP_CP2_DCPL] = gteDCPL,
	[OP_CP2_DPCT] = gteDPCT,
	[OP_CP2_AVSZ3] = gteAVSZ3,
	[OP_CP2_AVSZ4] = gteAVSZ4,
	[OP_CP2_RTPT] = gteRTPT,
	[OP_CP2_GPF] = gteGPF,
	[OP_CP2_GPL] = gteGPL,
	[OP_CP2_NCCT] = gteNCCT,
};

static char cache_buf[64 * 1024];

static void cop2_op(struct lightrec_state *state, u32 func)
{
	struct lightrec_registers *regs = lightrec_get_registers(state);

	psxRegs.code = func;

	if (unlikely(!cp2_ops[func & 0x3f])) {
		fprintf(stderr, "Invalid CP2 function %u\n", func);
	} else {
		/* This works because regs->cp2c comes right after regs->cp2d,
		 * so it can be cast to a pcsxCP2Regs pointer. */
		cp2_ops[func & 0x3f]((psxCP2Regs *) regs->cp2d);
	}
}

static bool has_interrupt(void)
{
	struct lightrec_registers *regs = lightrec_get_registers(lightrec_state);

	return ((psxHu32(0x1070) & psxHu32(0x1074)) &&
		(regs->cp0[12] & 0x401) == 0x401) ||
		(regs->cp0[12] & regs->cp0[13] & 0x0300);
}

static u32 cycles_pcsx_to_lightrec(u32 c)
{
	assert((u64)c * cycle_mult_from_pcsx <= (u32)-1);
	return c * cycle_mult_from_pcsx >> 10;
}

static void lightrec_tansition_to_pcsx(struct lightrec_state *state)
{
	psxRegs.cycle += lightrec_current_cycle_count(state) * cycle_mult_to_pcsx >> 10;
	lightrec_reset_cycle_count(state, 0);
}

static void lightrec_tansition_from_pcsx(struct lightrec_state *state)
{
	s32 cycles_left = next_interupt - psxRegs.cycle;

	if (block_stepping || cycles_left <= 0 || has_interrupt())
		lightrec_set_exit_flags(state, LIGHTREC_EXIT_CHECK_INTERRUPT);
	else {
		lightrec_set_target_cycle_count(state,
			cycles_pcsx_to_lightrec(cycles_left));
	}
}

static void hw_write_byte(struct lightrec_state *state,
			  u32 op, void *host, u32 mem, u8 val)
{
	lightrec_tansition_to_pcsx(state);

	psxHwWrite8(mem, val);

	lightrec_tansition_from_pcsx(state);
}

static void hw_write_half(struct lightrec_state *state,
			  u32 op, void *host, u32 mem, u16 val)
{
	lightrec_tansition_to_pcsx(state);

	psxHwWrite16(mem, val);

	lightrec_tansition_from_pcsx(state);
}

static void hw_write_word(struct lightrec_state *state,
			  u32 op, void *host, u32 mem, u32 val)
{
	lightrec_tansition_to_pcsx(state);

	psxHwWrite32(mem, val);

	lightrec_tansition_from_pcsx(state);
}

static u8 hw_read_byte(struct lightrec_state *state, u32 op, void *host, u32 mem)
{
	u8 val;

	lightrec_tansition_to_pcsx(state);

	val = psxHwRead8(mem);

	lightrec_tansition_from_pcsx(state);

	return val;
}

static u16 hw_read_half(struct lightrec_state *state,
			u32 op, void *host, u32 mem)
{
	u16 val;

	lightrec_tansition_to_pcsx(state);

	val = psxHwRead16(mem);

	lightrec_tansition_from_pcsx(state);

	return val;
}

static u32 hw_read_word(struct lightrec_state *state,
			u32 op, void *host, u32 mem)
{
	u32 val;

	lightrec_tansition_to_pcsx(state);

	val = psxHwRead32(mem);

	lightrec_tansition_from_pcsx(state);

	return val;
}

static struct lightrec_mem_map_ops hw_regs_ops = {
	.sb = hw_write_byte,
	.sh = hw_write_half,
	.sw = hw_write_word,
	.lb = hw_read_byte,
	.lh = hw_read_half,
	.lw = hw_read_word,
};

static u32 cache_ctrl;

static void cache_ctrl_write_word(struct lightrec_state *state,
				  u32 op, void *host, u32 mem, u32 val)
{
	cache_ctrl = val;
}

static u32 cache_ctrl_read_word(struct lightrec_state *state,
				u32 op, void *host, u32 mem)
{
	return cache_ctrl;
}

static struct lightrec_mem_map_ops cache_ctrl_ops = {
	.sw = cache_ctrl_write_word,
	.lw = cache_ctrl_read_word,
};

static struct lightrec_mem_map lightrec_map[] = {
	[PSX_MAP_KERNEL_USER_RAM] = {
		/* Kernel and user memory */
		.pc = 0x00000000,
		.length = 0x200000,
	},
	[PSX_MAP_BIOS] = {
		/* BIOS */
		.pc = 0x1fc00000,
		.length = 0x80000,
	},
	[PSX_MAP_SCRATCH_PAD] = {
		/* Scratch pad */
		.pc = 0x1f800000,
		.length = 0x400,
	},
	[PSX_MAP_PARALLEL_PORT] = {
		/* Parallel port */
		.pc = 0x1f000000,
		.length = 0x10000,
	},
	[PSX_MAP_HW_REGISTERS] = {
		/* Hardware registers */
		.pc = 0x1f801000,
		.length = 0x2000,
		.ops = &hw_regs_ops,
	},
	[PSX_MAP_CACHE_CONTROL] = {
		/* Cache control */
		.pc = 0x5ffe0130,
		.length = 4,
		.ops = &cache_ctrl_ops,
	},

	/* Mirrors of the kernel/user memory */
	[PSX_MAP_MIRROR1] = {
		.pc = 0x00200000,
		.length = 0x200000,
		.mirror_of = &lightrec_map[PSX_MAP_KERNEL_USER_RAM],
	},
	[PSX_MAP_MIRROR2] = {
		.pc = 0x00400000,
		.length = 0x200000,
		.mirror_of = &lightrec_map[PSX_MAP_KERNEL_USER_RAM],
	},
	[PSX_MAP_MIRROR3] = {
		.pc = 0x00600000,
		.length = 0x200000,
		.mirror_of = &lightrec_map[PSX_MAP_KERNEL_USER_RAM],
	},
	[PSX_MAP_CODE_BUFFER] = {
		.length = CODE_BUFFER_SIZE,
	},
};

static void lightrec_enable_ram(struct lightrec_state *state, bool enable)
{
	if (enable)
		memcpy(psxM, cache_buf, sizeof(cache_buf));
	else
		memcpy(cache_buf, psxM, sizeof(cache_buf));
}

static bool lightrec_can_hw_direct(u32 kaddr, bool is_write, u8 size)
{
	switch (size) {
	case 8:
		switch (kaddr) {
		case 0x1f801040:
		case 0x1f801050:
		case 0x1f801800:
		case 0x1f801801:
		case 0x1f801802:
		case 0x1f801803:
			return false;
		default:
			return true;
		}
	case 16:
		switch (kaddr) {
		case 0x1f801040:
		case 0x1f801044:
		case 0x1f801048:
		case 0x1f80104a:
		case 0x1f80104e:
		case 0x1f801050:
		case 0x1f801054:
		case 0x1f80105a:
		case 0x1f80105e:
		case 0x1f801100:
		case 0x1f801104:
		case 0x1f801108:
		case 0x1f801110:
		case 0x1f801114:
		case 0x1f801118:
		case 0x1f801120:
		case 0x1f801124:
		case 0x1f801128:
			return false;
		case 0x1f801070:
		case 0x1f801074:
			return !is_write;
		default:
			return kaddr < 0x1f801c00 || kaddr >= 0x1f801e00;
		}
	default:
		switch (kaddr) {
		case 0x1f801040:
		case 0x1f801050:
		case 0x1f801100:
		case 0x1f801104:
		case 0x1f801108:
		case 0x1f801110:
		case 0x1f801114:
		case 0x1f801118:
		case 0x1f801120:
		case 0x1f801124:
		case 0x1f801128:
		case 0x1f801810:
		case 0x1f801814:
		case 0x1f801820:
		case 0x1f801824:
			return false;
		case 0x1f801070:
		case 0x1f801074:
		case 0x1f801088:
		case 0x1f801098:
		case 0x1f8010a8:
		case 0x1f8010b8:
		case 0x1f8010c8:
		case 0x1f8010e8:
		case 0x1f8010f4:
			return !is_write;
		default:
			return !is_write || kaddr < 0x1f801c00 || kaddr >= 0x1f801e00;
		}
	}
}

static const struct lightrec_ops lightrec_ops = {
	.cop2_op = cop2_op,
	.enable_ram = lightrec_enable_ram,
	.hw_direct = lightrec_can_hw_direct,
};

static int lightrec_plugin_init(void)
{
	lightrec_map[PSX_MAP_KERNEL_USER_RAM].address = psxM;
	lightrec_map[PSX_MAP_BIOS].address = psxR;
	lightrec_map[PSX_MAP_SCRATCH_PAD].address = psxH;
	lightrec_map[PSX_MAP_HW_REGISTERS].address = psxH + 0x1000;
	lightrec_map[PSX_MAP_PARALLEL_PORT].address = psxP;

	if (LIGHTREC_CUSTOM_MAP) {
		lightrec_map[PSX_MAP_MIRROR1].address = psxM + 0x200000;
		lightrec_map[PSX_MAP_MIRROR2].address = psxM + 0x400000;
		lightrec_map[PSX_MAP_MIRROR3].address = psxM + 0x600000;
		lightrec_map[PSX_MAP_CODE_BUFFER].address = code_buffer;
	}

	use_lightrec_interpreter = !!getenv("LIGHTREC_INTERPRETER");

	lightrec_state = lightrec_init(name,
			lightrec_map, ARRAY_SIZE(lightrec_map),
			&lightrec_ops);

	// fprintf(stderr, "M=0x%lx, P=0x%lx, R=0x%lx, H=0x%lx\n",
	// 		(uintptr_t) psxM,
	// 		(uintptr_t) psxP,
	// 		(uintptr_t) psxR,
	// 		(uintptr_t) psxH);

#ifndef _WIN32
	signal(SIGPIPE, exit);
#endif
	return 0;
}

static void lightrec_plugin_execute_internal(bool block_only)
{
	struct lightrec_registers *regs;
	u32 flags, cycles_pcsx;

	regs = lightrec_get_registers(lightrec_state);
	gen_interupt((psxCP0Regs *)regs->cp0);
	cycles_pcsx = next_interupt - psxRegs.cycle;
	assert((s32)cycles_pcsx > 0);

	// step during early boot so that 0x80030000 fastboot hack works
	block_stepping = block_only;
	if (block_only)
		cycles_pcsx = 0;

	if (use_pcsx_interpreter) {
		intExecuteBlock(0);
	} else {
		u32 cycles_lightrec = cycles_pcsx_to_lightrec(cycles_pcsx);
		if (unlikely(use_lightrec_interpreter)) {
			psxRegs.pc = lightrec_run_interpreter(lightrec_state,
							      psxRegs.pc,
							      cycles_lightrec);
		} else {
			psxRegs.pc = lightrec_execute(lightrec_state,
						      psxRegs.pc, cycles_lightrec);
		}

		lightrec_tansition_to_pcsx(lightrec_state);

		flags = lightrec_exit_flags(lightrec_state);

		if (flags & LIGHTREC_EXIT_SEGFAULT) {
			fprintf(stderr, "Exiting at cycle 0x%08x\n",
				psxRegs.cycle);
			exit(1);
		}

		if (flags & LIGHTREC_EXIT_SYSCALL)
			psxException(0x20, 0, (psxCP0Regs *)regs->cp0);
	}

	if ((regs->cp0[13] & regs->cp0[12] & 0x300) && (regs->cp0[12] & 0x1)) {
		/* Handle software interrupts */
		regs->cp0[13] &= ~0x7c;
		psxException(regs->cp0[13], 0, (psxCP0Regs *)regs->cp0);
	}
}

static void lightrec_plugin_execute(void)
{
	extern int stop;

	while (!stop)
		lightrec_plugin_execute_internal(false);
}

static void lightrec_plugin_execute_block(enum blockExecCaller caller)
{
	lightrec_plugin_execute_internal(true);
}

static void lightrec_plugin_clear(u32 addr, u32 size)
{
	if (addr == 0 && size == UINT32_MAX)
		lightrec_invalidate_all(lightrec_state);
	else
		/* size * 4: PCSX uses DMA units */
		lightrec_invalidate(lightrec_state, addr, size * 4);
}

static void lightrec_plugin_sync_regs_to_pcsx(void);
static void lightrec_plugin_sync_regs_from_pcsx(void);

static void lightrec_plugin_notify(enum R3000Anote note, void *data)
{
	switch (note)
	{
	case R3000ACPU_NOTIFY_CACHE_ISOLATED:
	case R3000ACPU_NOTIFY_CACHE_UNISOLATED:
		/* not used, lightrec calls lightrec_enable_ram() instead */
		break;
	case R3000ACPU_NOTIFY_BEFORE_SAVE:
		lightrec_plugin_sync_regs_to_pcsx();
		break;
	case R3000ACPU_NOTIFY_AFTER_LOAD:
		lightrec_plugin_sync_regs_from_pcsx();
		break;
	}
}

static void lightrec_plugin_apply_config()
{
	u32 cycle_mult = Config.cycle_multiplier_override && Config.cycle_multiplier == CYCLE_MULT_DEFAULT
		? Config.cycle_multiplier_override : Config.cycle_multiplier;
	assert(cycle_mult);
	cycle_mult_to_pcsx = (cycle_mult * 1024 + 199) / 200;
	cycle_mult_from_pcsx = (200 * 1024 + cycle_mult/2) / cycle_mult;
}

static void lightrec_plugin_shutdown(void)
{
	lightrec_destroy(lightrec_state);
}

static void lightrec_plugin_reset(void)
{
	struct lightrec_registers *regs;

	regs = lightrec_get_registers(lightrec_state);

	/* Invalidate all blocks */
	lightrec_invalidate_all(lightrec_state);

	/* Reset registers */
	memset(regs, 0, sizeof(*regs));

	regs->cp0[12] = 0x10900000; // COP0 enabled | BEV = 1 | TS = 1
	regs->cp0[15] = 0x00000002; // PRevID = Revision ID, same as R3000A
}

static void lightrec_plugin_sync_regs_from_pcsx(void)
{
	struct lightrec_registers *regs;

	regs = lightrec_get_registers(lightrec_state);
	memcpy(regs->cp2d, &psxRegs.CP2, sizeof(regs->cp2d) + sizeof(regs->cp2c));
	memcpy(regs->cp0, &psxRegs.CP0, sizeof(regs->cp0));
	memcpy(regs->gpr, &psxRegs.GPR, sizeof(regs->gpr));

	lightrec_invalidate_all(lightrec_state);
}

static void lightrec_plugin_sync_regs_to_pcsx(void)
{
	struct lightrec_registers *regs;

	regs = lightrec_get_registers(lightrec_state);
	memcpy(&psxRegs.CP2, regs->cp2d, sizeof(regs->cp2d) + sizeof(regs->cp2c));
	memcpy(&psxRegs.CP0, regs->cp0, sizeof(regs->cp0));
	memcpy(&psxRegs.GPR, regs->gpr, sizeof(regs->gpr));
}

R3000Acpu psxRec =
{
	lightrec_plugin_init,
	lightrec_plugin_reset,
	lightrec_plugin_execute,
	lightrec_plugin_execute_block,
	lightrec_plugin_clear,
	lightrec_plugin_notify,
	lightrec_plugin_apply_config,
	lightrec_plugin_shutdown,
};
Commit	Line	Data
6f1edc3c PC	1	#include <lightrec.h>
	2	#include <stdbool.h>
	3	#include <stdio.h>
	4	#include <unistd.h>
	5	#include <signal.h>
c174cf6a	6	#include <assert.h>
6f1edc3c PC	7
	8	#include "../cdrom.h"
	9	#include "../gpu.h"
	10	#include "../gte.h"
	11	#include "../mdec.h"
	12	#include "../psxdma.h"
	13	#include "../psxhw.h"
	14	#include "../psxmem.h"
	15	#include "../r3000a.h"
f2100c3d	16	#include "../psxinterpreter.h"
6c62131f	17	#include "../new_dynarec/events.h"
6f1edc3c PC	18
	19	#include "../frontend/main.h"
	20
f8548105	21	#include "mem.h"
70939d49	22	#include "plugin.h"
f8548105	23
46a38bda	24	#if (defined(__arm__) \|\| defined(__aarch64__)) && !defined(ALLOW_LIGHTREC_ON_ARM)
	25	#error "Lightrec should not be used on ARM (please specify DYNAREC=ari64 to make)"
	26	#endif
	27
6f1edc3c PC	28	#define ARRAY_SIZE(x) (sizeof(x) ? sizeof(x) / sizeof((x)[0]) : 0)
	29
	30	#if __BYTE_ORDER__ == __ORDER_BIG_ENDIAN__
	31	# define LE32TOH(x) __builtin_bswap32(x)
	32	# define HTOLE32(x) __builtin_bswap32(x)
	33	# define LE16TOH(x) __builtin_bswap16(x)
	34	# define HTOLE16(x) __builtin_bswap16(x)
	35	#else
	36	# define LE32TOH(x) (x)
	37	# define HTOLE32(x) (x)
	38	# define LE16TOH(x) (x)
	39	# define HTOLE16(x) (x)
	40	#endif
	41
	42	#ifdef __GNUC__
	43	# define likely(x) __builtin_expect(!!(x),1)
	44	# define unlikely(x) __builtin_expect(!!(x),0)
	45	#else
	46	# define likely(x) (x)
	47	# define unlikely(x) (x)
	48	#endif
	49
630b122b	50	psxRegisters psxRegs;
	51	Rcnt rcnts[4];
	52
6f1edc3c PC	53	static struct lightrec_state *lightrec_state;
	54
	55	static char *name = "retroarch.exe";
	56
	57	static bool use_lightrec_interpreter;
6b02f240	58	static bool use_pcsx_interpreter;
6c62131f	59	static bool block_stepping;
c174cf6a	60	static u32 cycle_mult_to_pcsx; // 22.10 fractional
c174cf6a	61	static u32 cycle_mult_from_pcsx;
6f1edc3c	62
6f1edc3c PC	63	enum my_cp2_opcodes {
	64	OP_CP2_RTPS = 0x01,
	65	OP_CP2_NCLIP = 0x06,
	66	OP_CP2_OP = 0x0c,
	67	OP_CP2_DPCS = 0x10,
	68	OP_CP2_INTPL = 0x11,
	69	OP_CP2_MVMVA = 0x12,
	70	OP_CP2_NCDS = 0x13,
	71	OP_CP2_CDP = 0x14,
	72	OP_CP2_NCDT = 0x16,
	73	OP_CP2_NCCS = 0x1b,
	74	OP_CP2_CC = 0x1c,
	75	OP_CP2_NCS = 0x1e,
	76	OP_CP2_NCT = 0x20,
	77	OP_CP2_SQR = 0x28,
	78	OP_CP2_DCPL = 0x29,
	79	OP_CP2_DPCT = 0x2a,
	80	OP_CP2_AVSZ3 = 0x2d,
	81	OP_CP2_AVSZ4 = 0x2e,
	82	OP_CP2_RTPT = 0x30,
	83	OP_CP2_GPF = 0x3d,
	84	OP_CP2_GPL = 0x3e,
	85	OP_CP2_NCCT = 0x3f,
	86	};
	87
	88	static void (cp2_ops[])(struct psxCP2Regs ) = {
	89	[OP_CP2_RTPS] = gteRTPS,
	90	[OP_CP2_RTPS] = gteRTPS,
	91	[OP_CP2_NCLIP] = gteNCLIP,
	92	[OP_CP2_OP] = gteOP,
	93	[OP_CP2_DPCS] = gteDPCS,
	94	[OP_CP2_INTPL] = gteINTPL,
	95	[OP_CP2_MVMVA] = gteMVMVA,
	96	[OP_CP2_NCDS] = gteNCDS,
	97	[OP_CP2_CDP] = gteCDP,
	98	[OP_CP2_NCDT] = gteNCDT,
	99	[OP_CP2_NCCS] = gteNCCS,
	100	[OP_CP2_CC] = gteCC,
	101	[OP_CP2_NCS] = gteNCS,
	102	[OP_CP2_NCT] = gteNCT,
	103	[OP_CP2_SQR] = gteSQR,
	104	[OP_CP2_DCPL] = gteDCPL,
	105	[OP_CP2_DPCT] = gteDPCT,
	106	[OP_CP2_AVSZ3] = gteAVSZ3,
	107	[OP_CP2_AVSZ4] = gteAVSZ4,
	108	[OP_CP2_RTPT] = gteRTPT,
	109	[OP_CP2_GPF] = gteGPF,
	110	[OP_CP2_GPL] = gteGPL,
	111	[OP_CP2_NCCT] = gteNCCT,
	112	};
	113
	114	static char cache_buf[64 * 1024];
	115
0733c3ab	116	static void cop2_op(struct lightrec_state *state, u32 func)
6f1edc3c	117	{
0733c3ab	118	struct lightrec_registers *regs = lightrec_get_registers(state);
6f1edc3c	119
0733c3ab	120	psxRegs.code = func;
6f1edc3c	121
0733c3ab PC	122	if (unlikely(!cp2_ops[func & 0x3f])) {
	123	fprintf(stderr, "Invalid CP2 function %u\n", func);
	124	} else {
	125	/* This works because regs->cp2c comes right after regs->cp2d,
	126	* so it can be cast to a pcsxCP2Regs pointer. */
	127	cp2_ops[func & 0x3f]((psxCP2Regs *) regs->cp2d);
	128	}
6f1edc3c PC	129	}
6f1edc3c PC	130
2bf88032 PC	131	static bool has_interrupt(void)
2bf88032 PC	132	{
6ce0b00a PC	133	struct lightrec_registers *regs = lightrec_get_registers(lightrec_state);
6ce0b00a PC	134
2bf88032	135	return ((psxHu32(0x1070) & psxHu32(0x1074)) &&
6ce0b00a PC	136	(regs->cp0[12] & 0x401) == 0x401) \|\|
6ce0b00a PC	137	(regs->cp0[12] & regs->cp0[13] & 0x0300);
2bf88032 PC	138	}
2bf88032 PC	139
c174cf6a	140	static u32 cycles_pcsx_to_lightrec(u32 c)
f4f9f2a4	141	{
c174cf6a	142	assert((u64)c * cycle_mult_from_pcsx <= (u32)-1);
	143	return c * cycle_mult_from_pcsx >> 10;
	144	}
2bf88032	145
c174cf6a	146	static void lightrec_tansition_to_pcsx(struct lightrec_state *state)
	147	{
	148	psxRegs.cycle += lightrec_current_cycle_count(state) * cycle_mult_to_pcsx >> 10;
	149	lightrec_reset_cycle_count(state, 0);
	150	}
	151
	152	static void lightrec_tansition_from_pcsx(struct lightrec_state *state)
	153	{
	154	s32 cycles_left = next_interupt - psxRegs.cycle;
	155
	156	if (block_stepping \|\| cycles_left <= 0 \|\| has_interrupt())
2bf88032	157	lightrec_set_exit_flags(state, LIGHTREC_EXIT_CHECK_INTERRUPT);
c174cf6a	158	else {
	159	lightrec_set_target_cycle_count(state,
	160	cycles_pcsx_to_lightrec(cycles_left));
	161	}
f4f9f2a4 PC	162	}
f4f9f2a4 PC	163
6b02f240	164	static void hw_write_byte(struct lightrec_state *state,
6b02f240	165	u32 op, void *host, u32 mem, u8 val)
6f1edc3c	166	{
c174cf6a	167	lightrec_tansition_to_pcsx(state);
6f1edc3c PC	168
6f1edc3c PC	169	psxHwWrite8(mem, val);
6f1edc3c	170
c174cf6a	171	lightrec_tansition_from_pcsx(state);
6f1edc3c PC	172	}
6f1edc3c PC	173
6b02f240	174	static void hw_write_half(struct lightrec_state *state,
6b02f240	175	u32 op, void *host, u32 mem, u16 val)
6f1edc3c	176	{
c174cf6a	177	lightrec_tansition_to_pcsx(state);
6f1edc3c PC	178
6f1edc3c PC	179	psxHwWrite16(mem, val);
6f1edc3c	180
c174cf6a	181	lightrec_tansition_from_pcsx(state);
6f1edc3c PC	182	}
6f1edc3c PC	183
6b02f240	184	static void hw_write_word(struct lightrec_state *state,
6b02f240	185	u32 op, void *host, u32 mem, u32 val)
6f1edc3c	186	{
c174cf6a	187	lightrec_tansition_to_pcsx(state);
6f1edc3c PC	188
6f1edc3c PC	189	psxHwWrite32(mem, val);
6f1edc3c	190
c174cf6a	191	lightrec_tansition_from_pcsx(state);
6f1edc3c PC	192	}
6f1edc3c PC	193
6b02f240	194	static u8 hw_read_byte(struct lightrec_state state, u32 op, void host, u32 mem)
6f1edc3c PC	195	{
	196	u8 val;
	197
c174cf6a	198	lightrec_tansition_to_pcsx(state);
6f1edc3c	199
6f1edc3c	200	val = psxHwRead8(mem);
f4f9f2a4	201
c174cf6a	202	lightrec_tansition_from_pcsx(state);
6f1edc3c PC	203
	204	return val;
	205	}
	206
6b02f240	207	static u16 hw_read_half(struct lightrec_state *state,
6b02f240	208	u32 op, void *host, u32 mem)
6f1edc3c PC	209	{
	210	u16 val;
	211
c174cf6a	212	lightrec_tansition_to_pcsx(state);
6f1edc3c	213
6f1edc3c	214	val = psxHwRead16(mem);
f4f9f2a4	215
c174cf6a	216	lightrec_tansition_from_pcsx(state);
6f1edc3c PC	217
	218	return val;
	219	}
	220
6b02f240	221	static u32 hw_read_word(struct lightrec_state *state,
6b02f240	222	u32 op, void *host, u32 mem)
6f1edc3c PC	223	{
	224	u32 val;
	225
c174cf6a	226	lightrec_tansition_to_pcsx(state);
6f1edc3c	227
6f1edc3c	228	val = psxHwRead32(mem);
f4f9f2a4	229
c174cf6a	230	lightrec_tansition_from_pcsx(state);
6f1edc3c PC	231
	232	return val;
	233	}
	234
	235	static struct lightrec_mem_map_ops hw_regs_ops = {
	236	.sb = hw_write_byte,
	237	.sh = hw_write_half,
	238	.sw = hw_write_word,
	239	.lb = hw_read_byte,
	240	.lh = hw_read_half,
	241	.lw = hw_read_word,
	242	};
	243
	244	static u32 cache_ctrl;
	245
6b02f240	246	static void cache_ctrl_write_word(struct lightrec_state *state,
6b02f240	247	u32 op, void *host, u32 mem, u32 val)
6f1edc3c PC	248	{
	249	cache_ctrl = val;
	250	}
	251
6b02f240	252	static u32 cache_ctrl_read_word(struct lightrec_state *state,
6b02f240	253	u32 op, void *host, u32 mem)
6f1edc3c PC	254	{
	255	return cache_ctrl;
	256	}
	257
	258	static struct lightrec_mem_map_ops cache_ctrl_ops = {
	259	.sw = cache_ctrl_write_word,
	260	.lw = cache_ctrl_read_word,
	261	};
	262
	263	static struct lightrec_mem_map lightrec_map[] = {
	264	[PSX_MAP_KERNEL_USER_RAM] = {
	265	/* Kernel and user memory */
	266	.pc = 0x00000000,
	267	.length = 0x200000,
	268	},
	269	[PSX_MAP_BIOS] = {
	270	/* BIOS */
	271	.pc = 0x1fc00000,
	272	.length = 0x80000,
	273	},
	274	[PSX_MAP_SCRATCH_PAD] = {
	275	/* Scratch pad */
	276	.pc = 0x1f800000,
	277	.length = 0x400,
	278	},
	279	[PSX_MAP_PARALLEL_PORT] = {
	280	/* Parallel port */
	281	.pc = 0x1f000000,
	282	.length = 0x10000,
	283	},
	284	[PSX_MAP_HW_REGISTERS] = {
	285	/* Hardware registers */
	286	.pc = 0x1f801000,
	287	.length = 0x2000,
	288	.ops = &hw_regs_ops,
	289	},
	290	[PSX_MAP_CACHE_CONTROL] = {
	291	/* Cache control */
	292	.pc = 0x5ffe0130,
	293	.length = 4,
	294	.ops = &cache_ctrl_ops,
	295	},
	296
	297	/* Mirrors of the kernel/user memory */
	298	[PSX_MAP_MIRROR1] = {
	299	.pc = 0x00200000,
	300	.length = 0x200000,
	301	.mirror_of = &lightrec_map[PSX_MAP_KERNEL_USER_RAM],
	302	},
	303	[PSX_MAP_MIRROR2] = {
	304	.pc = 0x00400000,
	305	.length = 0x200000,
	306	.mirror_of = &lightrec_map[PSX_MAP_KERNEL_USER_RAM],
	307	},
	308	[PSX_MAP_MIRROR3] = {
	309	.pc = 0x00600000,
	310	.length = 0x200000,
	311	.mirror_of = &lightrec_map[PSX_MAP_KERNEL_USER_RAM],
	312	},
f8548105 PC	313	[PSX_MAP_CODE_BUFFER] = {
	314	.length = CODE_BUFFER_SIZE,
	315	},
6f1edc3c PC	316	};
6f1edc3c PC	317
0733c3ab PC	318	static void lightrec_enable_ram(struct lightrec_state *state, bool enable)
	319	{
	320	if (enable)
	321	memcpy(psxM, cache_buf, sizeof(cache_buf));
	322	else
	323	memcpy(cache_buf, psxM, sizeof(cache_buf));
	324	}
	325
ba3814c1 PC	326	static bool lightrec_can_hw_direct(u32 kaddr, bool is_write, u8 size)
	327	{
	328	switch (size) {
	329	case 8:
	330	switch (kaddr) {
	331	case 0x1f801040:
	332	case 0x1f801050:
	333	case 0x1f801800:
	334	case 0x1f801801:
	335	case 0x1f801802:
	336	case 0x1f801803:
	337	return false;
	338	default:
	339	return true;
	340	}
	341	case 16:
	342	switch (kaddr) {
	343	case 0x1f801040:
	344	case 0x1f801044:
	345	case 0x1f801048:
	346	case 0x1f80104a:
	347	case 0x1f80104e:
	348	case 0x1f801050:
	349	case 0x1f801054:
	350	case 0x1f80105a:
	351	case 0x1f80105e:
	352	case 0x1f801100:
	353	case 0x1f801104:
	354	case 0x1f801108:
	355	case 0x1f801110:
	356	case 0x1f801114:
	357	case 0x1f801118:
	358	case 0x1f801120:
	359	case 0x1f801124:
	360	case 0x1f801128:
	361	return false;
	362	case 0x1f801070:
	363	case 0x1f801074:
	364	return !is_write;
	365	default:
cdfa3536	366	return kaddr < 0x1f801c00 \|\| kaddr >= 0x1f801e00;
ba3814c1 PC	367	}
	368	default:
	369	switch (kaddr) {
	370	case 0x1f801040:
	371	case 0x1f801050:
	372	case 0x1f801100:
	373	case 0x1f801104:
	374	case 0x1f801108:
	375	case 0x1f801110:
	376	case 0x1f801114:
	377	case 0x1f801118:
	378	case 0x1f801120:
	379	case 0x1f801124:
	380	case 0x1f801128:
	381	case 0x1f801810:
	382	case 0x1f801814:
	383	case 0x1f801820:
	384	case 0x1f801824:
	385	return false;
	386	case 0x1f801070:
	387	case 0x1f801074:
	388	case 0x1f801088:
	389	case 0x1f801098:
	390	case 0x1f8010a8:
	391	case 0x1f8010b8:
	392	case 0x1f8010c8:
	393	case 0x1f8010e8:
	394	case 0x1f8010f4:
	395	return !is_write;
	396	default:
	397	return !is_write \|\| kaddr < 0x1f801c00 \|\| kaddr >= 0x1f801e00;
	398	}
	399	}
	400	}
	401
6f1edc3c	402	static const struct lightrec_ops lightrec_ops = {
0733c3ab PC	403	.cop2_op = cop2_op,
0733c3ab PC	404	.enable_ram = lightrec_enable_ram,
ba3814c1	405	.hw_direct = lightrec_can_hw_direct,
6f1edc3c PC	406	};
	407
	408	static int lightrec_plugin_init(void)
	409	{
	410	lightrec_map[PSX_MAP_KERNEL_USER_RAM].address = psxM;
	411	lightrec_map[PSX_MAP_BIOS].address = psxR;
	412	lightrec_map[PSX_MAP_SCRATCH_PAD].address = psxH;
6ce0b00a	413	lightrec_map[PSX_MAP_HW_REGISTERS].address = psxH + 0x1000;
6f1edc3c PC	414	lightrec_map[PSX_MAP_PARALLEL_PORT].address = psxP;
6f1edc3c PC	415
479d58cf PC	416	if (LIGHTREC_CUSTOM_MAP) {
	417	lightrec_map[PSX_MAP_MIRROR1].address = psxM + 0x200000;
	418	lightrec_map[PSX_MAP_MIRROR2].address = psxM + 0x400000;
	419	lightrec_map[PSX_MAP_MIRROR3].address = psxM + 0x600000;
f8548105	420	lightrec_map[PSX_MAP_CODE_BUFFER].address = code_buffer;
479d58cf PC	421	}
479d58cf PC	422
6f1edc3c	423	use_lightrec_interpreter = !!getenv("LIGHTREC_INTERPRETER");
6f1edc3c PC	424
	425	lightrec_state = lightrec_init(name,
	426	lightrec_map, ARRAY_SIZE(lightrec_map),
	427	&lightrec_ops);
	428
9361a5aa EC	429	// fprintf(stderr, "M=0x%lx, P=0x%lx, R=0x%lx, H=0x%lx\n",
	430	// (uintptr_t) psxM,
	431	// (uintptr_t) psxP,
	432	// (uintptr_t) psxR,
	433	// (uintptr_t) psxH);
6f1edc3c PC	434
	435	#ifndef _WIN32
	436	signal(SIGPIPE, exit);
	437	#endif
	438	return 0;
	439	}
	440
d0abba5d	441	static void lightrec_plugin_execute_internal(bool block_only)
6f1edc3c	442	{
6c62131f	443	struct lightrec_registers *regs;
c174cf6a	444	u32 flags, cycles_pcsx;
6f1edc3c	445
6c62131f	446	regs = lightrec_get_registers(lightrec_state);
6c62131f	447	gen_interupt((psxCP0Regs *)regs->cp0);
c174cf6a	448	cycles_pcsx = next_interupt - psxRegs.cycle;
c174cf6a	449	assert((s32)cycles_pcsx > 0);
2bf88032	450
ba3814c1	451	// step during early boot so that 0x80030000 fastboot hack works
6c62131f	452	block_stepping = block_only;
d0abba5d	453	if (block_only)
c174cf6a	454	cycles_pcsx = 0;
ba3814c1	455
6b02f240	456	if (use_pcsx_interpreter) {
f2100c3d	457	intExecuteBlock(0);
6b02f240	458	} else {
c174cf6a	459	u32 cycles_lightrec = cycles_pcsx_to_lightrec(cycles_pcsx);
ba3814c1	460	if (unlikely(use_lightrec_interpreter)) {
6b02f240	461	psxRegs.pc = lightrec_run_interpreter(lightrec_state,
ba3814c1	462	psxRegs.pc,
c174cf6a	463	cycles_lightrec);
ba3814c1	464	} else {
2bf88032	465	psxRegs.pc = lightrec_execute(lightrec_state,
c174cf6a	466	psxRegs.pc, cycles_lightrec);
ba3814c1	467	}
6f1edc3c	468
c174cf6a	469	lightrec_tansition_to_pcsx(lightrec_state);
6f1edc3c	470
6b02f240	471	flags = lightrec_exit_flags(lightrec_state);
6f1edc3c	472
6b02f240	473	if (flags & LIGHTREC_EXIT_SEGFAULT) {
	474	fprintf(stderr, "Exiting at cycle 0x%08x\n",
	475	psxRegs.cycle);
	476	exit(1);
	477	}
6f1edc3c	478
6b02f240	479	if (flags & LIGHTREC_EXIT_SYSCALL)
6c62131f	480	psxException(0x20, 0, (psxCP0Regs *)regs->cp0);
2bf88032	481	}
6f1edc3c	482
6c62131f	483	if ((regs->cp0[13] & regs->cp0[12] & 0x300) && (regs->cp0[12] & 0x1)) {
6f1edc3c	484	/* Handle software interrupts */
6c62131f	485	regs->cp0[13] &= ~0x7c;
6c62131f	486	psxException(regs->cp0[13], 0, (psxCP0Regs *)regs->cp0);
6f1edc3c	487	}
6f1edc3c PC	488	}
	489
	490	static void lightrec_plugin_execute(void)
	491	{
	492	extern int stop;
	493
	494	while (!stop)
d0abba5d	495	lightrec_plugin_execute_internal(false);
d0abba5d	496	}
d0abba5d	497
f3bc907d	498	static void lightrec_plugin_execute_block(enum blockExecCaller caller)
d0abba5d	499	{
d0abba5d	500	lightrec_plugin_execute_internal(true);
6f1edc3c PC	501	}
	502
	503	static void lightrec_plugin_clear(u32 addr, u32 size)
	504	{
8c9468f1 ZC	505	if (addr == 0 && size == UINT32_MAX)
	506	lightrec_invalidate_all(lightrec_state);
	507	else
	508	/* size * 4: PCSX uses DMA units */
	509	lightrec_invalidate(lightrec_state, addr, size * 4);
6f1edc3c PC	510	}
6f1edc3c PC	511
20196899	512	static void lightrec_plugin_sync_regs_to_pcsx(void);
	513	static void lightrec_plugin_sync_regs_from_pcsx(void);
	514
	515	static void lightrec_plugin_notify(enum R3000Anote note, void *data)
7a811716	516	{
7a811716	517	switch (note)
7a811716	518	{
20196899	519	case R3000ACPU_NOTIFY_CACHE_ISOLATED:
	520	case R3000ACPU_NOTIFY_CACHE_UNISOLATED:
	521	/* not used, lightrec calls lightrec_enable_ram() instead */
	522	break;
	523	case R3000ACPU_NOTIFY_BEFORE_SAVE:
	524	lightrec_plugin_sync_regs_to_pcsx();
	525	break;
	526	case R3000ACPU_NOTIFY_AFTER_LOAD:
	527	lightrec_plugin_sync_regs_from_pcsx();
	528	break;
	529	}
7a811716	530	}
630b122b	531
	532	static void lightrec_plugin_apply_config()
	533	{
c174cf6a	534	u32 cycle_mult = Config.cycle_multiplier_override && Config.cycle_multiplier == CYCLE_MULT_DEFAULT
	535	? Config.cycle_multiplier_override : Config.cycle_multiplier;
	536	assert(cycle_mult);
	537	cycle_mult_to_pcsx = (cycle_mult * 1024 + 199) / 200;
	538	cycle_mult_from_pcsx = (200 * 1024 + cycle_mult/2) / cycle_mult;
630b122b	539	}
7a811716	540
6f1edc3c PC	541	static void lightrec_plugin_shutdown(void)
	542	{
	543	lightrec_destroy(lightrec_state);
	544	}
	545
	546	static void lightrec_plugin_reset(void)
	547	{
0733c3ab PC	548	struct lightrec_registers *regs;
0733c3ab PC	549
0733c3ab PC	550	regs = lightrec_get_registers(lightrec_state);
0733c3ab PC	551
03535202 PC	552	/* Invalidate all blocks */
	553	lightrec_invalidate_all(lightrec_state);
	554
	555	/* Reset registers */
	556	memset(regs, 0, sizeof(*regs));
	557
0733c3ab PC	558	regs->cp0[12] = 0x10900000; // COP0 enabled \| BEV = 1 \| TS = 1
0733c3ab PC	559	regs->cp0[15] = 0x00000002; // PRevID = Revision ID, same as R3000A
6f1edc3c PC	560	}
6f1edc3c PC	561
20196899	562	static void lightrec_plugin_sync_regs_from_pcsx(void)
6962f770 PC	563	{
	564	struct lightrec_registers *regs;
	565
	566	regs = lightrec_get_registers(lightrec_state);
	567	memcpy(regs->cp2d, &psxRegs.CP2, sizeof(regs->cp2d) + sizeof(regs->cp2c));
	568	memcpy(regs->cp0, &psxRegs.CP0, sizeof(regs->cp0));
	569	memcpy(regs->gpr, &psxRegs.GPR, sizeof(regs->gpr));
	570
	571	lightrec_invalidate_all(lightrec_state);
	572	}
	573
20196899	574	static void lightrec_plugin_sync_regs_to_pcsx(void)
6962f770 PC	575	{
	576	struct lightrec_registers *regs;
	577
	578	regs = lightrec_get_registers(lightrec_state);
	579	memcpy(&psxRegs.CP2, regs->cp2d, sizeof(regs->cp2d) + sizeof(regs->cp2c));
	580	memcpy(&psxRegs.CP0, regs->cp0, sizeof(regs->cp0));
	581	memcpy(&psxRegs.GPR, regs->gpr, sizeof(regs->gpr));
	582	}
	583
6f1edc3c PC	584	R3000Acpu psxRec =
	585	{
	586	lightrec_plugin_init,
	587	lightrec_plugin_reset,
	588	lightrec_plugin_execute,
	589	lightrec_plugin_execute_block,
	590	lightrec_plugin_clear,
7a811716	591	lightrec_plugin_notify,
630b122b	592	lightrec_plugin_apply_config,
6f1edc3c PC	593	lightrec_plugin_shutdown,
6f1edc3c PC	594	};