nkeynes@539: /** nkeynes@561: * $Id$ nkeynes@539: * nkeynes@539: * Provides the implementation for the ia32 ABI (eg prologue, epilogue, and nkeynes@539: * calling conventions) nkeynes@539: * nkeynes@539: * Copyright (c) 2007 Nathan Keynes. nkeynes@539: * nkeynes@539: * This program is free software; you can redistribute it and/or modify nkeynes@539: * it under the terms of the GNU General Public License as published by nkeynes@539: * the Free Software Foundation; either version 2 of the License, or nkeynes@539: * (at your option) any later version. nkeynes@539: * nkeynes@539: * This program is distributed in the hope that it will be useful, nkeynes@539: * but WITHOUT ANY WARRANTY; without even the implied warranty of nkeynes@539: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the nkeynes@539: * GNU General Public License for more details. nkeynes@539: */ nkeynes@539: nkeynes@539: #ifndef __lxdream_x86_64abi_H nkeynes@539: #define __lxdream_x86_64abi_H 1 nkeynes@539: nkeynes@580: #include nkeynes@539: nkeynes@539: #define load_ptr( reg, ptr ) load_imm64( reg, (uint64_t)ptr ); nkeynes@539: nkeynes@539: /** nkeynes@539: * Note: clobbers EAX to make the indirect call - this isn't usually nkeynes@539: * a problem since the callee will usually clobber it anyway. nkeynes@539: * Size: 12 bytes nkeynes@539: */ nkeynes@539: #define CALL_FUNC0_SIZE 12 nkeynes@539: static inline void call_func0( void *ptr ) nkeynes@539: { nkeynes@539: load_imm64(R_EAX, (uint64_t)ptr); nkeynes@539: CALL_r32(R_EAX); nkeynes@539: } nkeynes@539: nkeynes@539: #define CALL_FUNC1_SIZE 14 nkeynes@539: static inline void call_func1( void *ptr, int arg1 ) nkeynes@539: { nkeynes@539: MOV_r32_r32(arg1, R_EDI); nkeynes@539: call_func0(ptr); nkeynes@539: } nkeynes@539: nkeynes@539: #define CALL_FUNC2_SIZE 16 nkeynes@539: static inline void call_func2( void *ptr, int arg1, int arg2 ) nkeynes@539: { nkeynes@539: MOV_r32_r32(arg1, R_EDI); nkeynes@539: MOV_r32_r32(arg2, R_ESI); nkeynes@539: call_func0(ptr); nkeynes@539: } nkeynes@539: nkeynes@571: #define MEM_WRITE_DOUBLE_SIZE 35 nkeynes@539: /** nkeynes@539: * Write a double (64-bit) value into memory, with the first word in arg2a, and nkeynes@539: * the second in arg2b nkeynes@539: */ nkeynes@539: static inline void MEM_WRITE_DOUBLE( int addr, int arg2a, int arg2b ) nkeynes@539: { nkeynes@539: PUSH_r32(arg2b); nkeynes@539: PUSH_r32(addr); nkeynes@539: call_func2(sh4_write_long, addr, arg2a); nkeynes@571: POP_r32(R_EDI); nkeynes@571: POP_r32(R_ESI); nkeynes@571: ADD_imm8s_r32(4, R_EDI); nkeynes@571: call_func0(sh4_write_long); nkeynes@539: } nkeynes@539: nkeynes@547: #define MEM_READ_DOUBLE_SIZE 43 nkeynes@539: /** nkeynes@539: * Read a double (64-bit) value from memory, writing the first word into arg2a nkeynes@539: * and the second into arg2b. The addr must not be in EAX nkeynes@539: */ nkeynes@539: static inline void MEM_READ_DOUBLE( int addr, int arg2a, int arg2b ) nkeynes@539: { nkeynes@547: REXW(); SUB_imm8s_r32( 8, R_ESP ); nkeynes@539: PUSH_r32(addr); nkeynes@539: call_func1(sh4_read_long, addr); nkeynes@539: POP_r32(R_EDI); nkeynes@539: PUSH_r32(R_EAX); nkeynes@539: ADD_imm8s_r32(4, R_EDI); nkeynes@539: call_func0(sh4_read_long); nkeynes@539: MOV_r32_r32(R_EAX, arg2b); nkeynes@539: POP_r32(arg2a); nkeynes@547: REXW(); ADD_imm8s_r32( 8, R_ESP ); nkeynes@539: } nkeynes@539: nkeynes@539: nkeynes@539: /** nkeynes@539: * Emit the 'start of block' assembly. Sets up the stack frame and save nkeynes@539: * SI/DI as required nkeynes@539: */ nkeynes@539: void sh4_translate_begin_block( sh4addr_t pc ) nkeynes@539: { nkeynes@539: PUSH_r32(R_EBP); nkeynes@539: /* mov &sh4r, ebp */ nkeynes@539: load_ptr( R_EBP, &sh4r ); nkeynes@539: nkeynes@539: sh4_x86.in_delay_slot = FALSE; nkeynes@539: sh4_x86.priv_checked = FALSE; nkeynes@539: sh4_x86.fpuen_checked = FALSE; nkeynes@539: sh4_x86.branch_taken = FALSE; nkeynes@539: sh4_x86.backpatch_posn = 0; nkeynes@571: sh4_x86.recovery_posn = 0; nkeynes@539: sh4_x86.block_start_pc = pc; nkeynes@571: sh4_x86.tlb_on = IS_MMU_ENABLED(); nkeynes@539: sh4_x86.tstate = TSTATE_NONE; nkeynes@539: } nkeynes@539: nkeynes@539: /** nkeynes@539: * Exit the block with sh4r.pc already written nkeynes@539: * Bytes: 15 nkeynes@539: */ nkeynes@569: void exit_block_pcset( sh4addr_t pc ) nkeynes@539: { nkeynes@539: load_imm32( R_ECX, ((pc - sh4_x86.block_start_pc)>>1)*sh4_cpu_period ); // 5 nkeynes@539: ADD_r32_sh4r( R_ECX, REG_OFFSET(slice_cycle) ); // 6 nkeynes@539: load_spreg( R_EAX, REG_OFFSET(pc) ); nkeynes@570: if( sh4_x86.tlb_on ) { nkeynes@570: call_func1(xlat_get_code_by_vma,R_EAX); nkeynes@570: } else { nkeynes@570: call_func1(xlat_get_code,R_EAX); nkeynes@570: } nkeynes@539: POP_r32(R_EBP); nkeynes@539: RET(); nkeynes@539: } nkeynes@539: nkeynes@571: #define EXIT_BLOCK_SIZE(pc) (25 + (IS_IN_ICACHE(pc)?10:CALL_FUNC1_SIZE)) nkeynes@539: /** nkeynes@539: * Exit the block to an absolute PC nkeynes@539: */ nkeynes@539: void exit_block( sh4addr_t pc, sh4addr_t endpc ) nkeynes@539: { nkeynes@539: load_imm32( R_ECX, pc ); // 5 nkeynes@539: store_spreg( R_ECX, REG_OFFSET(pc) ); // 3 nkeynes@571: if( IS_IN_ICACHE(pc) ) { nkeynes@571: REXW(); MOV_moff32_EAX( xlat_get_lut_entry(pc) ); nkeynes@571: } else if( sh4_x86.tlb_on ) { nkeynes@571: call_func1(xlat_get_code_by_vma, R_ECX); nkeynes@571: } else { nkeynes@571: call_func1(xlat_get_code,R_ECX); nkeynes@571: } nkeynes@571: REXW(); AND_imm8s_r32( 0xFC, R_EAX ); // 4 nkeynes@571: load_imm32( R_ECX, ((endpc - sh4_x86.block_start_pc)>>1)*sh4_cpu_period ); // 5 nkeynes@571: ADD_r32_sh4r( R_ECX, REG_OFFSET(slice_cycle) ); // 6 nkeynes@571: POP_r32(R_EBP); nkeynes@571: RET(); nkeynes@571: } nkeynes@571: nkeynes@571: nkeynes@571: #define EXIT_BLOCK_REL_SIZE(pc) (28 + (IS_IN_ICACHE(pc)?10:CALL_FUNC1_SIZE)) nkeynes@571: nkeynes@571: /** nkeynes@571: * Exit the block to a relative PC nkeynes@571: */ nkeynes@571: void exit_block_rel( sh4addr_t pc, sh4addr_t endpc ) nkeynes@571: { nkeynes@571: load_imm32( R_ECX, pc - sh4_x86.block_start_pc ); // 5 nkeynes@571: ADD_sh4r_r32( R_PC, R_ECX ); nkeynes@571: store_spreg( R_ECX, REG_OFFSET(pc) ); // 3 nkeynes@571: if( IS_IN_ICACHE(pc) ) { nkeynes@580: REXW(); MOV_moff32_EAX( xlat_get_lut_entry(GET_ICACHE_PHYS(pc)) ); // 5 nkeynes@571: } else if( sh4_x86.tlb_on ) { nkeynes@571: call_func1(xlat_get_code_by_vma,R_ECX); nkeynes@571: } else { nkeynes@571: call_func1(xlat_get_code,R_ECX); nkeynes@571: } nkeynes@571: REXW(); AND_imm8s_r32( 0xFC, R_EAX ); // 4 nkeynes@539: load_imm32( R_ECX, ((endpc - sh4_x86.block_start_pc)>>1)*sh4_cpu_period ); // 5 nkeynes@539: ADD_r32_sh4r( R_ECX, REG_OFFSET(slice_cycle) ); // 6 nkeynes@539: POP_r32(R_EBP); nkeynes@539: RET(); nkeynes@539: } nkeynes@539: nkeynes@539: /** nkeynes@539: * Write the block trailer (exception handling block) nkeynes@539: */ nkeynes@539: void sh4_translate_end_block( sh4addr_t pc ) { nkeynes@539: if( sh4_x86.branch_taken == FALSE ) { nkeynes@539: // Didn't exit unconditionally already, so write the termination here nkeynes@571: exit_block_rel( pc, pc ); nkeynes@539: } nkeynes@539: if( sh4_x86.backpatch_posn != 0 ) { nkeynes@559: unsigned int i; nkeynes@559: // Raise exception nkeynes@539: uint8_t *end_ptr = xlat_output; nkeynes@571: MOV_r32_r32( R_EDX, R_ECX ); nkeynes@539: ADD_r32_r32( R_EDX, R_ECX ); nkeynes@571: ADD_r32_sh4r( R_ECX, R_PC ); nkeynes@539: MOV_moff32_EAX( &sh4_cpu_period ); nkeynes@539: MUL_r32( R_EDX ); nkeynes@539: ADD_r32_sh4r( R_EAX, REG_OFFSET(slice_cycle) ); nkeynes@539: nkeynes@539: call_func0( sh4_raise_exception ); nkeynes@571: load_spreg( R_EAX, R_PC ); nkeynes@570: if( sh4_x86.tlb_on ) { nkeynes@570: call_func1(xlat_get_code_by_vma,R_EAX); nkeynes@570: } else { nkeynes@570: call_func1(xlat_get_code,R_EAX); nkeynes@570: } nkeynes@539: POP_r32(R_EBP); nkeynes@539: RET(); nkeynes@539: nkeynes@559: // Exception already raised - just cleanup nkeynes@559: uint8_t *preexc_ptr = xlat_output; nkeynes@571: MOV_r32_r32( R_EDX, R_ECX ); nkeynes@559: ADD_r32_r32( R_EDX, R_ECX ); nkeynes@571: ADD_r32_sh4r( R_ECX, R_SPC ); nkeynes@559: MOV_moff32_EAX( &sh4_cpu_period ); nkeynes@559: MUL_r32( R_EDX ); nkeynes@559: ADD_r32_sh4r( R_EAX, REG_OFFSET(slice_cycle) ); nkeynes@571: load_spreg( R_EDI, R_PC ); nkeynes@570: if( sh4_x86.tlb_on ) { nkeynes@571: call_func0(xlat_get_code_by_vma); nkeynes@570: } else { nkeynes@571: call_func0(xlat_get_code); nkeynes@570: } nkeynes@559: POP_r32(R_EBP); nkeynes@559: RET(); nkeynes@559: nkeynes@559: for( i=0; i< sh4_x86.backpatch_posn; i++ ) { nkeynes@559: *sh4_x86.backpatch_list[i].fixup_addr = nkeynes@559: xlat_output - ((uint8_t *)sh4_x86.backpatch_list[i].fixup_addr) - 4; nkeynes@559: if( sh4_x86.backpatch_list[i].exc_code == -1 ) { nkeynes@559: load_imm32( R_EDX, sh4_x86.backpatch_list[i].fixup_icount ); nkeynes@559: int rel = preexc_ptr - xlat_output; nkeynes@559: JMP_rel(rel); nkeynes@559: } else { nkeynes@559: load_imm32( R_EDI, sh4_x86.backpatch_list[i].exc_code ); nkeynes@559: load_imm32( R_EDX, sh4_x86.backpatch_list[i].fixup_icount ); nkeynes@559: int rel = end_ptr - xlat_output; nkeynes@559: JMP_rel(rel); nkeynes@559: } nkeynes@559: } nkeynes@539: } nkeynes@539: } nkeynes@539: nkeynes@580: _Unwind_Reason_Code xlat_check_frame( struct _Unwind_Context *context, void *arg ) nkeynes@580: { nkeynes@580: void *rbp = (void *)_Unwind_GetGR(context, 6); nkeynes@580: if( rbp == (void *)&sh4r ) { nkeynes@580: void **result = (void **)arg; nkeynes@580: *result = (void *)_Unwind_GetIP(context); nkeynes@580: return _URC_NORMAL_STOP; nkeynes@580: } nkeynes@580: nkeynes@580: return _URC_NO_REASON; nkeynes@580: } nkeynes@577: nkeynes@577: void *xlat_get_native_pc() nkeynes@577: { nkeynes@580: struct _Unwind_Exception exc; nkeynes@580: nkeynes@577: void *result = NULL; nkeynes@580: _Unwind_Backtrace( xlat_check_frame, &result ); nkeynes@577: return result; nkeynes@577: } nkeynes@577: nkeynes@547: #endif