2005-02-05 Zoltan Varga <vargaz@freemail.hu>

[mono.git] / mono / mini / mini-amd64.h

diff --git a/mono/mini/mini-amd64.h b/mono/mini/mini-amd64.h
index afa0de253850e327d42cf6ae66a58c6ff473ecbb..ff75a455d3aeb1fe41d1f3bd2f4c6061f345149f 100644 (file)
--- a/mono/mini/mini-amd64.h
+++ b/mono/mini/mini-amd64.h
@@ -2,6 +2,7 @@
 #define __MONO_MINI_AMD64_H__
 
 #include <mono/arch/amd64/amd64-codegen.h>
+#include <glib.h>
 
 #ifdef PLATFORM_WIN32
 #include <windows.h>
@@ -12,15 +13,15 @@
 
 /* sigcontext surrogate */
 struct sigcontext {
-       unsigned int eax;
-       unsigned int ebx;
-       unsigned int ecx;
-       unsigned int edx;
-       unsigned int ebp;
-       unsigned int esp;
-       unsigned int esi;
-       unsigned int edi;
-       unsigned int eip;
+       guint64 eax;
+       guint64 ebx;
+       guint64 ecx;
+       guint64 edx;
+       guint64 ebp;
+       guint64 esp;
+    guint64 esi;
+       guint64 edi;
+       guint64 eip;
 };
 
 typedef void (* MonoW32ExceptionHandler) (int);
@@ -77,9 +78,9 @@ struct sigcontext {
 
 #define MONO_MAX_IREGS 16
 
-#define MONO_MAX_FREGS 6
+#define MONO_MAX_FREGS AMD64_XMM_NREG
 
-#define MONO_ARCH_FRAME_ALIGNMENT 4
+#define MONO_ARCH_FRAME_ALIGNMENT 16
 
 /* fixme: align to 16byte instead of 32byte (we align to 32byte to get 
  * reproduceable results for benchmarks */
@@ -102,11 +103,13 @@ struct MonoLMF {
        gpointer    previous_lmf;
        gpointer    lmf_addr;
        MonoMethod *method;
-       guint32     ebx;
-       guint32     edi;
-       guint32     esi;
-       guint32     ebp;
-       guint32     eip;
+       guint64     rip;
+       guint64     rbx;
+       guint64     ebp;
+       guint64     r12;
+       guint64     r13;
+       guint64     r14;
+       guint64     r15;
 };
 
 typedef struct MonoCompileArch {
@@ -114,6 +117,22 @@ typedef struct MonoCompileArch {
        gint32 localloc_offset;    
 } MonoCompileArch;
 
+typedef struct {
+       guint64 rax;
+       guint64 rbx;
+       guint64 rcx;
+       guint64 rdx;
+       guint64 rbp;
+       guint64 rsp;
+    guint64 rsi;
+       guint64 rdi;
+       guint64 rip;
+       guint64 r12;
+       guint64 r13;
+       guint64 r14;
+       guint64 r15;
+} MonoContext;
+
 #if defined(__FreeBSD__) || defined(__NetBSD__) || defined(__OpenBSD__)
 # define SC_EAX sc_eax
 # define SC_EBX sc_ebx
@@ -124,7 +143,7 @@ typedef struct MonoCompileArch {
 # define SC_ESP sc_esp
 # define SC_EDI sc_edi
 # define SC_ESI sc_esi
-#elif defined(__x86_64__)
+#else
 # define SC_EAX rax
 # define SC_EBX rbx
 # define SC_ECX rcx
@@ -134,31 +153,51 @@ typedef struct MonoCompileArch {
 # define SC_ESP rsp
 # define SC_EDI rdi
 # define SC_ESI rsi
-#else
-# define SC_EAX eax
-# define SC_EBX ebx
-# define SC_ECX ecx
-# define SC_EDX edx
-# define SC_EBP ebp
-# define SC_EIP eip
-# define SC_ESP esp
-# define SC_EDI edi
-# define SC_ESI esi
+
+# define SC_RIP rip
+# define SC_RSP rsp
+# define SC_RBP rbp
+# define SC_RBX rbx
+# define SC_R12 r12
+# define SC_R13 r13
+# define SC_R14 r14
+# define SC_R15 r15
+
 #endif
 
-typedef struct sigcontext MonoContext;
+#define MONO_CONTEXT_SET_IP(ctx,ip) do { (ctx)->rip = (long)(ip); } while (0); 
+#define MONO_CONTEXT_SET_BP(ctx,bp) do { (ctx)->rbp = (long)(bp); } while (0); 
+#define MONO_CONTEXT_SET_SP(ctx,esp) do { (ctx)->rsp = (long)(esp); } while (0); 
 
-#define MONO_CONTEXT_SET_IP(ctx,ip) do { (ctx)->SC_EIP = (long)(ip); } while (0); 
-#define MONO_CONTEXT_SET_BP(ctx,bp) do { (ctx)->SC_EBP = (long)(bp); } while (0); 
-#define MONO_CONTEXT_SET_SP(ctx,esp) do { (ctx)->SC_ESP = (long)(esp); } while (0); 
+#define MONO_CONTEXT_GET_IP(ctx) ((gpointer)((ctx)->rip))
+#define MONO_CONTEXT_GET_BP(ctx) ((gpointer)((ctx)->rbp))
+#define MONO_CONTEXT_GET_SP(ctx) ((gpointer)((ctx)->rsp))
 
-#define MONO_CONTEXT_GET_IP(ctx) ((gpointer)((ctx)->SC_EIP))
-#define MONO_CONTEXT_GET_BP(ctx) ((gpointer)((ctx)->SC_EBP))
-#define MONO_CONTEXT_GET_SP(ctx) ((gpointer)((ctx)->SC_ESP))
+#define MONO_INIT_CONTEXT_FROM_FUNC(ctx,start_func) do {       \
+               mono_arch_flush_register_windows ();    \
+               MONO_CONTEXT_SET_IP ((ctx), (start_func));      \
+               MONO_CONTEXT_SET_BP ((ctx), __builtin_frame_address (0));       \
+       } while (0)
+
+#define MONO_ARCH_USE_SIGACTION 1
+
+/*
+ * some icalls like mono_array_new_va needs to be called using a different 
+ * calling convention.
+ */
+#define MONO_ARCH_VARARG_ICALLS 1
 
 #ifndef PLATFORM_WIN32
+
 #ifdef HAVE_WORKING_SIGALTSTACK
-#define MONO_ARCH_SIGSEGV_ON_ALTSTACK
+
+/*
+ * FIXME: For some reason, when sigaltstack is enabled, the uc_mcontext member
+ * in ucontext_t is not at the offset indicated by the definition of ucontext_t.
+ */
+
+//#define MONO_ARCH_SIGSEGV_ON_ALTSTACK
+
 /* NetBSD doesn't define SA_STACK */
 #ifndef SA_STACK
 #define SA_STACK SA_ONSTACK
@@ -167,6 +206,31 @@ typedef struct sigcontext MonoContext;
 
 #endif
 
+/* Enables OP_LSHL, OP_LSHL_IMM, OP_LSHR, OP_LSHR_IMM, OP_LSHR_UN, OP_LSHR_UN_IMM */
+#define MONO_ARCH_NO_EMULATE_LONG_SHIFT_OPS
+
+#define MONO_ARCH_EMULATE_CONV_R8_UN    1
+#define MONO_ARCH_EMULATE_LCONV_TO_R8_UN 1
+#define MONO_ARCH_EMULATE_FREM 1
+#define MONO_ARCH_NEED_DIV_CHECK 1
+#define MONO_ARCH_HAVE_IS_INT_OVERFLOW 1
+
+#define MONO_ARCH_ENABLE_EMIT_STATE_OPT 1
+#define MONO_ARCH_HAVE_INVALIDATE_METHOD 1
+#define MONO_ARCH_HAVE_THROW_CORLIB_EXCEPTION 1
+#define MONO_ARCH_HAVE_OUT_OF_LINE_BBLOCKS 1
+#define MONO_ARCH_HAVE_PIC_AOT 1
+#define MONO_ARCH_HAVE_CREATE_TRAMPOLINE_FROM_TOKEN 1
+
+gpointer*
+mono_amd64_get_vcall_slot_addr (guint8* code, guint64 *regs);
+
+void
+mono_amd64_exceptions_init (void);
+
+void
+mono_amd64_tramp_init (void);
+
 /* FIXME: */
 //#define MONO_ARCH_BIGMUL_INTRINS 1