32x: interpreter-wrap drc works (demos only). SVP drc refactoring.

git-svn-id: file:///home/notaz/opt/svn/PicoDrive@812 be3aeb3a-fb24-0410-a615-afba39da0efa

cpu/drc/cmn.c

@@ -5,12 +5,7 @@
 
 #include "cmn.h"
 
-#ifndef ARM
-unsigned int tcache[SSP_TCACHE_SIZE/4];
-unsigned int *ssp_block_table[0x5090/2];
-unsigned int *ssp_block_table_iram[15][0x800/2];
-char ssp_align[SSP_BLOCKTAB_ALIGN_SIZE];
-#endif
+u32 tcache[DRC_TCACHE_SIZE/4];
 
 
 void drc_cmn_init(void)
@@ -18,7 +13,7 @@ void drc_cmn_init(void)
 #if defined(__linux__) && defined(ARM)
 	void *tmp;
 
-	tmp = mmap(tcache, SSP_DRC_SIZE, PROT_READ|PROT_WRITE|PROT_EXEC, MAP_SHARED|MAP_ANONYMOUS, -1, 0);
+	tmp = mmap(tcache, DRC_TCACHE_SIZE, PROT_READ|PROT_WRITE|PROT_EXEC, MAP_SHARED|MAP_ANONYMOUS, -1, 0);
 	printf("mmap tcache: %p, asked %p\n", tmp, tcache);
 #endif
 
@@ -29,7 +24,7 @@ void drc_cmn_cleanup(void)
 {
 #if defined(__linux__) && defined(ARM)
 	int ret;
-	ret = munmap(tcache, SSP_DRC_SIZE);
+	ret = munmap(tcache, DRC_TCACHE_SIZE);
 	printf("munmap tcache: %i\n", ret);
 #endif
 }

cpu/drc/cmn.h

@@ -1,12 +1,10 @@
-#define SSP_TCACHE_SIZE         (512*1024)
-#define SSP_BLOCKTAB_SIZE       (0x5090/2*4)
-#define SSP_BLOCKTAB_IRAM_SIZE  (15*0x800/2*4)
-#define SSP_BLOCKTAB_ALIGN_SIZE 3808
-#define SSP_DRC_SIZE (SSP_TCACHE_SIZE + SSP_BLOCKTAB_SIZE + SSP_BLOCKTAB_IRAM_SIZE + SSP_BLOCKTAB_ALIGN_SIZE)
+typedef unsigned char  u8;
+typedef unsigned short u16;
+typedef unsigned int   u32;
 
-extern unsigned int tcache[SSP_TCACHE_SIZE/4];
-extern unsigned int *ssp_block_table[SSP_BLOCKTAB_SIZE/4];
-extern unsigned int *ssp_block_table_iram[15][0x800/2];
+#define DRC_TCACHE_SIZE         (512*1024)
+
+extern u32 tcache[DRC_TCACHE_SIZE/4];
 
 void drc_cmn_init(void);
 void drc_cmn_cleanup(void);

cpu/drc/emit_x86.c

@@ -0,0 +1,120 @@
+#include <stdarg.h>
+
+// TODO: move
+static int reg_map_g2h[] = {
+	-1, -1, -1, -1,
+	-1, -1, -1, -1,
+	-1, -1, -1, -1,
+	-1, -1, -1, -1,
+	-1, -1, -1, -1,
+	-1, -1, -1, -1,
+};
+
+enum { xAX = 0, xCX, xDX, xBX, xSP, xBP, xSI, xDI };
+
+#define EMIT_PTR(ptr, val, type) \
+	*(type *)(ptr) = val
+
+#define EMIT(val, type) { \
+	EMIT_PTR(tcache_ptr, val, type); \
+	tcache_ptr = (char *)tcache_ptr + sizeof(type); \
+}
+
+#define EMIT_MODRM(mod,r,rm) \
+	EMIT(((mod)<<6) | ((r)<<3) | (rm), u8)
+
+#define EMIT_OP_MODRM(op,mod,r,rm) { \
+	EMIT(op, u8); \
+	EMIT_MODRM(mod, r, rm); \
+}
+
+#define emith_move_r_r(dst, src) \
+	EMIT_OP_MODRM(0x8b, 3, dst, src)
+
+#define emith_move_r_imm(r, imm) { \
+	EMIT(0xb8 + (r), u8); \
+	EMIT(imm, u32); \
+}
+
+#define emith_add_r_imm(r, imm) { \
+	EMIT_OP_MODRM(0x81, 3, 0, r); \
+	EMIT(imm, u32); \
+}
+
+#define emith_sub_r_imm(r, imm) { \
+	EMIT_OP_MODRM(0x81, 3, 5, r); \
+	EMIT(imm, u32); \
+}
+
+// XXX: offs is 8bit only
+#define emith_ctx_read(r, offs) { \
+	EMIT_OP_MODRM(0x8b, 1, r, 5); \
+	EMIT(offs, u8); 	/* mov tmp, [ebp+#offs] */ \
+}
+
+#define emith_ctx_write(r, offs) { \
+	EMIT_OP_MODRM(0x89, 1, r, 5); \
+	EMIT(offs, u8); 	/* mov [ebp+#offs], tmp */ \
+}
+
+#define emith_ctx_sub(val, offs) { \
+	EMIT_OP_MODRM(0x81, 1, 5, 5); \
+	EMIT(offs, u8); \
+	EMIT(val, u32); 	/* sub [ebp+#offs], dword val */ \
+}
+
+#define emith_test_t() { \
+	if (reg_map_g2h[SHR_SR] == -1) { \
+		EMIT(0xf6, u8); \
+		EMIT_MODRM(1, 0, 5); \
+		EMIT(SHR_SR * 4, u8); \
+		EMIT(0x01, u8); /* test [ebp+SHR_SR], byte 1 */ \
+	} else { \
+		EMIT(0xf7, u8); \
+		EMIT_MODRM(3, 0, reg_map_g2h[SHR_SR]); \
+		EMIT(0x01, u16); /* test <reg>, word 1 */ \
+	} \
+}
+
+#define emith_jump(ptr) { \
+	u32 disp = (u32)ptr - ((u32)tcache_ptr + 5); \
+	EMIT(0xe9, u8); \
+	EMIT(disp, u32); \
+}
+
+#define emith_call(ptr) { \
+	u32 disp = (u32)ptr - ((u32)tcache_ptr + 5); \
+	EMIT(0xe8, u8); \
+	EMIT(disp, u32); \
+}
+
+#define EMIT_CONDITIONAL(code, is_nonzero) { \
+	char *ptr = tcache_ptr; \
+	tcache_ptr = (char *)tcache_ptr + 2; \
+	code; \
+	EMIT_PTR(ptr, ((is_nonzero) ? 0x75 : 0x74), u8); \
+	EMIT_PTR(ptr + 1, ((char *)tcache_ptr - (ptr + 2)), u8); \
+}
+
+static void emith_pass_arg(int count, ...)
+{
+	va_list vl;
+	int i;
+
+	va_start(vl, count);
+
+	for (i = 0; i < count; i++) {
+		long av = va_arg(vl, long);
+		int r = 7;
+
+		switch (i) {
+		case 0: r = xAX; break;
+		case 1: r = xDX; break;
+		case 2: r = xCX; break;
+		}
+		emith_move_r_imm(r, av);
+	}
+
+	va_end(vl);
+}
+