ViewVC Help

View File | Revision Log | Show Annotations | Revision Graph | Root Listing

root/cebix/SheepShaver/src/kpx_cpu/sheepshaver_glue.cpp

Comparing SheepShaver/src/kpx_cpu/sheepshaver_glue.cpp (file contents):
Revision 1.35 by gbeauche, 2004-04-22T22:54:47Z vs.
Revision 1.38 by gbeauche, 2004-05-19T21:23:16Z

#	Line 38 | Line 38
38		#include "name_registry.h"
39		#include "serial.h"
40		#include "ether.h"
41	+	#include "timer.h"
42
43		#include <stdio.h>
44		#include <stdlib.h>
#	Line 86 | Line 87 | const uint32 POWERPC_EXEC_RETURN = POWER
87		// Enable multicore (main/interrupts) cpu emulation?
88		#define MULTICORE_CPU (ASYNC_IRQ ? 1 : 0)
89
90	+	// Enable interrupt routine safety checks?
91	+	#define SAFE_INTERRUPT_PPC 1
92	+
93		// Enable Execute68k() safety checks?
94		#define SAFE_EXEC_68K 1
95
#	Line 98 | Line 102 | const uint32 POWERPC_EXEC_RETURN = POWER
102		// Interrupts in native mode?
103		#define INTERRUPTS_IN_NATIVE_MODE 1
104
105	+	// Enable native EMUL_OPs to be run without a mode switch
106	+	#define ENABLE_NATIVE_EMUL_OP 1
107	+
108		// Pointer to Kernel Data
109		static KernelData * const kernel_data = (KernelData *)KERNEL_DATA_BASE;
110
111		// SIGSEGV handler
112		static sigsegv_return_t sigsegv_handler(sigsegv_address_t, sigsegv_address_t);
113
114	+	#if PPC_ENABLE_JIT && PPC_REENTRANT_JIT
115	+	// Special trampolines for EmulOp and NativeOp
116	+	static uint8 *emul_op_trampoline;
117	+	static uint8 *native_op_trampoline;
118	+	#endif
119	+
120		// JIT Compiler enabled?
121		static inline bool enable_jit_p()
122		{
#	Line 126 | Line 139 | class sheepshaver_cpu
139		void init_decoder();
140		void execute_sheep(uint32 opcode);
141
142	+	// Filter out EMUL_OP routines that only call native code
143	+	bool filter_execute_emul_op(uint32 emul_op);
144	+
145	+	// "Native" EMUL_OP routines
146	+	void execute_emul_op_microseconds();
147	+	void execute_emul_op_idle_time_1();
148	+	void execute_emul_op_idle_time_2();
149	+
150		public:
151
152		// Constructor
#	Line 137 | Line 158 | public:
158		uint32 get_xer() const          { return xer().get(); }
159		void set_xer(uint32 v)          { xer().set(v); }
160
161	+	// Execute NATIVE_OP routine
162	+	void execute_native_op(uint32 native_op);
163	+
164		// Execute EMUL_OP routine
165		void execute_emul_op(uint32 emul_op);
166
#	Line 150 | Line 174 | public:
174		uint32 execute_macos_code(uint32 tvect, int nargs, uint32 const *args);
175
176		// Compile one instruction
177	<	virtual bool compile1(codegen_context_t & cg_context);
177	>	virtual int compile1(codegen_context_t & cg_context);
178
179		// Resource manager thunk
180		void get_resource(uint32 old_get_resource);
#	Line 221 | Line 245 | void sheepshaver_cpu::init_decoder()
245		}
246		}
247
224	–	// Forward declaration for native opcode handler
225	–	static void NativeOp(int selector);
226	–
248		/*              NativeOp instruction format:
249		+------------+-------------------------+--+-----------+------------+
250		|      6     |                         |FN|    OP     |      2     |
#	Line 235 | Line 256 | typedef bit_field< 19, 19 > FN_field;
256		typedef bit_field< 20, 25 > NATIVE_OP_field;
257		typedef bit_field< 26, 31 > EMUL_OP_field;
258
259	+	// "Native" EMUL_OP routines
260	+	#define GPR_A(REG) gpr(16 + (REG))
261	+	#define GPR_D(REG) gpr( 8 + (REG))
262	+
263	+	void sheepshaver_cpu::execute_emul_op_microseconds()
264	+	{
265	+	Microseconds(GPR_A(0), GPR_D(0));
266	+	}
267	+
268	+	void sheepshaver_cpu::execute_emul_op_idle_time_1()
269	+	{
270	+	// Sleep if no events pending
271	+	if (ReadMacInt32(0x14c) == 0)
272	+	Delay_usec(16667);
273	+	GPR_A(0) = ReadMacInt32(0x2b6);
274	+	}
275	+
276	+	void sheepshaver_cpu::execute_emul_op_idle_time_2()
277	+	{
278	+	// Sleep if no events pending
279	+	if (ReadMacInt32(0x14c) == 0)
280	+	Delay_usec(16667);
281	+	GPR_D(0) = (uint32)-2;
282	+	}
283	+
284	+	// Filter out EMUL_OP routines that only call native code
285	+	bool sheepshaver_cpu::filter_execute_emul_op(uint32 emul_op)
286	+	{
287	+	switch (emul_op) {
288	+	case OP_MICROSECONDS:
289	+	execute_emul_op_microseconds();
290	+	return true;
291	+	case OP_IDLE_TIME:
292	+	execute_emul_op_idle_time_1();
293	+	return true;
294	+	case OP_IDLE_TIME_2:
295	+	execute_emul_op_idle_time_2();
296	+	return true;
297	+	}
298	+	return false;
299	+	}
300	+
301		// Execute EMUL_OP routine
302		void sheepshaver_cpu::execute_emul_op(uint32 emul_op)
303		{
304	+	#if ENABLE_NATIVE_EMUL_OP
305	+	// First, filter out EMUL_OPs that can be executed without a mode switch
306	+	if (filter_execute_emul_op(emul_op))
307	+	return;
308	+	#endif
309	+
310		M68kRegisters r68;
311		WriteMacInt32(XLM_68K_R25, gpr(25));
312		WriteMacInt32(XLM_RUN_MODE, MODE_EMUL_OP);
#	Line 275 | Line 344 | void sheepshaver_cpu::execute_sheep(uint
344		break;
345
346		case 2:         // EXEC_NATIVE
347	<	NativeOp(NATIVE_OP_field::extract(opcode));
347	>	execute_native_op(NATIVE_OP_field::extract(opcode));
348		if (FN_field::test(opcode))
349		pc() = lr();
350		else
#	Line 290 | Line 359 | void sheepshaver_cpu::execute_sheep(uint
359		}
360
361		// Compile one instruction
362	<	bool sheepshaver_cpu::compile1(codegen_context_t & cg_context)
362	>	int sheepshaver_cpu::compile1(codegen_context_t & cg_context)
363		{
364		#if PPC_ENABLE_JIT
365		const instr_info_t *ii = cg_context.instr_info;
366		if (ii->mnemo != PPC_I(SHEEP))
367	<	return false;
367	>	return COMPILE_FAILURE;
368
369	<	bool compiled = false;
369	>	int status = COMPILE_FAILURE;
370		powerpc_dyngen & dg = cg_context.codegen;
371		uint32 opcode = cg_context.opcode;
372
373		switch (opcode & 0x3f) {
374		case 0:         // EMUL_RETURN
375		dg.gen_invoke(QuitEmulator);
376	<	compiled = true;
376	>	status = COMPILE_CODE_OK;
377		break;
378
379		case 1:         // EXEC_RETURN
380		dg.gen_spcflags_set(SPCFLAG_CPU_EXEC_RETURN);
381	<	compiled = true;
381	>	// Don't check for pending interrupts, we do know we have to
382	>	// get out of this block ASAP
383	>	dg.gen_exec_return();
384	>	status = COMPILE_EPILOGUE_OK;
385		break;
386
387		case 2: {       // EXEC_NATIVE
388		uint32 selector = NATIVE_OP_field::extract(opcode);
389		switch (selector) {
390	+	#if !PPC_REENTRANT_JIT
391	+	// Filter out functions that may invoke Execute68k() or
392	+	// CallMacOS(), this would break reentrancy as they could
393	+	// invalidate the translation cache and even overwrite
394	+	// continuation code when we are done with them.
395		case NATIVE_PATCH_NAME_REGISTRY:
396		dg.gen_invoke(DoPatchNameRegistry);
397	<	compiled = true;
397	>	status = COMPILE_CODE_OK;
398		break;
399		case NATIVE_VIDEO_INSTALL_ACCEL:
400		dg.gen_invoke(VideoInstallAccel);
401	<	compiled = true;
401	>	status = COMPILE_CODE_OK;
402		break;
403		case NATIVE_VIDEO_VBL:
404		dg.gen_invoke(VideoVBL);
405	<	compiled = true;
405	>	status = COMPILE_CODE_OK;
406		break;
407		case NATIVE_GET_RESOURCE:
408		case NATIVE_GET_1_RESOURCE:
#	Line 343 | Line 420 | bool sheepshaver_cpu::compile1(codegen_c
420		typedef void (*func_t)(dyngen_cpu_base, uint32);
421		func_t func = (func_t)nv_mem_fun(&sheepshaver_cpu::get_resource).ptr();
422		dg.gen_invoke_CPU_im(func, old_get_resource);
423	<	compiled = true;
423	>	status = COMPILE_CODE_OK;
424		break;
425		}
349	–	case NATIVE_DISABLE_INTERRUPT:
350	–	dg.gen_invoke(DisableInterrupt);
351	–	compiled = true;
352	–	break;
353	–	case NATIVE_ENABLE_INTERRUPT:
354	–	dg.gen_invoke(EnableInterrupt);
355	–	compiled = true;
356	–	break;
426		case NATIVE_CHECK_LOAD_INVOC:
427		dg.gen_load_T0_GPR(3);
428		dg.gen_load_T1_GPR(4);
429		dg.gen_se_16_32_T1();
430		dg.gen_load_T2_GPR(5);
431		dg.gen_invoke_T0_T1_T2((void (*)(uint32, uint32, uint32))check_load_invoc);
432	<	compiled = true;
432	>	status = COMPILE_CODE_OK;
433	>	break;
434	>	#endif
435	>	case NATIVE_DISABLE_INTERRUPT:
436	>	dg.gen_invoke(DisableInterrupt);
437	>	status = COMPILE_CODE_OK;
438	>	break;
439	>	case NATIVE_ENABLE_INTERRUPT:
440	>	dg.gen_invoke(EnableInterrupt);
441	>	status = COMPILE_CODE_OK;
442		break;
443		case NATIVE_BITBLT:
444		dg.gen_load_T0_GPR(3);
445		dg.gen_invoke_T0((void (*)(uint32))NQD_bitblt);
446	<	compiled = true;
446	>	status = COMPILE_CODE_OK;
447		break;
448		case NATIVE_INVRECT:
449		dg.gen_load_T0_GPR(3);
450		dg.gen_invoke_T0((void (*)(uint32))NQD_invrect);
451	<	compiled = true;
451	>	status = COMPILE_CODE_OK;
452		break;
453		case NATIVE_FILLRECT:
454		dg.gen_load_T0_GPR(3);
455		dg.gen_invoke_T0((void (*)(uint32))NQD_fillrect);
456	<	compiled = true;
456	>	status = COMPILE_CODE_OK;
457		break;
458		}
459	+	// Could we fully translate this NativeOp?
460		if (FN_field::test(opcode)) {
461	<	if (compiled) {
461	>	if (status != COMPILE_FAILURE) {
462		dg.gen_load_A0_LR();
463		dg.gen_set_PC_A0();
464		}
465		cg_context.done_compile = true;
466	+	break;
467		}
468	<	else
468	>	else if (status != COMPILE_FAILURE) {
469		cg_context.done_compile = false;
470	+	break;
471	+	}
472	+	#if PPC_REENTRANT_JIT
473	+	// Try to execute NativeOp trampoline
474	+	dg.gen_set_PC_im(cg_context.pc + 4);
475	+	dg.gen_mov_32_T0_im(selector);
476	+	dg.gen_jmp(native_op_trampoline);
477	+	cg_context.done_compile = true;
478	+	status = COMPILE_EPILOGUE_OK;
479	+	break;
480	+	#endif
481	+	// Invoke NativeOp handler
482	+	typedef void (*func_t)(dyngen_cpu_base, uint32);
483	+	func_t func = (func_t)nv_mem_fun(&sheepshaver_cpu::execute_native_op).ptr();
484	+	dg.gen_invoke_CPU_im(func, selector);
485	+	cg_context.done_compile = false;
486	+	status = COMPILE_CODE_OK;
487		break;
488		}
489
490		default: {      // EMUL_OP
491	+	uint32 emul_op = EMUL_OP_field::extract(opcode) - 3;
492	+	#if ENABLE_NATIVE_EMUL_OP
493	+	typedef void (*emul_op_func_t)(dyngen_cpu_base);
494	+	emul_op_func_t emul_op_func = 0;
495	+	switch (emul_op) {
496	+	case OP_MICROSECONDS:
497	+	emul_op_func = (emul_op_func_t)nv_mem_fun(&sheepshaver_cpu::execute_emul_op_microseconds).ptr();
498	+	break;
499	+	case OP_IDLE_TIME:
500	+	emul_op_func = (emul_op_func_t)nv_mem_fun(&sheepshaver_cpu::execute_emul_op_idle_time_1).ptr();
501	+	break;
502	+	case OP_IDLE_TIME_2:
503	+	emul_op_func = (emul_op_func_t)nv_mem_fun(&sheepshaver_cpu::execute_emul_op_idle_time_2).ptr();
504	+	break;
505	+	}
506	+	if (emul_op_func) {
507	+	dg.gen_invoke_CPU(emul_op_func);
508	+	cg_context.done_compile = false;
509	+	status = COMPILE_CODE_OK;
510	+	break;
511	+	}
512	+	#endif
513	+	#if PPC_REENTRANT_JIT
514	+	// Try to execute EmulOp trampoline
515	+	dg.gen_set_PC_im(cg_context.pc + 4);
516	+	dg.gen_mov_32_T0_im(emul_op);
517	+	dg.gen_jmp(emul_op_trampoline);
518	+	cg_context.done_compile = true;
519	+	status = COMPILE_EPILOGUE_OK;
520	+	break;
521	+	#endif
522	+	// Invoke EmulOp handler
523		typedef void (*func_t)(dyngen_cpu_base, uint32);
524		func_t func = (func_t)nv_mem_fun(&sheepshaver_cpu::execute_emul_op).ptr();
525	<	dg.gen_invoke_CPU_im(func, EMUL_OP_field::extract(opcode) - 3);
525	>	dg.gen_invoke_CPU_im(func, emul_op);
526		cg_context.done_compile = false;
527	<	compiled = true;
527	>	status = COMPILE_CODE_OK;
528		break;
529		}
530		}
531	<	return compiled;
531	>	return status;
532		#endif
533	<	return false;
533	>	return COMPILE_FAILURE;
534		}
535
536		// Handle MacOS interrupt
#	Line 412 | Line 541 | void sheepshaver_cpu::interrupt(uint32 e
541		const clock_t interrupt_start = clock();
542		#endif
543
544	+	#if SAFE_INTERRUPT_PPC
545	+	static int depth = 0;
546	+	if (depth != 0)
547	+	printf("FATAL: sheepshaver_cpu::interrupt() called more than once: %d\n", depth);
548	+	depth++;
549	+	#endif
550	+	#if SAFE_INTERRUPT_PPC >= 2
551	+	uint32 saved_regs[32];
552	+	memcpy(&saved_regs[0], &gpr(0), sizeof(saved_regs));
553	+	#endif
554	+
555		#if !MULTICORE_CPU
556		// Save program counters and branch registers
557		uint32 saved_pc = pc();
#	Line 469 | Line 609 | void sheepshaver_cpu::interrupt(uint32 e
609		#if EMUL_TIME_STATS
610		interrupt_time += (clock() - interrupt_start);
611		#endif
612	+
613	+	#if SAFE_INTERRUPT_PPC >= 2
614	+	if (memcmp(&saved_regs[0], &gpr(0), sizeof(saved_regs)) != 0)
615	+	printf("FATAL: dirty PowerPC registers\n");
616	+	#endif
617	+	#if SAFE_INTERRUPT_PPC
618	+	depth--;
619	+	#endif
620		}
621
622		// Execute 68k routine
#	Line 833 | Line 981 | void exit_emul_ppc(void)
981		#endif
982		}
983
984	+	#if PPC_ENABLE_JIT && PPC_REENTRANT_JIT
985	+	// Initialize EmulOp trampolines
986	+	void init_emul_op_trampolines(basic_dyngen & dg)
987	+	{
988	+	typedef void (*func_t)(dyngen_cpu_base, uint32);
989	+	func_t func;
990	+
991	+	// EmulOp
992	+	emul_op_trampoline = dg.gen_start();
993	+	func = (func_t)nv_mem_fun(&sheepshaver_cpu::execute_emul_op).ptr();
994	+	dg.gen_invoke_CPU_T0(func);
995	+	dg.gen_exec_return();
996	+	dg.gen_end();
997	+
998	+	// NativeOp
999	+	native_op_trampoline = dg.gen_start();
1000	+	func = (func_t)nv_mem_fun(&sheepshaver_cpu::execute_native_op).ptr();
1001	+	dg.gen_invoke_CPU_T0(func);
1002	+	dg.gen_exec_return();
1003	+	dg.gen_end();
1004	+
1005	+	D(bug("EmulOp trampoline:   %p\n", emul_op_trampoline));
1006	+	D(bug("NativeOp trampoline: %p\n", native_op_trampoline));
1007	+	}
1008	+	#endif
1009	+
1010		/*
1011		*  Emulation loop
1012		*/
#	Line 955 | Line 1129 | static void get_ind_resource(void);
1129		static void get_1_ind_resource(void);
1130		static void r_get_resource(void);
1131
1132	<	#define GPR(REG) current_cpu->gpr(REG)
1133	<
960	<	static void NativeOp(int selector)
1132	>	// Execute NATIVE_OP routine
1133	>	void sheepshaver_cpu::execute_native_op(uint32 selector)
1134		{
1135		#if EMUL_TIME_STATS
1136		native_exec_count++;
#	Line 975 | Line 1148 | static void NativeOp(int selector)
1148		VideoVBL();
1149		break;
1150		case NATIVE_VIDEO_DO_DRIVER_IO:
1151	<	GPR(3) = (int32)(int16)VideoDoDriverIO((void *)GPR(3), (void *)GPR(4),
1152	<	(void *)GPR(5), GPR(6), GPR(7));
1151	>	gpr(3) = (int32)(int16)VideoDoDriverIO((void *)gpr(3), (void *)gpr(4),
1152	>	(void *)gpr(5), gpr(6), gpr(7));
1153		break;
1154		#ifdef WORDS_BIGENDIAN
1155		case NATIVE_ETHER_IRQ:
1156		EtherIRQ();
1157		break;
1158		case NATIVE_ETHER_INIT:
1159	<	GPR(3) = InitStreamModule((void *)GPR(3));
1159	>	gpr(3) = InitStreamModule((void *)gpr(3));
1160		break;
1161		case NATIVE_ETHER_TERM:
1162		TerminateStreamModule();
1163		break;
1164		case NATIVE_ETHER_OPEN:
1165	<	GPR(3) = ether_open((queue_t *)GPR(3), (void *)GPR(4), GPR(5), GPR(6), (void*)GPR(7));
1165	>	gpr(3) = ether_open((queue_t *)gpr(3), (void *)gpr(4), gpr(5), gpr(6), (void*)gpr(7));
1166		break;
1167		case NATIVE_ETHER_CLOSE:
1168	<	GPR(3) = ether_close((queue_t *)GPR(3), GPR(4), (void *)GPR(5));
1168	>	gpr(3) = ether_close((queue_t *)gpr(3), gpr(4), (void *)gpr(5));
1169		break;
1170		case NATIVE_ETHER_WPUT:
1171	<	GPR(3) = ether_wput((queue_t *)GPR(3), (mblk_t *)GPR(4));
1171	>	gpr(3) = ether_wput((queue_t *)gpr(3), (mblk_t *)gpr(4));
1172		break;
1173		case NATIVE_ETHER_RSRV:
1174	<	GPR(3) = ether_rsrv((queue_t *)GPR(3));
1174	>	gpr(3) = ether_rsrv((queue_t *)gpr(3));
1175		break;
1176		#else
1177		case NATIVE_ETHER_INIT:
1178		// FIXME: needs more complicated thunks
1179	<	GPR(3) = false;
1179	>	gpr(3) = false;
1180		break;
1181		#endif
1182		case NATIVE_SYNC_HOOK:
1183	<	GPR(3) = NQD_sync_hook(GPR(3));
1183	>	gpr(3) = NQD_sync_hook(gpr(3));
1184		break;
1185		case NATIVE_BITBLT_HOOK:
1186	<	GPR(3) = NQD_bitblt_hook(GPR(3));
1186	>	gpr(3) = NQD_bitblt_hook(gpr(3));
1187		break;
1188		case NATIVE_BITBLT:
1189	<	NQD_bitblt(GPR(3));
1189	>	NQD_bitblt(gpr(3));
1190		break;
1191		case NATIVE_FILLRECT_HOOK:
1192	<	GPR(3) = NQD_fillrect_hook(GPR(3));
1192	>	gpr(3) = NQD_fillrect_hook(gpr(3));
1193		break;
1194		case NATIVE_INVRECT:
1195	<	NQD_invrect(GPR(3));
1195	>	NQD_invrect(gpr(3));
1196		break;
1197		case NATIVE_FILLRECT:
1198	<	NQD_fillrect(GPR(3));
1198	>	NQD_fillrect(gpr(3));
1199		break;
1200		case NATIVE_SERIAL_NOTHING:
1201		case NATIVE_SERIAL_OPEN:
#	Line 1041 | Line 1214 | static void NativeOp(int selector)
1214		SerialStatus,
1215		SerialClose
1216		};
1217	<	GPR(3) = serial_callbacks[selector - NATIVE_SERIAL_NOTHING](GPR(3), GPR(4));
1217	>	gpr(3) = serial_callbacks[selector - NATIVE_SERIAL_NOTHING](gpr(3), gpr(4));
1218		break;
1219		}
1220		case NATIVE_GET_RESOURCE:
#	Line 1051 | Line 1224 | static void NativeOp(int selector)
1224		case NATIVE_R_GET_RESOURCE: {
1225		typedef void (*GetResourceCallback)(void);
1226		static const GetResourceCallback get_resource_callbacks[] = {
1227	<	get_resource,
1228	<	get_1_resource,
1229	<	get_ind_resource,
1230	<	get_1_ind_resource,
1231	<	r_get_resource
1227	>	::get_resource,
1228	>	::get_1_resource,
1229	>	::get_ind_resource,
1230	>	::get_1_ind_resource,
1231	>	::r_get_resource
1232		};
1233		get_resource_callbacks[selector - NATIVE_GET_RESOURCE]();
1234		break;
#	Line 1067 | Line 1240 | static void NativeOp(int selector)
1240		EnableInterrupt();
1241		break;
1242		case NATIVE_MAKE_EXECUTABLE:
1243	<	MakeExecutable(0, (void *)GPR(4), GPR(5));
1243	>	MakeExecutable(0, (void *)gpr(4), gpr(5));
1244		break;
1245		case NATIVE_CHECK_LOAD_INVOC:
1246	<	check_load_invoc(GPR(3), GPR(4), GPR(5));
1246	>	check_load_invoc(gpr(3), gpr(4), gpr(5));
1247		break;
1248		default:
1249		printf("FATAL: NATIVE_OP called with bogus selector %d\n", selector);

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines