mono/mini/mini-sparc.h

   1 #ifndef __MONO_MINI_SPARC_H__
   2 #define __MONO_MINI_SPARC_H__
   3
   4 #include <mono/arch/sparc/sparc-codegen.h>
   5
   6 #include <glib.h>
   7
   8 #define MONO_MAX_IREGS 32
   9 #define MONO_MAX_FREGS 32
  10
  11 #define MONO_ARCH_FRAME_ALIGNMENT (sizeof (gpointer) * 2)
  12
  13 #define MONO_ARCH_CODE_ALIGNMENT 32
  14
  15 #define MONO_ARCH_BASEREG sparc_fp
  16 #define MONO_ARCH_RETREG1 sparc_i0
  17
  18 #ifdef SPARCV9
  19 #define MONO_SPARC_STACK_BIAS 2047
  20 #else
  21 #define MONO_SPARC_STACK_BIAS 0
  22 #endif
  23
  24 struct MonoLMF {
  25         gpointer    previous_lmf;
  26         gpointer    lmf_addr;
  27         MonoMethod *method;
  28         gpointer    ip;
  29         gpointer    sp;
  30         gpointer    ebp;
  31 };
  32
  33 typedef struct MonoContext {
  34         guint8 *ip;
  35         gpointer *sp;
  36         gpointer *fp;
  37 } MonoContext;
  38
  39 typedef struct MonoCompileArch {
  40         gint32 lmf_offset;
  41         gint32 localloc_offset;
  42 } MonoCompileArch;
  43
  44 #define MONO_CONTEXT_SET_IP(ctx,eip) do { (ctx)->ip = (gpointer)(eip); } while (0);
  45 #define MONO_CONTEXT_SET_BP(ctx,ebp) do { (ctx)->fp = (gpointer*)(ebp); } while (0);
  46 #define MONO_CONTEXT_SET_SP(ctx,esp) do { (ctx)->sp = (gpointer*)(esp); } while (0);
  47
  48 #define MONO_CONTEXT_GET_IP(ctx) ((gpointer)((ctx)->ip))
  49 #define MONO_CONTEXT_GET_BP(ctx) ((gpointer)((ctx)->fp))
  50 #define MONO_CONTEXT_GET_SP(ctx) ((gpointer)((ctx)->sp))
  51
  52 #define MONO_ARCH_USE_SIGACTION 1
  53
  54 //#define MONO_ARCH_SIGSEGV_ON_ALTSTACK
  55
  56 #define MONO_ARCH_EMULATE_FCONV_TO_I8   1
  57 #define MONO_ARCH_EMULATE_LCONV_TO_R8   1
  58 #define MONO_ARCH_EMULATE_LCONV_TO_R4   1
  59 #define MONO_ARCH_EMULATE_CONV_R8_UN    1
  60 #define MONO_ARCH_EMULATE_LCONV_TO_R8_UN 1
  61 #define MONO_ARCH_EMULATE_FREM 1
  62 #define MONO_ARCH_NEED_DIV_CHECK 1
  63 #define MONO_ARCH_HAVE_RETHROW 1
  64
  65 #ifdef SPARCV9
  66 #define MONO_ARCH_NO_EMULATE_LONG_SHIFT_OPS
  67 #endif
  68
  69 #ifndef __GNUC__
  70 /* assume Sun compiler if not GCC */
  71 static void * __builtin_return_address(int depth)
  72 {
  73         asm("ta      3");
  74         asm("tst     %i0");
  75         asm("be      retAddr_End");
  76         asm("mov     %fp, %l0");
  77         asm("retAddr_Start:");
  78         asm("sub     %i0, 1, %i0");
  79         asm("tst     %i0");
  80         asm("bne     retAddr_Start");
  81 #if SPARCV9
  82         asm("ldx     [%l0+2159], %l0");
  83         asm("retAddr_End:");
  84         asm("ldx     [%l0+2167], %i0");
  85 #else
  86         asm("ld      [%l0+56], %l0");
  87         asm("retAddr_End:");
  88         asm("ld      [%l0+60], %i0");
  89 #endif
  90 }
  91
  92 static void * __builtin_frame_address(int depth)
  93 {
  94         asm("ta      3");
  95         asm("tst     %i0");
  96         asm("be      frameAddr_End");
  97         asm("mov     %fp, %l0");
  98         asm("frameAddr_Start:");
  99         asm("sub     %i0, 1, %i0");
 100         asm("tst     %i0");
 101         asm("bne     frameAddr_Start");
 102 #if SPARCV9
 103         asm("ldx     [%l0+2159], %l0");
 104         asm("frameAddr_End:");
 105         asm("ldx     [%l0+2159], %i0");
 106 #else
 107         asm("ld      [%l0+56], %l0");
 108         asm("frameAddr_End:");
 109         asm("ld      [%l0+56], %i0");
 110 #endif
 111 }
 112 #endif
 113
 114 gboolean mono_sparc_is_virtual_call (guint32 *code);
 115
 116 gpointer* mono_sparc_get_vcall_slot_addr (guint32 *code, gpointer *fp);
 117
 118 void mono_sparc_flushw (void);
 119
 120 gboolean mono_sparc_is_v9 (void);
 121
 122 gboolean mono_sparc_is_sparc64 (void);
 123
 124 struct MonoCompile;
 125
 126 guint32* mono_sparc_emit_save_lmf (guint32* code, guint32 lmf_offset);
 127
 128 guint32* mono_sparc_emit_restore_lmf (guint32 *code, guint32 lmf_offset);
 129
 130 #endif /* __MONO_MINI_SPARC_H__ */