X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=mono%2Futils%2Fmono-context.h;h=367449edd8f7e0c36d94a9520661e742cbf9edff;hb=c334db5e2ced29fb03fe2be4b603bbacb91021f8;hp=2704c8662a8d1e2919a99fb3afb91361a551bb1d;hpb=9bf8d670fb9e8c223df4f4c11f4c935610b33320;p=mono.git diff --git a/mono/utils/mono-context.h b/mono/utils/mono-context.h index 2704c8662a8..367449edd8f 100644 --- a/mono/utils/mono-context.h +++ b/mono/utils/mono-context.h @@ -1,5 +1,6 @@ -/* - * mono-context.h: plat independent machine state definitions +/** + * \file + * plat independent machine state definitions * * * Copyright (c) 2011 Novell, Inc (http://www.novell.com) @@ -18,6 +19,23 @@ #include #endif +#define MONO_CONTEXT_OFFSET(field, index, field_type) \ + "i" (offsetof (MonoContext, field) + (index) * sizeof (field_type)) + +#if defined(TARGET_X86) +#if defined(__APPLE__) +typedef struct __darwin_xmm_reg MonoContextSimdReg; +#endif +#elif defined(TARGET_AMD64) +#if defined(__APPLE__) +typedef struct __darwin_xmm_reg MonoContextSimdReg; +#elif defined(__linux__) +typedef struct _libc_xmmreg MonoContextSimdReg; +#endif +#elif defined(TARGET_ARM64) +typedef __uint128_t MonoContextSimdReg; +#endif + /* * General notes about mono-context. * Each arch defines a MonoContext struct with all GPR regs + IP/PC. @@ -26,7 +44,25 @@ * MONO_CONTEXT_GET_CURRENT captures the current context as close as possible. One reg might be clobbered * to hold the address of the target MonoContext. It will be a caller save one, so should not be a problem. */ -#if (defined(__i386__) && !defined(MONO_CROSS_COMPILE)) || (defined(TARGET_X86)) +#if defined (TARGET_WASM) + +typedef struct { + mgreg_t wasm_sp; + mgreg_t wasm_bp; + mgreg_t llvm_exc_reg; + mgreg_t wasm_ip; + mgreg_t wasm_pc; +} MonoContext; + +#define MONO_CONTEXT_SET_IP(ctx,ip) do { (ctx)->wasm_ip = (mgreg_t)(ip); } while (0); +#define MONO_CONTEXT_SET_BP(ctx,bp) do { (ctx)->wasm_bp = (mgreg_t)(bp); } while (0); +#define MONO_CONTEXT_SET_SP(ctx,sp) do { (ctx)->wasm_sp = (mgreg_t)(sp); } while (0); + +#define MONO_CONTEXT_GET_IP(ctx) ((gpointer)((ctx)->wasm_ip)) +#define MONO_CONTEXT_GET_BP(ctx) ((gpointer)((ctx)->wasm_bp)) +#define MONO_CONTEXT_GET_SP(ctx) ((gpointer)((ctx)->wasm_sp)) + +#elif (defined(__i386__) && !defined(MONO_CROSS_COMPILE)) || (defined(TARGET_X86)) /*HACK, move this to an eventual mono-signal.c*/ #if defined( __linux__) || defined(__sun) || defined(__APPLE__) || defined(__NetBSD__) || \ @@ -36,8 +72,11 @@ #endif #endif -#if defined(__native_client__) -#undef MONO_SIGNAL_USE_UCONTEXT_T +#ifdef __HAIKU__ +/* sigcontext surrogate */ +struct sigcontext { + vregs regs; +}; #endif #ifdef HOST_WIN32 @@ -67,14 +106,14 @@ struct sigcontext { # define SC_ESI sc_esi #elif defined(__HAIKU__) # define SC_EAX regs.eax -# define SC_EBX regs._reserved_2[2] +# define SC_EBX regs.ebx # define SC_ECX regs.ecx # define SC_EDX regs.edx # define SC_EBP regs.ebp # define SC_EIP regs.eip # define SC_ESP regs.esp -# define SC_EDI regs._reserved_2[0] -# define SC_ESI regs._reserved_2[1] +# define SC_EDI regs.edi +# define SC_ESI regs.esi #else # define SC_EAX eax # define SC_EBX ebx @@ -87,6 +126,8 @@ struct sigcontext { # define SC_ESI esi #endif +#include + typedef struct { mgreg_t eax; mgreg_t ebx; @@ -97,6 +138,9 @@ typedef struct { mgreg_t esi; mgreg_t edi; mgreg_t eip; +#ifdef __APPLE__ + MonoContextSimdReg fregs [X86_XMM_NREG]; +#endif } MonoContext; #define MONO_CONTEXT_SET_IP(ctx,ip) do { (ctx)->eip = (mgreg_t)(ip); } while (0); @@ -127,21 +171,64 @@ typedef struct { } \ } while (0) #else -#define MONO_CONTEXT_GET_CURRENT(ctx) \ + +#define MONO_CONTEXT_GET_CURRENT_GREGS(ctx) \ __asm__ __volatile__( \ - "movl $0x0, 0x00(%0)\n" \ - "mov %%ebx, 0x04(%0)\n" \ - "mov %%ecx, 0x08(%0)\n" \ - "mov %%edx, 0x0c(%0)\n" \ - "mov %%ebp, 0x10(%0)\n" \ - "mov %%esp, 0x14(%0)\n" \ - "mov %%esi, 0x18(%0)\n" \ - "mov %%edi, 0x1c(%0)\n" \ + "movl $0x0, %c[eax](%0)\n" \ + "mov %%ebx, %c[ebx](%0)\n" \ + "mov %%ecx, %c[ecx](%0)\n" \ + "mov %%edx, %c[edx](%0)\n" \ + "mov %%ebp, %c[ebp](%0)\n" \ + "mov %%esp, %c[esp](%0)\n" \ + "mov %%esi, %c[esi](%0)\n" \ + "mov %%edi, %c[edi](%0)\n" \ "call 1f\n" \ "1: pop 0x20(%0)\n" \ : \ - : "a" (&(ctx)) \ + : "a" (&(ctx)), \ + [eax] MONO_CONTEXT_OFFSET (eax, 0, mgreg_t), \ + [ebx] MONO_CONTEXT_OFFSET (ebx, 0, mgreg_t), \ + [ecx] MONO_CONTEXT_OFFSET (ecx, 0, mgreg_t), \ + [edx] MONO_CONTEXT_OFFSET (edx, 0, mgreg_t), \ + [ebp] MONO_CONTEXT_OFFSET (ebp, 0, mgreg_t), \ + [esp] MONO_CONTEXT_OFFSET (esp, 0, mgreg_t), \ + [esi] MONO_CONTEXT_OFFSET (esi, 0, mgreg_t), \ + [edi] MONO_CONTEXT_OFFSET (edi, 0, mgreg_t) \ : "memory") + +#ifdef UCONTEXT_REG_XMM +#define MONO_CONTEXT_GET_CURRENT_FREGS(ctx) \ + do { \ + __asm__ __volatile__ ( \ + "movups %%xmm0, %c[xmm0](%0)\n" \ + "movups %%xmm1, %c[xmm1](%0)\n" \ + "movups %%xmm2, %c[xmm2](%0)\n" \ + "movups %%xmm3, %c[xmm3](%0)\n" \ + "movups %%xmm4, %c[xmm4](%0)\n" \ + "movups %%xmm5, %c[xmm5](%0)\n" \ + "movups %%xmm6, %c[xmm6](%0)\n" \ + "movups %%xmm7, %c[xmm7](%0)\n" \ + : \ + : "a" (&(ctx)), \ + [xmm0] MONO_CONTEXT_OFFSET (fregs, X86_XMM0, MonoContextSimdReg), \ + [xmm1] MONO_CONTEXT_OFFSET (fregs, X86_XMM1, MonoContextSimdReg), \ + [xmm2] MONO_CONTEXT_OFFSET (fregs, X86_XMM2, MonoContextSimdReg), \ + [xmm3] MONO_CONTEXT_OFFSET (fregs, X86_XMM3, MonoContextSimdReg), \ + [xmm4] MONO_CONTEXT_OFFSET (fregs, X86_XMM4, MonoContextSimdReg), \ + [xmm5] MONO_CONTEXT_OFFSET (fregs, X86_XMM5, MonoContextSimdReg), \ + [xmm6] MONO_CONTEXT_OFFSET (fregs, X86_XMM6, MonoContextSimdReg), \ + [xmm7] MONO_CONTEXT_OFFSET (fregs, X86_XMM7, MonoContextSimdReg)); \ + } while (0) +#else +#define MONO_CONTEXT_GET_CURRENT_FREGS(ctx) +#endif + +#define MONO_CONTEXT_GET_CURRENT(ctx) \ + do { \ + MONO_CONTEXT_GET_CURRENT_GREGS(ctx); \ + MONO_CONTEXT_GET_CURRENT_FREGS(ctx); \ + } while (0) + #endif #define MONO_ARCH_HAS_MONO_CONTEXT 1 @@ -150,7 +237,7 @@ typedef struct { #include -#if !defined( HOST_WIN32 ) && !defined(__native_client__) && !defined(__native_client_codegen__) +#if !defined( HOST_WIN32 ) #if defined(HAVE_SIGACTION) || defined(__APPLE__) // the __APPLE__ check is required for the tvos simulator, which has ucontext_t but not sigaction #define MONO_SIGNAL_USE_UCONTEXT_T 1 @@ -160,7 +247,11 @@ typedef struct { typedef struct { mgreg_t gregs [AMD64_NREG]; +#if defined(__APPLE__) || defined(__linux__) + MonoContextSimdReg fregs [AMD64_XMM_NREG]; +#else double fregs [AMD64_XMM_NREG]; +#endif } MonoContext; #define MONO_CONTEXT_SET_IP(ctx,ip) do { (ctx)->gregs [AMD64_RIP] = (mgreg_t)(ip); } while (0); @@ -176,56 +267,100 @@ typedef struct { extern void mono_context_get_current (void *); #define MONO_CONTEXT_GET_CURRENT(ctx) do { mono_context_get_current((void*)&(ctx)); } while (0) -#elif defined(__native_client__) -#define MONO_CONTEXT_GET_CURRENT(ctx) \ - __asm__ __volatile__( \ - "movq $0x0, %%nacl:0x00(%%r15, %0, 1)\n" \ - "movq %%rcx, %%nacl:0x08(%%r15, %0, 1)\n" \ - "movq %%rdx, %%nacl:0x10(%%r15, %0, 1)\n" \ - "movq %%rbx, %%nacl:0x18(%%r15, %0, 1)\n" \ - "movq %%rsp, %%nacl:0x20(%%r15, %0, 1)\n" \ - "movq %%rbp, %%nacl:0x28(%%r15, %0, 1)\n" \ - "movq %%rsi, %%nacl:0x30(%%r15, %0, 1)\n" \ - "movq %%rdi, %%nacl:0x38(%%r15, %0, 1)\n" \ - "movq %%r8, %%nacl:0x40(%%r15, %0, 1)\n" \ - "movq %%r9, %%nacl:0x48(%%r15, %0, 1)\n" \ - "movq %%r10, %%nacl:0x50(%%r15, %0, 1)\n" \ - "movq %%r11, %%nacl:0x58(%%r15, %0, 1)\n" \ - "movq %%r12, %%nacl:0x60(%%r15, %0, 1)\n" \ - "movq %%r13, %%nacl:0x68(%%r15, %0, 1)\n" \ - "movq %%r14, %%nacl:0x70(%%r15, %0, 1)\n" \ - "movq %%r15, %%nacl:0x78(%%r15, %0, 1)\n" \ - "leaq (%%rip), %%rdx\n" \ - "movq %%rdx, %%nacl:0x80(%%r15, %0, 1)\n" \ - : \ - : "a" ((int64_t)&(ctx)) \ - : "rdx", "memory") #else -#define MONO_CONTEXT_GET_CURRENT(ctx) \ - __asm__ __volatile__( \ - "movq $0x0, 0x00(%0)\n" \ - "movq %%rcx, 0x08(%0)\n" \ - "movq %%rdx, 0x10(%0)\n" \ - "movq %%rbx, 0x18(%0)\n" \ - "movq %%rsp, 0x20(%0)\n" \ - "movq %%rbp, 0x28(%0)\n" \ - "movq %%rsi, 0x30(%0)\n" \ - "movq %%rdi, 0x38(%0)\n" \ - "movq %%r8, 0x40(%0)\n" \ - "movq %%r9, 0x48(%0)\n" \ - "movq %%r10, 0x50(%0)\n" \ - "movq %%r11, 0x58(%0)\n" \ - "movq %%r12, 0x60(%0)\n" \ - "movq %%r13, 0x68(%0)\n" \ - "movq %%r14, 0x70(%0)\n" \ - "movq %%r15, 0x78(%0)\n" \ - /* "leaq (%%rip), %%rdx\n" is not understood by icc */ \ - ".byte 0x48, 0x8d, 0x15, 0x00, 0x00, 0x00, 0x00\n" \ - "movq %%rdx, 0x80(%0)\n" \ - : \ - : "a" (&(ctx)) \ - : "rdx", "memory") +#define MONO_CONTEXT_GET_CURRENT_GREGS(ctx) \ + do { \ + __asm__ __volatile__( \ + "movq $0x0, %c[rax](%0)\n" \ + "movq %%rcx, %c[rcx](%0)\n" \ + "movq %%rdx, %c[rdx](%0)\n" \ + "movq %%rbx, %c[rbx](%0)\n" \ + "movq %%rsp, %c[rsp](%0)\n" \ + "movq %%rbp, %c[rbp](%0)\n" \ + "movq %%rsi, %c[rsi](%0)\n" \ + "movq %%rdi, %c[rdi](%0)\n" \ + "movq %%r8, %c[r8](%0)\n" \ + "movq %%r9, %c[r9](%0)\n" \ + "movq %%r10, %c[r10](%0)\n" \ + "movq %%r11, %c[r11](%0)\n" \ + "movq %%r12, %c[r12](%0)\n" \ + "movq %%r13, %c[r13](%0)\n" \ + "movq %%r14, %c[r14](%0)\n" \ + "movq %%r15, %c[r15](%0)\n" \ + /* "leaq (%%rip), %%rdx\n" is not understood by icc */ \ + ".byte 0x48, 0x8d, 0x15, 0x00, 0x00, 0x00, 0x00\n" \ + "movq %%rdx, %c[rip](%0)\n" \ + : \ + : "a" (&(ctx)), \ + [rax] MONO_CONTEXT_OFFSET (gregs, AMD64_RAX, mgreg_t), \ + [rcx] MONO_CONTEXT_OFFSET (gregs, AMD64_RCX, mgreg_t), \ + [rdx] MONO_CONTEXT_OFFSET (gregs, AMD64_RDX, mgreg_t), \ + [rbx] MONO_CONTEXT_OFFSET (gregs, AMD64_RBX, mgreg_t), \ + [rsp] MONO_CONTEXT_OFFSET (gregs, AMD64_RSP, mgreg_t), \ + [rbp] MONO_CONTEXT_OFFSET (gregs, AMD64_RBP, mgreg_t), \ + [rsi] MONO_CONTEXT_OFFSET (gregs, AMD64_RSI, mgreg_t), \ + [rdi] MONO_CONTEXT_OFFSET (gregs, AMD64_RDI, mgreg_t), \ + [r8] MONO_CONTEXT_OFFSET (gregs, AMD64_R8, mgreg_t), \ + [r9] MONO_CONTEXT_OFFSET (gregs, AMD64_R9, mgreg_t), \ + [r10] MONO_CONTEXT_OFFSET (gregs, AMD64_R10, mgreg_t), \ + [r11] MONO_CONTEXT_OFFSET (gregs, AMD64_R11, mgreg_t), \ + [r12] MONO_CONTEXT_OFFSET (gregs, AMD64_R12, mgreg_t), \ + [r13] MONO_CONTEXT_OFFSET (gregs, AMD64_R13, mgreg_t), \ + [r14] MONO_CONTEXT_OFFSET (gregs, AMD64_R14, mgreg_t), \ + [r15] MONO_CONTEXT_OFFSET (gregs, AMD64_R15, mgreg_t), \ + [rip] MONO_CONTEXT_OFFSET (gregs, AMD64_RIP, mgreg_t) \ + : "rdx", "memory"); \ + } while (0) + +#ifdef UCONTEXT_REG_XMM +#define MONO_CONTEXT_GET_CURRENT_FREGS(ctx) \ + do { \ + __asm__ __volatile__ ( \ + "movups %%xmm0, %c[xmm0](%0)\n" \ + "movups %%xmm1, %c[xmm1](%0)\n" \ + "movups %%xmm2, %c[xmm2](%0)\n" \ + "movups %%xmm3, %c[xmm3](%0)\n" \ + "movups %%xmm4, %c[xmm4](%0)\n" \ + "movups %%xmm5, %c[xmm5](%0)\n" \ + "movups %%xmm6, %c[xmm6](%0)\n" \ + "movups %%xmm7, %c[xmm7](%0)\n" \ + "movups %%xmm8, %c[xmm8](%0)\n" \ + "movups %%xmm9, %c[xmm9](%0)\n" \ + "movups %%xmm10, %c[xmm10](%0)\n" \ + "movups %%xmm11, %c[xmm11](%0)\n" \ + "movups %%xmm12, %c[xmm12](%0)\n" \ + "movups %%xmm12, %c[xmm12](%0)\n" \ + "movups %%xmm14, %c[xmm14](%0)\n" \ + "movups %%xmm15, %c[xmm15](%0)\n" \ + : \ + : "a" (&(ctx)), \ + [xmm0] MONO_CONTEXT_OFFSET (fregs, AMD64_XMM0, MonoContextSimdReg), \ + [xmm1] MONO_CONTEXT_OFFSET (fregs, AMD64_XMM1, MonoContextSimdReg), \ + [xmm2] MONO_CONTEXT_OFFSET (fregs, AMD64_XMM2, MonoContextSimdReg), \ + [xmm3] MONO_CONTEXT_OFFSET (fregs, AMD64_XMM3, MonoContextSimdReg), \ + [xmm4] MONO_CONTEXT_OFFSET (fregs, AMD64_XMM4, MonoContextSimdReg), \ + [xmm5] MONO_CONTEXT_OFFSET (fregs, AMD64_XMM5, MonoContextSimdReg), \ + [xmm6] MONO_CONTEXT_OFFSET (fregs, AMD64_XMM6, MonoContextSimdReg), \ + [xmm7] MONO_CONTEXT_OFFSET (fregs, AMD64_XMM7, MonoContextSimdReg), \ + [xmm8] MONO_CONTEXT_OFFSET (fregs, AMD64_XMM8, MonoContextSimdReg), \ + [xmm9] MONO_CONTEXT_OFFSET (fregs, AMD64_XMM9, MonoContextSimdReg), \ + [xmm10] MONO_CONTEXT_OFFSET (fregs, AMD64_XMM10, MonoContextSimdReg), \ + [xmm11] MONO_CONTEXT_OFFSET (fregs, AMD64_XMM11, MonoContextSimdReg), \ + [xmm12] MONO_CONTEXT_OFFSET (fregs, AMD64_XMM12, MonoContextSimdReg), \ + [xmm13] MONO_CONTEXT_OFFSET (fregs, AMD64_XMM13, MonoContextSimdReg), \ + [xmm14] MONO_CONTEXT_OFFSET (fregs, AMD64_XMM14, MonoContextSimdReg), \ + [xmm15] MONO_CONTEXT_OFFSET (fregs, AMD64_XMM15, MonoContextSimdReg)); \ + } while (0) +#else +#define MONO_CONTEXT_GET_CURRENT_FREGS(ctx) +#endif + +#define MONO_CONTEXT_GET_CURRENT(ctx) \ + do { \ + MONO_CONTEXT_GET_CURRENT_GREGS(ctx); \ + MONO_CONTEXT_GET_CURRENT_FREGS(ctx); \ + } while (0) #endif #define MONO_ARCH_HAS_MONO_CONTEXT 1 @@ -264,15 +399,15 @@ typedef struct { "push {r0}\n" \ "push {r1}\n" \ "mov r0, %0\n" \ - "ldr r1, [sp, #4]\n" \ - "str r1, [r0]!\n" \ - "ldr r1, [sp, #0]\n" \ - "str r1, [r0]!\n" \ + "ldr r1, [sp, #4]\n" \ + "str r1, [r0], #4\n" \ + "ldr r1, [sp, #0]\n" \ + "str r1, [r0], #4\n" \ "stmia r0!, {r2-r12}\n" \ - "str sp, [r0]!\n" \ - "str lr, [r0]!\n" \ + "str sp, [r0], #4\n" \ + "str lr, [r0], #4\n" \ "mov r1, pc\n" \ - "str r1, [r0]!\n" \ + "str r1, [r0], #4\n" \ "pop {r1}\n" \ "pop {r0}\n" \ : \ @@ -292,8 +427,14 @@ typedef struct { typedef struct { mgreg_t regs [32]; - double fregs [32]; + /* FIXME not fully saved in trampolines */ + MonoContextSimdReg fregs [32]; mgreg_t pc; + /* + * fregs might not be initialized if this context was created from a + * ucontext. + */ + mgreg_t has_fregs; } MonoContext; #define MONO_CONTEXT_SET_IP(ctx,ip) do { (ctx)->pc = (mgreg_t)ip; } while (0) @@ -308,12 +449,17 @@ typedef struct { #define MONO_CONTEXT_GET_CURRENT(ctx) do { \ arm_unified_thread_state_t thread_state; \ + arm_neon_state64_t thread_fpstate; \ int state_flavor = ARM_UNIFIED_THREAD_STATE; \ + int fpstate_flavor = ARM_NEON_STATE64; \ unsigned state_count = ARM_UNIFIED_THREAD_STATE_COUNT; \ + unsigned fpstate_count = ARM_NEON_STATE64_COUNT; \ thread_port_t self = mach_thread_self (); \ kern_return_t ret = thread_get_state (self, state_flavor, (thread_state_t) &thread_state, &state_count); \ g_assert (ret == 0); \ - mono_mach_arch_thread_state_to_mono_context ((thread_state_t)&thread_state, &ctx); \ + ret = thread_get_state (self, fpstate_flavor, (thread_state_t) &thread_fpstate, &fpstate_count); \ + g_assert (ret == 0); \ + mono_mach_arch_thread_states_to_mono_context ((thread_state_t) &thread_state, (thread_state_t) &thread_fpstate, &ctx); \ mach_port_deallocate (current_task (), self); \ } while (0); @@ -337,12 +483,28 @@ typedef struct { "stp x24, x25, [x16], #16\n" \ "stp x26, x27, [x16], #16\n" \ "stp x28, x29, [x16], #16\n" \ - "stp x30, xzr, [x16]\n" \ + "stp x30, xzr, [x16], #8\n" \ "mov x30, sp\n" \ - "str x30, [x16, #8]\n" \ + "str x30, [x16], #8\n" \ + "stp q0, q1, [x16], #32\n" \ + "stp q2, q3, [x16], #32\n" \ + "stp q4, q5, [x16], #32\n" \ + "stp q6, q7, [x16], #32\n" \ + "stp q8, q9, [x16], #32\n" \ + "stp q10, q11, [x16], #32\n" \ + "stp q12, q13, [x16], #32\n" \ + "stp q14, q15, [x16], #32\n" \ + "stp q16, q17, [x16], #32\n" \ + "stp q18, q19, [x16], #32\n" \ + "stp q20, q21, [x16], #32\n" \ + "stp q22, q23, [x16], #32\n" \ + "stp q24, q25, [x16], #32\n" \ + "stp q26, q27, [x16], #32\n" \ + "stp q28, q29, [x16], #32\n" \ + "stp q30, q31, [x16], #32\n" \ : \ : "r" (&ctx.regs) \ - : "x30", "memory" \ + : "x16", "x30", "memory" \ ); \ __asm__ __volatile__( \ "adr %0, L0%=\n" \ @@ -380,7 +542,7 @@ typedef struct { #define MONO_CONTEXT_SET_SP(ctx,sp) do { (ctx)->sc_sp = (gulong)sp; } while (0); #define MONO_CONTEXT_GET_IP(ctx) ((gpointer)((ctx)->sc_ir)) -#define MONO_CONTEXT_GET_BP(ctx) ((gpointer)((ctx)->regs [ppc_r31-13])) +#define MONO_CONTEXT_GET_BP(ctx) ((gpointer)((ctx)->regs [ppc_r31])) #define MONO_CONTEXT_GET_SP(ctx) ((gpointer)((ctx)->sc_sp)) #define MONO_CONTEXT_GET_CURRENT(ctx) \ @@ -471,45 +633,45 @@ typedef struct { #define MONO_CONTEXT_SET_SP(ctx,sp) do { (ctx)->sc_sp = (mgreg_t)sp; } while (0); #define MONO_CONTEXT_GET_IP(ctx) ((gpointer)((ctx)->sc_ir)) -#define MONO_CONTEXT_GET_BP(ctx) ((gpointer)((ctx)->regs [ppc_r31-13])) +#define MONO_CONTEXT_GET_BP(ctx) ((gpointer)((ctx)->regs [ppc_r31])) #define MONO_CONTEXT_GET_SP(ctx) ((gpointer)((ctx)->sc_sp)) #define MONO_CONTEXT_GET_CURRENT(ctx) \ __asm__ __volatile__( \ - "std 0, 0(%0)\n" \ - "std 1, 4(%0)\n" \ - "std 0, 4*0+8(%0)\n" \ - "std 1, 4*1+8(%0)\n" \ - "std 2, 4*2+8(%0)\n" \ - "std 3, 4*3+8(%0)\n" \ - "std 4, 4*4+8(%0)\n" \ - "std 5, 4*5+8(%0)\n" \ - "std 6, 4*6+8(%0)\n" \ - "std 7, 4*7+8(%0)\n" \ - "std 8, 4*8+8(%0)\n" \ - "std 9, 4*9+8(%0)\n" \ - "std 10, 4*10+8(%0)\n" \ - "std 11, 4*11+8(%0)\n" \ - "std 12, 4*12+8(%0)\n" \ - "std 13, 4*13+8(%0)\n" \ - "std 14, 4*14+8(%0)\n" \ - "std 15, 4*15+8(%0)\n" \ - "std 16, 4*16+8(%0)\n" \ - "std 17, 4*17+8(%0)\n" \ - "std 18, 4*18+8(%0)\n" \ - "std 19, 4*19+8(%0)\n" \ - "std 20, 4*20+8(%0)\n" \ - "std 21, 4*21+8(%0)\n" \ - "std 22, 4*22+8(%0)\n" \ - "std 23, 4*23+8(%0)\n" \ - "std 24, 4*24+8(%0)\n" \ - "std 25, 4*25+8(%0)\n" \ - "std 26, 4*26+8(%0)\n" \ - "std 27, 4*27+8(%0)\n" \ - "std 28, 4*28+8(%0)\n" \ - "std 29, 4*29+8(%0)\n" \ - "std 30, 4*30+8(%0)\n" \ - "std 31, 4*31+8(%0)\n" \ + "stw 0, 0(%0)\n" \ + "stw 1, 4(%0)\n" \ + "stw 0, 4*0+8(%0)\n" \ + "stw 1, 4*1+8(%0)\n" \ + "stw 2, 4*2+8(%0)\n" \ + "stw 3, 4*3+8(%0)\n" \ + "stw 4, 4*4+8(%0)\n" \ + "stw 5, 4*5+8(%0)\n" \ + "stw 6, 4*6+8(%0)\n" \ + "stw 7, 4*7+8(%0)\n" \ + "stw 8, 4*8+8(%0)\n" \ + "stw 9, 4*9+8(%0)\n" \ + "stw 10, 4*10+8(%0)\n" \ + "stw 11, 4*11+8(%0)\n" \ + "stw 12, 4*12+8(%0)\n" \ + "stw 13, 4*13+8(%0)\n" \ + "stw 14, 4*14+8(%0)\n" \ + "stw 15, 4*15+8(%0)\n" \ + "stw 16, 4*16+8(%0)\n" \ + "stw 17, 4*17+8(%0)\n" \ + "stw 18, 4*18+8(%0)\n" \ + "stw 19, 4*19+8(%0)\n" \ + "stw 20, 4*20+8(%0)\n" \ + "stw 21, 4*21+8(%0)\n" \ + "stw 22, 4*22+8(%0)\n" \ + "stw 23, 4*23+8(%0)\n" \ + "stw 24, 4*24+8(%0)\n" \ + "stw 25, 4*25+8(%0)\n" \ + "stw 26, 4*26+8(%0)\n" \ + "stw 27, 4*27+8(%0)\n" \ + "stw 28, 4*28+8(%0)\n" \ + "stw 29, 4*29+8(%0)\n" \ + "stw 30, 4*30+8(%0)\n" \ + "stw 31, 4*31+8(%0)\n" \ "stfd 0, 8*0+4*32+8(%0)\n" \ "stfd 1, 8*1+4*32+8(%0)\n" \ "stfd 2, 8*2+4*32+8(%0)\n" \ @@ -543,7 +705,7 @@ typedef struct { "stfd 30, 8*30+4*32+8(%0)\n" \ "stfd 31, 8*31+4*32+8(%0)\n" \ : : "r" (&(ctx)) \ - : "memory" \ + : "memory", "r0" \ ) #endif @@ -615,89 +777,9 @@ typedef struct MonoContext { #define MONO_ARCH_HAS_MONO_CONTEXT 1 -#elif defined(__ia64__) /*defined(__sparc__) || defined(sparc) */ - -#ifndef UNW_LOCAL_ONLY - -#define UNW_LOCAL_ONLY -#include - -#endif - -typedef struct MonoContext { - unw_cursor_t cursor; - /* Whenever the ip in 'cursor' points to the ip where the exception happened */ - /* This is true for the initial context for exceptions thrown from signal handlers */ - gboolean precise_ip; -} MonoContext; - -/*XXX SET_BP is missing*/ -#define MONO_CONTEXT_SET_IP(ctx,eip) do { int err = unw_set_reg (&(ctx)->cursor, UNW_IA64_IP, (unw_word_t)(eip)); g_assert (err == 0); } while (0) -#define MONO_CONTEXT_SET_SP(ctx,esp) do { int err = unw_set_reg (&(ctx)->cursor, UNW_IA64_SP, (unw_word_t)(esp)); g_assert (err == 0); } while (0) - -#define MONO_CONTEXT_GET_IP(ctx) ((gpointer)(mono_ia64_context_get_ip ((ctx)))) -#define MONO_CONTEXT_GET_BP(ctx) ((gpointer)(mono_ia64_context_get_fp ((ctx)))) -#define MONO_CONTEXT_GET_SP(ctx) ((gpointer)(mono_ia64_context_get_sp ((ctx)))) - -static inline unw_word_t -mono_ia64_context_get_ip (MonoContext *ctx) -{ - unw_word_t ip; - int err; - - err = unw_get_reg (&ctx->cursor, UNW_IA64_IP, &ip); - g_assert (err == 0); - - if (ctx->precise_ip) { - return ip; - } else { - /* Subtrack 1 so ip points into the actual instruction */ - return ip - 1; - } -} - -static inline unw_word_t -mono_ia64_context_get_sp (MonoContext *ctx) -{ - unw_word_t sp; - int err; - - err = unw_get_reg (&ctx->cursor, UNW_IA64_SP, &sp); - g_assert (err == 0); - - return sp; -} - -static inline unw_word_t -mono_ia64_context_get_fp (MonoContext *ctx) -{ - unw_cursor_t new_cursor; - unw_word_t fp; - int err; +#elif ((defined(__mips__) && !defined(MONO_CROSS_COMPILE)) || (defined(TARGET_MIPS))) && SIZEOF_REGISTER == 4 - { - unw_word_t ip, sp; - - err = unw_get_reg (&ctx->cursor, UNW_IA64_SP, &sp); - g_assert (err == 0); - - err = unw_get_reg (&ctx->cursor, UNW_IA64_IP, &ip); - g_assert (err == 0); - } - - /* fp is the SP of the parent frame */ - new_cursor = ctx->cursor; - - err = unw_step (&new_cursor); - g_assert (err >= 0); - - err = unw_get_reg (&new_cursor, UNW_IA64_SP, &fp); - g_assert (err == 0); - - return fp; -} - -#elif ((defined(__mips__) && !defined(MONO_CROSS_COMPILE)) || (defined(TARGET_MIPS))) && SIZEOF_REGISTER == 4 /* defined(__ia64__) */ +#define MONO_ARCH_HAS_MONO_CONTEXT 1 #include