mono/mini/mini.h

   1 #ifndef __MONO_MINI_H__
   2 #define __MONO_MINI_H__
   3
   4 #include "config.h"
   5 #include <glib.h>
   6 #include <signal.h>
   7 #include <mono/metadata/loader.h>
   8 #include <mono/metadata/mempool.h>
   9 #include <mono/utils/monobitset.h>
  10 #include <mono/metadata/class.h>
  11 #include <mono/metadata/object.h>
  12 #include <mono/metadata/opcodes.h>
  13 #include <mono/metadata/tabledefs.h>
  14 #include <mono/metadata/domain-internals.h>
  15 #include "mono/metadata/class-internals.h"
  16 #include "mono/metadata/object-internals.h"
  17 #include <mono/metadata/profiler-private.h>
  18 #include <mono/metadata/debug-helpers.h>
  19 #include <mono/utils/mono-compiler.h>
  20
  21 #define MONO_BREAKPOINT_ARRAY_SIZE 64
  22
  23 /* C type matching the size of a machine register. Not always the same as 'int' */
  24 /* Note that member 'p' of MonoInst must be the same type, as OP_PCONST is defined
  25  * as one of the OP_ICONST types, so inst_c0 must be the same as inst_p0
  26  */
  27 #if SIZEOF_REGISTER == 4
  28 typedef gint32 mgreg_t;
  29 #elif SIZEOF_REGISTER == 8
  30 typedef gint64 mgreg_t;
  31 #endif
  32
  33 #include "mini-arch.h"
  34 #include "regalloc.h"
  35 #include "declsec.h"
  36 #include "mini-unwind.h"
  37
  38 #ifndef G_LIKELY
  39 #define G_LIKELY(a) (a)
  40 #define G_UNLIKELY(a) (a)
  41 #endif
  42
  43 #ifndef G_MAXINT32
  44 #define G_MAXINT32 2147483647
  45 #endif
  46
  47 #ifndef G_MININT32
  48 #define G_MININT32 (-G_MAXINT32 - 1)
  49 #endif
  50
  51 #if DISABLE_LOGGING
  52 #define MINI_DEBUG(level,limit,code)
  53 #else
  54 #define MINI_DEBUG(level,limit,code) do {if (G_UNLIKELY ((level) >= (limit))) code} while (0)
  55 #endif
  56
  57 #if !defined(DISABLE_TASKLETS) && defined(MONO_ARCH_SUPPORT_TASKLETS) && defined(__GNUC__)
  58 #define MONO_SUPPORT_TASKLETS 1
  59 #endif
  60
  61 #if ENABLE_LLVM
  62 #define COMPILE_LLVM(cfg) ((cfg)->compile_llvm)
  63 #define LLVM_ENABLED TRUE
  64 #else
  65 #define COMPILE_LLVM(cfg) (0)
  66 #define LLVM_ENABLED FALSE
  67 #endif
  68
  69 #ifdef MONO_ARCH_SOFT_FLOAT
  70 #define COMPILE_SOFT_FLOAT(cfg) (!COMPILE_LLVM ((cfg)))
  71 #else
  72 #define COMPILE_SOFT_FLOAT(cfg) 0
  73 #endif
  74
  75 #ifdef ENABLE_LLVM
  76 #define LLVM_CHECK_VERSION(major,minor) \
  77         ((LLVM_MAJOR_VERSION > (major)) ||                                                                      \
  78          ((LLVM_MAJOR_VERSION == (major)) && (LLVM_MINOR_VERSION >= (minor))))
  79 #else
  80 #define LLVM_CHECK_VERSION(major,minor) 0
  81 #endif
  82
  83 #define NOT_IMPLEMENTED do { g_assert_not_reached (); } while (0)
  84
  85 /* for 32 bit systems */
  86 #if G_BYTE_ORDER == G_LITTLE_ENDIAN
  87 #define MINI_LS_WORD_IDX 0
  88 #define MINI_MS_WORD_IDX 1
  89 #else
  90 #define MINI_LS_WORD_IDX 1
  91 #define MINI_MS_WORD_IDX 0
  92 #endif
  93 #define MINI_LS_WORD_OFFSET (MINI_LS_WORD_IDX * 4)
  94 #define MINI_MS_WORD_OFFSET (MINI_MS_WORD_IDX * 4)
  95 #define inst_ls_word data.op[MINI_LS_WORD_IDX].const_val
  96 #define inst_ms_word data.op[MINI_MS_WORD_IDX].const_val
  97
  98 #define MONO_FAKE_IMT_METHOD ((MonoMethod*)GINT_TO_POINTER(-1))
  99 #define MONO_FAKE_VTABLE_METHOD ((MonoMethod*)GINT_TO_POINTER(-2))
 100
 101 #ifndef DISABLE_AOT
 102 #define MONO_USE_AOT_COMPILER
 103 #endif
 104
 105 /* Version number of the AOT file format */
 106 #define MONO_AOT_FILE_VERSION "68"
 107
 108 //TODO: This is x86/amd64 specific.
 109 #define mono_simd_shuffle_mask(a,b,c,d) ((a) | ((b) << 2) | ((c) << 4) | ((d) << 6))
 110
 111 /* Constants used to encode different types of methods in AOT */
 112 enum {
 113         MONO_AOT_METHODREF_MIN = 240,
 114         /* Method encoded using its name */
 115         MONO_AOT_METHODREF_WRAPPER_NAME = 250,
 116         /* Runtime provided methods on arrays */
 117         MONO_AOT_METHODREF_ARRAY = 251,
 118         MONO_AOT_METHODREF_NO_AOT_TRAMPOLINE = 252,
 119         /* Wrappers */
 120         MONO_AOT_METHODREF_WRAPPER = 253,
 121         /* Methods on generic instances */
 122         MONO_AOT_METHODREF_GINST = 254,
 123         /* Methods resolve using a METHODSPEC token */
 124         MONO_AOT_METHODREF_METHODSPEC = 255,
 125 };
 126
 127 /* Trampolines which we have a lot of */
 128 typedef enum {
 129         MONO_AOT_TRAMP_SPECIFIC = 0,
 130         MONO_AOT_TRAMP_STATIC_RGCTX = 1,
 131         MONO_AOT_TRAMP_IMT_THUNK = 2,
 132         MONO_AOT_TRAMP_NUM = 3
 133 } MonoAotTrampoline;
 134
 135 typedef enum {
 136         MONO_AOT_FILE_FLAG_WITH_LLVM = 1,
 137         MONO_AOT_FILE_FLAG_FULL_AOT = 2
 138 } MonoAotFileFlags;
 139
 140 /* This structure is stored in the AOT file */
 141 typedef struct MonoAotFileInfo
 142 {
 143         guint32 plt_got_offset_base;
 144         guint32 got_size;
 145         guint32 plt_size;
 146         guint32 nmethods;
 147         guint32 flags;
 148         /* Optimization flags used to compile the module */
 149         guint32 opts;
 150
 151         guint32 num_trampolines [MONO_AOT_TRAMP_NUM];
 152         guint32 trampoline_got_offset_base [MONO_AOT_TRAMP_NUM];
 153         guint32 trampoline_size [MONO_AOT_TRAMP_NUM];
 154 } MonoAotFileInfo;
 155
 156 /* Per-domain information maintained by the JIT */
 157 typedef struct
 158 {
 159         /* Maps MonoMethod's to a GSList of GOT slot addresses pointing to its code */
 160         GHashTable *jump_target_got_slot_hash;
 161         GHashTable *jump_target_hash;
 162         /* Maps methods/klasses to the address of the given type of trampoline */
 163         GHashTable *class_init_trampoline_hash;
 164         GHashTable *jump_trampoline_hash;
 165         GHashTable *jit_trampoline_hash;
 166         GHashTable *delegate_trampoline_hash;
 167         GHashTable *static_rgctx_trampoline_hash;
 168         GHashTable *llvm_vcall_trampoline_hash;
 169         /* maps MonoMethod -> MonoJitDynamicMethodInfo */
 170         GHashTable *dynamic_code_hash;
 171         GHashTable *method_code_hash;
 172         /* Maps methods to a RuntimeInvokeInfo structure */
 173         GHashTable *runtime_invoke_hash;
 174         /* Maps MonoMethod to a GPtrArray containing sequence point locations */
 175         GHashTable *seq_points;
 176         /* Debugger agent data */
 177         gpointer agent_info;
 178         /* Maps MonoMethod to an arch-specific structure */
 179         GHashTable *arch_seq_points;
 180 } MonoJitDomainInfo;
 181
 182 typedef struct {
 183         MonoJitInfo *ji;
 184         MonoCodeManager *code_mp;
 185 } MonoJitDynamicMethodInfo;
 186
 187 #define domain_jit_info(domain) ((MonoJitDomainInfo*)((domain)->runtime_info))
 188
 189 /* Arch-specific */
 190 typedef struct {
 191         int dummy;
 192 } MonoDynCallInfo;
 193
 194 /*
 195  * Possible frame types returned by the stack walker.
 196  */
 197 typedef enum {
 198         /* Normal managed frames */
 199         FRAME_TYPE_MANAGED = 0,
 200         /* Pseudo frame marking the start of a method invocation done by the soft debugger */
 201         FRAME_TYPE_DEBUGGER_INVOKE = 1,
 202         /* Frame for transitioning to native code */
 203         FRAME_TYPE_MANAGED_TO_NATIVE = 2,
 204         FRAME_TYPE_SENTINEL = 3
 205 } StackFrameType;
 206
 207 /*
 208  * Information about a stack frame
 209  */
 210 typedef struct {
 211         StackFrameType type;
 212         /*
 213          * For FRAME_TYPE_MANAGED.
 214          * For FRAME_TYPE_MANAGED_TO_NATIVE, the ji for the method which transitioned to
 215          * native code, if there is one, else NULL.
 216          */
 217         MonoJitInfo *ji;
 218         /*
 219          * For FRAME_TYPE_MANAGED_TO_NATIVE, it is either the method which transitioned
 220          * to native code, or the method which was JITted.
 221          */
 222         MonoMethod *method;
 223         /* The domain containing the code executed by this frame */
 224         MonoDomain *domain;
 225         gboolean managed;
 226         int native_offset;
 227         int il_offset;
 228         gpointer lmf;
 229 } StackFrameInfo;
 230
 231 typedef struct {
 232         int il_offset, native_offset;
 233         /* Indexes of successor sequence points */
 234         int *next;
 235         /* Number of entries in next */
 236         int next_len;
 237 } SeqPoint;
 238
 239 typedef struct {
 240         int len;
 241         SeqPoint seq_points [MONO_ZERO_LEN_ARRAY];
 242 } MonoSeqPointInfo;
 243
 244 #if 0
 245 #define mono_bitset_foreach_bit(set,b,n) \
 246         for (b = 0; b < n; b++)\
 247                 if (mono_bitset_test_fast(set,b))
 248 #define mono_bitset_foreach_bit_rev(set,b,n) \
 249         for (b = n - 1; b >= 0; b--)\
 250                 if (mono_bitset_test_fast(set,b))
 251 #else
 252 #define mono_bitset_foreach_bit(set,b,n) \
 253         for (b = mono_bitset_find_start (set); b < n && b >= 0; b = mono_bitset_find_first (set, b))
 254 #define mono_bitset_foreach_bit_rev(set,b,n) \
 255         for (b = mono_bitset_find_last (set, n - 1); b >= 0; b = b ? mono_bitset_find_last (set, b) : -1)
 256
 257 #endif
 258
 259 /*
 260  * Pull the list of opcodes
 261  */
 262 #define OPDEF(a,b,c,d,e,f,g,h,i,j) \
 263         a = i,
 264
 265 enum {
 266 #include "mono/cil/opcode.def"
 267         CEE_LASTOP
 268 };
 269 #undef OPDEF
 270
 271 #define MONO_VARINFO(cfg,varnum) (&(cfg)->vars [varnum])
 272
 273 #define MONO_INST_NULLIFY_SREGS(dest) do {                              \
 274                 (dest)->sreg1 = (dest)->sreg2 = (dest)->sreg3 = -1;     \
 275         } while (0)
 276
 277 #define MONO_INST_NEW(cfg,dest,op) do { \
 278                 (dest) = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst));       \
 279                 (dest)->opcode = (op);  \
 280                 (dest)->dreg = -1;                          \
 281                 MONO_INST_NULLIFY_SREGS ((dest));           \
 282         (dest)->cil_code = (cfg)->ip;  \
 283         } while (0)
 284
 285 #define MONO_INST_NEW_CALL(cfg,dest,op) do {    \
 286                 (dest) = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoCallInst));   \
 287                 (dest)->inst.opcode = (op);     \
 288                 (dest)->inst.dreg = -1;                                 \
 289                 MONO_INST_NULLIFY_SREGS (&(dest)->inst);                \
 290         (dest)->inst.cil_code = (cfg)->ip;  \
 291         } while (0)
 292
 293 #define MONO_INST_NEW_CALL_ARG(cfg,dest,op) do {        \
 294                 (dest) = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoCallArgParm));        \
 295                 (dest)->ins.opcode = (op);      \
 296         } while (0)
 297
 298 #define MONO_ADD_INS(b,inst) do {       \
 299                 if ((b)->last_ins) {    \
 300                         (b)->last_ins->next = (inst);   \
 301             (inst)->prev = (b)->last_ins;   \
 302                         (b)->last_ins = (inst); \
 303                 } else {        \
 304                         (b)->code = (b)->last_ins = (inst);     \
 305                 }       \
 306         } while (0)
 307
 308 #define NULLIFY_INS(ins) do { \
 309         (ins)->opcode = OP_NOP; \
 310         (ins)->dreg = -1;                               \
 311         MONO_INST_NULLIFY_SREGS ((ins));                \
 312     } while (0)
 313
 314 /* Remove INS from BB */
 315 #define MONO_REMOVE_INS(bb,ins) do { \
 316         if ((ins)->prev) \
 317             (ins)->prev->next = (ins)->next; \
 318         if ((ins)->next) \
 319             (ins)->next->prev = (ins)->prev; \
 320         if ((bb)->code == (ins)) \
 321             (bb)->code = (ins)->next; \
 322         if ((bb)->last_ins == (ins)) \
 323             (bb)->last_ins = (ins)->prev; \
 324     } while (0)
 325
 326 /* Remove INS from BB and nullify it */
 327 #define MONO_DELETE_INS(bb,ins) do { \
 328         MONO_REMOVE_INS ((bb), (ins)); \
 329         NULLIFY_INS ((ins)); \
 330     } while (0)
 331
 332 /*
 333  * this is used to determine when some branch optimizations are possible: we exclude FP compares
 334  * because they have weird semantics with NaNs.
 335  */
 336 #define MONO_IS_COND_BRANCH_OP(ins) (((ins)->opcode >= OP_LBEQ && (ins)->opcode <= OP_LBLT_UN) || ((ins)->opcode >= OP_FBEQ && (ins)->opcode <= OP_FBLT_UN) || ((ins)->opcode >= OP_IBEQ && (ins)->opcode <= OP_IBLT_UN))
 337 #define MONO_IS_COND_BRANCH_NOFP(ins) (MONO_IS_COND_BRANCH_OP(ins) && !(((ins)->opcode >= OP_FBEQ) && ((ins)->opcode <= OP_FBLT_UN)) && (!(ins)->inst_left || (ins)->inst_left->inst_left->type != STACK_R8))
 338
 339 #define MONO_IS_BRANCH_OP(ins) (MONO_IS_COND_BRANCH_OP(ins) || ((ins)->opcode == OP_BR) || ((ins)->opcode == OP_BR_REG) || ((ins)->opcode == OP_SWITCH))
 340
 341 #define MONO_IS_COND_EXC(ins) ((((ins)->opcode >= OP_COND_EXC_EQ) && ((ins)->opcode <= OP_COND_EXC_LT_UN)) || (((ins)->opcode >= OP_COND_EXC_IEQ) && ((ins)->opcode <= OP_COND_EXC_ILT_UN)))
 342
 343 #define MONO_IS_SETCC(ins) ((((ins)->opcode >= OP_CEQ) && ((ins)->opcode <= OP_CLT_UN)) || (((ins)->opcode >= OP_ICEQ) && ((ins)->opcode <= OP_ICLT_UN)) || (((ins)->opcode >= OP_LCEQ) && ((ins)->opcode <= OP_LCLT_UN)) || (((ins)->opcode >= OP_FCEQ) && ((ins)->opcode <= OP_FCLT_UN)))
 344
 345
 346 #define MONO_IS_LOAD_MEMBASE(ins) (((ins)->opcode >= OP_LOAD_MEMBASE) && ((ins)->opcode <= OP_LOADV_MEMBASE))
 347 #define MONO_IS_STORE_MEMBASE(ins) (((ins)->opcode >= OP_STORE_MEMBASE_REG) && ((ins)->opcode <= OP_STOREV_MEMBASE))
 348 #define MONO_IS_STORE_MEMINDEX(ins) (((ins)->opcode >= OP_STORE_MEMINDEX) && ((ins)->opcode <= OP_STORER8_MEMINDEX))
 349
 350 #define MONO_IS_CALL(ins) (((ins->opcode >= OP_VOIDCALL) && (ins->opcode <= OP_VOIDCALL_MEMBASE)) || ((ins->opcode >= OP_FCALL) && (ins->opcode <= OP_FCALL_MEMBASE)) || ((ins->opcode >= OP_LCALL) && (ins->opcode <= OP_LCALL_MEMBASE)) || ((ins->opcode >= OP_VCALL) && (ins->opcode <= OP_VCALL_MEMBASE)) || ((ins->opcode >= OP_CALL) && (ins->opcode <= OP_CALL_MEMBASE)) || ((ins->opcode >= OP_VCALL2) && (ins->opcode <= OP_VCALL2_MEMBASE)) || (ins->opcode == OP_TAILCALL))
 351
 352 #define MONO_IS_JUMP_TABLE(ins) (((ins)->opcode == OP_JUMP_TABLE) ? TRUE : ((((ins)->opcode == OP_AOTCONST) && (ins->inst_i1 == (gpointer)MONO_PATCH_INFO_SWITCH)) ? TRUE : ((ins)->opcode == OP_SWITCH) ? TRUE : ((((ins)->opcode == OP_GOT_ENTRY) && ((ins)->inst_right->inst_i1 == (gpointer)MONO_PATCH_INFO_SWITCH)) ? TRUE : FALSE)))
 353
 354 #define MONO_JUMP_TABLE_FROM_INS(ins) (((ins)->opcode == OP_JUMP_TABLE) ? (ins)->inst_p0 : (((ins)->opcode == OP_AOTCONST) && (ins->inst_i1 == (gpointer)MONO_PATCH_INFO_SWITCH) ? (ins)->inst_p0 : (((ins)->opcode == OP_SWITCH) ? (ins)->inst_p0 : ((((ins)->opcode == OP_GOT_ENTRY) && ((ins)->inst_right->inst_i1 == (gpointer)MONO_PATCH_INFO_SWITCH)) ? (ins)->inst_right->inst_p0 : NULL))))
 355
 356 /* FIXME: Add more instructions */
 357 #define MONO_INS_HAS_NO_SIDE_EFFECT(ins) (MONO_IS_MOVE (ins) || (ins->opcode == OP_ICONST) || (ins->opcode == OP_I8CONST) || MONO_IS_ZERO (ins) || (ins->opcode == OP_ADD_IMM) || (ins->opcode == OP_R8CONST) || (ins->opcode == OP_LADD_IMM) || (ins->opcode == OP_ISUB_IMM) || (ins->opcode == OP_IADD_IMM) || (ins->opcode == OP_INEG) || (ins->opcode == OP_LNEG) || (ins->opcode == OP_ISUB) || (ins->opcode == OP_CMOV_IGE) || (ins->opcode == OP_ISHL_IMM) || (ins->opcode == OP_ISHR_IMM) || (ins->opcode == OP_ISHR_UN_IMM) || (ins->opcode == OP_IAND_IMM) || (ins->opcode == OP_ICONV_TO_U1) || (ins->opcode == OP_ICONV_TO_I1) || (ins->opcode == OP_SEXT_I4) || (ins->opcode == OP_LCONV_TO_U1) || (ins->opcode == OP_ICONV_TO_U2) || (ins->opcode == OP_ICONV_TO_I2) || (ins->opcode == OP_LCONV_TO_I2))
 358
 359 #define MONO_METHOD_IS_FINAL(m) (((m)->flags & METHOD_ATTRIBUTE_FINAL) || ((m)->klass && ((m)->klass->flags & TYPE_ATTRIBUTE_SEALED)))
 360
 361
 362 #ifdef MONO_ARCH_SIMD_INTRINSICS
 363
 364 #define MONO_IS_PHI(ins) (((ins)->opcode == OP_PHI) || ((ins)->opcode == OP_FPHI) || ((ins)->opcode == OP_VPHI)  || ((ins)->opcode == OP_XPHI))
 365 #define MONO_IS_MOVE(ins) (((ins)->opcode == OP_MOVE) || ((ins)->opcode == OP_FMOVE) || ((ins)->opcode == OP_VMOVE) || ((ins)->opcode == OP_XMOVE))
 366 #define MONO_IS_NON_FP_MOVE(ins) (((ins)->opcode == OP_MOVE) || ((ins)->opcode == OP_VMOVE) || ((ins)->opcode == OP_XMOVE))
 367 #define MONO_IS_REAL_MOVE(ins) (((ins)->opcode == OP_MOVE) || ((ins)->opcode == OP_FMOVE) || ((ins)->opcode == OP_XMOVE))
 368 #define MONO_IS_ZERO(ins) (((ins)->opcode == OP_VZERO) || ((ins)->opcode == OP_XZERO))
 369
 370 #define MONO_CLASS_IS_SIMD(cfg, klass) (((cfg)->opt & MONO_OPT_SIMD) && (klass)->simd_type)
 371
 372 #else
 373
 374 #define MONO_IS_PHI(ins) (((ins)->opcode == OP_PHI) || ((ins)->opcode == OP_FPHI) || ((ins)->opcode == OP_VPHI))
 375 #define MONO_IS_MOVE(ins) (((ins)->opcode == OP_MOVE) || ((ins)->opcode == OP_FMOVE) || ((ins)->opcode == OP_VMOVE))
 376 #define MONO_IS_NON_FP_MOVE(ins) (((ins)->opcode == OP_MOVE) || ((ins)->opcode == OP_VMOVE))
 377 /*A real MOVE is one that isn't decomposed such as a VMOVE or LMOVE*/
 378 #define MONO_IS_REAL_MOVE(ins) (((ins)->opcode == OP_MOVE) || ((ins)->opcode == OP_FMOVE))
 379 #define MONO_IS_ZERO(ins) ((ins)->opcode == OP_VZERO)
 380
 381 #define MONO_CLASS_IS_SIMD(cfg, klass) (0)
 382
 383 #endif
 384
 385 typedef struct MonoInstList MonoInstList;
 386 typedef struct MonoInst MonoInst;
 387 typedef struct MonoCallInst MonoCallInst;
 388 typedef struct MonoCallArgParm MonoCallArgParm;
 389 typedef struct MonoMethodVar MonoMethodVar;
 390 typedef struct MonoBasicBlock MonoBasicBlock;
 391 typedef struct MonoLMF MonoLMF;
 392 typedef struct MonoSpillInfo MonoSpillInfo;
 393 typedef struct MonoTraceSpec MonoTraceSpec;
 394
 395 extern guint32 mono_jit_tls_id;
 396 extern MonoTraceSpec *mono_jit_trace_calls;
 397 extern gboolean mono_break_on_exc;
 398 extern int mono_exc_esp_offset;
 399 extern gboolean mono_compile_aot;
 400 extern gboolean mono_aot_only;
 401 extern gboolean mono_use_imt;
 402 extern MonoMethodDesc *mono_inject_async_exc_method;
 403 extern int mono_inject_async_exc_pos;
 404 extern MonoMethodDesc *mono_break_at_bb_method;
 405 extern int mono_break_at_bb_bb_num;
 406 extern gboolean check_for_pending_exc;
 407 extern gboolean disable_vtypes_in_regs;
 408 extern gboolean mono_verify_all;
 409 extern gboolean mono_dont_free_global_codeman;
 410 extern gboolean mono_do_x86_stack_align;
 411 extern const char *mono_build_date;
 412 extern gboolean mono_do_signal_chaining;
 413 extern gboolean mono_use_llvm;
 414
 415 #define INS_INFO(opcode) (&ins_info [((opcode) - OP_START - 1) * 4])
 416
 417 extern const char ins_info[];
 418 extern const gint8 ins_sreg_counts [];
 419
 420 #define mono_inst_get_num_src_registers(ins) (ins_sreg_counts [(ins)->opcode - OP_START - 1])
 421 #define mono_inst_get_src_registers(ins, regs) (((regs) [0] = (ins)->sreg1), ((regs) [1] = (ins)->sreg2), ((regs) [2] = (ins)->sreg3), mono_inst_get_num_src_registers ((ins)))
 422
 423 #define MONO_BB_FOR_EACH_INS(bb, ins) for ((ins) = (bb)->code; (ins); (ins) = (ins)->next)
 424
 425 #define MONO_BB_FOR_EACH_INS_SAFE(bb, n, ins) for ((ins) = (bb)->code, n = (ins) ? (ins)->next : NULL; (ins); (ins) = (n), (n) = (ins) ? (ins)->next : NULL)
 426
 427 #define MONO_BB_FOR_EACH_INS_REVERSE_SAFE(bb, p, ins) for ((ins) = (bb)->last_ins, p = (ins) ? (ins)->prev : NULL; (ins); (ins) = (p), (p) = (ins) ? (ins)->prev : NULL)
 428
 429 #define mono_bb_first_ins(bb) (bb)->code
 430
 431 struct MonoSpillInfo {
 432         int offset;
 433 };
 434
 435 /*
 436  * The IR-level extended basic block.
 437  *
 438  * A basic block can have multiple exits just fine, as long as the point of
 439  * 'departure' is the last instruction in the basic block. Extended basic
 440  * blocks, on the other hand, may have instructions that leave the block
 441  * midstream. The important thing is that they cannot be _entered_
 442  * midstream, ie, execution of a basic block (or extened bb) always start
 443  * at the beginning of the block, never in the middle.
 444  */
 445 struct MonoBasicBlock {
 446         MonoInst *last_ins;
 447
 448         /* the next basic block in the order it appears in IL */
 449         MonoBasicBlock *next_bb;
 450
 451         /*
 452          * Before instruction selection it is the first tree in the
 453          * forest and the first item in the list of trees. After
 454          * instruction selection it is the first instruction and the
 455          * first item in the list of instructions.
 456          */
 457         MonoInst *code;
 458
 459         /* unique block number identification */
 460         gint32 block_num;
 461
 462         gint32 dfn;
 463
 464         /* Basic blocks: incoming and outgoing counts and pointers */
 465         /* Each bb should only appear once in each array */
 466         gint16 out_count, in_count;
 467         MonoBasicBlock **in_bb;
 468         MonoBasicBlock **out_bb;
 469
 470         /* Points to the start of the CIL code that initiated this BB */
 471         unsigned char* cil_code;
 472
 473         /* Length of the CIL block */
 474         gint32 cil_length;
 475
 476         /* The offset of the generated code, used for fixups */
 477         int native_offset;
 478         int native_length;
 479         int max_offset;
 480         int max_length;
 481
 482         /* Visited and reachable flags */
 483         guint32 flags;
 484
 485         /*
 486          * SSA and loop based flags
 487          */
 488         MonoBitSet *dominators;
 489         MonoBitSet *dfrontier;
 490         MonoBasicBlock *idom;
 491         GSList *dominated;
 492         /* fast dominator algorithm */
 493         MonoBasicBlock *df_parent, *ancestor, *child, *label;
 494         int size, sdom, idomn;
 495
 496         /* loop nesting and recognition */
 497         GList *loop_blocks;
 498         gint8  nesting;
 499         gint8  loop_body_start;
 500
 501         /*
 502          * Whenever the bblock is rarely executed so it should be emitted after
 503          * the function epilog.
 504          */
 505         guint out_of_line : 1;
 506         /* Caches the result of uselessness calculation during optimize_branches */
 507         guint not_useless : 1;
 508         /* Whenever the decompose_array_access_opts () pass needs to process this bblock */
 509         guint has_array_access : 1;
 510         /* Whenever this bblock is extended, ie. it has branches inside it */
 511         guint extended : 1;
 512         /* Whenever this bblock contains a OP_JUMP_TABLE instruction */
 513         guint has_jump_table : 1;
 514         /* Whenever this bblock contains an OP_CALL_HANDLER instruction */
 515         guint has_call_handler : 1;
 516
 517         /* use for liveness analysis */
 518         MonoBitSet *gen_set;
 519         MonoBitSet *kill_set;
 520         MonoBitSet *live_in_set;
 521         MonoBitSet *live_out_set;
 522
 523         /* fields to deal with non-empty stack slots at bb boundary */
 524         guint16 out_scount, in_scount;
 525         MonoInst **out_stack;
 526         MonoInst **in_stack;
 527
 528         /* we use that to prevent merging of bblocks covered by different clauses*/
 529         guint real_offset;
 530
 531         GSList *seq_points;
 532         MonoInst *last_seq_point;
 533
 534         /*
 535          * The region encodes whether the basic block is inside
 536          * a finally, catch, filter or none of these.
 537          *
 538          * If the value is -1, then it is neither finally, catch nor filter
 539          *
 540          * Otherwise the format is:
 541          *
 542          *  Bits: |     0-3      |       4-7      |     8-31
 543          *        |              |                |
 544          *        | clause-flags |   MONO_REGION  | clause-index
 545          *
 546          */
 547         guint region;
 548
 549         /* The current symbolic register number, used in local register allocation. */
 550         guint32 max_vreg;
 551 };
 552
 553 /* BBlock flags */
 554 enum {
 555         BB_VISITED            = 1 << 0,
 556         BB_REACHABLE          = 1 << 1,
 557         BB_EXCEPTION_DEAD_OBJ = 1 << 2,
 558         BB_EXCEPTION_UNSAFE   = 1 << 3,
 559         BB_EXCEPTION_HANDLER  = 1 << 4
 560 };
 561
 562 typedef struct MonoMemcpyArgs {
 563         int size, align;
 564 } MonoMemcpyArgs;
 565
 566 typedef enum {
 567         LLVMArgNone,
 568         LLVMArgInIReg,
 569         LLVMArgInFPReg,
 570         LLVMArgVtypeInReg,
 571         LLVMArgVtypeByVal,
 572         LLVMArgVtypeRetAddr /* On on cinfo->ret */
 573 } LLVMArgStorage;
 574
 575 typedef struct {
 576         LLVMArgStorage storage;
 577
 578         /* Only if storage == ArgValuetypeInReg */
 579         LLVMArgStorage pair_storage [2];
 580 } LLVMArgInfo;
 581
 582 typedef struct {
 583         LLVMArgInfo ret;
 584         /* args [0] is for the this argument if it exists */
 585         LLVMArgInfo args [1];
 586 } LLVMCallInfo;
 587
 588 #define MONO_MAX_SRC_REGS       3
 589
 590 struct MonoInst {
 591         guint16 opcode;
 592         guint8  type; /* stack type */
 593         guint8  flags;
 594
 595         /* used by the register allocator */
 596         gint32 dreg, sreg1, sreg2, sreg3;
 597
 598         MonoInst *next, *prev;
 599
 600         union {
 601                 union {
 602                         MonoInst *src;
 603                         MonoMethodVar *var;
 604                         mgreg_t const_val;
 605 #if (SIZEOF_REGISTER > SIZEOF_VOID_P) && (G_BYTE_ORDER == G_BIG_ENDIAN)
 606                         struct {
 607                                 gpointer p[SIZEOF_REGISTER/SIZEOF_VOID_P];
 608                         } pdata;
 609 #else
 610                         gpointer p;
 611 #endif
 612                         MonoMethod *method;
 613                         MonoMethodSignature *signature;
 614                         MonoBasicBlock **many_blocks;
 615                         MonoBasicBlock *target_block;
 616                         MonoInst **args;
 617                         MonoType *vtype;
 618                         MonoClass *klass;
 619                         int *phi_args;
 620                         MonoCallInst *call_inst;
 621                         MonoExceptionClause *exception_clause;
 622                 } op [2];
 623                 gint64 i8const;
 624                 double r8const;
 625         } data;
 626
 627         const unsigned char* cil_code; /* for debugging and bblock splitting */
 628
 629         /* used mostly by the backend to store additional info it may need */
 630         union {
 631                 gint32 reg3;
 632                 gint32 arg_info;
 633                 gint32 size;
 634                 MonoMemcpyArgs *memcpy_args; /* in OP_MEMSET and OP_MEMCPY */
 635                 gpointer data;
 636                 gint shift_amount;
 637                 gboolean is_pinvoke; /* for variables in the unmanaged marshal format */
 638                 gboolean record_cast_details; /* For CEE_CASTCLASS */
 639                 MonoInst *spill_var; /* for OP_ICONV_TO_R8_RAW and OP_FCONV_TO_R8_X */
 640                 guint16 source_opcode; /*OP_XCONV_R8_TO_I4 needs to know which op was used to do proper widening*/
 641         } backend;
 642
 643         MonoClass *klass;
 644 };
 645
 646 struct MonoCallInst {
 647         MonoInst inst;
 648         MonoMethodSignature *signature;
 649         MonoMethod *method;
 650         MonoInst **args;
 651         MonoInst *out_args;
 652         MonoInst *vret_var;
 653         gconstpointer fptr;
 654         guint stack_usage;
 655         guint virtual : 1;
 656         guint tail_call : 1;
 657         /* If this is TRUE, 'fptr' points to a MonoJumpInfo instead of an address. */
 658         guint fptr_is_patch : 1;
 659         /*
 660          * If this is true, then the call returns a vtype in a register using the same
 661          * calling convention as OP_CALL.
 662          */
 663         guint vret_in_reg : 1;
 664         /* Whenever there is an IMT argument and it is dynamic */
 665         guint dynamic_imt_arg : 1;
 666         /* Whenever there is an RGCTX argument */
 667         guint32 rgctx_reg : 1;
 668         regmask_t used_iregs;
 669         regmask_t used_fregs;
 670         GSList *out_ireg_args;
 671         GSList *out_freg_args;
 672 #ifdef ENABLE_LLVM
 673         LLVMCallInfo *cinfo;
 674 #endif
 675 };
 676
 677 struct MonoCallArgParm {
 678         MonoInst ins;
 679         gint32 size;
 680         gint32 offset;
 681         gint32 offPrm;
 682 };
 683
 684 /*
 685  * flags for MonoInst
 686  * Note: some of the values overlap, because they can't appear
 687  * in the same MonoInst.
 688  */
 689 enum {
 690         MONO_INST_HAS_METHOD = 1,
 691         MONO_INST_INIT       = 1, /* in localloc */
 692         MONO_INST_SINGLE_STEP_LOC = 1, /* in SEQ_POINT */
 693         MONO_INST_IS_DEAD    = 2,
 694         MONO_INST_TAILCALL   = 4,
 695         MONO_INST_VOLATILE   = 4,
 696         MONO_INST_NOTYPECHECK    = 4,
 697         MONO_INST_UNALIGNED  = 8,
 698     MONO_INST_CFOLD_TAKEN = 8, /* On branches */
 699     MONO_INST_CFOLD_NOT_TAKEN = 16, /* On branches */
 700         MONO_INST_DEFINITION_HAS_SIDE_EFFECTS = 8,
 701         /* the address of the variable has been taken */
 702         MONO_INST_INDIRECT   = 16,
 703         MONO_INST_NORANGECHECK   = 16,
 704         /* On loads, the source address can be null */
 705         MONO_INST_FAULT = 32
 706 };
 707
 708 #define inst_c0 data.op[0].const_val
 709 #define inst_c1 data.op[1].const_val
 710 #define inst_i0 data.op[0].src
 711 #define inst_i1 data.op[1].src
 712 #if (SIZEOF_REGISTER > SIZEOF_VOID_P) && (G_BYTE_ORDER == G_BIG_ENDIAN)
 713 #define inst_p0 data.op[0].pdata.p[SIZEOF_REGISTER/SIZEOF_VOID_P - 1]
 714 #define inst_p1 data.op[1].pdata.p[SIZEOF_REGISTER/SIZEOF_VOID_P - 1]
 715 #else
 716 #define inst_p0 data.op[0].p
 717 #define inst_p1 data.op[1].p
 718 #endif
 719 #define inst_l  data.i8const
 720 #define inst_r  data.r8const
 721 #define inst_left  data.op[0].src
 722 #define inst_right data.op[1].src
 723
 724 #define inst_newa_len   data.op[0].src
 725 #define inst_newa_class data.op[1].klass
 726
 727 #define inst_var    data.op[0].var
 728 #define inst_vtype  data.op[1].vtype
 729 /* in branch instructions */
 730 #define inst_many_bb   data.op[1].many_blocks
 731 #define inst_target_bb data.op[0].target_block
 732 #define inst_true_bb   data.op[1].many_blocks[0]
 733 #define inst_false_bb  data.op[1].many_blocks[1]
 734
 735 #define inst_basereg sreg1
 736 #define inst_indexreg sreg2
 737 #define inst_destbasereg dreg
 738 #define inst_offset data.op[0].const_val
 739 #define inst_imm    data.op[1].const_val
 740 #define inst_call   data.op[1].call_inst
 741
 742 #define inst_phi_args   data.op[1].phi_args
 743 #define inst_eh_block    data.op[1].exception_clause
 744
 745 /* instruction description for use in regalloc/scheduling */
 746 enum {
 747         MONO_INST_DEST,
 748         MONO_INST_SRC1,         /* we depend on the SRCs to be consecutive */
 749         MONO_INST_SRC2,
 750         MONO_INST_SRC3,
 751         MONO_INST_LEN,
 752         MONO_INST_CLOB,
 753         /* Unused, commented out to reduce the size of the mdesc tables
 754         MONO_INST_FLAGS,
 755         MONO_INST_COST,
 756         MONO_INST_DELAY,
 757         MONO_INST_RES,
 758         */
 759         MONO_INST_MAX
 760 };
 761
 762 typedef union {
 763         struct {
 764                 guint16 tid; /* tree number */
 765                 guint16 bid; /* block number */
 766         } pos ;
 767         guint32 abs_pos;
 768 } MonoPosition;
 769
 770 typedef struct {
 771         MonoPosition first_use, last_use;
 772 } MonoLiveRange;
 773
 774 typedef struct MonoLiveRange2 MonoLiveRange2;
 775
 776 struct MonoLiveRange2 {
 777         int from, to;
 778         MonoLiveRange2 *next;
 779 };
 780
 781 typedef struct {
 782         /* List of live ranges sorted by 'from' */
 783         MonoLiveRange2 *range;
 784         MonoLiveRange2 *last_range;
 785 } MonoLiveInterval;
 786
 787 /*
 788  * Additional information about a variable
 789  */
 790 struct MonoMethodVar {
 791         guint           idx; /* inside cfg->varinfo, cfg->vars */
 792         MonoLiveRange   range; /* generated by liveness analysis */
 793         MonoLiveInterval *interval; /* generated by liveness analysis */
 794         int             reg; /* != -1 if allocated into a register */
 795         int             spill_costs;
 796         MonoBitSet     *def_in; /* used by SSA */
 797         MonoInst       *def;    /* used by SSA */
 798         MonoBasicBlock *def_bb; /* used by SSA */
 799         GList          *uses;   /* used by SSA */
 800         char            cpstate;  /* used by SSA conditional  constant propagation */
 801         /* The native offsets corresponding to the live range of the variable */
 802         gint32         live_range_start, live_range_end;
 803         /*
 804          * cfg->varinfo [idx]->dreg could be replaced for OP_REGVAR, this contains the
 805          * original vreg.
 806          */
 807         gint32         vreg;
 808 };
 809
 810 typedef struct {
 811         gpointer          end_of_stack;
 812         guint32           stack_size;
 813 #if !defined(HAVE_KW_THREAD) || !defined(MONO_ARCH_ENABLE_MONO_LMF_VAR)
 814         MonoLMF          *lmf;
 815 #endif
 816         MonoLMF          *first_lmf;
 817         gpointer         restore_stack_prot;
 818         guint32          handling_stack_ovf;
 819         gpointer         signal_stack;
 820         guint32          signal_stack_size;
 821         gpointer         stack_ovf_guard_base;
 822         guint32          stack_ovf_guard_size;
 823         guint            stack_ovf_valloced : 1;
 824         void            (*abort_func) (MonoObject *object);
 825         /* Used to implement --debug=casts */
 826         MonoClass       *class_cast_from, *class_cast_to;
 827
 828         /* Stores state needed by mono_resume_unwind () and the handler block with a guard */
 829         MonoContext     ex_ctx;
 830         /* FIXME: GC */
 831         gpointer        ex_obj;
 832         /* handle block return address */
 833         gpointer handler_block_return_address;
 834         /* handler block been guarded */
 835         MonoJitExceptionInfo *handler_block;
 836 } MonoJitTlsData;
 837
 838 typedef enum {
 839 #define PATCH_INFO(a,b) MONO_PATCH_INFO_ ## a,
 840 #include "patch-info.h"
 841 #undef PATCH_INFO
 842         MONO_PATCH_INFO_NUM
 843 } MonoJumpInfoType;
 844
 845 /*
 846  * We need to store the image which the token refers to along with the token,
 847  * since the image might not be the same as the image of the method which
 848  * contains the relocation, because of inlining.
 849  */
 850 typedef struct MonoJumpInfoToken {
 851         MonoImage *image;
 852         guint32 token;
 853         gboolean has_context;
 854         MonoGenericContext context;
 855 } MonoJumpInfoToken;
 856
 857 typedef struct MonoJumpInfoBBTable {
 858         MonoBasicBlock **table;
 859         int table_size;
 860 } MonoJumpInfoBBTable;
 861
 862 typedef struct MonoJumpInfoRgctxEntry MonoJumpInfoRgctxEntry;
 863
 864 /* Contains information describing an LLVM IMT trampoline */
 865 typedef struct MonoJumpInfoImtTramp {
 866         MonoMethod *method;
 867         int vt_offset;
 868 } MonoJumpInfoImtTramp;
 869
 870 typedef struct MonoJumpInfo MonoJumpInfo;
 871 struct MonoJumpInfo {
 872         MonoJumpInfo *next;
 873         union {
 874                 int i;
 875                 guint8 *p;
 876                 MonoInst *label;
 877         } ip;
 878
 879         MonoJumpInfoType type;
 880         union {
 881                 gconstpointer   target;
 882 #if SIZEOF_VOID_P == 8
 883                 gint64          offset;
 884 #else
 885                 int             offset;
 886 #endif
 887                 MonoBasicBlock *bb;
 888                 MonoInst       *inst;
 889                 MonoMethod     *method;
 890                 MonoClass      *klass;
 891                 MonoClassField *field;
 892                 MonoImage      *image;
 893                 MonoVTable     *vtable;
 894                 const char     *name;
 895                 MonoJumpInfoToken  *token;
 896                 MonoJumpInfoBBTable *table;
 897                 MonoJumpInfoRgctxEntry *rgctx_entry;
 898                 MonoJumpInfoImtTramp *imt_tramp;
 899         } data;
 900 };
 901
 902 /* Contains information describing an rgctx entry */
 903 struct MonoJumpInfoRgctxEntry {
 904         MonoMethod *method;
 905         gboolean in_mrgctx;
 906         MonoJumpInfo *data; /* describes the data to be loaded */
 907         int info_type;
 908 };
 909
 910 typedef enum {
 911         MONO_TRAMPOLINE_JIT,
 912         MONO_TRAMPOLINE_JUMP,
 913         MONO_TRAMPOLINE_CLASS_INIT,
 914         MONO_TRAMPOLINE_GENERIC_CLASS_INIT,
 915         MONO_TRAMPOLINE_RGCTX_LAZY_FETCH,
 916         MONO_TRAMPOLINE_AOT,
 917         MONO_TRAMPOLINE_AOT_PLT,
 918         MONO_TRAMPOLINE_DELEGATE,
 919         MONO_TRAMPOLINE_RESTORE_STACK_PROT,
 920         MONO_TRAMPOLINE_GENERIC_VIRTUAL_REMOTING,
 921         MONO_TRAMPOLINE_MONITOR_ENTER,
 922         MONO_TRAMPOLINE_MONITOR_EXIT,
 923 #ifdef MONO_ARCH_LLVM_SUPPORTED
 924         MONO_TRAMPOLINE_LLVM_VCALL,
 925 #endif
 926 #ifdef MONO_ARCH_HAVE_HANDLER_BLOCK_GUARD
 927         MONO_TRAMPOLINE_HANDLER_BLOCK_GUARD,
 928 #endif
 929         MONO_TRAMPOLINE_NUM
 930 } MonoTrampolineType;
 931
 932 #define MONO_TRAMPOLINE_TYPE_MUST_RETURN(t)             \
 933         ((t) == MONO_TRAMPOLINE_CLASS_INIT ||           \
 934          (t) == MONO_TRAMPOLINE_GENERIC_CLASS_INIT ||   \
 935          (t) == MONO_TRAMPOLINE_RESTORE_STACK_PROT ||   \
 936          (t) == MONO_TRAMPOLINE_RGCTX_LAZY_FETCH ||     \
 937          (t) == MONO_TRAMPOLINE_MONITOR_ENTER ||        \
 938          (t) == MONO_TRAMPOLINE_MONITOR_EXIT)
 939
 940 /* optimization flags */
 941 #define OPTFLAG(id,shift,name,descr) MONO_OPT_ ## id = 1 << shift,
 942 enum {
 943 #include "optflags-def.h"
 944         MONO_OPT_LAST
 945 };
 946
 947 /* Bit-fields in the MonoBasicBlock.region */
 948 #define MONO_REGION_TRY       0
 949 #define MONO_REGION_FINALLY  16
 950 #define MONO_REGION_CATCH    32
 951 #define MONO_REGION_FAULT    64         /* Currently unused */
 952 #define MONO_REGION_FILTER  128
 953
 954 #define MONO_BBLOCK_IS_IN_REGION(bblock, regtype) (((bblock)->region & (0xf << 4)) == (regtype))
 955
 956 #define get_vreg_to_inst(cfg, vreg) ((vreg) < (cfg)->vreg_to_inst_len ? (cfg)->vreg_to_inst [(vreg)] : NULL)
 957
 958 #define vreg_is_volatile(cfg, vreg) (G_UNLIKELY (get_vreg_to_inst ((cfg), (vreg)) && (get_vreg_to_inst ((cfg), (vreg))->flags & (MONO_INST_VOLATILE|MONO_INST_INDIRECT))))
 959
 960 /*
 961  * Control Flow Graph and compilation unit information
 962  */
 963 typedef struct {
 964         MonoMethod      *method;
 965         MonoMethodHeader *header;
 966         MonoMemPool     *mempool;
 967         MonoInst       **varinfo;
 968         MonoMethodVar   *vars;
 969         MonoInst        *ret;
 970         MonoBasicBlock  *bb_entry;
 971         MonoBasicBlock  *bb_exit;
 972         MonoBasicBlock  *bb_init;
 973         MonoBasicBlock **bblocks;
 974         MonoBasicBlock **cil_offset_to_bb;
 975         MonoMemPool     *state_pool; /* used by instruction selection */
 976         MonoBasicBlock  *cbb;        /* used by instruction selection */
 977         MonoInst        *prev_ins;   /* in decompose */
 978         MonoJumpInfo    *patch_info;
 979         MonoJitInfo     *jit_info;
 980         MonoJitDynamicMethodInfo *dynamic_info;
 981         guint            num_bblocks, max_block_num;
 982         guint            locals_start;
 983         guint            num_varinfo; /* used items in varinfo */
 984         guint            varinfo_count; /* total storage in varinfo */
 985         gint             stack_offset;
 986         gint             max_ireg;
 987         gint             cil_offset_to_bb_len;
 988         gint             locals_min_stack_offset, locals_max_stack_offset;
 989         MonoRegState    *rs;
 990         MonoSpillInfo   *spill_info [16]; /* machine register spills */
 991         gint             spill_count;
 992         gint             spill_info_len [16];
 993         /* unsigned char   *cil_code; */
 994         MonoMethod      *inlined_method; /* the method which is currently inlined */
 995         MonoInst        *domainvar; /* a cache for the current domain */
 996         MonoInst        *got_var; /* Global Offset Table variable */
 997         MonoInst        **locals;
 998         MonoInst        *rgctx_var; /* Runtime generic context variable (for static generic methods) */
 999         MonoInst        **args;
1000         MonoType        **arg_types;
1001         MonoMethod      *current_method; /* The method currently processed by method_to_ir () */
1002         MonoMethod      *method_to_register; /* The method to register in JIT info tables */
1003         MonoGenericContext *generic_context;
1004
1005         /*
1006          * This variable represents the hidden argument holding the vtype
1007          * return address. If the method returns something other than a vtype, or
1008          * the vtype is returned in registers this is NULL.
1009          */
1010         MonoInst        *vret_addr;
1011
1012         /*
1013          * This is used to initialize the cil_code field of MonoInst's.
1014          */
1015         const unsigned char *ip;
1016
1017         struct MonoAliasingInformation *aliasing_info;
1018
1019         /* A hashtable of region ID-> SP var mappings */
1020         /* An SP var is a place to store the stack pointer (used by handlers)*/
1021         GHashTable      *spvars;
1022
1023         /* A hashtable of region ID -> EX var mappings */
1024         /* An EX var stores the exception object passed to catch/filter blocks */
1025         GHashTable      *exvars;
1026
1027         GList           *ldstr_list; /* used by AOT */
1028
1029         MonoDomain      *domain;
1030
1031         guint            real_offset;
1032         GHashTable      *cbb_hash;
1033
1034         /* The current virtual register number */
1035         guint32 next_vreg;
1036
1037         MonoGenericSharingContext *generic_sharing_context;
1038
1039         unsigned char   *cil_start;
1040         unsigned char   *native_code;
1041         guint            code_size;
1042         guint            code_len;
1043         guint            prolog_end;
1044         guint            epilog_begin;
1045         regmask_t        used_int_regs;
1046         guint32          opt;
1047         guint32          prof_options;
1048         guint32          flags;
1049         guint32          comp_done;
1050         guint32          verbose_level;
1051         guint32          stack_usage;
1052         guint32          param_area;
1053         guint32          frame_reg;
1054         gint32           sig_cookie;
1055         guint            disable_aot : 1;
1056         guint            disable_ssa : 1;
1057         guint            disable_llvm : 1;
1058         guint            enable_extended_bblocks : 1;
1059         guint            run_cctors : 1;
1060         guint            need_lmf_area : 1;
1061         guint            compile_aot : 1;
1062         guint            compile_llvm : 1;
1063         guint            got_var_allocated : 1;
1064         guint            ret_var_is_local : 1;
1065         guint            ret_var_set : 1;
1066         guint            globalra : 1;
1067         guint            unverifiable : 1;
1068         guint            skip_visibility : 1;
1069         guint            disable_reuse_registers : 1;
1070         guint            disable_reuse_stack_slots : 1;
1071         guint            disable_reuse_ref_stack_slots : 1;
1072         guint            disable_initlocals_opt : 1;
1073         guint            disable_initlocals_opt_refs : 1;
1074         guint            disable_omit_fp : 1;
1075         guint            disable_vreg_to_lvreg : 1;
1076         guint            disable_deadce_vars : 1;
1077         guint            disable_out_of_line_bblocks : 1;
1078         guint            init_ref_vars : 1;
1079         guint            extend_live_ranges : 1;
1080         guint            compute_precise_live_ranges : 1;
1081         guint            has_got_slots : 1;
1082         guint            uses_rgctx_reg : 1;
1083         guint            uses_vtable_reg : 1;
1084         guint            uses_simd_intrinsics : 1;
1085         guint            keep_cil_nops : 1;
1086         guint            gen_seq_points : 1;
1087         guint            explicit_null_checks : 1;
1088         gpointer         debug_info;
1089         guint32          lmf_offset;
1090     guint16          *intvars;
1091         MonoProfileCoverageInfo *coverage_info;
1092         GHashTable       *token_info_hash;
1093         MonoCompileArch  arch;
1094         guint32          inline_depth;
1095         guint32          exception_type;        /* MONO_EXCEPTION_* */
1096         guint32          exception_data;
1097         char*            exception_message;
1098         gpointer         exception_ptr;
1099
1100         guint8 *         encoded_unwind_ops;
1101         guint32          encoded_unwind_ops_len;
1102         GSList*          unwind_ops;
1103
1104         /* Fields used by the local reg allocator */
1105         void*            reginfo;
1106         int              reginfo_len;
1107
1108         /* Maps vregs to their associated MonoInst's */
1109         /* vregs with an associated MonoInst are 'global' while others are 'local' */
1110         MonoInst **vreg_to_inst;
1111
1112         /* Size of above array */
1113         guint32 vreg_to_inst_len;
1114
1115         /*
1116          * The original method to compile, differs from 'method' when doing generic
1117          * sharing.
1118          */
1119         MonoMethod *orig_method;
1120
1121         /* Patches which describe absolute addresses embedded into the native code */
1122         GHashTable *abs_patches;
1123
1124         /* If the arch passes valuetypes by address, then for methods
1125            which use JMP the arch code should use these local
1126            variables to store the addresses of incoming valuetypes.
1127            The addresses should be stored in mono_arch_emit_prolog()
1128            and can be used when emitting code for OP_JMP.  See
1129            mini-ppc.c. */
1130         MonoInst **tailcall_valuetype_addrs;
1131
1132         /* Used to implement iconv_to_r8_raw on archs that can't do raw
1133         copy between an ireg and a freg. This is an int32 var.*/
1134         MonoInst *iconv_raw_var;
1135
1136         /* Used to implement fconv_to_r8_x. This is a double (8 bytes) var.*/
1137         MonoInst *fconv_to_r8_x_var;
1138
1139         /*Use to implement simd constructors. This is a vector (16 bytes) var.*/
1140         MonoInst *simd_ctor_var;
1141
1142         /* Used to implement dyn_call */
1143         MonoInst *dyn_call_var;
1144
1145         /*
1146          * List of sequence points represented as IL offset+native offset pairs.
1147          * Allocated using glib.
1148          * IL offset can be -1 or 0xffffff to refer to the sequence points
1149          * inside the prolog and epilog used to implement method entry/exit events.
1150          */
1151         GPtrArray *seq_points;
1152
1153         /* The encoded sequence point info */
1154         MonoSeqPointInfo *seq_point_info;
1155
1156         /* Method headers which need to be freed after compilation */
1157         GSList *headers_to_free;
1158
1159         /* Used by AOT */
1160         guint32 got_offset, ex_info_offset, method_info_offset;
1161         /* Symbol used to refer to this method in generated assembly */
1162         char *asm_symbol;
1163
1164         MonoJitExceptionInfo *llvm_ex_info;
1165         guint32 llvm_ex_info_len;
1166
1167         GSList *try_block_holes;
1168 } MonoCompile;
1169
1170 typedef enum {
1171         MONO_CFG_HAS_ALLOCA = 1 << 0,
1172         MONO_CFG_HAS_CALLS  = 1 << 1,
1173         MONO_CFG_HAS_LDELEMA  = 1 << 2,
1174         MONO_CFG_HAS_VARARGS  = 1 << 3,
1175         MONO_CFG_HAS_TAIL     = 1 << 4,
1176         MONO_CFG_HAS_FPOUT    = 1 << 5, /* there are fp values passed in int registers */
1177         MONO_CFG_HAS_SPILLUP  = 1 << 6, /* spill var slots are allocated from bottom to top */
1178         MONO_CFG_HAS_CHECK_THIS  = 1 << 7,
1179         MONO_CFG_HAS_ARRAY_ACCESS = 1 << 8
1180 } MonoCompileFlags;
1181
1182 typedef struct {
1183         gulong methods_compiled;
1184         gulong methods_aot;
1185         gulong methods_lookups;
1186         gulong method_trampolines;
1187         gulong allocate_var;
1188         gulong cil_code_size;
1189         gulong native_code_size;
1190         gulong code_reallocs;
1191         gulong max_code_size_ratio;
1192         gulong biggest_method_size;
1193         gulong allocated_code_size;
1194         gulong inlineable_methods;
1195         gulong inlined_methods;
1196         gulong basic_blocks;
1197         gulong max_basic_blocks;
1198         gulong locals_stack_size;
1199         gulong regvars;
1200         gulong cas_declsec_check;
1201         gulong cas_linkdemand_icall;
1202         gulong cas_linkdemand_pinvoke;
1203         gulong cas_linkdemand_aptc;
1204         gulong cas_linkdemand;
1205         gulong cas_demand_generation;
1206         gulong generic_virtual_invocations;
1207         char *max_ratio_method;
1208         char *biggest_method;
1209         gboolean enabled;
1210 } MonoJitStats;
1211
1212 extern MonoJitStats mono_jit_stats;
1213
1214 /* opcodes: value assigned after all the CIL opcodes */
1215 #ifdef MINI_OP
1216 #undef MINI_OP
1217 #endif
1218 #ifdef MINI_OP3
1219 #undef MINI_OP3
1220 #endif
1221 #define MINI_OP(a,b,dest,src1,src2) a,
1222 #define MINI_OP3(a,b,dest,src1,src2,src3) a,
1223 enum {
1224         OP_START = MONO_CEE_LAST - 1,
1225 #include "mini-ops.h"
1226         OP_LAST
1227 };
1228 #undef MINI_OP
1229 #undef MINI_OP3
1230
1231 #if SIZEOF_VOID_P == 8
1232 #define OP_PCONST OP_I8CONST
1233 #define OP_PADD OP_LADD
1234 #define OP_PADD_IMM OP_LADD_IMM
1235 #define OP_PSUB OP_LSUB
1236 #define OP_PMUL OP_LMUL
1237 #define OP_PMUL_IMM OP_LMUL_IMM
1238 #define OP_PNEG OP_LNEG
1239 #define OP_PCONV_TO_I1 OP_LCONV_TO_I1
1240 #define OP_PCONV_TO_U1 OP_LCONV_TO_U1
1241 #define OP_PCONV_TO_I2 OP_LCONV_TO_I2
1242 #define OP_PCONV_TO_U2 OP_LCONV_TO_U2
1243 #define OP_PCONV_TO_OVF_I1_UN OP_LCONV_TO_OVF_I1_UN
1244 #define OP_PCONV_TO_OVF_I1 OP_LCONV_TO_OVF_I1
1245 #define OP_PBEQ OP_LBEQ
1246 #define OP_PCEQ OP_LCEQ
1247 #define OP_PBNE_UN OP_LBNE_UN
1248 #define OP_PBGE_UN OP_LBGE_UN
1249 #define OP_PBLT_UN OP_LBLT_UN
1250 #define OP_PBGE OP_LBGE
1251 #define OP_STOREP_MEMBASE_REG OP_STOREI8_MEMBASE_REG
1252 #define OP_STOREP_MEMBASE_IMM OP_STOREI8_MEMBASE_IMM
1253 #else
1254 #define OP_PCONST OP_ICONST
1255 #define OP_PADD OP_IADD
1256 #define OP_PADD_IMM OP_IADD_IMM
1257 #define OP_PSUB OP_ISUB
1258 #define OP_PMUL OP_IMUL
1259 #define OP_PMUL_IMM OP_IMUL_IMM
1260 #define OP_PNEG OP_INEG
1261 #define OP_PCONV_TO_I1 OP_ICONV_TO_I1
1262 #define OP_PCONV_TO_U1 OP_ICONV_TO_U1
1263 #define OP_PCONV_TO_I2 OP_ICONV_TO_I2
1264 #define OP_PCONV_TO_U2 OP_ICONV_TO_U2
1265 #define OP_PCONV_TO_OVF_I1_UN OP_ICONV_TO_OVF_I1_UN
1266 #define OP_PCONV_TO_OVF_I1 OP_ICONV_TO_OVF_I1
1267 #define OP_PBEQ OP_IBEQ
1268 #define OP_PCEQ OP_ICEQ
1269 #define OP_PBNE_UN OP_IBNE_UN
1270 #define OP_PBGE_UN OP_IBGE_UN
1271 #define OP_PBLT_UN OP_IBLT_UN
1272 #define OP_PBGE OP_IBGE
1273 #define OP_STOREP_MEMBASE_REG OP_STOREI4_MEMBASE_REG
1274 #define OP_STOREP_MEMBASE_IMM OP_STOREI4_MEMBASE_IMM
1275 #endif
1276
1277 /* Opcodes to load/store regsize quantities */
1278 #ifdef __mono_ilp32__
1279 #define OP_LOADR_MEMBASE OP_LOADI8_MEMBASE
1280 #define OP_STORER_MEMBASE_REG OP_STOREI8_MEMBASE_REG
1281 #else
1282 #define OP_LOADR_MEMBASE OP_LOAD_MEMBASE
1283 #define OP_STORER_MEMBASE_REG OP_STORE_MEMBASE_REG
1284 #endif
1285
1286 typedef enum {
1287         STACK_INV,
1288         STACK_I4,
1289         STACK_I8,
1290         STACK_PTR,
1291         STACK_R8,
1292         STACK_MP,
1293         STACK_OBJ,
1294         STACK_VTYPE,
1295         STACK_MAX
1296 } MonoStackType;
1297
1298 typedef struct {
1299         union {
1300                 double   r8;
1301                 gint32   i4;
1302                 gint64   i8;
1303                 gpointer p;
1304                 MonoClass *klass;
1305         } data;
1306         int type;
1307 } StackSlot;
1308
1309 #if HAVE_ARRAY_ELEM_INIT
1310 extern const guint8 mono_burg_arity [];
1311 #else
1312 extern guint8 mono_burg_arity [];
1313 #endif
1314
1315 extern const char MONO_ARCH_CPU_SPEC [] MONO_INTERNAL;
1316 #define MONO_ARCH_CPU_SPEC_IDX_COMBINE(a) a ## _idx
1317 #define MONO_ARCH_CPU_SPEC_IDX(a) MONO_ARCH_CPU_SPEC_IDX_COMBINE(a)
1318 extern const guint16 MONO_ARCH_CPU_SPEC_IDX(MONO_ARCH_CPU_SPEC) [] MONO_INTERNAL;
1319 #define ins_get_spec(op) ((const char*)&MONO_ARCH_CPU_SPEC + MONO_ARCH_CPU_SPEC_IDX(MONO_ARCH_CPU_SPEC)[(op) - OP_LOAD])
1320
1321 enum {
1322         MONO_COMP_DOM = 1,
1323         MONO_COMP_IDOM = 2,
1324         MONO_COMP_DFRONTIER = 4,
1325         MONO_COMP_DOM_REV = 8,
1326         MONO_COMP_LIVENESS = 16,
1327         MONO_COMP_SSA = 32,
1328         MONO_COMP_SSA_DEF_USE = 64,
1329         MONO_COMP_REACHABILITY = 128,
1330         MONO_COMP_LOOPS = 256
1331 };
1332
1333 typedef enum {
1334         MONO_GRAPH_CFG = 1,
1335         MONO_GRAPH_DTREE = 2,
1336         MONO_GRAPH_CFG_CODE = 4,
1337         MONO_GRAPH_CFG_SSA = 8,
1338         MONO_GRAPH_CFG_OPTCODE = 16
1339 } MonoGraphOptions;
1340
1341 typedef struct {
1342         guint16 size;
1343         guint16 offset;
1344         guint8  pad;
1345 } MonoJitArgumentInfo;
1346
1347 typedef struct {
1348         gboolean handle_sigint;
1349         gboolean keep_delegates;
1350         gboolean collect_pagefault_stats;
1351         gboolean break_on_unverified;
1352         gboolean better_cast_details;
1353         gboolean mdb_optimizations;
1354         gboolean no_gdb_backtrace;
1355         gboolean suspend_on_sigsegv;
1356         gboolean dyn_runtime_invoke;
1357         gboolean gdb;
1358         gboolean gen_seq_points;
1359         gboolean explicit_null_checks;
1360         /*
1361          * Fill stack frames with 0x2a in method prologs. This helps with the
1362          * debugging of the stack marking code in the GC.
1363          */
1364         gboolean init_stacks;
1365 } MonoDebugOptions;
1366
1367 enum {
1368         BRANCH_NOT_TAKEN,
1369         BRANCH_TAKEN,
1370         BRANCH_UNDEF
1371 };
1372
1373 typedef enum {
1374         CMP_EQ,
1375         CMP_NE,
1376         CMP_LE,
1377         CMP_GE,
1378         CMP_LT,
1379         CMP_GT,
1380         CMP_LE_UN,
1381         CMP_GE_UN,
1382         CMP_LT_UN,
1383         CMP_GT_UN
1384 } CompRelation;
1385
1386 typedef enum {
1387         CMP_TYPE_L,
1388         CMP_TYPE_I,
1389         CMP_TYPE_F
1390 } CompType;
1391
1392 /* Implicit exceptions */
1393 enum {
1394         MONO_EXC_INDEX_OUT_OF_RANGE,
1395         MONO_EXC_OVERFLOW,
1396         MONO_EXC_ARITHMETIC,
1397         MONO_EXC_DIVIDE_BY_ZERO,
1398         MONO_EXC_INVALID_CAST,
1399         MONO_EXC_NULL_REF,
1400         MONO_EXC_ARRAY_TYPE_MISMATCH,
1401         MONO_EXC_INTRINS_NUM
1402 };
1403
1404 enum {
1405         MINI_TOKEN_SOURCE_CLASS,
1406         MINI_TOKEN_SOURCE_METHOD,
1407         MINI_TOKEN_SOURCE_FIELD
1408 };
1409
1410  /*
1411   * Information about a trampoline function.
1412   */
1413  typedef struct
1414  {
1415         /*
1416          * The native code of the trampoline. Not owned by this structure.
1417          */
1418         guint8 *code;
1419         guint32 code_size;
1420         /*
1421          * The name of the trampoline which can be used in AOT/xdebug. Owned by this
1422          * structure.
1423          */
1424         char *name;
1425         /*
1426          * Patches required by the trampoline when aot-ing. Owned by this structure.
1427          */
1428         MonoJumpInfo *ji;
1429         /*
1430          * Unwind information. Owned by this structure.
1431          */
1432         GSList *unwind_ops;
1433 } MonoTrampInfo;
1434
1435 typedef void (*MonoInstFunc) (MonoInst *tree, gpointer data);
1436
1437 /* main function */
1438 int         mono_main                      (int argc, char* argv[]);
1439 void        mono_set_defaults              (int verbose_level, guint32 opts);
1440 MonoDomain* mini_init                      (const char *filename, const char *runtime_version) MONO_INTERNAL;
1441 void        mini_cleanup                   (MonoDomain *domain) MONO_INTERNAL;
1442 MonoDebugOptions *mini_get_debug_options   (void) MONO_INTERNAL;
1443 char*       mono_get_runtime_build_info    (void) MONO_INTERNAL;
1444
1445 /* helper methods */
1446 void      mono_disable_optimizations       (guint32 opts) MONO_INTERNAL;
1447 MonoJumpInfoToken* mono_jump_info_token_new (MonoMemPool *mp, MonoImage *image, guint32 token) MONO_INTERNAL;
1448 MonoJumpInfoToken* mono_jump_info_token_new2 (MonoMemPool *mp, MonoImage *image, guint32 token, MonoGenericContext *context) MONO_INTERNAL;
1449 MonoInst* mono_find_spvar_for_region        (MonoCompile *cfg, int region) MONO_INTERNAL;
1450 MonoInst* mono_find_exvar_for_offset        (MonoCompile *cfg, int offset) MONO_INTERNAL;
1451 int       mono_get_block_region_notry       (MonoCompile *cfg, int region) MONO_INTERNAL;
1452
1453 void      mono_precompile_assemblies        (void) MONO_INTERNAL;
1454 int       mono_parse_default_optimizations  (const char* p);
1455 void      mono_bblock_add_inst              (MonoBasicBlock *bb, MonoInst *inst) MONO_INTERNAL;
1456 void      mono_bblock_insert_after_ins      (MonoBasicBlock *bb, MonoInst *ins, MonoInst *ins_to_insert) MONO_INTERNAL;
1457 void      mono_bblock_insert_before_ins     (MonoBasicBlock *bb, MonoInst *ins, MonoInst *ins_to_insert) MONO_INTERNAL;
1458 void      mono_verify_bblock                (MonoBasicBlock *bb) MONO_INTERNAL;
1459 void      mono_verify_cfg                   (MonoCompile *cfg) MONO_INTERNAL;
1460 void      mono_constant_fold                (MonoCompile *cfg) MONO_INTERNAL;
1461 MonoInst* mono_constant_fold_ins            (MonoCompile *cfg, MonoInst *ins, MonoInst *arg1, MonoInst *arg2, gboolean overwrite) MONO_INTERNAL;
1462 int       mono_eval_cond_branch             (MonoInst *branch) MONO_INTERNAL;
1463 int       mono_is_power_of_two              (guint32 val) MONO_INTERNAL;
1464 void      mono_cprop_local                  (MonoCompile *cfg, MonoBasicBlock *bb, MonoInst **acp, int acp_size) MONO_INTERNAL;
1465 MonoInst* mono_compile_create_var           (MonoCompile *cfg, MonoType *type, int opcode) MONO_INTERNAL;
1466 MonoInst* mono_compile_create_var_for_vreg  (MonoCompile *cfg, MonoType *type, int opcode, int vreg) MONO_INTERNAL;
1467 void      mono_compile_make_var_load        (MonoCompile *cfg, MonoInst *dest, gssize var_index) MONO_INTERNAL;
1468 MonoInst* mono_compile_create_var_load      (MonoCompile *cfg, gssize var_index) MONO_INTERNAL;
1469 MonoInst* mono_compile_create_var_store     (MonoCompile *cfg, gssize var_index, MonoInst *value) MONO_INTERNAL;
1470 MonoType* mono_type_from_stack_type         (MonoInst *ins) MONO_INTERNAL;
1471 guint32   mono_alloc_ireg                   (MonoCompile *cfg) MONO_INTERNAL;
1472 guint32   mono_alloc_freg                   (MonoCompile *cfg) MONO_INTERNAL;
1473 guint32   mono_alloc_preg                   (MonoCompile *cfg) MONO_INTERNAL;
1474 guint32   mono_alloc_dreg                   (MonoCompile *cfg, MonoStackType stack_type) MONO_INTERNAL;
1475
1476 void      mono_link_bblock                  (MonoCompile *cfg, MonoBasicBlock *from, MonoBasicBlock* to) MONO_INTERNAL;
1477 void      mono_unlink_bblock                (MonoCompile *cfg, MonoBasicBlock *from, MonoBasicBlock* to) MONO_INTERNAL;
1478 gboolean  mono_bblocks_linked               (MonoBasicBlock *bb1, MonoBasicBlock *bb2) MONO_INTERNAL;
1479 void      mono_remove_bblock                (MonoCompile *cfg, MonoBasicBlock *bb) MONO_INTERNAL;
1480 void      mono_nullify_basic_block          (MonoBasicBlock *bb) MONO_INTERNAL;
1481 void      mono_merge_basic_blocks           (MonoCompile *cfg, MonoBasicBlock *bb, MonoBasicBlock *bbn) MONO_INTERNAL;
1482 void      mono_optimize_branches            (MonoCompile *cfg) MONO_INTERNAL;
1483
1484 void      mono_blockset_print               (MonoCompile *cfg, MonoBitSet *set, const char *name, guint idom) MONO_INTERNAL;
1485 void      mono_print_ins_index              (int i, MonoInst *ins) MONO_INTERNAL;
1486 void      mono_print_ins                    (MonoInst *ins) MONO_INTERNAL;
1487 void      mono_print_bb                     (MonoBasicBlock *bb, const char *msg) MONO_INTERNAL;
1488 void      mono_print_code                   (MonoCompile *cfg, const char *msg) MONO_INTERNAL;
1489 void      mono_print_method_from_ip         (void *ip);
1490 char     *mono_pmip                         (void *ip);
1491 const char* mono_inst_name                  (int op);
1492 void      mono_inst_set_src_registers       (MonoInst *ins, int *regs) MONO_INTERNAL;
1493 int       mono_op_to_op_imm                 (int opcode) MONO_INTERNAL;
1494 int       mono_op_imm_to_op                 (int opcode) MONO_INTERNAL;
1495 int       mono_load_membase_to_load_mem     (int opcode) MONO_INTERNAL;
1496 guint     mono_type_to_load_membase         (MonoCompile *cfg, MonoType *type) MONO_INTERNAL;
1497 guint     mono_type_to_store_membase        (MonoCompile *cfg, MonoType *type) MONO_INTERNAL;
1498 guint     mini_type_to_stind                (MonoCompile* cfg, MonoType *type) MONO_INTERNAL;
1499 guint32   mono_reverse_branch_op            (guint32 opcode) MONO_INTERNAL;
1500 void      mono_disassemble_code             (MonoCompile *cfg, guint8 *code, int size, char *id) MONO_INTERNAL;
1501 void      mono_add_patch_info               (MonoCompile *cfg, int ip, MonoJumpInfoType type, gconstpointer target) MONO_INTERNAL;
1502 void      mono_remove_patch_info            (MonoCompile *cfg, int ip) MONO_INTERNAL;
1503 MonoJumpInfo* mono_patch_info_dup_mp        (MonoMemPool *mp, MonoJumpInfo *patch_info) MONO_INTERNAL;
1504 guint     mono_patch_info_hash (gconstpointer data) MONO_INTERNAL;
1505 gint      mono_patch_info_equal (gconstpointer ka, gconstpointer kb) MONO_INTERNAL;
1506 MonoJumpInfo *mono_patch_info_list_prepend  (MonoJumpInfo *list, int ip, MonoJumpInfoType type, gconstpointer target) MONO_INTERNAL;
1507 gpointer  mono_resolve_patch_target         (MonoMethod *method, MonoDomain *domain, guint8 *code, MonoJumpInfo *patch_info, gboolean run_cctors) MONO_INTERNAL;
1508 gpointer  mono_jit_find_compiled_method_with_jit_info (MonoDomain *domain, MonoMethod *method, MonoJitInfo **ji) MONO_INTERNAL;
1509 gpointer  mono_jit_find_compiled_method     (MonoDomain *domain, MonoMethod *method) MONO_INTERNAL;
1510 gpointer  mono_jit_compile_method           (MonoMethod *method) MONO_INTERNAL;
1511 MonoLMF * mono_get_lmf                      (void) MONO_INTERNAL;
1512 MonoLMF** mono_get_lmf_addr                 (void) MONO_INTERNAL;
1513 void      mono_set_lmf                      (MonoLMF *lmf) MONO_INTERNAL;
1514 void      mono_jit_thread_attach            (MonoDomain *domain);
1515 guint32   mono_get_jit_tls_key              (void) MONO_INTERNAL;
1516 gint32    mono_get_jit_tls_offset           (void) MONO_INTERNAL;
1517 gint32    mono_get_lmf_tls_offset           (void) MONO_INTERNAL;
1518 gint32    mono_get_lmf_addr_tls_offset      (void) MONO_INTERNAL;
1519 MonoInst* mono_get_jit_tls_intrinsic        (MonoCompile *cfg) MONO_INTERNAL;
1520 MonoInst* mono_get_domain_intrinsic         (MonoCompile* cfg) MONO_INTERNAL;
1521 MonoInst* mono_get_thread_intrinsic         (MonoCompile* cfg) MONO_INTERNAL;
1522 GList    *mono_varlist_insert_sorted        (MonoCompile *cfg, GList *list, MonoMethodVar *mv, gboolean sort_end) MONO_INTERNAL;
1523 GList    *mono_varlist_sort                 (MonoCompile *cfg, GList *list, int sort_type) MONO_INTERNAL;
1524 void      mono_analyze_liveness             (MonoCompile *cfg) MONO_INTERNAL;
1525 void      mono_linear_scan                  (MonoCompile *cfg, GList *vars, GList *regs, regmask_t *used_mask) MONO_INTERNAL;
1526 void      mono_global_regalloc              (MonoCompile *cfg) MONO_INTERNAL;
1527 void      mono_create_jump_table            (MonoCompile *cfg, MonoInst *label, MonoBasicBlock **bbs, int num_blocks) MONO_INTERNAL;
1528 int       mono_compile_assembly             (MonoAssembly *ass, guint32 opts, const char *aot_options) MONO_INTERNAL;
1529 MonoCompile *mini_method_compile            (MonoMethod *method, guint32 opts, MonoDomain *domain, gboolean run_cctors, gboolean compile_aot, int parts) MONO_INTERNAL;
1530 void      mono_destroy_compile              (MonoCompile *cfg) MONO_INTERNAL;
1531 MonoJitICallInfo *mono_find_jit_opcode_emulation (int opcode) MONO_INTERNAL;
1532 void      mono_print_ins_index (int i, MonoInst *ins) MONO_INTERNAL;
1533 void      mono_print_ins (MonoInst *ins) MONO_INTERNAL;
1534 gboolean  mini_assembly_can_skip_verification (MonoDomain *domain, MonoMethod *method) MONO_INTERNAL;
1535 gboolean  mini_method_verify (MonoCompile *cfg, MonoMethod *method) MONO_INTERNAL;
1536 MonoInst *mono_get_got_var (MonoCompile *cfg) MONO_INTERNAL;
1537 void      mono_add_seq_point (MonoCompile *cfg, MonoBasicBlock *bb, MonoInst *ins, int native_offset) MONO_INTERNAL;
1538 MonoInst* mono_emit_jit_icall (MonoCompile *cfg, gconstpointer func, MonoInst **args) MONO_INTERNAL;
1539 MonoInst* mono_emit_method_call (MonoCompile *cfg, MonoMethod *method, MonoInst **args, MonoInst *this) MONO_INTERNAL;
1540
1541
1542 gboolean  mini_class_is_system_array (MonoClass *klass) MONO_INTERNAL;
1543 MonoMethodSignature *mono_get_element_address_signature (int arity) MONO_INTERNAL;
1544 MonoJitICallInfo    *mono_get_element_address_icall (int rank) MONO_INTERNAL;
1545 MonoJitICallInfo    *mono_get_array_new_va_icall (int rank) MONO_INTERNAL;
1546
1547 void      mono_linterval_add_range          (MonoCompile *cfg, MonoLiveInterval *interval, int from, int to) MONO_INTERNAL;
1548 void      mono_linterval_print              (MonoLiveInterval *interval) MONO_INTERNAL;
1549 void      mono_linterval_print_nl (MonoLiveInterval *interval) MONO_INTERNAL;
1550 gboolean  mono_linterval_covers             (MonoLiveInterval *interval, int pos) MONO_INTERNAL;
1551 gint32    mono_linterval_get_intersect_pos  (MonoLiveInterval *i1, MonoLiveInterval *i2) MONO_INTERNAL;
1552 void      mono_linterval_split              (MonoCompile *cfg, MonoLiveInterval *interval, MonoLiveInterval **i1, MonoLiveInterval **i2, int pos) MONO_INTERNAL;
1553 void      mono_liveness_handle_exception_clauses (MonoCompile *cfg) MONO_INTERNAL;
1554
1555 /* AOT */
1556 void      mono_aot_init                     (void) MONO_INTERNAL;
1557 gpointer  mono_aot_get_method               (MonoDomain *domain,
1558                                                                                          MonoMethod *method) MONO_INTERNAL;
1559 gpointer  mono_aot_get_method_from_token    (MonoDomain *domain, MonoImage *image, guint32 token) MONO_INTERNAL;
1560 gboolean  mono_aot_is_got_entry             (guint8 *code, guint8 *addr) MONO_INTERNAL;
1561 guint8*   mono_aot_get_plt_entry            (guint8 *code) MONO_INTERNAL;
1562 guint32   mono_aot_get_plt_info_offset      (mgreg_t *regs, guint8 *code) MONO_INTERNAL;
1563 gboolean  mono_aot_get_cached_class_info    (MonoClass *klass, MonoCachedClassInfo *res) MONO_INTERNAL;
1564 gboolean  mono_aot_get_class_from_name      (MonoImage *image, const char *name_space, const char *name, MonoClass **klass) MONO_INTERNAL;
1565 MonoJitInfo* mono_aot_find_jit_info         (MonoDomain *domain, MonoImage *image, gpointer addr) MONO_INTERNAL;
1566 gpointer mono_aot_plt_resolve               (gpointer aot_module, guint32 plt_info_offset, guint8 *code) MONO_INTERNAL;
1567 void     mono_aot_patch_plt_entry (guint8 *code, gpointer *got, mgreg_t *regs, guint8 *addr) MONO_INTERNAL;
1568 gpointer mono_aot_get_method_from_vt_slot   (MonoDomain *domain, MonoVTable *vtable, int slot) MONO_INTERNAL;
1569 gpointer mono_aot_create_specific_trampoline   (MonoImage *image, gpointer arg1, MonoTrampolineType tramp_type, MonoDomain *domain, guint32 *code_len) MONO_INTERNAL;
1570 gpointer mono_aot_get_trampoline            (const char *name) MONO_INTERNAL;
1571 gpointer mono_aot_get_unbox_trampoline      (MonoMethod *method) MONO_INTERNAL;
1572 gpointer mono_aot_get_lazy_fetch_trampoline (guint32 slot) MONO_INTERNAL;
1573 gpointer mono_aot_get_static_rgctx_trampoline (gpointer ctx, gpointer addr) MONO_INTERNAL;
1574 gpointer mono_aot_get_imt_thunk             (MonoVTable *vtable, MonoDomain *domain, MonoIMTCheckItem **imt_entries, int count, gpointer fail_tramp) MONO_INTERNAL;
1575 guint8*  mono_aot_get_unwind_info           (MonoJitInfo *ji, guint32 *unwind_info_len) MONO_INTERNAL;
1576 guint32  mono_aot_method_hash               (MonoMethod *method) MONO_INTERNAL;
1577 char*    mono_aot_wrapper_name              (MonoMethod *method) MONO_INTERNAL;
1578 MonoMethod* mono_aot_get_array_helper_from_wrapper (MonoMethod *method) MONO_INTERNAL;
1579 guint32  mono_aot_get_got_offset            (MonoJumpInfo *ji) MONO_INTERNAL;
1580 char*    mono_aot_get_method_name           (MonoCompile *cfg) MONO_INTERNAL;
1581 char*    mono_aot_get_plt_symbol            (MonoJumpInfoType type, gconstpointer data) MONO_INTERNAL;
1582 char*    mono_aot_get_method_debug_name     (MonoCompile *cfg) MONO_INTERNAL;
1583 MonoJumpInfo* mono_aot_patch_info_dup       (MonoJumpInfo* ji) MONO_INTERNAL;
1584 void     mono_aot_set_make_unreadable       (gboolean unreadable) MONO_INTERNAL;
1585 gboolean mono_aot_is_pagefault              (void *ptr) MONO_INTERNAL;
1586 void     mono_aot_handle_pagefault          (void *ptr) MONO_INTERNAL;
1587 void     mono_aot_register_jit_icall        (const char *name, gpointer addr) MONO_INTERNAL;
1588
1589 /* This is an exported function */
1590 void     mono_aot_register_globals          (gpointer *globals);
1591 /* This too */
1592 void     mono_aot_register_module           (gpointer *aot_info);
1593
1594 void     mono_xdebug_init                   (char *xdebug_opts) MONO_INTERNAL;
1595 void     mono_save_xdebug_info              (MonoCompile *cfg) MONO_INTERNAL;
1596 void     mono_save_trampoline_xdebug_info   (const char *tramp_name, guint8 *code, guint32 code_size, GSList *unwind_info) MONO_INTERNAL;
1597 /* This is an exported function */
1598 void     mono_xdebug_flush                  (void) MONO_INTERNAL;
1599
1600 /* LLVM backend */
1601 void     mono_llvm_init                     (void) MONO_INTERNAL;
1602 void     mono_llvm_cleanup                  (void) MONO_INTERNAL;
1603 void     mono_llvm_emit_method              (MonoCompile *cfg) MONO_INTERNAL;
1604 void     mono_llvm_emit_call                (MonoCompile *cfg, MonoCallInst *call) MONO_INTERNAL;
1605 void     mono_llvm_create_aot_module        (const char *got_symbol) MONO_INTERNAL;
1606 void     mono_llvm_emit_aot_module          (const char *filename, int got_size) MONO_INTERNAL;
1607
1608 gboolean  mono_method_blittable             (MonoMethod *method) MONO_INTERNAL;
1609 gboolean  mono_method_same_domain           (MonoJitInfo *caller, MonoJitInfo *callee) MONO_INTERNAL;
1610
1611 void      mono_register_opcode_emulation    (int opcode, const char* name, const char *sigstr, gpointer func, gboolean no_throw) MONO_INTERNAL;
1612 void      mono_draw_graph                   (MonoCompile *cfg, MonoGraphOptions draw_options) MONO_INTERNAL;
1613 void      mono_add_ins_to_end               (MonoBasicBlock *bb, MonoInst *inst) MONO_INTERNAL;
1614 gpointer  mono_create_ftnptr                (MonoDomain *domain, gpointer addr) MONO_INTERNAL;
1615
1616 void      mono_replace_ins                  (MonoCompile *cfg, MonoBasicBlock *bb, MonoInst *ins, MonoInst **prev, MonoBasicBlock *first_bb, MonoBasicBlock *last_bb);
1617
1618 int               mono_find_method_opcode      (MonoMethod *method) MONO_INTERNAL;
1619 MonoJitICallInfo *mono_find_jit_icall_by_name  (const char *name) MONO_INTERNAL;
1620 MonoJitICallInfo *mono_find_jit_icall_by_addr  (gconstpointer addr) MONO_INTERNAL;
1621 MonoJitICallInfo *mono_register_jit_icall      (gconstpointer func, const char *name, MonoMethodSignature *sig, gboolean is_save) MONO_INTERNAL;
1622 gconstpointer     mono_icall_get_wrapper       (MonoJitICallInfo* callinfo) MONO_INTERNAL;
1623
1624 void              mono_trampolines_init (void) MONO_INTERNAL;
1625 void              mono_trampolines_cleanup (void) MONO_INTERNAL;
1626 guint8 *          mono_get_trampoline_code (MonoTrampolineType tramp_type) MONO_INTERNAL;
1627 gpointer          mono_create_specific_trampoline (gpointer arg1, MonoTrampolineType tramp_type, MonoDomain *domain, guint32 *code_len) MONO_INTERNAL;
1628 gpointer          mono_create_jump_trampoline (MonoDomain *domain,
1629                                                                                            MonoMethod *method,
1630                                                                                            gboolean add_sync_wrapper) MONO_INTERNAL;
1631 gpointer          mono_create_class_init_trampoline (MonoVTable *vtable) MONO_INTERNAL;
1632 gpointer          mono_create_generic_class_init_trampoline (void) MONO_INTERNAL;
1633 gpointer          mono_create_jit_trampoline (MonoMethod *method) MONO_INTERNAL;
1634 gpointer          mono_create_jit_trampoline_from_token (MonoImage *image, guint32 token) MONO_INTERNAL;
1635 gpointer          mono_create_jit_trampoline_in_domain (MonoDomain *domain, MonoMethod *method) MONO_INTERNAL;
1636 gpointer          mono_create_delegate_trampoline (MonoClass *klass) MONO_INTERNAL;
1637 gpointer          mono_create_rgctx_lazy_fetch_trampoline (guint32 offset) MONO_INTERNAL;
1638 gpointer          mono_create_monitor_enter_trampoline (void) MONO_INTERNAL;
1639 gpointer          mono_create_monitor_exit_trampoline (void) MONO_INTERNAL;
1640 gpointer          mono_create_static_rgctx_trampoline (MonoMethod *m, gpointer addr) MONO_INTERNAL;
1641 gpointer          mono_create_llvm_vcall_trampoline (MonoMethod *method) MONO_INTERNAL;
1642 gpointer          mono_create_llvm_imt_trampoline (MonoDomain *domain, MonoMethod *m, int vt_offset) MONO_INTERNAL;
1643 MonoVTable*       mono_find_class_init_trampoline_by_addr (gconstpointer addr) MONO_INTERNAL;
1644 guint32           mono_find_rgctx_lazy_fetch_trampoline_by_addr (gconstpointer addr) MONO_INTERNAL;
1645 gpointer          mono_magic_trampoline (mgreg_t *regs, guint8 *code, gpointer arg, guint8* tramp) MONO_INTERNAL;
1646 gpointer          mono_generic_virtual_remoting_trampoline (mgreg_t *regs, guint8 *code, MonoMethod *m, guint8 *tramp) MONO_INTERNAL;
1647 gpointer          mono_delegate_trampoline (mgreg_t *regs, guint8 *code, gpointer *tramp_data, guint8* tramp) MONO_INTERNAL;
1648 gpointer          mono_aot_trampoline (mgreg_t *regs, guint8 *code, guint8 *token_info,
1649                                                                            guint8* tramp) MONO_INTERNAL;
1650 gpointer          mono_aot_plt_trampoline (mgreg_t *regs, guint8 *code, guint8 *token_info,
1651                                                                                    guint8* tramp) MONO_INTERNAL;
1652 void              mono_class_init_trampoline (mgreg_t *regs, guint8 *code, MonoVTable *vtable, guint8 *tramp) MONO_INTERNAL;
1653 void              mono_generic_class_init_trampoline (mgreg_t *regs, guint8 *code, MonoVTable *vtable, guint8 *tramp) MONO_INTERNAL;
1654 void              mono_monitor_enter_trampoline (mgreg_t *regs, guint8 *code, MonoObject *obj, guint8 *tramp) MONO_INTERNAL;
1655 void              mono_monitor_exit_trampoline (mgreg_t *regs, guint8 *code, MonoObject *obj, guint8 *tramp) MONO_INTERNAL;
1656 gconstpointer     mono_get_trampoline_func (MonoTrampolineType tramp_type);
1657 gpointer          mini_get_vtable_trampoline (int slot_index) MONO_INTERNAL;
1658 gpointer*         mono_get_vcall_slot_addr (guint8* code, mgreg_t *regs) MONO_INTERNAL;
1659
1660 gboolean          mono_running_on_valgrind (void) MONO_INTERNAL;
1661 void*             mono_global_codeman_reserve (int size) MONO_INTERNAL;
1662 const char       *mono_regname_full (int reg, int bank) MONO_INTERNAL;
1663 gint32*           mono_allocate_stack_slots_full (MonoCompile *cfg, gboolean backward, guint32 *stack_size, guint32 *stack_align) MONO_INTERNAL;
1664 gint32*           mono_allocate_stack_slots (MonoCompile *cfg, guint32 *stack_size, guint32 *stack_align) MONO_INTERNAL;
1665 void              mono_local_regalloc (MonoCompile *cfg, MonoBasicBlock *bb) MONO_INTERNAL;
1666 MonoInst         *mono_branch_optimize_exception_target (MonoCompile *cfg, MonoBasicBlock *bb, const char * exname) MONO_INTERNAL;
1667 void              mono_remove_critical_edges (MonoCompile *cfg) MONO_INTERNAL;
1668 gboolean          mono_is_regsize_var (MonoType *t) MONO_INTERNAL;
1669 void              mini_emit_memcpy (MonoCompile *cfg, int destreg, int doffset, int srcreg, int soffset, int size, int align) MONO_INTERNAL;
1670 CompRelation      mono_opcode_to_cond (int opcode) MONO_INTERNAL;
1671 CompType          mono_opcode_to_type (int opcode, int cmp_opcode) MONO_INTERNAL;
1672 CompRelation      mono_negate_cond (CompRelation cond) MONO_INTERNAL;
1673 int               mono_op_imm_to_op (int opcode) MONO_INTERNAL;
1674 void              mono_decompose_op_imm (MonoCompile *cfg, MonoBasicBlock *bb, MonoInst *ins) MONO_INTERNAL;
1675 void              mono_peephole_ins (MonoBasicBlock *bb, MonoInst *ins) MONO_INTERNAL;
1676 MonoUnwindOp     *mono_create_unwind_op (int when,
1677                                                                                  int tag, int reg,
1678                                                                                  int val) MONO_INTERNAL;
1679 void              mono_emit_unwind_op (MonoCompile *cfg, int when,
1680                                                                            int tag, int reg,
1681                                                                            int val) MONO_INTERNAL;
1682 MonoTrampInfo*    mono_tramp_info_create (const char *name, guint8 *code, guint32 code_size, MonoJumpInfo *ji, GSList *unwind_ops) MONO_INTERNAL;
1683 void              mono_tramp_info_free (MonoTrampInfo *info) MONO_INTERNAL;
1684
1685 int               mono_method_to_ir (MonoCompile *cfg, MonoMethod *method, MonoBasicBlock *start_bblock, MonoBasicBlock *end_bblock,
1686                                                                          MonoInst *return_var, GList *dont_inline, MonoInst **inline_args,
1687                                                                          guint inline_offset, gboolean is_virtual_call) MONO_INTERNAL;
1688
1689 MonoInst         *mono_decompose_opcode (MonoCompile *cfg, MonoInst *ins) MONO_INTERNAL;
1690 void              mono_decompose_long_opts (MonoCompile *cfg) MONO_INTERNAL;
1691 void              mono_decompose_vtype_opts (MonoCompile *cfg) MONO_INTERNAL;
1692 void              mono_decompose_array_access_opts (MonoCompile *cfg) MONO_INTERNAL;
1693 void              mono_decompose_soft_float (MonoCompile *cfg) MONO_INTERNAL;
1694 void              mono_handle_global_vregs (MonoCompile *cfg) MONO_INTERNAL;
1695 void              mono_spill_global_vars (MonoCompile *cfg, gboolean *need_local_opts) MONO_INTERNAL;
1696 void              mono_if_conversion (MonoCompile *cfg) MONO_INTERNAL;
1697
1698 /* methods that must be provided by the arch-specific port */
1699 void      mono_arch_init                        (void) MONO_INTERNAL;
1700 void      mono_arch_cleanup                     (void) MONO_INTERNAL;
1701 void      mono_arch_cpu_init                    (void) MONO_INTERNAL;
1702 guint32   mono_arch_cpu_optimizazions           (guint32 *exclude_mask) MONO_INTERNAL;
1703 void      mono_arch_instrument_mem_needs        (MonoMethod *method, int *stack, int *code) MONO_INTERNAL;
1704 void     *mono_arch_instrument_prolog           (MonoCompile *cfg, void *func, void *p, gboolean enable_arguments) MONO_INTERNAL;
1705 void     *mono_arch_instrument_epilog           (MonoCompile *cfg, void *func, void *p, gboolean enable_arguments) MONO_INTERNAL;
1706 void     *mono_arch_instrument_epilog_full     (MonoCompile *cfg, void *func, void *p, gboolean enable_arguments, gboolean preserve_argument_registers) MONO_INTERNAL;
1707 void      mono_codegen                          (MonoCompile *cfg) MONO_INTERNAL;
1708 void      mono_call_inst_add_outarg_reg         (MonoCompile *cfg, MonoCallInst *call, int vreg, int hreg, gboolean fp) MONO_INTERNAL;
1709 const char *mono_arch_regname                   (int reg) MONO_INTERNAL;
1710 const char *mono_arch_fregname                  (int reg) MONO_INTERNAL;
1711 void      mono_arch_exceptions_init             (void) MONO_INTERNAL;
1712 guchar*   mono_arch_create_generic_trampoline   (MonoTrampolineType tramp_type, MonoTrampInfo **info, gboolean aot) MONO_INTERNAL;
1713 gpointer  mono_arch_create_rgctx_lazy_fetch_trampoline (guint32 slot, MonoTrampInfo **info, gboolean aot) MONO_INTERNAL;
1714 gpointer  mono_arch_create_generic_class_init_trampoline (MonoTrampInfo **info, gboolean aot) MONO_INTERNAL;
1715 gpointer  mono_arch_get_nullified_class_init_trampoline (MonoTrampInfo **info) MONO_INTERNAL;
1716 gpointer  mono_arch_create_monitor_enter_trampoline (MonoTrampInfo **info, gboolean aot) MONO_INTERNAL;
1717 gpointer  mono_arch_create_monitor_exit_trampoline (MonoTrampInfo **info, gboolean aot) MONO_INTERNAL;
1718 GList    *mono_arch_get_allocatable_int_vars    (MonoCompile *cfg) MONO_INTERNAL;
1719 GList    *mono_arch_get_global_int_regs         (MonoCompile *cfg) MONO_INTERNAL;
1720 GList    *mono_arch_get_global_fp_regs          (MonoCompile *cfg) MONO_INTERNAL;
1721 GList    *mono_arch_get_iregs_clobbered_by_call (MonoCallInst *call) MONO_INTERNAL;
1722 GList    *mono_arch_get_fregs_clobbered_by_call (MonoCallInst *call) MONO_INTERNAL;
1723 guint32   mono_arch_regalloc_cost               (MonoCompile *cfg, MonoMethodVar *vmv) MONO_INTERNAL;
1724 void      mono_arch_patch_code                  (MonoMethod *method, MonoDomain *domain, guint8 *code, MonoJumpInfo *ji, gboolean run_cctors) MONO_INTERNAL;
1725 void      mono_arch_flush_icache                (guint8 *code, gint size) MONO_INTERNAL;
1726 int       mono_arch_max_epilog_size             (MonoCompile *cfg) MONO_INTERNAL;
1727 guint8   *mono_arch_emit_prolog                 (MonoCompile *cfg) MONO_INTERNAL;
1728 void      mono_arch_emit_epilog                 (MonoCompile *cfg) MONO_INTERNAL;
1729 void      mono_arch_emit_exceptions             (MonoCompile *cfg) MONO_INTERNAL;
1730 void      mono_arch_lowering_pass               (MonoCompile *cfg, MonoBasicBlock *bb) MONO_INTERNAL;
1731 void      mono_arch_peephole_pass_1             (MonoCompile *cfg, MonoBasicBlock *bb) MONO_INTERNAL;
1732 void      mono_arch_peephole_pass_2             (MonoCompile *cfg, MonoBasicBlock *bb) MONO_INTERNAL;
1733 void      mono_arch_output_basic_block          (MonoCompile *cfg, MonoBasicBlock *bb) MONO_INTERNAL;
1734 gboolean  mono_arch_has_unwind_info             (gconstpointer addr) MONO_INTERNAL;
1735 void      mono_arch_setup_jit_tls_data          (MonoJitTlsData *tls) MONO_INTERNAL;
1736 void      mono_arch_free_jit_tls_data           (MonoJitTlsData *tls) MONO_INTERNAL;
1737 void      mono_arch_fill_argument_info          (MonoCompile *cfg) MONO_INTERNAL;
1738 void      mono_arch_allocate_vars               (MonoCompile *m) MONO_INTERNAL;
1739 int       mono_arch_get_argument_info           (MonoMethodSignature *csig, int param_count, MonoJitArgumentInfo *arg_info) MONO_INTERNAL;
1740 gboolean  mono_arch_print_tree                  (MonoInst *tree, int arity) MONO_INTERNAL;
1741 void      mono_arch_emit_call                   (MonoCompile *cfg, MonoCallInst *call) MONO_INTERNAL;
1742 void      mono_arch_emit_outarg_vt              (MonoCompile *cfg, MonoInst *ins, MonoInst *src) MONO_INTERNAL;
1743 void      mono_arch_emit_setret                 (MonoCompile *cfg, MonoMethod *method, MonoInst *val) MONO_INTERNAL;
1744 MonoDynCallInfo *mono_arch_dyn_call_prepare     (MonoMethodSignature *sig) MONO_INTERNAL;
1745 void      mono_arch_dyn_call_free               (MonoDynCallInfo *info) MONO_INTERNAL;
1746 void      mono_arch_start_dyn_call              (MonoDynCallInfo *info, gpointer **args, guint8 *ret, guint8 *buf, int buf_len) MONO_INTERNAL;
1747 void      mono_arch_finish_dyn_call             (MonoDynCallInfo *info, guint8 *buf) MONO_INTERNAL;
1748 MonoInst *mono_arch_emit_inst_for_method        (MonoCompile *cfg, MonoMethod *cmethod, MonoMethodSignature *fsig, MonoInst **args) MONO_INTERNAL;
1749 void      mono_arch_decompose_opts              (MonoCompile *cfg, MonoInst *ins) MONO_INTERNAL;
1750 void      mono_arch_decompose_long_opts         (MonoCompile *cfg, MonoInst *ins) MONO_INTERNAL;
1751 GSList*   mono_arch_get_delegate_invoke_impls   (void) MONO_INTERNAL;
1752 LLVMCallInfo* mono_arch_get_llvm_call_info      (MonoCompile *cfg, MonoMethodSignature *sig) MONO_INTERNAL;
1753 guint8*   mono_arch_emit_load_got_addr          (guint8 *start, guint8 *code, MonoCompile *cfg, MonoJumpInfo **ji) MONO_INTERNAL;
1754 guint8*   mono_arch_emit_load_aotconst          (guint8 *start, guint8 *code, MonoJumpInfo **ji, int tramp_type, gconstpointer target) MONO_INTERNAL;
1755 GSList*   mono_arch_get_cie_program             (void) MONO_INTERNAL;
1756
1757 /* Soft Debug support */
1758 #ifdef MONO_ARCH_SOFT_DEBUG_SUPPORTED
1759 void      mono_arch_set_breakpoint              (MonoJitInfo *ji, guint8 *ip) MONO_INTERNAL;
1760 void      mono_arch_clear_breakpoint            (MonoJitInfo *ji, guint8 *ip) MONO_INTERNAL;
1761 void      mono_arch_start_single_stepping       (void) MONO_INTERNAL;
1762 void      mono_arch_stop_single_stepping        (void) MONO_INTERNAL;
1763 gboolean  mono_arch_is_single_step_event        (void *info, void *sigctx) MONO_INTERNAL;
1764 gboolean  mono_arch_is_breakpoint_event         (void *info, void *sigctx) MONO_INTERNAL;
1765 guint8*   mono_arch_get_ip_for_single_step      (MonoJitInfo *ji, MonoContext *ctx) MONO_INTERNAL;
1766 guint8*   mono_arch_get_ip_for_breakpoint       (MonoJitInfo *ji, MonoContext *ctx) MONO_INTERNAL;
1767 void     mono_arch_skip_breakpoint              (MonoContext *ctx) MONO_INTERNAL;
1768 void     mono_arch_skip_single_step             (MonoContext *ctx) MONO_INTERNAL;
1769 gpointer mono_arch_get_seq_point_info           (MonoDomain *domain, guint8 *code) MONO_INTERNAL;
1770 #endif
1771
1772 MonoJitInfo *mono_arch_find_jit_info            (MonoDomain *domain,
1773                                                  MonoJitTlsData *jit_tls,
1774                                                  MonoJitInfo *res,
1775                                                  MonoJitInfo *prev_ji,
1776                                                  MonoContext *ctx,
1777                                                  MonoContext *new_ctx,
1778                                                  MonoLMF **lmf,
1779                                                  gboolean *managed) MONO_INTERNAL;
1780 gboolean
1781 mono_arch_find_jit_info_ext (MonoDomain *domain, MonoJitTlsData *jit_tls,
1782                                                          MonoJitInfo *ji, MonoContext *ctx,
1783                                                          MonoContext *new_ctx, MonoLMF **lmf,
1784                                                          StackFrameInfo *frame_info) MONO_INTERNAL;
1785 gpointer  mono_arch_get_throw_exception_by_name (void) MONO_INTERNAL;
1786 gpointer mono_arch_get_call_filter              (MonoTrampInfo **info, gboolean aot) MONO_INTERNAL;
1787 gpointer mono_arch_get_restore_context          (MonoTrampInfo **info, gboolean aot) MONO_INTERNAL;
1788 gpointer  mono_arch_get_throw_exception         (MonoTrampInfo **info, gboolean aot) MONO_INTERNAL;
1789 gpointer  mono_arch_get_rethrow_exception       (MonoTrampInfo **info, gboolean aot) MONO_INTERNAL;
1790 gpointer  mono_arch_get_throw_corlib_exception  (MonoTrampInfo **info, gboolean aot) MONO_INTERNAL;
1791 gpointer  mono_arch_get_throw_pending_exception (MonoTrampInfo **info, gboolean aot) MONO_INTERNAL;
1792 gboolean mono_arch_handle_exception             (void *sigctx, gpointer obj, gboolean test_only) MONO_INTERNAL;
1793 void     mono_arch_handle_altstack_exception    (void *sigctx, gpointer fault_addr, gboolean stack_ovf) MONO_INTERNAL;
1794 gboolean mono_handle_soft_stack_ovf             (MonoJitTlsData *jit_tls, MonoJitInfo *ji, void *ctx, guint8* fault_addr) MONO_INTERNAL;
1795 gpointer mono_arch_ip_from_context              (void *sigctx) MONO_INTERNAL;
1796 void     mono_arch_sigctx_to_monoctx            (void *sigctx, MonoContext *ctx) MONO_INTERNAL;
1797 void     mono_arch_monoctx_to_sigctx            (MonoContext *mctx, void *ctx) MONO_INTERNAL;
1798 gpointer mono_arch_context_get_int_reg          (MonoContext *ctx, int reg) MONO_INTERNAL;
1799 void     mono_arch_flush_register_windows       (void) MONO_INTERNAL;
1800 gboolean mono_arch_is_inst_imm                  (gint64 imm) MONO_INTERNAL;
1801 MonoInst* mono_arch_get_domain_intrinsic        (MonoCompile* cfg) MONO_INTERNAL;
1802 gboolean mono_arch_is_int_overflow              (void *sigctx, void *info) MONO_INTERNAL;
1803 void     mono_arch_invalidate_method            (MonoJitInfo *ji, void *func, gpointer func_arg) MONO_INTERNAL;
1804 guint32  mono_arch_get_patch_offset             (guint8 *code) MONO_INTERNAL;
1805 gpointer mono_arch_get_vcall_slot               (guint8 *code, mgreg_t *regs, int *displacement) MONO_INTERNAL;
1806 gpointer*mono_arch_get_delegate_method_ptr_addr (guint8* code, mgreg_t *regs) MONO_INTERNAL;
1807 void     mono_arch_create_vars                  (MonoCompile *cfg) MONO_INTERNAL;
1808 void     mono_arch_save_unwind_info             (MonoCompile *cfg) MONO_INTERNAL;
1809 void     mono_arch_register_lowlevel_calls      (void) MONO_INTERNAL;
1810 gpointer mono_arch_get_unbox_trampoline         (MonoGenericSharingContext *gsctx, MonoMethod *m, gpointer addr) MONO_INTERNAL;
1811 gpointer mono_arch_get_static_rgctx_trampoline  (MonoMethod *m, MonoMethodRuntimeGenericContext *mrgctx, gpointer addr) MONO_INTERNAL;
1812 gpointer  mono_arch_get_llvm_imt_trampoline     (MonoDomain *domain, MonoMethod *method, int vt_offset) MONO_INTERNAL;
1813 void     mono_arch_patch_callsite               (guint8 *method_start, guint8 *code, guint8 *addr) MONO_INTERNAL;
1814 void     mono_arch_patch_plt_entry              (guint8 *code, gpointer *got, mgreg_t *regs, guint8 *addr) MONO_INTERNAL;
1815 void     mono_arch_nullify_class_init_trampoline(guint8 *code, mgreg_t *regs) MONO_INTERNAL;
1816 void     mono_arch_nullify_plt_entry            (guint8 *code, mgreg_t *regs) MONO_INTERNAL;
1817 int      mono_arch_get_this_arg_reg             (MonoMethodSignature *sig, MonoGenericSharingContext *gsctx, guint8 *code) MONO_INTERNAL;
1818 gpointer mono_arch_get_this_arg_from_call       (MonoGenericSharingContext *gsctx, MonoMethodSignature *sig, mgreg_t *regs, guint8 *code) MONO_INTERNAL;
1819 gpointer mono_arch_get_delegate_invoke_impl     (MonoMethodSignature *sig, gboolean has_target) MONO_INTERNAL;
1820 gpointer mono_arch_create_specific_trampoline   (gpointer arg1, MonoTrampolineType tramp_type, MonoDomain *domain, guint32 *code_len) MONO_INTERNAL;
1821 void        mono_arch_emit_imt_argument         (MonoCompile *cfg, MonoCallInst *call, MonoInst *imt_arg) MONO_INTERNAL;
1822 MonoMethod* mono_arch_find_imt_method           (mgreg_t *regs, guint8 *code) MONO_INTERNAL;
1823 MonoVTable* mono_arch_find_static_call_vtable   (mgreg_t *regs, guint8 *code) MONO_INTERNAL;
1824 gpointer    mono_arch_build_imt_thunk           (MonoVTable *vtable, MonoDomain *domain, MonoIMTCheckItem **imt_entries, int count, gpointer fail_tramp) MONO_INTERNAL;
1825 void    mono_arch_notify_pending_exc            (void) MONO_INTERNAL;
1826 guint8* mono_arch_get_call_target               (guint8 *code) MONO_INTERNAL;
1827 guint32 mono_arch_get_plt_info_offset           (guint8 *plt_entry, mgreg_t *regs, guint8 *code) MONO_INTERNAL;
1828 GSList *mono_arch_get_trampolines               (gboolean aot) MONO_INTERNAL;
1829
1830 /* Handle block guard */
1831 gpointer mono_arch_install_handler_block_guard (MonoJitInfo *ji, MonoJitExceptionInfo *clause, MonoContext *ctx, gpointer new_value) MONO_INTERNAL;
1832 gpointer mono_arch_create_handler_block_trampoline (void) MONO_INTERNAL;
1833 gpointer mono_create_handler_block_trampoline (void) MONO_INTERNAL;
1834 gboolean mono_install_handler_block_guard (MonoInternalThread *thread, MonoContext *ctx) MONO_INTERNAL;
1835
1836 /* Exception handling */
1837
1838 /* Same as MonoStackWalk, but pass the context/frame type as well */
1839 typedef gboolean (*MonoJitStackWalk)            (StackFrameInfo *frame, MonoContext *ctx, gpointer data);
1840
1841 void     mono_exceptions_init                   (void) MONO_INTERNAL;
1842 gboolean mono_handle_exception                  (MonoContext *ctx, gpointer obj,
1843                                                  gpointer original_ip, gboolean test_only) MONO_INTERNAL;
1844 void     mono_handle_native_sigsegv             (int signal, void *sigctx) MONO_INTERNAL;
1845 void     mono_print_thread_dump                 (void *sigctx);
1846 void     mono_print_thread_dump_from_ctx        (MonoContext *ctx);
1847 void     mono_jit_walk_stack                    (MonoStackWalk func, gboolean do_il_offset, gpointer user_data) MONO_INTERNAL;
1848 void     mono_jit_walk_stack_from_ctx           (MonoStackWalk func, MonoContext *ctx, gboolean do_il_offset, gpointer user_data) MONO_INTERNAL;
1849 void     mono_jit_walk_stack_from_ctx_in_thread (MonoJitStackWalk func, MonoDomain *domain, MonoContext *start_ctx, gboolean do_il_offset, MonoInternalThread *thread, MonoLMF *lmf, gpointer user_data) MONO_INTERNAL;
1850 void     mono_setup_altstack                    (MonoJitTlsData *tls) MONO_INTERNAL;
1851 void     mono_free_altstack                     (MonoJitTlsData *tls) MONO_INTERNAL;
1852 gpointer mono_altstack_restore_prot             (mgreg_t *regs, guint8 *code, gpointer *tramp_data, guint8* tramp) MONO_INTERNAL;
1853 MonoJitInfo* mini_jit_info_table_find           (MonoDomain *domain, char *addr, MonoDomain **out_domain) MONO_INTERNAL;
1854 void     mono_resume_unwind                     (void) MONO_INTERNAL;
1855
1856 MonoJitInfo * mono_find_jit_info                (MonoDomain *domain, MonoJitTlsData *jit_tls, MonoJitInfo *res, MonoJitInfo *prev_ji, MonoContext *ctx, MonoContext *new_ctx, char **trace, MonoLMF **lmf, int *native_offset, gboolean *managed) MONO_INTERNAL;
1857
1858 gboolean
1859 mono_find_jit_info_ext (MonoDomain *domain, MonoJitTlsData *jit_tls,
1860                                                 MonoJitInfo *prev_ji, MonoContext *ctx,
1861                                                 MonoContext *new_ctx, char **trace, MonoLMF **lmf,
1862                                                 StackFrameInfo *frame) MONO_INTERNAL;
1863
1864 gpointer mono_get_throw_exception               (void) MONO_INTERNAL;
1865 gpointer mono_get_rethrow_exception             (void) MONO_INTERNAL;
1866 gpointer mono_get_call_filter                   (void) MONO_INTERNAL;
1867 gpointer mono_get_restore_context               (void) MONO_INTERNAL;
1868 gpointer mono_get_throw_exception_by_name       (void) MONO_INTERNAL;
1869 gpointer mono_get_throw_corlib_exception        (void) MONO_INTERNAL;
1870
1871 /* the new function to do stack walks */
1872 typedef gboolean (*MonoStackFrameWalk)          (MonoDomain *domain, MonoContext *ctx, MonoJitInfo *ji, gpointer data);
1873 void      mono_walk_stack                       (MonoDomain *domain, MonoJitTlsData *jit_tls, MonoContext *start_ctx, MonoStackFrameWalk func, gpointer user_data);
1874
1875 MonoArray *ves_icall_get_trace                  (MonoException *exc, gint32 skip, MonoBoolean need_file_info) MONO_INTERNAL;
1876 MonoBoolean ves_icall_get_frame_info            (gint32 skip, MonoBoolean need_file_info,
1877                                                  MonoReflectionMethod **method,
1878                                                  gint32 *iloffset, gint32 *native_offset,
1879                                                  MonoString **file, gint32 *line, gint32 *column) MONO_INTERNAL;
1880 MonoString *ves_icall_System_Exception_get_trace (MonoException *exc) MONO_INTERNAL;
1881
1882 /* Dominator/SSA methods */
1883 void        mono_compile_dominator_info         (MonoCompile *cfg, int dom_flags) MONO_INTERNAL;
1884 void        mono_compute_natural_loops          (MonoCompile *cfg) MONO_INTERNAL;
1885 MonoBitSet* mono_compile_iterated_dfrontier     (MonoCompile *cfg, MonoBitSet *set) MONO_INTERNAL;
1886 void        mono_ssa_compute                    (MonoCompile *cfg) MONO_INTERNAL;
1887 void        mono_ssa_remove                     (MonoCompile *cfg) MONO_INTERNAL;
1888 void        mono_ssa_cprop                      (MonoCompile *cfg) MONO_INTERNAL;
1889 void        mono_ssa_deadce                     (MonoCompile *cfg) MONO_INTERNAL;
1890 void        mono_ssa_strength_reduction         (MonoCompile *cfg) MONO_INTERNAL;
1891 void        mono_free_loop_info                 (MonoCompile *cfg) MONO_INTERNAL;
1892
1893 void        mono_ssa_compute2                   (MonoCompile *cfg);
1894 void        mono_ssa_remove2                    (MonoCompile *cfg);
1895 void        mono_ssa_cprop2                     (MonoCompile *cfg);
1896 void        mono_ssa_deadce2                    (MonoCompile *cfg);
1897
1898 /* debugging support */
1899 void      mono_debug_init_method                (MonoCompile *cfg, MonoBasicBlock *start_block,
1900                                                  guint32 breakpoint_id) MONO_INTERNAL;
1901 void      mono_debug_open_method                (MonoCompile *cfg) MONO_INTERNAL;
1902 void      mono_debug_close_method               (MonoCompile *cfg) MONO_INTERNAL;
1903 void      mono_debug_open_block                 (MonoCompile *cfg, MonoBasicBlock *bb, guint32 address) MONO_INTERNAL;
1904 void      mono_debug_record_line_number         (MonoCompile *cfg, MonoInst *ins, guint32 address) MONO_INTERNAL;
1905 void      mono_debug_serialize_debug_info       (MonoCompile *cfg, guint8 **out_buf, guint32 *buf_len) MONO_INTERNAL;
1906 void      mono_debug_add_aot_method             (MonoDomain *domain,
1907                                                  MonoMethod *method, guint8 *code_start,
1908                                                  guint8 *debug_info, guint32 debug_info_len) MONO_INTERNAL;
1909 void      mono_debug_add_icall_wrapper          (MonoMethod *method, MonoJitICallInfo* info) MONO_INTERNAL;
1910 void      mono_debug_print_vars                 (gpointer ip, gboolean only_arguments);
1911 void      mono_debugger_run_finally             (MonoContext *start_ctx);
1912
1913 extern gssize mono_breakpoint_info_index [MONO_BREAKPOINT_ARRAY_SIZE];
1914
1915 gboolean mono_breakpoint_clean_code (guint8 *method_start, guint8 *code, int offset, guint8 *buf, int size);
1916
1917 #ifdef MONO_DEBUGGER_SUPPORTED
1918
1919 /* Mono Debugger support */
1920 void      mini_debugger_init                    (void);
1921 int       mini_debugger_main                    (MonoDomain *domain, MonoAssembly *assembly, int argc, char **argv);
1922 gboolean  mini_debug_running_inside_mdb         (void);
1923 void      mini_debugger_set_attach_ok           (void);
1924
1925 #endif
1926
1927 /* Tracing */
1928 MonoTraceSpec *mono_trace_parse_options         (const char *options) MONO_INTERNAL;
1929 void           mono_trace_set_assembly          (MonoAssembly *assembly) MONO_INTERNAL;
1930 gboolean       mono_trace_eval                  (MonoMethod *method) MONO_INTERNAL;
1931
1932 extern void
1933 mono_perform_abc_removal (MonoCompile *cfg) MONO_INTERNAL;
1934 extern void
1935 mono_perform_abc_removal (MonoCompile *cfg) MONO_INTERNAL;
1936 extern void
1937 mono_perform_ssapre (MonoCompile *cfg) MONO_INTERNAL;
1938 extern void
1939 mono_local_cprop (MonoCompile *cfg) MONO_INTERNAL;
1940 extern void
1941 mono_local_cprop (MonoCompile *cfg);
1942 extern void
1943 mono_local_deadce (MonoCompile *cfg);
1944
1945 /* CAS - stack walk */
1946 MonoSecurityFrame* ves_icall_System_Security_SecurityFrame_GetSecurityFrame (gint32 skip) MONO_INTERNAL;
1947 MonoArray* ves_icall_System_Security_SecurityFrame_GetSecurityStack (gint32 skip) MONO_INTERNAL;
1948
1949 /* Generic sharing */
1950
1951
1952 void
1953 mono_set_generic_sharing_supported (gboolean supported) MONO_INTERNAL;
1954
1955 gboolean
1956 mono_class_generic_sharing_enabled (MonoClass *class) MONO_INTERNAL;
1957
1958 gpointer
1959 mono_class_fill_runtime_generic_context (MonoVTable *class_vtable, guint32 slot) MONO_INTERNAL;
1960
1961 gpointer
1962 mono_method_fill_runtime_generic_context (MonoMethodRuntimeGenericContext *mrgctx, guint32 slot) MONO_INTERNAL;
1963
1964 MonoMethodRuntimeGenericContext*
1965 mono_method_lookup_rgctx (MonoVTable *class_vtable, MonoGenericInst *method_inst) MONO_INTERNAL;
1966
1967 gboolean
1968 mono_method_needs_static_rgctx_invoke (MonoMethod *method, gboolean allow_type_vars) MONO_INTERNAL;
1969
1970 int
1971 mono_class_rgctx_get_array_size (int n, gboolean mrgctx) MONO_INTERNAL;
1972
1973 guint32
1974 mono_method_lookup_or_register_other_info (MonoMethod *method, gboolean in_mrgctx, gpointer data,
1975         int info_type, MonoGenericContext *generic_context) MONO_INTERNAL;
1976
1977 MonoGenericContext
1978 mono_method_construct_object_context (MonoMethod *method) MONO_INTERNAL;
1979
1980 int
1981 mono_generic_context_check_used (MonoGenericContext *context) MONO_INTERNAL;
1982
1983 int
1984 mono_class_check_context_used (MonoClass *class) MONO_INTERNAL;
1985
1986 gboolean
1987 mono_generic_context_is_sharable (MonoGenericContext *context, gboolean allow_type_vars) MONO_INTERNAL;
1988
1989 gboolean
1990 mono_generic_context_is_sharable_full (MonoGenericContext *context, gboolean allow_type_vars, gboolean allow_partial) MONO_INTERNAL;
1991
1992 gboolean
1993 mono_method_is_generic_impl (MonoMethod *method) MONO_INTERNAL;
1994
1995 gboolean
1996 mono_method_is_generic_sharable_impl (MonoMethod *method, gboolean allow_type_vars) MONO_INTERNAL;
1997
1998 gboolean
1999 mono_method_is_generic_sharable_impl_full (MonoMethod *method, gboolean allow_type_vars, gboolean allow_partial) MONO_INTERNAL;
2000
2001 gboolean
2002 mono_is_partially_sharable_inst (MonoGenericInst *inst) MONO_INTERNAL;
2003
2004 MonoGenericSharingContext* mono_get_generic_context_from_code (guint8 *code) MONO_INTERNAL;
2005
2006 MonoGenericContext* mini_method_get_context (MonoMethod *method) MONO_INTERNAL;
2007
2008 int mono_method_check_context_used (MonoMethod *method) MONO_INTERNAL;
2009
2010 gboolean mono_generic_context_equal_deep (MonoGenericContext *context1, MonoGenericContext *context2) MONO_INTERNAL;
2011
2012 gpointer mono_helper_get_rgctx_other_ptr (MonoClass *caller_class, MonoVTable *vtable,
2013                                           guint32 token, guint32 token_source, guint32 rgctx_type,
2014                                           gint32 rgctx_index) MONO_INTERNAL;
2015
2016 void mono_generic_sharing_init (void) MONO_INTERNAL;
2017
2018 MonoClass* mini_class_get_container_class (MonoClass *class) MONO_INTERNAL;
2019 MonoGenericContext* mini_class_get_context (MonoClass *class) MONO_INTERNAL;
2020
2021 MonoType* mini_get_basic_type_from_generic (MonoGenericSharingContext *gsctx, MonoType *type) MONO_INTERNAL;
2022 MonoType* mini_type_get_underlying_type (MonoGenericSharingContext *gsctx, MonoType *type) MONO_INTERNAL;
2023 MonoMethod* mini_get_shared_method (MonoMethod *method) MONO_INTERNAL;
2024 MonoMethod* mini_get_shared_method_to_register (MonoMethod *method) MONO_INTERNAL;
2025
2026 int mini_type_stack_size (MonoGenericSharingContext *gsctx, MonoType *t, int *align) MONO_INTERNAL;
2027 int mini_type_stack_size_full (MonoGenericSharingContext *gsctx, MonoType *t, guint32 *align, gboolean pinvoke) MONO_INTERNAL;
2028 void type_to_eval_stack_type (MonoCompile *cfg, MonoType *type, MonoInst *inst) MONO_INTERNAL;
2029 guint mono_type_to_regmove (MonoCompile *cfg, MonoType *type) MONO_INTERNAL;
2030
2031 void mono_cfg_add_try_hole (MonoCompile *cfg, MonoExceptionClause *clause, guint8 *start, MonoBasicBlock *bb) MONO_INTERNAL;
2032
2033 /* wapihandles.c */
2034 int mini_wapi_hps (int argc, char **argv) MONO_INTERNAL;
2035
2036 int mini_wapi_semdel (int argc, char **argv) MONO_INTERNAL;
2037
2038 int mini_wapi_seminfo (int argc, char **argv) MONO_INTERNAL;
2039
2040 /* SIMD support */
2041
2042 /*
2043 This enum MUST be kept in sync with its managed mirror Mono.Simd.AccelMode.
2044  */
2045 enum {
2046         SIMD_VERSION_SSE1       = 1 << 0,
2047         SIMD_VERSION_SSE2       = 1 << 1,
2048         SIMD_VERSION_SSE3       = 1 << 2,
2049         SIMD_VERSION_SSSE3      = 1 << 3,
2050         SIMD_VERSION_SSE41      = 1 << 4,
2051         SIMD_VERSION_SSE42      = 1 << 5,
2052         SIMD_VERSION_SSE4a      = 1 << 6,
2053         SIMD_VERSION_ALL        = SIMD_VERSION_SSE1 | SIMD_VERSION_SSE2 |
2054                           SIMD_VERSION_SSE3 | SIMD_VERSION_SSSE3 |
2055                           SIMD_VERSION_SSE41 | SIMD_VERSION_SSE42 |
2056                           SIMD_VERSION_SSE4a,
2057
2058         /* this value marks the end of the bit indexes used in
2059          * this emum.
2060          */
2061         SIMD_VERSION_INDEX_END = 6
2062 };
2063
2064 #define MASK(x) (1 << x)
2065
2066 enum {
2067         SIMD_COMP_EQ,
2068         SIMD_COMP_LT,
2069         SIMD_COMP_LE,
2070         SIMD_COMP_UNORD,
2071         SIMD_COMP_NEQ,
2072         SIMD_COMP_NLT,
2073         SIMD_COMP_NLE,
2074         SIMD_COMP_ORD
2075 };
2076
2077 enum {
2078         SIMD_PREFETCH_MODE_NTA,
2079         SIMD_PREFETCH_MODE_0,
2080         SIMD_PREFETCH_MODE_1,
2081         SIMD_PREFETCH_MODE_2,
2082 };
2083
2084 const char *mono_arch_xregname (int reg) MONO_INTERNAL;
2085 void        mono_simd_simplify_indirection (MonoCompile *cfg) MONO_INTERNAL;
2086 MonoInst*   mono_emit_simd_intrinsics (MonoCompile *cfg, MonoMethod *cmethod, MonoMethodSignature *fsig, MonoInst **args) MONO_INTERNAL;
2087 guint32     mono_arch_cpu_enumerate_simd_versions (void) MONO_INTERNAL;
2088 void        mono_simd_intrinsics_init (void) MONO_INTERNAL;
2089
2090 #ifdef __linux__
2091 /* maybe enable also for other systems? */
2092 #define ENABLE_JIT_MAP 1
2093 void mono_enable_jit_map (void) MONO_INTERNAL;
2094 void mono_emit_jit_map   (MonoJitInfo *jinfo) MONO_INTERNAL;
2095 void mono_emit_jit_tramp (void *start, int size, const char *desc) MONO_INTERNAL;
2096 #else
2097 #define mono_enable_jit_map()
2098 #define mono_emit_jit_map(ji)
2099 #define mono_emit_jit_tramp(s,z,d)
2100 #endif
2101
2102 /*
2103  * Per-OS implementation functions.
2104  */
2105 void mono_runtime_install_handlers (void) MONO_INTERNAL;
2106 void mono_runtime_cleanup_handlers (void) MONO_INTERNAL;
2107 void mono_runtime_setup_stat_profiler (void) MONO_INTERNAL;
2108 void mono_runtime_shutdown_stat_profiler (void) MONO_INTERNAL;
2109 void mono_runtime_posix_install_handlers (void) MONO_INTERNAL;
2110 pid_t mono_runtime_syscall_fork (void) MONO_INTERNAL;
2111 gboolean mono_gdb_render_native_backtraces (void) MONO_INTERNAL;
2112
2113 /*
2114  * Signal handling
2115  */
2116 #ifdef MONO_GET_CONTEXT
2117 #define GET_CONTEXT MONO_GET_CONTEXT
2118 #endif
2119
2120 #ifndef GET_CONTEXT
2121 #ifdef HOST_WIN32
2122 #define GET_CONTEXT \
2123     void *ctx = context;
2124 #else
2125 #ifdef MONO_ARCH_USE_SIGACTION
2126 #define GET_CONTEXT \
2127     void *ctx = context;
2128 #elif defined(__HAIKU__)
2129 #define GET_CONTEXT \
2130         void *ctx = &regs;
2131 #else
2132 #define GET_CONTEXT \
2133         void **_p = (void **)&_dummy; \
2134         struct sigcontext *ctx = (struct sigcontext *)++_p;
2135 #endif
2136 #endif
2137 #endif
2138
2139 #ifdef MONO_ARCH_USE_SIGACTION
2140 #define SIG_HANDLER_SIGNATURE(ftn) ftn (int _dummy, siginfo_t *info, void *context)
2141 #define SIG_HANDLER_PARAMS _dummy, info, context
2142 #elif defined(HOST_WIN32)
2143 #define SIG_HANDLER_SIGNATURE(ftn) ftn (int _dummy, EXCEPTION_RECORD *info, void *context)
2144 #define SIG_HANDLER_PARAMS _dummy, info, context
2145 #elif defined(__HAIKU__)
2146 #define SIG_HANDLER_SIGNATURE(ftn) ftn (int _dummy, void *userData, vregs regs)
2147 #define SIG_HANDLER_PARAMS _dummy, userData, regs
2148 #else
2149 #define SIG_HANDLER_SIGNATURE(ftn) ftn (int _dummy)
2150 #define SIG_HANDLER_PARAMS _dummy
2151 #endif
2152
2153 void SIG_HANDLER_SIGNATURE (mono_sigfpe_signal_handler)  MONO_INTERNAL;
2154 void SIG_HANDLER_SIGNATURE (mono_sigill_signal_handler)  MONO_INTERNAL;
2155 void SIG_HANDLER_SIGNATURE (mono_sigsegv_signal_handler) MONO_INTERNAL;
2156 void SIG_HANDLER_SIGNATURE (mono_sigint_signal_handler)  MONO_INTERNAL;
2157 gboolean SIG_HANDLER_SIGNATURE (mono_chain_signal) MONO_INTERNAL;
2158
2159 /* for MONO_WRAPPER_UNKNOWN/MANAGED_TO_MANAGED subtypes */
2160 enum {
2161         MONO_AOT_WRAPPER_MONO_ENTER,
2162         MONO_AOT_WRAPPER_MONO_EXIT,
2163         MONO_AOT_WRAPPER_ELEMENT_ADDR,
2164         MONO_AOT_WRAPPER_LAST
2165 };
2166
2167 #endif /* __MONO_MINI_H__ */