/mono/mini/mini.h
C Header | 2641 lines | 1901 code | 332 blank | 408 comment | 201 complexity | 8af89c7f0e9058bb1de9728d17f07e6c MD5 | raw file
Possible License(s): Unlicense, Apache-2.0, LGPL-2.0, MPL-2.0-no-copyleft-exception, CC-BY-SA-3.0, GPL-2.0
Large files files are truncated, but you can click here to view the full file
- /*
- * Copyright 2002-2003 Ximian Inc
- * Copyright 2003-2011 Novell Inc
- * Copyright 2011 Xamarin Inc
- */
- #ifndef __MONO_MINI_H__
- #define __MONO_MINI_H__
- #include "config.h"
- #include <glib.h>
- #include <signal.h>
- #ifdef HAVE_SYS_TYPES_H
- #include <sys/types.h>
- #endif
- #include <mono/metadata/loader.h>
- #include <mono/metadata/mempool.h>
- #include <mono/utils/monobitset.h>
- #include <mono/metadata/class.h>
- #include <mono/metadata/object.h>
- #include <mono/metadata/opcodes.h>
- #include <mono/metadata/tabledefs.h>
- #include <mono/metadata/domain-internals.h>
- #include "mono/metadata/class-internals.h"
- #include "mono/metadata/object-internals.h"
- #include <mono/metadata/profiler-private.h>
- #include <mono/metadata/debug-helpers.h>
- #include <mono/utils/mono-compiler.h>
- #include <mono/utils/mono-machine.h>
- #include <mono/utils/mono-stack-unwinding.h>
- #include <mono/utils/mono-threads.h>
- #include <mono/utils/mono-tls.h>
- #define MONO_BREAKPOINT_ARRAY_SIZE 64
- #include "mini-arch.h"
- #include "regalloc.h"
- #include "declsec.h"
- #include "mini-unwind.h"
- #include "jit.h"
- /*
- * The mini code should not have any compile time dependencies on the GC being used, so the same object file from mini/
- * can be linked into both mono and mono-sgen.
- */
- #if defined(HAVE_BOEHM_GC) || defined(HAVE_SGEN_GC)
- #error "The code in mini/ should not depend on these defines."
- #endif
- #ifndef G_LIKELY
- #define G_LIKELY(a) (a)
- #define G_UNLIKELY(a) (a)
- #endif
- #ifndef G_MAXINT32
- #define G_MAXINT32 2147483647
- #endif
- #ifndef G_MININT32
- #define G_MININT32 (-G_MAXINT32 - 1)
- #endif
- #ifndef __GNUC__
- /*#define __alignof__(a) sizeof(a)*/
- #define __alignof__(type) G_STRUCT_OFFSET(struct { char c; type x; }, x)
- #endif
- #if DISABLE_LOGGING
- #define MINI_DEBUG(level,limit,code)
- #else
- #define MINI_DEBUG(level,limit,code) do {if (G_UNLIKELY ((level) >= (limit))) code} while (0)
- #endif
- #if !defined(DISABLE_TASKLETS) && defined(MONO_ARCH_SUPPORT_TASKLETS) && defined(__GNUC__)
- #define MONO_SUPPORT_TASKLETS 1
- #endif
- #if ENABLE_LLVM
- #define COMPILE_LLVM(cfg) ((cfg)->compile_llvm)
- #define LLVM_ENABLED TRUE
- #else
- #define COMPILE_LLVM(cfg) (0)
- #define LLVM_ENABLED FALSE
- #endif
- #ifdef MONO_ARCH_SOFT_FLOAT
- #define COMPILE_SOFT_FLOAT(cfg) (!COMPILE_LLVM ((cfg)))
- #else
- #define COMPILE_SOFT_FLOAT(cfg) 0
- #endif
- #ifdef ENABLE_LLVM
- #define LLVM_CHECK_VERSION(major,minor) \
- ((LLVM_MAJOR_VERSION > (major)) || \
- ((LLVM_MAJOR_VERSION == (major)) && (LLVM_MINOR_VERSION >= (minor))))
- #else
- #define LLVM_CHECK_VERSION(major,minor) 0
- #endif
- /*
- * Whenever we are using mono's LLVM branch.
- * This can be used in if statements, code which references new definitions from the branch
- * still needs an #ifdef LLVM_MONO_BRANCH.
- */
- #ifdef LLVM_MONO_BRANCH
- #define IS_LLVM_MONO_BRANCH 1
- #else
- #define IS_LLVM_MONO_BRANCH 0
- #endif
- #define NOT_IMPLEMENTED do { g_assert_not_reached (); } while (0)
- /* for 32 bit systems */
- #if G_BYTE_ORDER == G_LITTLE_ENDIAN
- #define MINI_LS_WORD_IDX 0
- #define MINI_MS_WORD_IDX 1
- #else
- #define MINI_LS_WORD_IDX 1
- #define MINI_MS_WORD_IDX 0
- #endif
- #define MINI_LS_WORD_OFFSET (MINI_LS_WORD_IDX * 4)
- #define MINI_MS_WORD_OFFSET (MINI_MS_WORD_IDX * 4)
- #define inst_ls_word data.op[MINI_LS_WORD_IDX].const_val
- #define inst_ms_word data.op[MINI_MS_WORD_IDX].const_val
- #ifndef DISABLE_AOT
- #define MONO_USE_AOT_COMPILER
- #endif
- /* Version number of the AOT file format */
- #define MONO_AOT_FILE_VERSION 88
- //TODO: This is x86/amd64 specific.
- #define mono_simd_shuffle_mask(a,b,c,d) ((a) | ((b) << 2) | ((c) << 4) | ((d) << 6))
- /* Constants used to encode different types of methods in AOT */
- enum {
- MONO_AOT_METHODREF_MIN = 240,
- /* Image index bigger than METHODREF_MIN */
- MONO_AOT_METHODREF_LARGE_IMAGE_INDEX = 249,
- /* Runtime provided methods on arrays */
- MONO_AOT_METHODREF_ARRAY = 250,
- MONO_AOT_METHODREF_NO_AOT_TRAMPOLINE = 251,
- /* Wrappers */
- MONO_AOT_METHODREF_WRAPPER = 252,
- /* Methods on generic instances */
- MONO_AOT_METHODREF_GINST = 253,
- /* Methods resolve using a METHODSPEC token */
- MONO_AOT_METHODREF_METHODSPEC = 254,
- };
- /* Constants used to encode different types of types in AOT */
- enum {
- /* typedef index */
- MONO_AOT_TYPEREF_TYPEDEF_INDEX = 1,
- /* typedef index + image index */
- MONO_AOT_TYPEREF_TYPEDEF_INDEX_IMAGE = 2,
- /* typespec token */
- MONO_AOT_TYPEREF_TYPESPEC_TOKEN = 3,
- /* generic inst */
- MONO_AOT_TYPEREF_GINST = 4,
- /* type/method variable */
- MONO_AOT_TYPEREF_VAR = 5,
- /* array */
- MONO_AOT_TYPEREF_ARRAY = 6,
- /* blob index of the type encoding */
- MONO_AOT_TYPEREF_BLOB_INDEX = 7,
- /* ptr */
- MONO_AOT_TYPEREF_PTR = 8
- };
- /* Trampolines which we have a lot of */
- typedef enum {
- MONO_AOT_TRAMP_SPECIFIC = 0,
- MONO_AOT_TRAMP_STATIC_RGCTX = 1,
- MONO_AOT_TRAMP_IMT_THUNK = 2,
- MONO_AOT_TRAMP_GSHAREDVT_ARG = 3,
- MONO_AOT_TRAMP_NUM = 4
- } MonoAotTrampoline;
- typedef enum {
- MONO_AOT_FILE_FLAG_WITH_LLVM = 1,
- MONO_AOT_FILE_FLAG_FULL_AOT = 2,
- MONO_AOT_FILE_FLAG_DEBUG = 4,
- MONO_AOT_FILE_FLAG_DIRECT_METHOD_ADDRESSES = 8
- } MonoAotFileFlags;
- /* This structure is stored in the AOT file */
- typedef struct MonoAotFileInfo
- {
- /* The version number of the AOT file format, should match MONO_AOT_FILE_VERSION */
- guint32 version;
- /* For alignment */
- guint32 dummy;
- /* All the pointers should be at the start to avoid alignment problems */
- /* Mono's Global Offset Table */
- gpointer got;
- /* Compiled code for methods */
- gpointer methods;
- /* Mono EH Frame created by llc when using LLVM */
- gpointer mono_eh_frame;
- /* Data blob */
- gpointer blob;
- gpointer class_name_table;
- gpointer class_info_offsets;
- gpointer method_info_offsets;
- gpointer ex_info_offsets;
- gpointer code_offsets;
- #ifdef MONOTOUCH
- gpointer method_addresses;
- #endif
- gpointer extra_method_info_offsets;
- gpointer extra_method_table;
- gpointer got_info_offsets;
- gpointer methods_end;
- gpointer unwind_info;
- gpointer mem_end;
- gpointer image_table;
- /* Start of Mono's Program Linkage Table */
- gpointer plt;
- /* End of Mono's Program Linkage Table */
- gpointer plt_end;
- /* The GUID of the assembly which the AOT image was generated from */
- gpointer assembly_guid;
- /*
- * The runtime version string for AOT images generated using 'bind-to-runtime-version',
- * NULL otherwise.
- */
- gpointer runtime_version;
- /* Blocks of various kinds of trampolines */
- gpointer specific_trampolines;
- gpointer static_rgctx_trampolines;
- gpointer imt_thunks;
- gpointer gsharedvt_arg_trampolines;
- /*
- * The end of LLVM generated thumb code, or NULL.
- */
- gpointer thumb_end;
- /* In static mode, points to a table of global symbols for trampolines etc */
- gpointer globals;
- /* Points to a string containing the assembly name*/
- gpointer assembly_name;
- /* Points to a table mapping methods to their unbox trampolines */
- gpointer unbox_trampolines;
- /* Points to the end of the previous table */
- gpointer unbox_trampolines_end;
- /* The index of the first GOT slot used by the PLT */
- guint32 plt_got_offset_base;
- /* Number of entries in the GOT */
- guint32 got_size;
- /* Number of entries in the PLT */
- guint32 plt_size;
- /* Number of methods */
- guint32 nmethods;
- /* A union of MonoAotFileFlags */
- guint32 flags;
- /* Optimization flags used to compile the module */
- guint32 opts;
- /* SIMD flags used to compile the module */
- guint32 simd_opts;
- /* Index of the blob entry holding the GC used by this module */
- gint32 gc_name_index;
- /* Number of trampolines */
- guint32 num_trampolines [MONO_AOT_TRAMP_NUM];
- /* The indexes of the first GOT slots used by the trampolines */
- guint32 trampoline_got_offset_base [MONO_AOT_TRAMP_NUM];
- /* The size of one trampoline */
- guint32 trampoline_size [MONO_AOT_TRAMP_NUM];
- guint32 num_rgctx_fetch_trampolines;
- /* These are used for sanity checking object layout problems when cross-compiling */
- guint32 double_align, long_align;
- } MonoAotFileInfo;
- /* Per-domain information maintained by the JIT */
- typedef struct
- {
- /* Maps MonoMethod's to a GSList of GOT slot addresses pointing to its code */
- GHashTable *jump_target_got_slot_hash;
- GHashTable *jump_target_hash;
- /* Maps methods/klasses to the address of the given type of trampoline */
- GHashTable *class_init_trampoline_hash;
- GHashTable *jump_trampoline_hash;
- GHashTable *jit_trampoline_hash;
- GHashTable *delegate_trampoline_hash;
- GHashTable *static_rgctx_trampoline_hash;
- GHashTable *llvm_vcall_trampoline_hash;
- /* maps MonoMethod -> MonoJitDynamicMethodInfo */
- GHashTable *dynamic_code_hash;
- GHashTable *method_code_hash;
- /* Maps methods to a RuntimeInvokeInfo structure */
- GHashTable *runtime_invoke_hash;
- /* Maps MonoMethod to a GPtrArray containing sequence point locations */
- GHashTable *seq_points;
- /* Debugger agent data */
- gpointer agent_info;
- /* Maps MonoMethod to an arch-specific structure */
- GHashTable *arch_seq_points;
- /* Maps a GSharedVtTrampInfo structure to a trampoline address */
- GHashTable *gsharedvt_arg_tramp_hash;
- } MonoJitDomainInfo;
- typedef struct {
- MonoJitInfo *ji;
- MonoCodeManager *code_mp;
- } MonoJitDynamicMethodInfo;
- #define domain_jit_info(domain) ((MonoJitDomainInfo*)((domain)->runtime_info))
- /* Contains a list of ips which needs to be patched when a method is compiled */
- typedef struct {
- GSList *list;
- } MonoJumpList;
- /* Arch-specific */
- typedef struct {
- int dummy;
- } MonoDynCallInfo;
- /*
- * Information about a stack frame.
- * FIXME This typedef exists only to avoid tons of code rewriting
- */
- typedef MonoStackFrameInfo StackFrameInfo;
- typedef struct {
- int il_offset, native_offset;
- /* Indexes of successor sequence points */
- int *next;
- /* Number of entries in next */
- int next_len;
- } SeqPoint;
- typedef struct {
- int len;
- SeqPoint seq_points [MONO_ZERO_LEN_ARRAY];
- } MonoSeqPointInfo;
- #if 0
- #define mono_bitset_foreach_bit(set,b,n) \
- for (b = 0; b < n; b++)\
- if (mono_bitset_test_fast(set,b))
- #define mono_bitset_foreach_bit_rev(set,b,n) \
- for (b = n - 1; b >= 0; b--)\
- if (mono_bitset_test_fast(set,b))
- #else
- #define mono_bitset_foreach_bit(set,b,n) \
- for (b = mono_bitset_find_start (set); b < n && b >= 0; b = mono_bitset_find_first (set, b))
- #define mono_bitset_foreach_bit_rev(set,b,n) \
- for (b = mono_bitset_find_last (set, n - 1); b >= 0; b = b ? mono_bitset_find_last (set, b) : -1)
-
- #endif
- /*
- * Pull the list of opcodes
- */
- #define OPDEF(a,b,c,d,e,f,g,h,i,j) \
- a = i,
- enum {
- #include "mono/cil/opcode.def"
- CEE_LASTOP
- };
- #undef OPDEF
- #define MONO_VARINFO(cfg,varnum) (&(cfg)->vars [varnum])
- #define MONO_INST_NULLIFY_SREGS(dest) do { \
- (dest)->sreg1 = (dest)->sreg2 = (dest)->sreg3 = -1; \
- } while (0)
- #define MONO_INST_NEW(cfg,dest,op) do { \
- (dest) = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
- (dest)->opcode = (op); \
- (dest)->dreg = -1; \
- MONO_INST_NULLIFY_SREGS ((dest)); \
- (dest)->cil_code = (cfg)->ip; \
- } while (0)
- #define MONO_INST_NEW_CALL(cfg,dest,op) do { \
- (dest) = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoCallInst)); \
- (dest)->inst.opcode = (op); \
- (dest)->inst.dreg = -1; \
- MONO_INST_NULLIFY_SREGS (&(dest)->inst); \
- (dest)->inst.cil_code = (cfg)->ip; \
- } while (0)
- #define MONO_INST_NEW_CALL_ARG(cfg,dest,op) do { \
- (dest) = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoCallArgParm)); \
- (dest)->ins.opcode = (op); \
- } while (0)
- #define MONO_ADD_INS(b,inst) do { \
- if ((b)->last_ins) { \
- (b)->last_ins->next = (inst); \
- (inst)->prev = (b)->last_ins; \
- (b)->last_ins = (inst); \
- } else { \
- (b)->code = (b)->last_ins = (inst); \
- } \
- } while (0)
- #define NULLIFY_INS(ins) do { \
- (ins)->opcode = OP_NOP; \
- (ins)->dreg = -1; \
- MONO_INST_NULLIFY_SREGS ((ins)); \
- } while (0)
- /* Remove INS from BB */
- #define MONO_REMOVE_INS(bb,ins) do { \
- if ((ins)->prev) \
- (ins)->prev->next = (ins)->next; \
- if ((ins)->next) \
- (ins)->next->prev = (ins)->prev; \
- if ((bb)->code == (ins)) \
- (bb)->code = (ins)->next; \
- if ((bb)->last_ins == (ins)) \
- (bb)->last_ins = (ins)->prev; \
- } while (0)
- /* Remove INS from BB and nullify it */
- #define MONO_DELETE_INS(bb,ins) do { \
- MONO_REMOVE_INS ((bb), (ins)); \
- NULLIFY_INS ((ins)); \
- } while (0)
- /*
- * this is used to determine when some branch optimizations are possible: we exclude FP compares
- * because they have weird semantics with NaNs.
- */
- #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))
- #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))
- #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))
- #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)))
- #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)))
- #define MONO_IS_LOAD_MEMBASE(ins) (((ins)->opcode >= OP_LOAD_MEMBASE) && ((ins)->opcode <= OP_LOADV_MEMBASE))
- #define MONO_IS_STORE_MEMBASE(ins) (((ins)->opcode >= OP_STORE_MEMBASE_REG) && ((ins)->opcode <= OP_STOREV_MEMBASE))
- #define MONO_IS_STORE_MEMINDEX(ins) (((ins)->opcode >= OP_STORE_MEMINDEX) && ((ins)->opcode <= OP_STORER8_MEMINDEX))
- #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))
- #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)))
- #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))))
- /* FIXME: Add more instructions */
- /* INEG sets the condition codes, and the OP_LNEG decomposition depends on this on x86 */
- #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_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))
- #define MONO_METHOD_IS_FINAL(m) (((m)->flags & METHOD_ATTRIBUTE_FINAL) || ((m)->klass && ((m)->klass->flags & TYPE_ATTRIBUTE_SEALED)))
- #ifdef MONO_ARCH_SIMD_INTRINSICS
- #define MONO_IS_PHI(ins) (((ins)->opcode == OP_PHI) || ((ins)->opcode == OP_FPHI) || ((ins)->opcode == OP_VPHI) || ((ins)->opcode == OP_XPHI))
- #define MONO_IS_MOVE(ins) (((ins)->opcode == OP_MOVE) || ((ins)->opcode == OP_FMOVE) || ((ins)->opcode == OP_VMOVE) || ((ins)->opcode == OP_XMOVE))
- #define MONO_IS_NON_FP_MOVE(ins) (((ins)->opcode == OP_MOVE) || ((ins)->opcode == OP_VMOVE) || ((ins)->opcode == OP_XMOVE))
- #define MONO_IS_REAL_MOVE(ins) (((ins)->opcode == OP_MOVE) || ((ins)->opcode == OP_FMOVE) || ((ins)->opcode == OP_XMOVE))
- #define MONO_IS_ZERO(ins) (((ins)->opcode == OP_VZERO) || ((ins)->opcode == OP_XZERO))
- #define MONO_CLASS_IS_SIMD(cfg, klass) (((cfg)->opt & MONO_OPT_SIMD) && (klass)->simd_type)
- #else
- #define MONO_IS_PHI(ins) (((ins)->opcode == OP_PHI) || ((ins)->opcode == OP_FPHI) || ((ins)->opcode == OP_VPHI))
- #define MONO_IS_MOVE(ins) (((ins)->opcode == OP_MOVE) || ((ins)->opcode == OP_FMOVE) || ((ins)->opcode == OP_VMOVE))
- #define MONO_IS_NON_FP_MOVE(ins) (((ins)->opcode == OP_MOVE) || ((ins)->opcode == OP_VMOVE))
- /*A real MOVE is one that isn't decomposed such as a VMOVE or LMOVE*/
- #define MONO_IS_REAL_MOVE(ins) (((ins)->opcode == OP_MOVE) || ((ins)->opcode == OP_FMOVE))
- #define MONO_IS_ZERO(ins) ((ins)->opcode == OP_VZERO)
- #define MONO_CLASS_IS_SIMD(cfg, klass) (0)
- #endif
- typedef struct MonoInstList MonoInstList;
- typedef struct MonoInst MonoInst;
- typedef struct MonoCallInst MonoCallInst;
- typedef struct MonoCallArgParm MonoCallArgParm;
- typedef struct MonoMethodVar MonoMethodVar;
- typedef struct MonoBasicBlock MonoBasicBlock;
- typedef struct MonoLMF MonoLMF;
- typedef struct MonoSpillInfo MonoSpillInfo;
- typedef struct MonoTraceSpec MonoTraceSpec;
- extern MonoNativeTlsKey mono_jit_tls_id;
- extern MonoTraceSpec *mono_jit_trace_calls;
- extern gboolean mono_break_on_exc;
- extern int mono_exc_esp_offset;
- extern gboolean mono_compile_aot;
- extern gboolean mono_aot_only;
- extern gboolean mono_use_imt;
- extern MonoMethodDesc *mono_inject_async_exc_method;
- extern int mono_inject_async_exc_pos;
- extern MonoMethodDesc *mono_break_at_bb_method;
- extern int mono_break_at_bb_bb_num;
- extern gboolean check_for_pending_exc;
- extern gboolean disable_vtypes_in_regs;
- extern gboolean mono_verify_all;
- extern gboolean mono_dont_free_global_codeman;
- extern gboolean mono_do_x86_stack_align;
- extern const char *mono_build_date;
- extern gboolean mono_do_signal_chaining;
- extern gboolean mono_use_llvm;
- #define INS_INFO(opcode) (&ins_info [((opcode) - OP_START - 1) * 4])
- extern const char ins_info[];
- extern const gint8 ins_sreg_counts [];
- #define mono_inst_get_num_src_registers(ins) (ins_sreg_counts [(ins)->opcode - OP_START - 1])
- #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)))
- #define MONO_BB_FOR_EACH_INS(bb, ins) for ((ins) = (bb)->code; (ins); (ins) = (ins)->next)
- #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)
- #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)
- #define mono_bb_first_ins(bb) (bb)->code
- struct MonoSpillInfo {
- int offset;
- };
- /*
- * Information about a call site for the GC map creation code
- */
- typedef struct {
- /* The next offset after the call instruction */
- int pc_offset;
- /* The basic block containing the call site */
- MonoBasicBlock *bb;
- /*
- * The set of variables live at the call site.
- * Has length cfg->num_varinfo in bits.
- */
- guint8 *liveness;
- /*
- * List of OP_GC_PARAM_SLOT_LIVENESS_DEF instructions defining the param slots
- * used by this call.
- */
- GSList *param_slots;
- } GCCallSite;
- /*
- * The IR-level extended basic block.
- *
- * A basic block can have multiple exits just fine, as long as the point of
- * 'departure' is the last instruction in the basic block. Extended basic
- * blocks, on the other hand, may have instructions that leave the block
- * midstream. The important thing is that they cannot be _entered_
- * midstream, ie, execution of a basic block (or extened bb) always start
- * at the beginning of the block, never in the middle.
- */
- struct MonoBasicBlock {
- MonoInst *last_ins;
- /* the next basic block in the order it appears in IL */
- MonoBasicBlock *next_bb;
- /*
- * Before instruction selection it is the first tree in the
- * forest and the first item in the list of trees. After
- * instruction selection it is the first instruction and the
- * first item in the list of instructions.
- */
- MonoInst *code;
- /* unique block number identification */
- gint32 block_num;
-
- gint32 dfn;
- /* Basic blocks: incoming and outgoing counts and pointers */
- /* Each bb should only appear once in each array */
- gint16 out_count, in_count;
- MonoBasicBlock **in_bb;
- MonoBasicBlock **out_bb;
- /* Points to the start of the CIL code that initiated this BB */
- unsigned char* cil_code;
- /* Length of the CIL block */
- gint32 cil_length;
- /* The offset of the generated code, used for fixups */
- int native_offset;
- /* The length of the generated code, doesn't include alignment padding */
- int native_length;
- /* The real native offset, which includes alignment padding too */
- int real_native_offset;
- int max_offset;
- int max_length;
- /* Visited and reachable flags */
- guint32 flags;
- /*
- * SSA and loop based flags
- */
- MonoBitSet *dominators;
- MonoBitSet *dfrontier;
- MonoBasicBlock *idom;
- GSList *dominated;
- /* fast dominator algorithm */
- MonoBasicBlock *df_parent, *ancestor, *child, *label;
- int size, sdom, idomn;
-
- /* loop nesting and recognition */
- GList *loop_blocks;
- gint8 nesting;
- gint8 loop_body_start;
- /*
- * Whenever the bblock is rarely executed so it should be emitted after
- * the function epilog.
- */
- guint out_of_line : 1;
- /* Caches the result of uselessness calculation during optimize_branches */
- guint not_useless : 1;
- /* Whenever the decompose_array_access_opts () pass needs to process this bblock */
- guint has_array_access : 1;
- /* Whenever this bblock is extended, ie. it has branches inside it */
- guint extended : 1;
- /* Whenever this bblock contains a OP_JUMP_TABLE instruction */
- guint has_jump_table : 1;
- /* Whenever this bblock contains an OP_CALL_HANDLER instruction */
- guint has_call_handler : 1;
- /* Whenever this bblock starts a try block */
- guint try_start : 1;
- /*
- * If this is set, extend the try range started by this bblock by an arch specific
- * number of bytes to encompass the end of the previous bblock (e.g. a Monitor.Enter
- * call).
- */
- guint extend_try_block : 1;
-
- /* use for liveness analysis */
- MonoBitSet *gen_set;
- MonoBitSet *kill_set;
- MonoBitSet *live_in_set;
- MonoBitSet *live_out_set;
- /* fields to deal with non-empty stack slots at bb boundary */
- guint16 out_scount, in_scount;
- MonoInst **out_stack;
- MonoInst **in_stack;
- /* we use that to prevent merging of bblocks covered by different clauses*/
- guint real_offset;
- GSList *seq_points;
- MonoInst *last_seq_point;
- GSList *spill_slot_defs;
- /* List of call sites in this bblock sorted by pc_offset */
- GSList *gc_callsites;
- /*
- * The region encodes whether the basic block is inside
- * a finally, catch, filter or none of these.
- *
- * If the value is -1, then it is neither finally, catch nor filter
- *
- * Otherwise the format is:
- *
- * Bits: | 0-3 | 4-7 | 8-31
- * | | |
- * | clause-flags | MONO_REGION | clause-index
- *
- */
- guint region;
- /* The current symbolic register number, used in local register allocation. */
- guint32 max_vreg;
- };
- /* BBlock flags */
- enum {
- BB_VISITED = 1 << 0,
- BB_REACHABLE = 1 << 1,
- BB_EXCEPTION_DEAD_OBJ = 1 << 2,
- BB_EXCEPTION_UNSAFE = 1 << 3,
- BB_EXCEPTION_HANDLER = 1 << 4,
- /* for Native Client, mark the blocks that can be jumped to indirectly */
- BB_INDIRECT_JUMP_TARGET = 1 << 5
- };
- typedef struct MonoMemcpyArgs {
- int size, align;
- } MonoMemcpyArgs;
- typedef enum {
- LLVMArgNone,
- LLVMArgInIReg,
- LLVMArgInFPReg,
- LLVMArgVtypeInReg,
- LLVMArgVtypeByVal,
- LLVMArgVtypeRetAddr /* On on cinfo->ret */
- } LLVMArgStorage;
- typedef struct {
- LLVMArgStorage storage;
- /* Only if storage == ArgValuetypeInReg */
- LLVMArgStorage pair_storage [2];
- } LLVMArgInfo;
- typedef struct {
- LLVMArgInfo ret;
- /* Whenever there is an rgctx argument */
- gboolean rgctx_arg;
- /* Whenever there is an IMT argument */
- gboolean imt_arg;
- /*
- * The position of the vret arg in the argument list.
- * Only if ret->storage == ArgVtypeRetAddr.
- * Should be 0 or 1.
- */
- int vret_arg_index;
- /* args [0] is for the this argument if it exists */
- LLVMArgInfo args [1];
- } LLVMCallInfo;
- #define MONO_MAX_SRC_REGS 3
- struct MonoInst {
- guint16 opcode;
- guint8 type; /* stack type */
- guint8 flags;
-
- /* used by the register allocator */
- gint32 dreg, sreg1, sreg2, sreg3;
- MonoInst *next, *prev;
- union {
- union {
- MonoInst *src;
- MonoMethodVar *var;
- mgreg_t const_val;
- #if (SIZEOF_REGISTER > SIZEOF_VOID_P) && (G_BYTE_ORDER == G_BIG_ENDIAN)
- struct {
- gpointer p[SIZEOF_REGISTER/SIZEOF_VOID_P];
- } pdata;
- #else
- gpointer p;
- #endif
- MonoMethod *method;
- MonoMethodSignature *signature;
- MonoBasicBlock **many_blocks;
- MonoBasicBlock *target_block;
- MonoInst **args;
- MonoType *vtype;
- MonoClass *klass;
- int *phi_args;
- MonoCallInst *call_inst;
- MonoExceptionClause *exception_clause;
- } op [2];
- gint64 i8const;
- double r8const;
- } data;
- const unsigned char* cil_code; /* for debugging and bblock splitting */
- /* used mostly by the backend to store additional info it may need */
- union {
- gint32 reg3;
- gint32 arg_info;
- gint32 size;
- MonoMemcpyArgs *memcpy_args; /* in OP_MEMSET and OP_MEMCPY */
- gpointer data;
- gint shift_amount;
- gboolean is_pinvoke; /* for variables in the unmanaged marshal format */
- gboolean record_cast_details; /* For CEE_CASTCLASS */
- MonoInst *spill_var; /* for OP_ICONV_TO_R8_RAW and OP_FCONV_TO_R8_X */
- guint16 source_opcode; /*OP_XCONV_R8_TO_I4 needs to know which op was used to do proper widening*/
- int pc_offset; /* OP_GC_LIVERANGE_START/END */
- int memory_barrier_kind; /* see mono-memory-model.h for valid values */
- } backend;
-
- MonoClass *klass;
- };
-
- struct MonoCallInst {
- MonoInst inst;
- MonoMethodSignature *signature;
- MonoMethod *method;
- MonoInst **args;
- MonoInst *out_args;
- MonoInst *vret_var;
- gconstpointer fptr;
- guint stack_usage;
- guint stack_align_amount;
- guint virtual : 1;
- guint tail_call : 1;
- /* If this is TRUE, 'fptr' points to a MonoJumpInfo instead of an address. */
- guint fptr_is_patch : 1;
- /*
- * If this is true, then the call returns a vtype in a register using the same
- * calling convention as OP_CALL.
- */
- guint vret_in_reg : 1;
- /* Whenever there is an IMT argument and it is dynamic */
- guint dynamic_imt_arg : 1;
- /* Whenever there is an RGCTX argument */
- guint32 rgctx_reg : 1;
- /* Whenever the call will need an unbox trampoline */
- guint need_unbox_trampoline : 1;
- regmask_t used_iregs;
- regmask_t used_fregs;
- GSList *out_ireg_args;
- GSList *out_freg_args;
- GSList *outarg_vts;
- #ifdef ENABLE_LLVM
- LLVMCallInfo *cinfo;
- int rgctx_arg_reg, imt_arg_reg;
- #endif
- };
- struct MonoCallArgParm {
- MonoInst ins;
- gint32 size;
- gint32 offset;
- gint32 offPrm;
- };
- /*
- * flags for MonoInst
- * Note: some of the values overlap, because they can't appear
- * in the same MonoInst.
- */
- enum {
- MONO_INST_HAS_METHOD = 1,
- MONO_INST_INIT = 1, /* in localloc */
- MONO_INST_SINGLE_STEP_LOC = 1, /* in SEQ_POINT */
- MONO_INST_IS_DEAD = 2,
- MONO_INST_TAILCALL = 4,
- MONO_INST_VOLATILE = 4,
- MONO_INST_NOTYPECHECK = 4,
- MONO_INST_UNALIGNED = 8,
- MONO_INST_CFOLD_TAKEN = 8, /* On branches */
- MONO_INST_CFOLD_NOT_TAKEN = 16, /* On branches */
- MONO_INST_DEFINITION_HAS_SIDE_EFFECTS = 8,
- /* the address of the variable has been taken */
- MONO_INST_INDIRECT = 16,
- MONO_INST_NORANGECHECK = 16,
- /* On loads, the source address can be null */
- MONO_INST_FAULT = 32,
- /*
- * On variables, identifies LMF variables. These variables have a dummy type (int), but
- * require stack space for a MonoLMF struct.
- */
- MONO_INST_LMF = 32,
- /* On loads, the source address points to a constant value */
- MONO_INST_CONSTANT_LOAD = 64,
- /* On variables, the variable needs GC tracking */
- MONO_INST_GC_TRACK = 128,
- /*
- * Set on instructions during code emission which make calls, i.e. OP_CALL, OP_THROW.
- * backend.pc_offset will be set to the pc offset at the end of the native call instructions.
- */
- MONO_INST_GC_CALLSITE = 128
- };
- #define inst_c0 data.op[0].const_val
- #define inst_c1 data.op[1].const_val
- #define inst_i0 data.op[0].src
- #define inst_i1 data.op[1].src
- #if (SIZEOF_REGISTER > SIZEOF_VOID_P) && (G_BYTE_ORDER == G_BIG_ENDIAN)
- #define inst_p0 data.op[0].pdata.p[SIZEOF_REGISTER/SIZEOF_VOID_P - 1]
- #define inst_p1 data.op[1].pdata.p[SIZEOF_REGISTER/SIZEOF_VOID_P - 1]
- #else
- #define inst_p0 data.op[0].p
- #define inst_p1 data.op[1].p
- #endif
- #define inst_l data.i8const
- #define inst_r data.r8const
- #define inst_left data.op[0].src
- #define inst_right data.op[1].src
- #define inst_newa_len data.op[0].src
- #define inst_newa_class data.op[1].klass
- #define inst_var data.op[0].var
- #define inst_vtype data.op[1].vtype
- /* in branch instructions */
- #define inst_many_bb data.op[1].many_blocks
- #define inst_target_bb data.op[0].target_block
- #define inst_true_bb data.op[1].many_blocks[0]
- #define inst_false_bb data.op[1].many_blocks[1]
- #define inst_basereg sreg1
- #define inst_indexreg sreg2
- #define inst_destbasereg dreg
- #define inst_offset data.op[0].const_val
- #define inst_imm data.op[1].const_val
- #define inst_call data.op[1].call_inst
- #define inst_phi_args data.op[1].phi_args
- #define inst_eh_block data.op[1].exception_clause
- /* instruction description for use in regalloc/scheduling */
- enum {
- MONO_INST_DEST,
- MONO_INST_SRC1, /* we depend on the SRCs to be consecutive */
- MONO_INST_SRC2,
- MONO_INST_SRC3,
- MONO_INST_LEN,
- MONO_INST_CLOB,
- /* Unused, commented out to reduce the size of the mdesc tables
- MONO_INST_FLAGS,
- MONO_INST_COST,
- MONO_INST_DELAY,
- MONO_INST_RES,
- */
- MONO_INST_MAX
- };
- typedef union {
- struct {
- guint16 tid; /* tree number */
- guint16 bid; /* block number */
- } pos ;
- guint32 abs_pos;
- } MonoPosition;
- typedef struct {
- MonoPosition first_use, last_use;
- } MonoLiveRange;
- typedef struct MonoLiveRange2 MonoLiveRange2;
- struct MonoLiveRange2 {
- int from, to;
- MonoLiveRange2 *next;
- };
- typedef struct {
- /* List of live ranges sorted by 'from' */
- MonoLiveRange2 *range;
- MonoLiveRange2 *last_range;
- } MonoLiveInterval;
- /*
- * Additional information about a variable
- */
- struct MonoMethodVar {
- guint idx; /* inside cfg->varinfo, cfg->vars */
- MonoLiveRange range; /* generated by liveness analysis */
- MonoLiveInterval *interval; /* generated by liveness analysis */
- int reg; /* != -1 if allocated into a register */
- int spill_costs;
- MonoBitSet *def_in; /* used by SSA */
- MonoInst *def; /* used by SSA */
- MonoBasicBlock *def_bb; /* used by SSA */
- GList *uses; /* used by SSA */
- char cpstate; /* used by SSA conditional constant propagation */
- /* The native offsets corresponding to the live range of the variable */
- gint32 live_range_start, live_range_end;
- /*
- * cfg->varinfo [idx]->dreg could be replaced for OP_REGVAR, this contains the
- * original vreg.
- */
- gint32 vreg;
- };
- /*
- * Stores state need to resume exception handling when using LLVM
- */
- typedef struct {
- MonoJitInfo *ji;
- int clause_index;
- MonoContext ctx, new_ctx;
- /* FIXME: GC */
- gpointer ex_obj;
- MonoLMF *lmf;
- int first_filter_idx, filter_idx;
- } ResumeState;
- typedef struct {
- gpointer end_of_stack;
- guint32 stack_size;
- #if !defined(HAVE_KW_THREAD) || !defined(MONO_ARCH_ENABLE_MONO_LMF_VAR)
- MonoLMF *lmf;
- #endif
- MonoLMF *first_lmf;
- gpointer restore_stack_prot;
- guint32 handling_stack_ovf;
- gpointer signal_stack;
- guint32 signal_stack_size;
- gpointer stack_ovf_guard_base;
- guint32 stack_ovf_guard_size;
- guint stack_ovf_valloced : 1;
- void (*abort_func) (MonoObject *object);
- /* Used to implement --debug=casts */
- MonoClass *class_cast_from, *class_cast_to;
- /* Stores state needed by handler block with a guard */
- MonoContext ex_ctx;
- ResumeState resume_state;
- /*Variabled use to implement handler blocks (finally/catch/etc) guards during interruption*/
- /* handler block return address */
- gpointer handler_block_return_address;
- /* handler block been guarded. It's safe to store this even for dynamic methods since there
- is an activation on stack making sure it will remain alive.*/
- MonoJitExceptionInfo *handler_block;
- /* context to be used by the guard trampoline when resuming interruption.*/
- MonoContext handler_block_context;
- /*
- * Stores the state at the exception throw site to be used by mono_stack_walk ()
- * when it is called from profiler functions during exception handling.
- */
- MonoContext orig_ex_ctx;
- gboolean orig_ex_ctx_set;
- } MonoJitTlsData;
- /*
- * This structure is an extension of MonoLMF and contains extra information.
- */
- typedef struct {
- struct MonoLMF lmf;
- gboolean debugger_invoke;
- MonoContext ctx; /* if debugger_invoke is TRUE */
- } MonoLMFExt;
- /* Generic sharing */
- typedef enum {
- MONO_RGCTX_INFO_STATIC_DATA,
- MONO_RGCTX_INFO_KLASS,
- MONO_RGCTX_INFO_VTABLE,
- MONO_RGCTX_INFO_TYPE,
- MONO_RGCTX_INFO_REFLECTION_TYPE,
- MONO_RGCTX_INFO_METHOD,
- MONO_RGCTX_INFO_GENERIC_METHOD_CODE,
- MONO_RGCTX_INFO_CLASS_FIELD,
- MONO_RGCTX_INFO_METHOD_RGCTX,
- MONO_RGCTX_INFO_METHOD_CONTEXT,
- MONO_RGCTX_INFO_REMOTING_INVOKE_WITH_CHECK,
- MONO_RGCTX_INFO_METHOD_DELEGATE_CODE,
- MONO_RGCTX_INFO_CAST_CACHE,
- MONO_RGCTX_INFO_ARRAY_ELEMENT_SIZE,
- MONO_RGCTX_INFO_VALUE_SIZE,
- MONO_RGCTX_INFO_FIELD_OFFSET,
- /* Either the code for a gsharedvt method, or the address for a gsharedvt-out trampoline for the method */
- MONO_RGCTX_INFO_METHOD_GSHAREDVT_OUT_TRAMPOLINE,
- /* Same for virtual calls */
- MONO_RGCTX_INFO_METHOD_GSHAREDVT_OUT_TRAMPOLINE_VIRT,
- /* Same for calli, associated with a signature */
- MONO_RGCTX_INFO_SIG_GSHAREDVT_OUT_TRAMPOLINE_CALLI,
- MONO_RGCTX_INFO_CLASS_IS_REF
- } MonoRgctxInfoType;
- typedef struct _MonoRuntimeGenericContextInfoTemplate {
- MonoRgctxInfoType info_type;
- gpointer data;
- struct _MonoRuntimeGenericContextInfoTemplate *next;
- } MonoRuntimeGenericContextInfoTemplate;
- typedef struct {
- MonoClass *next_subclass;
- MonoRuntimeGenericContextInfoTemplate *infos;
- GSList *method_templates;
- } MonoRuntimeGenericContextTemplate;
- typedef struct {
- MonoVTable *class_vtable; /* must be the first element */
- MonoGenericInst *method_inst;
- gpointer infos [MONO_ZERO_LEN_ARRAY];
- } MonoMethodRuntimeGenericContext;
- #define MONO_SIZEOF_METHOD_RUNTIME_GENERIC_CONTEXT (sizeof (MonoMethodRuntimeGenericContext) - MONO_ZERO_LEN_ARRAY * SIZEOF_VOID_P)
- #define MONO_RGCTX_SLOT_MAKE_RGCTX(i) (i)
- #define MONO_RGCTX_SLOT_MAKE_MRGCTX(i) ((i) | 0x80000000)
- #define MONO_RGCTX_SLOT_INDEX(s) ((s) & 0x7fffffff)
- #define MONO_RGCTX_SLOT_IS_MRGCTX(s) (((s) & 0x80000000) ? TRUE : FALSE)
- #define MONO_GSHAREDVT_DEL_INVOKE_VT_OFFSET -2
- typedef enum {
- #define PATCH_INFO(a,b) MONO_PATCH_INFO_ ## a,
- #include "patch-info.h"
- #undef PATCH_INFO
- MONO_PATCH_INFO_NUM
- } MonoJumpInfoType;
- /*
- * We need to store the image which the token refers to along with the token,
- * since the image might not be the same as the image of the method which
- * contains the relocation, because of inlining.
- */
- typedef struct MonoJumpInfoToken {
- MonoImage *image;
- guint32 token;
- gboolean has_context;
- MonoGenericContext context;
- } MonoJumpInfoToken;
- typedef struct MonoJumpInfoBBTable {
- MonoBasicBlock **table;
- int table_size;
- } MonoJumpInfoBBTable;
- typedef struct MonoJumpInfoRgctxEntry MonoJumpInfoRgctxEntry;
- /* Contains information describing an LLVM IMT trampoline */
- typedef struct MonoJumpInfoImtTramp {
- MonoMethod *method;
- int vt_offset;
- } MonoJumpInfoImtTramp;
- typedef struct MonoJumpInfoGSharedVtCall MonoJumpInfoGSharedVtCall;
- typedef struct MonoJumpInfo MonoJumpInfo;
- struct MonoJumpInfo {
- MonoJumpInfo *next;
- union {
- int i;
- guint8 *p;
- MonoInst *label;
- } ip;
- MonoJumpInfoType type;
- union {
- gconstpointer target;
- #if SIZEOF_VOID_P == 8
- gint64 offset;
- #else
- int offset;
- #endif
- MonoBasicBlock *bb;
- MonoInst *inst;
- MonoMethod *method;
- MonoClass *klass;
- MonoClassField *field;
- MonoImage *image;
- MonoVTable *vtable;
- const char *name;
- MonoJumpInfoToken *token;
- MonoJumpInfoBBTable *table;
- MonoJumpInfoRgctxEntry *rgctx_entry;
- MonoJumpInfoImtTramp *imt_tramp;
- MonoJumpInfoGSharedVtCall *gsharedvt;
- MonoMethodSignature *sig;
- } data;
- };
-
- /* Contains information describing an rgctx entry */
- struct MonoJumpInfoRgctxEntry {
- MonoMethod *method;
- gboolean in_mrgctx;
- MonoJumpInfo *data; /* describes the data to be loaded */
- MonoRgctxInfoType info_type;
- };
- /* Contains information about a gsharedvt call */
- struct MonoJumpInfoGSharedVtCall {
- /* The original signature of the call */
- MonoMethodSignature *sig;
- /* The method which is called */
- MonoMethod *method;
- };
- typedef enum {
- MONO_TRAMPOLINE_JIT,
- MONO_TRAMPOLINE_JUMP,
- MONO_TRAMPOLINE_CLASS_INIT,
- MONO_TRAMPOLINE_GENERIC_CLASS_INIT,
- MONO_TRAMPOLINE_RGCTX_LAZY_FETCH,
- MONO_TRAMPOLINE_AOT,
- MONO_TRAMPOLINE_AOT_PLT,
- MONO_TRAMPOLINE_DELEGATE,
- MONO_TRAMPOLINE_RESTORE_STACK_PROT,
- #ifndef DISABLE_REMOTING
- MONO_TRAMPOLINE_GENERIC_VIRTUAL_REMOTING,
- #endif
- MONO_TRAMPOLINE_MONITOR_ENTER,
- MONO_TRAMPOLINE_MONITOR_EXIT,
- MONO_TRAMPOLINE_VCALL,
- #ifdef MONO_ARCH_HAVE_HANDLER_BLOCK_GUARD
- MONO_TRAMPOLINE_HANDLER_BLOCK_GUARD,
- #endif
- MONO_TRAMPOLINE_NUM
- } MonoTrampolineType;
- #define MONO_TRAMPOLINE_TYPE_MUST_RETURN(t) \
- ((t) == MONO_TRAMPOLINE_CLASS_INIT || \
- (t) == MONO_TRAMPOLINE_GENERIC_CLASS_INIT || \
- (t) == MONO_TRAMPOLINE_RESTORE_STACK_PROT || \
- (t) == MONO_TRAMPOLINE_RGCTX_LAZY_FETCH || \
- (t) == MONO_TRAMPOLINE_MONITOR_ENTER || \
- (t) == MONO_TRAMPOLINE_MONITOR_EXIT)
- /* optimization flags */
- #define OPTFLAG(id,shift,name,descr) MONO_OPT_ ## id = 1 << shift,
- enum {
- #include "optflags-def.h"
- MONO_OPT_LAST
- };
- /* Bit-fields in the MonoBasicBlock.region */
- #define MONO_REGION_TRY 0
- #define MONO_REGION_FINALLY 16
- #define MONO_REGION_CATCH 32
- #define MONO_REGION_FAULT 64 /* Currently unused */
- #define MONO_REGION_FILTER 128
- #define MONO_BBLOCK_IS_IN_REGION(bblock, regtype) (((bblock)->region & (0xf << 4)) == (regtype))
- #define MONO_REGION_FLAGS(region) ((region) & 0x7)
- #define MONO_REGION_CLAUSE_INDEX(region) (((region) >> 8) - 1)
- #define get_vreg_to_inst(cfg, vreg) ((vreg) < (cfg)->vreg_to_inst_len ? (cfg)->vreg_to_inst [(vreg)] : NULL)
- #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))))
- #define vreg_is_ref(cfg, vreg) ((vreg) < (cfg)->vreg_is_ref_len ? (cfg)->vreg_is_ref [(vreg)] : 0)
- #define vreg_is_mp(cfg, vreg) ((vreg) < (cfg)->vreg_is_mp_len ? (cfg)->vreg_is_mp [(vreg)] : 0)
- /*
- * Control Flow Graph and compilation unit information
- */
- typedef struct {
- MonoMethod *method;
- MonoMethodHeader *header;
- MonoMemPool *mempool;
- MonoInst **varinfo;
- MonoMethodVar *vars;
- MonoInst *ret;
- MonoBasicBlock *bb_entry;
- MonoBasicBlock *bb_exit;
- MonoBasicBlock *bb_init;
- MonoBasicBlock **bblocks;
- MonoBasicBlock **cil_offset_to_bb;
- MonoMemPool *state_pool; /* used by instruction selection */
- MonoBasicBlock *cbb; /* used by instruction selection */
- MonoInst *prev_ins; /* in decompose */
- MonoJumpInfo *patch_info;
- MonoJitInfo *jit_info;
- MonoJitDynamicMethodInfo *dynamic_info;
- guint num_bblocks, max_block_num;
- guint locals_start;
- guint num_varinfo; /* used items in varinfo */
- guint varinfo_count; /* total storage in varinfo */
- gint stack_offset;
- gint max_ireg;
- gint cil_offset_to_bb_len;
- MonoRegState *rs;
- MonoSpillInfo *spill_info [16]; /* machine register spills */
- gint spill_count;
- gint spill_info_len [16];
- /* unsigned char *cil_code; */
- MonoMethod *inlined_method; /* the method which is currently inlined */
- MonoInst *domainvar; /* a cache for the current domain */
- MonoInst *got_var; /* Global Offset Table variable */
- MonoInst **locals;
- MonoInst *rgctx_var; /* Runtime generic context variable (for static generic methods) */
- MonoInst **args;
- MonoType **arg_types;
- MonoMethod *current_method; /* The method currently processed by method_to_ir () */
- MonoMethod *method_to_register; /* The method to register in JIT info tables */
- MonoGenericContext *generic_context;
- /*
- * This variable represents the hidden argument holding the vtype
- * return address. If the method returns something other than a vtype, or
- * the vtype is returned in registers this is NULL.
- */
- MonoInst *vret_addr;
- /*
- * This is used to initialize the cil_code field of MonoInst's.
- */
- const unsigned char *ip;
-
- struct MonoAliasingInformation *aliasing_info;
- /* A hashtable of region ID-> SP var mappings */
- /* An SP var is a place to store the stack pointer (used by handlers)*/
- GHashTable *spvars;
- /* A hashtable of region ID -> EX var mappings */
- /* An EX var stores the exception object passed to catch/filter blocks */
- GHashTable *exvars;
- GList *ldstr_list; /* used by AOT */
-
- MonoDomain *domain;
- guint real_offset;
- GHashTable *cbb_hash;
- /* The current virtual register number */
- guint32 next_vreg;
- MonoGenericSharingContext *generic_sharing_context;
- MonoGenericSharingContext gsctx;
- gboolean gsharedvt;
- /* For native-to-managed wrappers, the saved old domain */
- MonoInst *orig_domain_var;
- unsigned char *cil_start;
- #ifdef __native_client_codegen__
- /* this alloc is not aligned, native_code */
- /* is the 32-byte aligned version of this */
- unsigned char *native_code_alloc;
- #endif
- unsigned char *native_code;
- guint code_size;
- guint code_len;
- guint prolog_end;
- guint epilog_begin;
- regmask_t used_int_regs;
- guint32 opt;
- guint32 prof_options;
- guint32 flags;
- guint32 comp_done;
- guint32 verbose_level;
- guint32 stack_usage;
- guint32 param_area;
- guint32 frame_reg;
- gint32 sig_cookie;
- guint disable_aot : 1;
- guint disable_ssa : 1;
- guint disable_llvm : 1;
- guint enable_extended_bblocks : 1;
- guint run_cctors : 1;
- guint need_lmf_area : 1;
- guint compile_aot : 1;
- guint compile_llvm : 1;
- guint got_var_allocated : 1;
- guint ret_var_is_local : 1;
- guint ret_var_set : 1;
- guint globalra : 1;
- guint unverifiable : 1;
- guint skip_visibility : 1;
- guint disable_reuse_registers : 1;
- guint disable_reuse_stack_slots : 1;
- guint disable_reuse_ref_stack_slots : 1;
- guint disable_ref_noref_stack_slot_share : 1;
- guint disable_initlocals_opt : 1;
- guint disable_initlocals_opt_refs : 1;
- guint disable_omit_fp : 1;
- guint disable_vreg_to_lvreg : 1;
- guint disable_deadce_vars : 1;
- guint disable_out_of_line_bblocks : 1;
- guint gen_write_barriers : 1;
- guint init_ref_vars : 1;
- guint extend_live_ranges : 1;
- guint compute_precise_live_ranges : 1;
- guint has_got_slots : 1;
- guint uses_rgctx_reg : 1;
- guint uses_vtable_reg : 1;
- guint uses_simd_intrinsics : 1;
- guint keep_cil_nops : 1;
- guint gen_seq_points : 1;
- guint explicit_null_checks : 1;
- guint compute_gc_maps : 1;
- guint soft_breakpoints : 1;
- guint arch_eh_jit_info : 1;
- gpointer debug_info;
- guint32 lmf_offset;
- guint16 *intvars;
- MonoProfileCoverageInfo *coverage_info;
- GHashTable *token_info_hash;
- MonoCompileArch arch;
- guint32 inline_depth;
- guint32 exception_type; /* MONO_EXCEPTION_* */
- guint32 exception_data;
- char* exception_message;
- gpointer exception_ptr;
- guint8 * encoded_unwind_ops;
- guint32 encoded_unwind_ops_len;
- GSList* unwind_ops;
- /* Fields used by the local reg allocator */
- void* reginfo;
- int reginfo_len;
- /* Maps vregs to their associated MonoInst's */
- /* vregs with an associated MonoInst are 'global' while others are 'local' */
- MonoInst **vreg_to_inst;
- /* Size of above array */
- guint32 vreg_to_inst_len;
- /* Marks vregs which hold a GC ref */
- /* FIXME: Use a bitmap */
- gboolean *vreg_is_ref;
- /* Size of above array */
- guint32 vreg_is_ref_len;
- /* Marks vregs which hold a managed pointer */
- /* FIXME: Use a bitmap */
- gboolean *vreg_is_mp;
- /* Size of above array */
- guint32 vreg_is_mp_len;
- /*
- * The original method to compile, differs from 'method' when doing generic
- * sharing.
- */
- MonoMethod *orig_method;
- /* Patches which describe absolute addresses embedded into the native code */
- GHashTable *abs_patches;
- /* If the arch passes valuetypes by address, then for methods
- which use JMP the arch code should use these local
- variables to store the addresses of incoming valuetypes.
- The addresses should be stored in mono_arch_emit_prolog()
- and can be used when emitting code for OP_JMP. See
- mini-ppc.c. */
- MonoInst **tailcall_valuetype_addrs;
- /* Used to implement iconv_to_r8_raw on archs that can't do raw
- copy between an ireg and a freg. This is an int32 var.*/
- MonoInst *iconv_raw_var;
- /* Used to implement fconv_to_r8_x. This is a double (8 bytes) var.*/
- MonoInst *fconv_to_r8_x_var;
- /*Use to implement simd constructors. This is a vector (16 bytes) var.*/
- MonoInst *simd_ctor_var;
- /* Used to implement dyn_call */
- MonoInst *dyn_call_var;
- /*
- * List of sequence points represented as IL offset+native offset pairs.
- * Allocated using glib.
- * IL offset can be -1 or 0xffffff to refer to the sequence points
- * inside the prolog and epilog used to implement method entry/exit events.
- */
- GPtrArray *seq_points;
- /* The encoded sequence point info */
- MonoSeqPointInfo *seq_point_info;
- /* Method headers which need to be freed after compilation */
- GSList *headers_to_free;
- /* Used by AOT */
- guint32 got_offset, ex_info_offset, method_info_offset;
- /* Symbol used to refer to this method in generated assembly */
- char *asm_symbol;
- char *llvm_method_name;
- MonoJitExceptionInfo *llvm_ex_info;
- guint32 llvm_ex_info_len;
- int llvm_this_reg, llvm_this_offset;
- GSList *try_block_holes;
- /* DWARF location list for 'this' */
- GSList *this_loclist;
- /* DWARF location list for 'rgctx_var' */
- GSList *rgctx_loclist;
- /* GC Maps */
-
- /* The offsets of the locals area relative to the frame pointer */
- gint locals_min_stack_offset, locals_max_stack_offset;
- /* The final CFA rule at the end of the prolog */
- int cfa_reg, cfa_offset;
- /* Points to a MonoCompileGC */
- gpointer gc_info;
- /*
- * The encoded GC map along with its size. This contains binary data so it can be saved in an AOT
- * image etc, but it requires a 4 byte alignment.
- */
- guint8 *gc_map;
- guint32 gc_map_size;
- /* Stats */
- int stat_allocate_var;
- int stat_locals_stack_size;
- int stat_basic_blocks;
- int stat_cil_code_size;
- int stat_n_regvars;
- int stat_inlineable_methods;
- int stat_inlined_methods;
- int stat_cas_demand_generation;
- int stat_code_reallocs;
- } MonoCompile;
- typedef enum {
- MONO_CFG_HAS_ALLOCA = 1 << 0,
- MONO_CFG_HAS_CALLS = 1 << 1,
- MONO_CFG_HAS_LDELEMA = 1 << 2,
- MONO_CFG_HAS_VARARGS = 1 << 3,
- MONO_CFG_HAS_TAIL = 1 << 4,
- MONO_CFG_HAS_FPOUT = 1 << 5, /* there are fp values passed in int registers */
- MONO_CFG_HAS_SPILLUP = 1 << 6, /* spill var slots are allocated from bottom to top */
- MONO_CFG_HAS_CHECK_THIS = 1 << 7,
- MONO_CFG_HAS_ARRAY_ACCESS = 1 << 8
- } MonoCompileFlags;
- typedef struct {
- gint32 methods_compiled;
- gint32 methods_aot;
- gint32 methods_lookups;
- gint32 allocate_var;
- gint32 cil_code_size;
- gint32 native_code_size;
- gint32 code_reallocs;
- gint32 max_code_size_ratio;
- gint32 biggest_method_size;
- gint32 allocated_code_size;
- gint32 inlineable_methods;
- gint32 inlined_methods;
- gint32 basic_blocks;
- gint32 max_basic_blocks;
- gint32 locals_stack_size;
- gint32 regvars;
- gint32 cas_declsec_check;
- gint32 cas_linkdemand_icall;
- gint32 cas_linkdemand_pinvoke;
- gint32 cas_linkdemand_aptc;
- gint32 cas_linkdemand;
- gint32 cas_demand_generation;
- gint32 generic_virtual_invocations;
- int methods_with_llvm;
- int methods_without_llvm;
- char *max_ratio_method;
- char *biggest_method;
- double jit_time;
- gboolean enabled;
- } MonoJitStats;
- extern MonoJitStats mono_jit_stats;
- /* opcodes: value assigned after all the CIL opcodes */
- #ifdef MINI_OP
- #undef MINI_OP
- #endif
- #ifdef MINI_OP3
- #undef MINI_OP3
- #endif
- #define MINI_OP(a,b,dest,src1,src2) a,
- #define MINI_OP3(a,b,dest,src1,src2,src3) a,
- enum {
- OP_START = MONO_CEE_LAST - 1,
- #include "mini-ops.h"
- OP_LAST
- };
- #undef MINI_OP
- #undef MINI_OP3
- #if SIZEOF_VOID_P == 8
- #define OP_PCONST OP_I8CONST
- #define OP_PADD OP_LADD
- #define OP_PADD_IMM OP_LADD_IMM
- #define OP_PAND_IMM OP_LAND_IMM
- #define OP_PSUB …
Large files files are truncated, but you can click here to view the full file