+/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
+ * Mupen64plus - rjump.c *
+ * Mupen64Plus homepage: http://code.google.com/p/mupen64plus/ *
+ * Copyright (C) 2002 Hacktarux *
+ * *
+ * This program is free software; you can redistribute it and/or modify *
+ * it under the terms of the GNU General Public License as published by *
+ * the Free Software Foundation; either version 2 of the License, or *
+ * (at your option) any later version. *
+ * *
+ * This program is distributed in the hope that it will be useful, *
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of *
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
+ * GNU General Public License for more details. *
+ * *
+ * You should have received a copy of the GNU General Public License *
+ * along with this program; if not, write to the *
+ * Free Software Foundation, Inc., *
+ * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *
+ * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */
+
+#include <stdlib.h>
+
+#include "api/m64p_types.h"
+#include "api/callbacks.h"
+#include "r4300/recomp.h"
+#include "r4300/r4300.h"
+#include "r4300/macros.h"
+#include "r4300/ops.h"
+#include "r4300/recomph.h"
+
+ #ifdef __GNUC__
+# define ASM_NAME(name) asm(name)
+#else
+# define ASM_NAME(name)
+#endif
+
+static long save_ebp ASM_NAME("save_ebp") = 0;
+static long save_ebx ASM_NAME("save_ebx") = 0;
+static long save_esi ASM_NAME("save_esi") = 0;
+static long save_edi ASM_NAME("save_edi") = 0;
+static long save_esp ASM_NAME("save_esp") = 0;
+static long save_eip ASM_NAME("save_eip") = 0;
+
+// that's where the dynarec will restart when going back from a C function
+static unsigned long *return_address ASM_NAME("return_address");
+
+void dyna_jump()
+{
+ if (stop == 1)
+ {
+ dyna_stop();
+ return;
+ }
+
+ if (PC->reg_cache_infos.need_map)
+ *return_address = (unsigned long) (PC->reg_cache_infos.jump_wrapper);
+ else
+ *return_address = (unsigned long) (actual->code + PC->local_addr);
+}
+
+#if defined(WIN32) && !defined(__GNUC__) /* this warning disable only works if placed outside of the scope of a function */
+#pragma warning(disable:4731) /* frame pointer register 'ebp' modified by inline assembly code */
+#endif
+
+void dyna_start(void *code)
+{
+ /* save the base and stack pointers */
+ /* make a call and a pop to retrieve the instruction pointer and save it too */
+ /* then call the code(), which should theoretically never return. */
+ /* When dyna_stop() sets the *return_address to the saved EIP, the emulator thread will come back here. */
+ /* It will jump to label 2, restore the base and stack pointers, and exit this function */
+#if defined(WIN32) && !defined(__GNUC__)
+ __asm
+ {
+ mov save_ebp, ebp
+ mov save_esp, esp
+ mov save_ebx, ebx
+ mov save_esi, esi
+ mov save_edi, edi
+ call point1
+ jmp point2
+ point1:
+ pop eax
+ mov save_eip, eax
+
+ sub esp, 0x10
+ and esp, 0xfffffff0
+ mov return_address, esp
+ sub return_address, 4
+
+ mov eax, code
+ call eax
+ point2:
+ mov ebp, save_ebp
+ mov esp, save_esp
+ mov ebx, save_ebx
+ mov esi, save_esi
+ mov edi, save_edi
+ }
+#elif defined(__GNUC__) && defined(__i386__)
+ #if defined(__PIC__)
+ /* for -fPIC (shared libraries) */
+ #if __GNUC_PREREQ (4, 7)
+ # define GET_PC_THUNK_STR(reg) "__x86.get_pc_thunk." #reg
+ #else
+ # define GET_PC_THUNK_STR(reg) "__i686.get_pc_thunk." #reg
+ #endif
+ #define STORE_EBX
+ #define LOAD_EBX "call " GET_PC_THUNK_STR(bx) " \n" \
+ "addl $_GLOBAL_OFFSET_TABLE_, %%ebx \n"
+ #else
+ /* for non-PIC binaries */
+ #define STORE_EBX "movl %%ebx, %[save_ebx] \n"
+ #define LOAD_EBX "movl %[save_ebx], %%ebx \n"
+ #endif
+
+ asm volatile
+ (STORE_EBX
+ " movl %%ebp, %[save_ebp] \n"
+ " movl %%esp, %[save_esp] \n"
+ " movl %%esi, %[save_esi] \n"
+ " movl %%edi, %[save_edi] \n"
+ " call 1f \n"
+ " jmp 2f \n"
+ "1: \n"
+ " popl %%eax \n"
+ " movl %%eax, %[save_eip] \n"
+
+ " subl $16, %%esp \n" /* save 16 bytes of padding just in case */
+ " andl $-16, %%esp \n" /* align stack on 16-byte boundary for OSX */
+ " movl %%esp, %[return_address] \n"
+ " subl $4, %[return_address] \n"
+
+ " call *%[codeptr] \n"
+ "2: \n"
+ LOAD_EBX
+ " movl %[save_ebp], %%ebp \n"
+ " movl %[save_esp], %%esp \n"
+ " movl %[save_esi], %%esi \n"
+ " movl %[save_edi], %%edi \n"
+ : [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)
+ : [codeptr]"r"(code)
+ : "eax", "ecx", "edx", "memory"
+ );
+#endif
+
+ /* clear the registers so we don't return here a second time; that would be a bug */
+ /* this is also necessary to prevent compiler from optimizing out the static variables */
+ save_edi=0;
+ save_esi=0;
+ save_ebx=0;
+ save_ebp=0;
+ save_esp=0;
+ save_eip=0;
+}
+
+void dyna_stop()
+{
+ if (save_eip == 0)
+ DebugMessage(M64MSG_WARNING, "instruction pointer is 0 at dyna_stop()");
+ else
+ {
+ *return_address = (unsigned long) save_eip;
+ }
+}
+