Mercurial > repos > blastem

changeset 657:92ce5ea5ffc9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use call_args and call_args_abi in Z80 core
author Michael Pavone <pavone@retrodev.com>
date Thu, 01 Jan 2015 20:07:47 -0800
parents 24ccfd70133a
children 6aa29ac33f1a
files m68k_core_x86.c z80_to_x86.c
diffstat 2 files changed, 8 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/m68k_core_x86.c	Thu Jan 01 19:15:05 2015 -0800
+++ b/m68k_core_x86.c	Thu Jan 01 20:07:47 2015 -0800
@@ -2166,7 +2166,7 @@
 		//Save context and call breakpoint handler
 		call(code, opts->gen.save_context);
 		push_r(code, opts->gen.scratch1);
-		call_args(code, bp_handler, 2, opts->gen.context_reg, opts->gen.scratch1);
+		call_args_abi(code, bp_handler, 2, opts->gen.context_reg, opts->gen.scratch1);
 		mov_rr(code, RAX, opts->gen.context_reg, SZ_PTR);
 		//Restore context
 		call(code, opts->gen.load_context);
--- a/z80_to_x86.c	Thu Jan 01 19:15:05 2015 -0800
+++ b/z80_to_x86.c	Thu Jan 01 20:07:47 2015 -0800
@@ -875,8 +875,7 @@
 	case Z80_NOP:
 		if (inst->immed == 42) {
 			call(code, opts->gen.save_context);
-			mov_rr(code, opts->gen.context_reg, RDI, SZ_Q);
-			jmp(code, (uint8_t *)z80_print_regs_exit);
+			call_args(code, (code_ptr)z80_print_regs_exit, 1, opts->gen.context_reg);
 		} else {
 			cycles(&opts->gen, 4 * inst->immed);
 		}
@@ -1675,10 +1674,9 @@
 	cycles(&opts->gen, -3);
 	check_cycles_int(&opts->gen, address);
 	call(code, opts->gen.save_context);
-	mov_rr(code, opts->gen.scratch1, RDI, SZ_B);
 	mov_irdisp(code, address, opts->gen.context_reg, offsetof(z80_context, pc), SZ_W);
 	push_r(code, opts->gen.context_reg);
-	call(code, (code_ptr)z80_interp_handler);
+	call_args(code, (code_ptr)z80_interp_handler, 2, opts->gen.scratch1, opts->gen.scratch2);
 	mov_rr(code, RAX, opts->gen.scratch1, SZ_Q);
 	pop_r(code, opts->gen.context_reg);
 	call(code, opts->gen.load_context);
@@ -2049,9 +2047,8 @@
 	options->native_addr = code->cur;
 	call(code, options->gen.save_context);
 	push_r(code, options->gen.context_reg);
-	mov_rr(code, options->gen.context_reg, RDI, SZ_PTR);
-	movzx_rr(code, options->gen.scratch1, RSI, SZ_W, SZ_D);
-	call(code, (code_ptr)z80_get_native_address_trans);
+	movzx_rr(code, options->gen.scratch1, options->gen.scratch1, SZ_W, SZ_D);
+	call_args(code, (code_ptr)z80_get_native_address_trans, 2, options->gen.context_reg, options->gen.scratch1);
 	mov_rr(code, RAX, options->gen.scratch1, SZ_PTR);
 	pop_r(code, options->gen.context_reg);
 	call(code, options->gen.load_context);
@@ -2155,7 +2152,7 @@
 	cycles(&options->gen, 3);
 	check_cycles(&options->gen);
 	//TODO: figure out how to handle the extra wait state for word reads to bank area
-	//may also need special handling to avoid too much stack depth when acces is blocked
+	//may also need special handling to avoid too much stack depth when access is blocked
 	push_r(code, options->gen.scratch1);
 	call(code, options->read_8_noinc);
 	mov_rr(code, options->gen.scratch1, options->gen.scratch2, SZ_B);
@@ -2206,10 +2203,8 @@
 	call(code, options->gen.save_context);
 	//adjust pointer before move and call instructions that got us here
 	sub_ir(code, 11, options->gen.scratch2, SZ_PTR);
-	mov_rr(code, options->gen.scratch1, RDI, SZ_D);
-	mov_rr(code, options->gen.scratch2, RDX, SZ_PTR);
 	push_r(code, options->gen.context_reg);
-	call(code, (code_ptr)z80_retranslate_inst);
+	call_args(code, (code_ptr)z80_retranslate_inst, 3, options->gen.scratch1, options->gen.context_reg, options->gen.scratch2);
 	pop_r(code, options->gen.context_reg);
 	mov_rr(code, RAX, options->gen.scratch1, SZ_PTR);
 	call(code, options->gen.load_context);
@@ -2291,9 +2286,7 @@
 	//Save context and call breakpoint handler
 	call(code, opts->gen.save_context);
 	push_r(code, opts->gen.scratch1);
-	mov_rr(code, opts->gen.context_reg, RDI, SZ_Q);
-	mov_rr(code, opts->gen.scratch1, RSI, SZ_W);
-	call(code, context->bp_handler);
+	call_args_abi(code, context->bp_handler, 2, opts->gen.context_reg, opts->gen.scratch1);
 	mov_rr(code, RAX, opts->gen.context_reg, SZ_Q);
 	//Restore context
 	call(code, opts->gen.load_context);