| 1 | /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * |
| 2 | * Mupen64plus - rjump.c * |
| 3 | * Mupen64Plus homepage: http://code.google.com/p/mupen64plus/ * |
| 4 | * Copyright (C) 2002 Hacktarux * |
| 5 | * * |
| 6 | * This program is free software; you can redistribute it and/or modify * |
| 7 | * it under the terms of the GNU General Public License as published by * |
| 8 | * the Free Software Foundation; either version 2 of the License, or * |
| 9 | * (at your option) any later version. * |
| 10 | * * |
| 11 | * This program is distributed in the hope that it will be useful, * |
| 12 | * but WITHOUT ANY WARRANTY; without even the implied warranty of * |
| 13 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * |
| 14 | * GNU General Public License for more details. * |
| 15 | * * |
| 16 | * You should have received a copy of the GNU General Public License * |
| 17 | * along with this program; if not, write to the * |
| 18 | * Free Software Foundation, Inc., * |
| 19 | * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. * |
| 20 | * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ |
| 21 | |
| 22 | #include <stdlib.h> |
| 23 | |
| 24 | #include "api/m64p_types.h" |
| 25 | #include "api/callbacks.h" |
| 26 | #include "r4300/recomp.h" |
| 27 | #include "r4300/r4300.h" |
| 28 | #include "r4300/macros.h" |
| 29 | #include "r4300/ops.h" |
| 30 | #include "r4300/recomph.h" |
| 31 | |
| 32 | #ifdef __GNUC__ |
| 33 | # define ASM_NAME(name) asm(name) |
| 34 | #else |
| 35 | # define ASM_NAME(name) |
| 36 | #endif |
| 37 | |
| 38 | static long save_ebp ASM_NAME("save_ebp") = 0; |
| 39 | static long save_ebx ASM_NAME("save_ebx") = 0; |
| 40 | static long save_esi ASM_NAME("save_esi") = 0; |
| 41 | static long save_edi ASM_NAME("save_edi") = 0; |
| 42 | static long save_esp ASM_NAME("save_esp") = 0; |
| 43 | static long save_eip ASM_NAME("save_eip") = 0; |
| 44 | |
| 45 | // that's where the dynarec will restart when going back from a C function |
| 46 | static unsigned long *return_address ASM_NAME("return_address"); |
| 47 | |
| 48 | void dyna_jump() |
| 49 | { |
| 50 | if (stop == 1) |
| 51 | { |
| 52 | dyna_stop(); |
| 53 | return; |
| 54 | } |
| 55 | |
| 56 | if (PC->reg_cache_infos.need_map) |
| 57 | *return_address = (unsigned long) (PC->reg_cache_infos.jump_wrapper); |
| 58 | else |
| 59 | *return_address = (unsigned long) (actual->code + PC->local_addr); |
| 60 | } |
| 61 | |
| 62 | #if defined(WIN32) && !defined(__GNUC__) /* this warning disable only works if placed outside of the scope of a function */ |
| 63 | #pragma warning(disable:4731) /* frame pointer register 'ebp' modified by inline assembly code */ |
| 64 | #endif |
| 65 | |
| 66 | void dyna_start(void *code) |
| 67 | { |
| 68 | /* save the base and stack pointers */ |
| 69 | /* make a call and a pop to retrieve the instruction pointer and save it too */ |
| 70 | /* then call the code(), which should theoretically never return. */ |
| 71 | /* When dyna_stop() sets the *return_address to the saved EIP, the emulator thread will come back here. */ |
| 72 | /* It will jump to label 2, restore the base and stack pointers, and exit this function */ |
| 73 | #if defined(WIN32) && !defined(__GNUC__) |
| 74 | __asm |
| 75 | { |
| 76 | mov save_ebp, ebp |
| 77 | mov save_esp, esp |
| 78 | mov save_ebx, ebx |
| 79 | mov save_esi, esi |
| 80 | mov save_edi, edi |
| 81 | call point1 |
| 82 | jmp point2 |
| 83 | point1: |
| 84 | pop eax |
| 85 | mov save_eip, eax |
| 86 | |
| 87 | sub esp, 0x10 |
| 88 | and esp, 0xfffffff0 |
| 89 | mov return_address, esp |
| 90 | sub return_address, 4 |
| 91 | |
| 92 | mov eax, code |
| 93 | call eax |
| 94 | point2: |
| 95 | mov ebp, save_ebp |
| 96 | mov esp, save_esp |
| 97 | mov ebx, save_ebx |
| 98 | mov esi, save_esi |
| 99 | mov edi, save_edi |
| 100 | } |
| 101 | #elif defined(__GNUC__) && defined(__i386__) |
| 102 | #if defined(__PIC__) |
| 103 | /* for -fPIC (shared libraries) */ |
| 104 | #if __GNUC_PREREQ (4, 7) |
| 105 | # define GET_PC_THUNK_STR(reg) "__x86.get_pc_thunk." #reg |
| 106 | #else |
| 107 | # define GET_PC_THUNK_STR(reg) "__i686.get_pc_thunk." #reg |
| 108 | #endif |
| 109 | #define STORE_EBX |
| 110 | #define LOAD_EBX "call " GET_PC_THUNK_STR(bx) " \n" \ |
| 111 | "addl $_GLOBAL_OFFSET_TABLE_, %%ebx \n" |
| 112 | #else |
| 113 | /* for non-PIC binaries */ |
| 114 | #define STORE_EBX "movl %%ebx, %[save_ebx] \n" |
| 115 | #define LOAD_EBX "movl %[save_ebx], %%ebx \n" |
| 116 | #endif |
| 117 | |
| 118 | asm volatile |
| 119 | (STORE_EBX |
| 120 | " movl %%ebp, %[save_ebp] \n" |
| 121 | " movl %%esp, %[save_esp] \n" |
| 122 | " movl %%esi, %[save_esi] \n" |
| 123 | " movl %%edi, %[save_edi] \n" |
| 124 | " call 1f \n" |
| 125 | " jmp 2f \n" |
| 126 | "1: \n" |
| 127 | " popl %%eax \n" |
| 128 | " movl %%eax, %[save_eip] \n" |
| 129 | |
| 130 | " subl $16, %%esp \n" /* save 16 bytes of padding just in case */ |
| 131 | " andl $-16, %%esp \n" /* align stack on 16-byte boundary for OSX */ |
| 132 | " movl %%esp, %[return_address] \n" |
| 133 | " subl $4, %[return_address] \n" |
| 134 | |
| 135 | " call *%[codeptr] \n" |
| 136 | "2: \n" |
| 137 | LOAD_EBX |
| 138 | " movl %[save_ebp], %%ebp \n" |
| 139 | " movl %[save_esp], %%esp \n" |
| 140 | " movl %[save_esi], %%esi \n" |
| 141 | " movl %[save_edi], %%edi \n" |
| 142 | : [save_ebp]"=m"(save_ebp), [save_esp]"=m"(save_esp), [save_ebx]"=m"(save_ebx), [save_esi]"=m"(save_esi), [save_edi]"=m"(save_edi), [save_eip]"=m"(save_eip), [return_address]"=m"(return_address) |
| 143 | : [codeptr]"r"(code) |
| 144 | : "eax", "ecx", "edx", "memory" |
| 145 | ); |
| 146 | #endif |
| 147 | |
| 148 | /* clear the registers so we don't return here a second time; that would be a bug */ |
| 149 | /* this is also necessary to prevent compiler from optimizing out the static variables */ |
| 150 | save_edi=0; |
| 151 | save_esi=0; |
| 152 | save_ebx=0; |
| 153 | save_ebp=0; |
| 154 | save_esp=0; |
| 155 | save_eip=0; |
| 156 | } |
| 157 | |
| 158 | void dyna_stop() |
| 159 | { |
| 160 | if (save_eip == 0) |
| 161 | DebugMessage(M64MSG_WARNING, "instruction pointer is 0 at dyna_stop()"); |
| 162 | else |
| 163 | { |
| 164 | *return_address = (unsigned long) save_eip; |
| 165 | } |
| 166 | } |
| 167 | |