X-Git-Url: http://wien.tomnetworks.com/gitweb/?a=blobdiff_plain;f=mono%2Futils%2Fmono-context.h;h=bac2fb331a1633ee4e143999f7b101870529e748;hb=161c807083bf5d889079a64604a176073eea8e1f;hp=0a1bd524cfd42261ac798b6f0b2eb1b8c7fe726f;hpb=c866c3eefb79ea86be468e4f95c7012fa3d2db4f;p=mono.git diff --git a/mono/utils/mono-context.h b/mono/utils/mono-context.h index 0a1bd524cfd..bac2fb331a1 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,21 @@ #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 +#endif + /* * General notes about mono-context. * Each arch defines a MonoContext struct with all GPR regs + IP/PC. @@ -26,7 +42,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 +70,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 +104,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 +124,8 @@ struct sigcontext { # define SC_ESI esi #endif +#include + typedef struct { mgreg_t eax; mgreg_t ebx; @@ -97,6 +136,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 +169,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 +235,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 +245,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 +265,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 +397,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" \ : \ @@ -294,6 +427,11 @@ typedef struct { mgreg_t regs [32]; double 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) @@ -313,7 +451,7 @@ typedef struct { 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); \ + mono_mach_arch_thread_states_to_mono_context ((thread_state_t)&thread_state, (thread_state_t)NULL, &ctx); \ mach_port_deallocate (current_task (), self); \ } while (0); @@ -337,12 +475,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 d0, d1, [x16], #16\n" \ + "stp d2, d3, [x16], #16\n" \ + "stp d4, d5, [x16], #16\n" \ + "stp d6, d7, [x16], #16\n" \ + "stp d8, d9, [x16], #16\n" \ + "stp d10, d11, [x16], #16\n" \ + "stp d12, d13, [x16], #16\n" \ + "stp d14, d15, [x16], #16\n" \ + "stp d16, d17, [x16], #16\n" \ + "stp d18, d19, [x16], #16\n" \ + "stp d20, d21, [x16], #16\n" \ + "stp d22, d23, [x16], #16\n" \ + "stp d24, d25, [x16], #16\n" \ + "stp d26, d27, [x16], #16\n" \ + "stp d28, d29, [x16], #16\n" \ + "stp d30, d31, [x16], #16\n" \ : \ : "r" (&ctx.regs) \ - : "x30", "memory" \ + : "x16", "x30", "memory" \ ); \ __asm__ __volatile__( \ "adr %0, L0%=\n" \ @@ -380,7 +534,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 +625,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 +697,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 +769,7 @@ 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; - - { - 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__) */ +#elif ((defined(__mips__) && !defined(MONO_CROSS_COMPILE)) || (defined(TARGET_MIPS))) && SIZEOF_REGISTER == 4 #define MONO_ARCH_HAS_MONO_CONTEXT 1