Mercurial > repos > blastem
diff m68k_core_x86.c @ 589:2dde38c1744f
Split gen_mem_fun out of m68k_core_x86 and make it more generic so it can be used by the Z80 core
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 11 Mar 2014 09:44:47 -0700 |
parents | 963d5901f583 |
children | ea80559c67cb |
line wrap: on
line diff
--- a/m68k_core_x86.c Sat Mar 08 00:15:09 2014 -0800 +++ b/m68k_core_x86.c Tue Mar 11 09:44:47 2014 -0700 @@ -2164,248 +2164,15 @@ } } -code_ptr gen_mem_fun(cpu_options * opts, memmap_chunk * memmap, uint32_t num_chunks, ftype fun_type) -{ - code_info *code = &opts->code; - code_ptr start = code->cur; - check_cycles(opts); - cycles(opts, BUS); - and_ir(code, 0xFFFFFF, opts->scratch1, SZ_D); - code_ptr lb_jcc = NULL, ub_jcc = NULL; - uint8_t is_write = fun_type == WRITE_16 || fun_type == WRITE_8; - uint8_t adr_reg = is_write ? opts->scratch2 : opts->scratch1; - uint16_t access_flag = is_write ? MMAP_WRITE : MMAP_READ; - uint8_t size = (fun_type == READ_16 || fun_type == WRITE_16) ? SZ_W : SZ_B; - for (uint32_t chunk = 0; chunk < num_chunks; chunk++) - { - if (memmap[chunk].start > 0) { - cmp_ir(code, memmap[chunk].start, adr_reg, SZ_D); - lb_jcc = code->cur + 1; - jcc(code, CC_C, code->cur + 2); - } - if (memmap[chunk].end < 0x1000000) { - cmp_ir(code, memmap[chunk].end, adr_reg, SZ_D); - ub_jcc = code->cur + 1; - jcc(code, CC_NC, code->cur + 2); - } - - if (memmap[chunk].mask != 0xFFFFFF) { - and_ir(code, memmap[chunk].mask, adr_reg, SZ_D); - } - void * cfun; - switch (fun_type) - { - case READ_16: - cfun = memmap[chunk].read_16; - break; - case READ_8: - cfun = memmap[chunk].read_8; - break; - case WRITE_16: - cfun = memmap[chunk].write_16; - break; - case WRITE_8: - cfun = memmap[chunk].write_8; - break; - default: - cfun = NULL; - } - if(memmap[chunk].buffer && memmap[chunk].flags & access_flag) { - if (memmap[chunk].flags & MMAP_PTR_IDX) { - if (memmap[chunk].flags & MMAP_FUNC_NULL) { - cmp_irdisp(code, 0, opts->context_reg, offsetof(m68k_context, mem_pointers) + sizeof(void*) * memmap[chunk].ptr_index, SZ_PTR); - code_ptr not_null = code->cur + 1; - jcc(code, CC_NZ, code->cur + 2); - call(code, opts->save_context); -#ifdef X86_64 - if (is_write) { - if (opts->scratch2 != RDI) { - mov_rr(code, opts->scratch2, RDI, SZ_D); - } - mov_rr(code, opts->scratch1, RDX, size); - } else { - push_r(code, opts->context_reg); - mov_rr(code, opts->scratch1, RDI, SZ_D); - } - test_ir(code, 8, RSP, SZ_D); - code_ptr adjust_rsp = code->cur + 1; - jcc(code, CC_NZ, code->cur + 2); - call(code, cfun); - code_ptr no_adjust = code->cur + 1; - jmp(code, code->cur + 2); - *adjust_rsp = code->cur - (adjust_rsp + 1); - sub_ir(code, 8, RSP, SZ_PTR); - call(code, cfun); - add_ir(code, 8, RSP, SZ_PTR); - *no_adjust = code->cur - (no_adjust + 1); -#else - if (is_write) { - push_r(code, opts->scratch1); - } else { - push_r(code, opts->context_reg);//save opts->context_reg for later - } - push_r(code, opts->context_reg); - push_r(code, is_write ? opts->scratch2 : opts->scratch1); - call(code, cfun); - add_ir(code, is_write ? 12 : 8, RSP, SZ_D); -#endif - if (is_write) { - mov_rr(code, RAX, opts->context_reg, SZ_PTR); - } else { - pop_r(code, opts->context_reg); - mov_rr(code, RAX, opts->scratch1, size); - } - jmp(code, opts->load_context); - - *not_null = code->cur - (not_null + 1); - } - if (size == SZ_B) { - xor_ir(code, 1, adr_reg, SZ_D); - } - add_rdispr(code, opts->context_reg, offsetof(m68k_context, mem_pointers) + sizeof(void*) * memmap[chunk].ptr_index, adr_reg, SZ_PTR); - if (is_write) { - mov_rrind(code, opts->scratch1, opts->scratch2, size); - - } else { - mov_rindr(code, opts->scratch1, opts->scratch1, size); - } - } else { - uint8_t tmp_size = size; - if (size == SZ_B) { - if ((memmap[chunk].flags & MMAP_ONLY_ODD) || (memmap[chunk].flags & MMAP_ONLY_EVEN)) { - bt_ir(code, 0, adr_reg, SZ_D); - code_ptr good_addr = code->cur + 1; - jcc(code, (memmap[chunk].flags & MMAP_ONLY_ODD) ? CC_C : CC_NC, code->cur + 2); - if (!is_write) { - mov_ir(code, 0xFF, opts->scratch1, SZ_B); - } - retn(code); - *good_addr = code->cur - (good_addr + 1); - shr_ir(code, 1, adr_reg, SZ_D); - } else { - xor_ir(code, 1, adr_reg, SZ_D); - } - } else if ((memmap[chunk].flags & MMAP_ONLY_ODD) || (memmap[chunk].flags & MMAP_ONLY_EVEN)) { - tmp_size = SZ_B; - shr_ir(code, 1, adr_reg, SZ_D); - if ((memmap[chunk].flags & MMAP_ONLY_EVEN) && is_write) { - shr_ir(code, 8, opts->scratch1, SZ_W); - } - } - if ((intptr_t)memmap[chunk].buffer <= 0x7FFFFFFF && (intptr_t)memmap[chunk].buffer >= -2147483648) { - if (is_write) { - mov_rrdisp(code, opts->scratch1, opts->scratch2, (intptr_t)memmap[chunk].buffer, tmp_size); - } else { - mov_rdispr(code, opts->scratch1, (intptr_t)memmap[chunk].buffer, opts->scratch1, tmp_size); - } - } else { - if (is_write) { - push_r(code, opts->scratch1); - mov_ir(code, (intptr_t)memmap[chunk].buffer, opts->scratch1, SZ_PTR); - add_rr(code, opts->scratch1, opts->scratch2, SZ_PTR); - pop_r(code, opts->scratch1); - mov_rrind(code, opts->scratch1, opts->scratch2, tmp_size); - } else { - mov_ir(code, (intptr_t)memmap[chunk].buffer, opts->scratch2, SZ_PTR); - mov_rindexr(code, opts->scratch2, opts->scratch1, 1, opts->scratch1, tmp_size); - } - } - if (size != tmp_size && !is_write) { - if (memmap[chunk].flags & MMAP_ONLY_EVEN) { - shl_ir(code, 8, opts->scratch1, SZ_W); - mov_ir(code, 0xFF, opts->scratch1, SZ_B); - } else { - or_ir(code, 0xFF00, opts->scratch1, SZ_W); - } - } - } - if (is_write && (memmap[chunk].flags & MMAP_CODE)) { - mov_rr(code, opts->scratch2, opts->scratch1, SZ_D); - shr_ir(code, 11, opts->scratch1, SZ_D); - bt_rrdisp(code, opts->scratch1, opts->context_reg, offsetof(m68k_context, ram_code_flags), SZ_D); - code_ptr not_code = code->cur + 1; - jcc(code, CC_NC, code->cur + 2); - call(code, opts->save_context); -#ifdef X86_32 - push_r(code, opts->context_reg); - push_r(code, opts->scratch2); -#endif - call(code, (code_ptr)m68k_handle_code_write); -#ifdef X86_32 - add_ir(code, 8, RSP, SZ_D); -#endif - mov_rr(code, RAX, opts->context_reg, SZ_PTR); - call(code, opts->load_context); - *not_code = code->cur - (not_code+1); - } - retn(code); - } else if (cfun) { - call(code, opts->save_context); -#ifdef X86_64 - if (is_write) { - if (opts->scratch2 != RDI) { - mov_rr(code, opts->scratch2, RDI, SZ_D); - } - mov_rr(code, opts->scratch1, RDX, size); - } else { - push_r(code, opts->context_reg); - mov_rr(code, opts->scratch1, RDI, SZ_D); - } - test_ir(code, 8, RSP, SZ_D); - code_ptr adjust_rsp = code->cur + 1; - jcc(code, CC_NZ, code->cur + 2); - call(code, cfun); - code_ptr no_adjust = code->cur + 1; - jmp(code, code->cur + 2); - *adjust_rsp = code->cur - (adjust_rsp + 1); - sub_ir(code, 8, RSP, SZ_PTR); - call(code, cfun); - add_ir(code, 8, RSP, SZ_PTR); - *no_adjust = code->cur - (no_adjust+1); -#else - if (is_write) { - push_r(code, opts->scratch1); - } else { - push_r(code, opts->context_reg);//save opts->context_reg for later - } - push_r(code, opts->context_reg); - push_r(code, is_write ? opts->scratch2 : opts->scratch1); - call(code, cfun); - add_ir(code, is_write ? 12 : 8, RSP, SZ_D); -#endif - if (is_write) { - mov_rr(code, RAX, opts->context_reg, SZ_PTR); - } else { - pop_r(code, opts->context_reg); - mov_rr(code, RAX, opts->scratch1, size); - } - jmp(code, opts->load_context); - } else { - //Not sure the best course of action here - if (!is_write) { - mov_ir(code, size == SZ_B ? 0xFF : 0xFFFF, opts->scratch1, size); - } - retn(code); - } - if (lb_jcc) { - *lb_jcc = code->cur - (lb_jcc+1); - lb_jcc = NULL; - } - if (ub_jcc) { - *ub_jcc = code->cur - (ub_jcc+1); - ub_jcc = NULL; - } - } - if (!is_write) { - mov_ir(code, size == SZ_B ? 0xFF : 0xFFFF, opts->scratch1, size); - } - retn(code); - return start; -} - void init_m68k_opts(m68k_options * opts, memmap_chunk * memmap, uint32_t num_chunks) { memset(opts, 0, sizeof(*opts)); + opts->gen.address_size = SZ_D; + opts->gen.address_mask = 0xFFFFFF; + opts->gen.max_address = 0x1000000; + opts->gen.bus_cycles = BUS; + opts->gen.mem_ptr_off = offsetof(m68k_context, mem_pointers); + opts->gen.ram_flags_off = offsetof(m68k_context, ram_code_flags); for (int i = 0; i < 8; i++) { opts->dregs[i] = opts->aregs[i] = -1;