mono/mini/mini.h

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