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