mono/mini/mini.h

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