2007-10-19 Marek Habersack <mhabersack@novell.com>
[mono.git] / mono / mini / mini.h
1 #ifndef __MONO_MINI_H__
2 #define __MONO_MINI_H__
3
4 #include "config.h"
5 #include <glib.h>
6 #include <signal.h>
7 #include <mono/metadata/loader.h>
8 #include <mono/metadata/mempool.h>
9 #include <mono/utils/monobitset.h>
10 #include <mono/metadata/class.h>
11 #include <mono/metadata/object.h>
12 #include <mono/metadata/opcodes.h>
13 #include <mono/metadata/tabledefs.h>
14 #include <mono/metadata/domain-internals.h>
15 #include "mono/metadata/class-internals.h"
16 #include "mono/metadata/object-internals.h"
17 #include <mono/metadata/profiler-private.h>
18 #include <mono/metadata/debug-helpers.h>
19 #include <mono/utils/mono-compiler.h>
20
21 #include "mini-arch.h"
22 #include "regalloc.h"
23 #include "declsec.h"
24
25 #ifndef G_LIKELY
26 #define G_LIKELY(a) (a)
27 #define G_UNLIKELY(a) (a)
28 #endif
29
30 #if DISABLE_LOGGING
31 #define MINI_DEBUG(level,limit,code)
32 #else
33 #define MINI_DEBUG(level,limit,code) do {if (G_UNLIKELY ((level) >= (limit))) code} while (0)
34 #endif
35
36 #ifndef DISABLE_AOT
37 #define MONO_USE_AOT_COMPILER
38 #endif
39
40 /* for 32 bit systems */
41 #if G_BYTE_ORDER == G_LITTLE_ENDIAN
42 #define MINI_LS_WORD_IDX 0
43 #define MINI_MS_WORD_IDX 1
44 #else
45 #define MINI_LS_WORD_IDX 1
46 #define MINI_MS_WORD_IDX 0
47 #endif
48 #define MINI_LS_WORD_OFFSET (MINI_LS_WORD_IDX * 4)
49 #define MINI_MS_WORD_OFFSET (MINI_MS_WORD_IDX * 4)
50 #define inst_ls_word data.op[MINI_LS_WORD_IDX].const_val
51 #define inst_ms_word data.op[MINI_MS_WORD_IDX].const_val
52
53 #define MONO_FAKE_IMT_METHOD ((MonoMethod*)GINT_TO_POINTER(-1))
54 #define MONO_FAKE_VTABLE_METHOD ((MonoMethod*)GINT_TO_POINTER(-2))
55
56 /* Version number of the AOT file format */
57 #define MONO_AOT_FILE_VERSION "32"
58
59 #if 0
60 #define mono_bitset_foreach_bit(set,b,n) \
61         for (b = 0; b < n; b++)\
62                 if (mono_bitset_test_fast(set,b))
63 #define mono_bitset_foreach_bit_rev(set,b,n) \
64         for (b = n - 1; b >= 0; b--)\
65                 if (mono_bitset_test_fast(set,b))
66 #else
67 #define mono_bitset_foreach_bit(set,b,n) \
68         for (b = mono_bitset_find_start (set); b < n && b >= 0; b = mono_bitset_find_first (set, b))
69 #define mono_bitset_foreach_bit_rev(set,b,n) \
70         for (b = mono_bitset_find_last (set, n - 1); b >= 0; b = b ? mono_bitset_find_last (set, b) : -1)
71  
72 #endif
73
74 /*
75  * Pull the list of opcodes
76  */
77 #define OPDEF(a,b,c,d,e,f,g,h,i,j) \
78         a = i,
79
80 enum {
81 #include "mono/cil/opcode.def"
82         CEE_LASTOP
83 };
84 #undef OPDEF
85
86 #define MONO_VARINFO(cfg,varnum) ((cfg)->vars [varnum])
87
88 #define MONO_INST_NEW(cfg,dest,op) do { \
89                 (dest) = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst));       \
90                 (dest)->opcode = (op);  \
91         } while (0)
92
93 #define MONO_INST_NEW_CALL(cfg,dest,op) do {    \
94                 (dest) = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoCallInst));   \
95                 (dest)->inst.opcode = (op);     \
96         } while (0)
97
98 #define MONO_INST_NEW_CALL_ARG(cfg,dest,op) do {        \
99                 (dest) = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoCallArgParm));        \
100                 (dest)->ins.opcode = (op);      \
101         } while (0)
102
103 #define MONO_ADD_INS(b,inst) do {       \
104                 if ((b)->last_ins) {    \
105                         (b)->last_ins->next = (inst);   \
106                         (b)->last_ins = (inst); \
107                 } else {        \
108                         (b)->code = (b)->last_ins = (inst);     \
109                 }       \
110         } while (0)
111
112 #define NULLIFY_INS(ins) do { \
113         (ins)->opcode = OP_NOP; \
114         (ins)->dreg = (ins)->sreg1 = (ins)->sreg2 = -1; \
115                 (ins)->ssa_op = MONO_SSA_NOP; \
116     } while (0)
117
118 typedef struct MonoInst MonoInst;
119 typedef struct MonoCallInst MonoCallInst;
120 typedef struct MonoCallArgParm MonoCallArgParm;
121 typedef struct MonoEdge MonoEdge;
122 typedef struct MonoMethodVar MonoMethodVar;
123 typedef struct MonoBasicBlock MonoBasicBlock;
124 typedef struct MonoLMF MonoLMF;
125 typedef struct MonoSpillInfo MonoSpillInfo;
126 typedef struct MonoTraceSpec MonoTraceSpec;
127
128 extern guint32 mono_jit_tls_id;
129 extern MonoTraceSpec *mono_jit_trace_calls;
130 extern gboolean mono_break_on_exc;
131 extern int mono_exc_esp_offset;
132 #ifdef DISABLE_AOT
133 #define mono_compile_aot 0
134 #else
135 extern gboolean mono_compile_aot;
136 #endif
137 extern MonoMethodDesc *mono_inject_async_exc_method;
138 extern int mono_inject_async_exc_pos;
139
140 struct MonoEdge {
141         MonoEdge *next;
142         MonoBasicBlock *bb;
143         /* add edge type? */
144 };
145
146 struct MonoSpillInfo {
147         int offset;
148 };
149
150 /*
151  * This structure contains the information maintained by the verifier for each CIL
152  * stack slot. This information is also available in MonoInst, but the verifier needs to
153  * update the type information during stack merges, which could lead to problems if done
154  * on MonoInsts, so we use a dedicated structure instead.
155  */
156 typedef struct {
157         int type;
158         MonoClass *klass;
159 } MonoStackSlot;
160
161 /*
162  * The IR-level basic block.  
163  *
164  * A basic block can have multiple exits just fine, as long as the point of
165  * 'departure' is the last instruction in the basic block. Extended basic
166  * blocks, on the other hand, may have instructions that leave the block
167  * midstream. The important thing is that they cannot be _entered_
168  * midstream, ie, execution of a basic block (or extened bb) always start
169  * at the beginning of the block, never in the middle.
170  */
171 struct MonoBasicBlock {
172         MonoInst *last_ins;
173
174         /* the next basic block in the order it appears in IL */
175         MonoBasicBlock *next_bb;
176
177         /*
178          * Before instruction selection it is the first tree in the
179          * forest and the first item in the list of trees. After
180          * instruction selection it is the first instruction and the
181          * first item in the list of instructions.
182          */
183         MonoInst *code;
184
185         /* unique block number identification */
186         gint32 block_num;
187         
188         gint32 dfn;
189
190         /* Basic blocks: incoming and outgoing counts and pointers */
191         /* Each bb should only appear once in each array */
192         gint16 out_count, in_count;
193         MonoBasicBlock **in_bb;
194         MonoBasicBlock **out_bb;
195
196         /* Points to the start of the CIL code that initiated this BB */
197         unsigned char* cil_code;
198
199         /* Length of the CIL block */
200         gint32 cil_length;
201
202         /* The address of the generated code, used for fixups */
203         int native_offset;
204         int max_offset;
205
206         /* Visited and reachable flags */
207         guint32 flags;
208
209         /*
210          * SSA and loop based flags
211          */
212         MonoBitSet *dominators;
213         MonoBitSet *dfrontier;
214         MonoBasicBlock *idom;
215         GSList *dominated;
216         /* fast dominator algorithm */
217         MonoBasicBlock *df_parent, *ancestor, *child, *label;
218         MonoEdge *bucket;
219         int size, sdom, idomn;
220         
221         /* loop nesting and recognition */
222         GList *loop_blocks;
223         gint8  nesting;
224         gint8  loop_body_start;
225
226         /* 
227          * Whenever the bblock is rarely executed so it should be emitted after
228          * the function epilog.
229          */
230         guint out_of_line : 1;
231         /* Caches the result of uselessness calculation during optimize_branches */
232         guint not_useless : 1;
233
234         /* use for liveness analysis */
235         MonoBitSet *gen_set;
236         MonoBitSet *kill_set;
237         MonoBitSet *live_in_set;
238         MonoBitSet *live_out_set;
239
240         /* fields to deal with non-empty stack slots at bb boundary */
241         guint16 out_scount, in_scount;
242         MonoInst **out_stack;
243         MonoInst **in_stack;
244         MonoStackSlot *stack_state; /* Verification stack state on enter to bblock */
245
246         /* we use that to prevent merging of bblock covered by different clauses*/
247         guint real_offset;
248
249         /*
250          * The region encodes whether the basic block is inside
251          * a finally, catch, filter or none of thoese.
252          *
253          * If the value is -1, then it is neither finally, catch nor filter
254          *
255          * Otherwise the format is:
256          *
257          *  Bits: |     0-3      |       4-7      |     8-31
258          *        |              |                |
259          *        | clause-flags |   MONO_REGION  | clause-index 
260          *
261          */
262         guint region;
263
264         /* The current symbolic register number, used in local register allocation. */
265         guint32 max_vreg;
266 };
267
268 /* BBlock flags */
269 enum {
270         BB_VISITED            = 1 << 0,
271         BB_REACHABLE          = 1 << 1,
272         BB_EXCEPTION_DEAD_OBJ = 1 << 2,
273         BB_EXCEPTION_UNSAFE   = 1 << 3,
274         BB_EXCEPTION_HANDLER  = 1 << 4
275 };
276
277 typedef struct MonoMemcpyArgs {
278         int size, align;
279 } MonoMemcpyArgs;
280
281 struct MonoInst {
282         union {
283                 union {
284                         MonoInst *src;
285                         MonoMethodVar *var;
286                         gssize const_val;
287                         gpointer p;
288                         MonoMethod *method;
289                         MonoMethodSignature *signature;
290                         MonoBasicBlock **many_blocks;
291                         MonoBasicBlock *target_block;
292                         MonoInst **args;
293                         MonoType *vtype;
294                         MonoClass *klass;
295                         int *phi_args;
296                         MonoCallInst *call_inst;
297                 } op [2];
298                 gint64 i8const;
299                 double r8const;
300         } data;
301         guint16 opcode;
302         guint8  type; /* stack type */
303         guint   ssa_op : 3;
304         guint8  flags  : 5;
305         
306         /* used by the register allocator */
307         gint32 dreg, sreg1, sreg2;
308         /* used mostly by the backend to store additional info it may need */
309         union {
310                 gint32 reg3;
311                 gint32 arg_info;
312                 gint32 size;
313                 MonoMemcpyArgs *memcpy_args; /* in OP_MEMSET and OP_MEMCPY */
314                 gint shift_amount;
315                 gboolean is_pinvoke; /* for variables in the unmanaged marshal format */
316                 gpointer data;
317         } backend;
318         
319         MonoInst *next;
320         MonoClass *klass;
321         const unsigned char* cil_code; /* for debugging and bblock splitting */
322 };
323         
324 struct MonoCallInst {
325         MonoInst inst;
326         MonoMethodSignature *signature;
327         MonoMethod *method;
328         MonoInst **args;
329         MonoInst *out_args;
330         gconstpointer fptr;
331         guint stack_usage;
332         gboolean virtual;
333         regmask_t used_iregs;
334         regmask_t used_fregs;
335         GSList *out_ireg_args;
336         GSList *out_freg_args;
337 };
338
339 struct MonoCallArgParm {
340         MonoInst ins;
341         gint32 size;
342         gint32 offset;
343         gint32 offPrm;
344 };
345
346 /* 
347  * flags for MonoInst
348  * Note: some of the values overlap, because they can't appear
349  * in the same MonoInst.
350  */
351 enum {
352         MONO_INST_HAS_METHOD = 1,
353         /* temp local created by a DUP: used only within a BB */
354         MONO_INST_IS_TEMP    = 1,
355         MONO_INST_INIT       = 1, /* in localloc */
356         MONO_INST_IS_DEAD    = 2,
357         MONO_INST_TAILCALL   = 4,
358         MONO_INST_VOLATILE   = 4,
359         MONO_INST_BRLABEL    = 4,
360         MONO_INST_NOTYPECHECK    = 4,
361         MONO_INST_UNALIGNED  = 8,
362         MONO_INST_DEFINITION_HAS_SIDE_EFFECTS = 8,
363         /* the address of the variable has been taken */
364         MONO_INST_INDIRECT   = 16,
365         MONO_INST_NORANGECHECK   = 16
366 };
367
368 #define inst_c0 data.op[0].const_val
369 #define inst_c1 data.op[1].const_val
370 #define inst_i0 data.op[0].src
371 #define inst_i1 data.op[1].src
372 #define inst_p0 data.op[0].p
373 #define inst_p1 data.op[1].p
374 #define inst_l  data.i8const
375 #define inst_r  data.r8const
376 #define inst_left  data.op[0].src
377 #define inst_right data.op[1].src
378
379 #define inst_newa_len   data.op[0].src
380 #define inst_newa_class data.op[1].klass
381
382 #define inst_var    data.op[0].var
383 #define inst_vtype  data.op[1].vtype
384 /* in branch instructions */
385 #define inst_many_bb   data.op[1].many_blocks
386 #define inst_target_bb data.op[0].target_block
387 #define inst_true_bb   data.op[1].many_blocks[0]
388 #define inst_false_bb  data.op[1].many_blocks[1]
389
390 #define inst_basereg sreg1
391 #define inst_indexreg sreg2
392 #define inst_destbasereg dreg
393 #define inst_offset data.op[0].const_val
394 #define inst_imm    data.op[1].const_val
395 #define inst_call   data.op[1].call_inst
396
397 #define inst_phi_args   data.op[1].phi_args
398
399 /* instruction description for use in regalloc/scheduling */
400 enum {
401         MONO_INST_DEST,
402         MONO_INST_SRC1,
403         MONO_INST_SRC2,
404         MONO_INST_LEN,
405         MONO_INST_CLOB,
406         /* Unused, commented out to reduce the size of the mdesc tables
407         MONO_INST_FLAGS,
408         MONO_INST_COST,
409         MONO_INST_DELAY,
410         MONO_INST_RES,
411         */
412         MONO_INST_MAX
413 };
414
415 typedef union {
416         struct {
417                 guint16 tid; /* tree number */
418                 guint16 bid; /* block number */
419         } pos ;
420         guint32 abs_pos; 
421 } MonoPosition;
422
423 typedef struct {
424         MonoPosition first_use, last_use;
425 } MonoLiveRange;
426
427 /*
428  * Additional information about a variable
429  */
430 struct MonoMethodVar {
431         guint           idx; /* inside cfg->varinfo, cfg->vars */
432         guint           last_name;
433         MonoBitSet     *dfrontier;
434         MonoLiveRange   range; /* generated by liveness analysis */
435         int             reg; /* != -1 if allocated into a register */
436         int             spill_costs;
437         MonoBitSet     *def_in; /* used by SSA */
438         MonoInst       *def;    /* used by SSA */
439         MonoBasicBlock *def_bb; /* used by SSA */
440         GList          *uses;   /* used by SSA */
441         char            cpstate;  /* used by SSA conditional  constant propagation */
442 };
443
444 typedef struct {
445         gpointer          end_of_stack;
446         guint32           stack_size;
447 #if !defined(HAVE_KW_THREAD) || !defined(MONO_ARCH_ENABLE_MONO_LMF_VAR)
448         MonoLMF          *lmf;
449 #endif
450         MonoLMF          *first_lmf;
451         gpointer         signal_stack;
452         guint32          signal_stack_size;
453         gpointer         stack_ovf_guard_base;
454         guint32          stack_ovf_guard_size;
455         void            (*abort_func) (MonoObject *object);
456 } MonoJitTlsData;
457
458 typedef enum {
459 #define PATCH_INFO(a,b) MONO_PATCH_INFO_ ## a,
460 #include "patch-info.h"
461 #undef PATCH_INFO
462         MONO_PATCH_INFO_NUM
463 } MonoJumpInfoType;
464
465 /*
466  * We need to store the image which the token refers to along with the token,
467  * since the image might not be the same as the image of the method which
468  * contains the relocation, because of inlining.
469  */
470 typedef struct MonoJumpInfoToken {
471         MonoImage *image;
472         guint32 token;
473 } MonoJumpInfoToken;
474
475 typedef struct MonoJumpInfoBBTable {
476         MonoBasicBlock **table;
477         int table_size;
478 } MonoJumpInfoBBTable;
479
480 typedef struct MonoJumpInfo MonoJumpInfo;
481 struct MonoJumpInfo {
482         MonoJumpInfo *next;
483         union {
484                 int i;
485                 guint8 *p;
486                 MonoInst *label;
487         } ip;
488
489         MonoJumpInfoType type;
490         union {
491                 gconstpointer   target;
492 #if SIZEOF_VOID_P == 8
493                 gint64          offset;
494 #else
495                 int             offset;
496 #endif
497                 MonoBasicBlock *bb;
498                 MonoInst       *inst;
499                 MonoMethod     *method;
500                 MonoClass      *klass;
501                 MonoClassField *field;
502                 MonoImage      *image;
503                 MonoVTable     *vtable;
504                 const char     *name;
505                 MonoJumpInfoToken  *token;
506                 MonoJumpInfoBBTable *table;
507         } data;
508 };
509
510 typedef enum {
511         MONO_TRAMPOLINE_GENERIC,
512         MONO_TRAMPOLINE_JUMP,
513         MONO_TRAMPOLINE_CLASS_INIT,
514         MONO_TRAMPOLINE_AOT,
515         MONO_TRAMPOLINE_AOT_PLT,
516         MONO_TRAMPOLINE_DELEGATE,
517         MONO_TRAMPOLINE_NUM
518 } MonoTrampolineType;
519
520 /* optimization flags */
521 #define OPTFLAG(id,shift,name,descr) MONO_OPT_ ## id = 1 << shift,
522 enum {
523 #include "optflags-def.h"
524         MONO_OPT_LAST
525 };
526
527 /* Bit-fields in the MonoBasicBlock.region */
528 #define MONO_REGION_TRY       0
529 #define MONO_REGION_FINALLY  16
530 #define MONO_REGION_CATCH    32
531 #define MONO_REGION_FAULT    64         /* Currently unused */
532 #define MONO_REGION_FILTER  128
533
534 #define MONO_BBLOCK_IS_IN_REGION(bblock, regtype) (((bblock)->region & (0xf << 4)) == (regtype))
535
536 /*
537  * Will contain information on the generic type arguments in the
538  * future.  For now, all arguments are always reference types.
539  */
540 typedef struct {
541         int dummy;
542 } MonoGenericSharingContext;
543
544 /*
545  * Control Flow Graph and compilation unit information
546  */
547 typedef struct {
548         MonoMethod      *method;
549         MonoMemPool     *mempool;
550         MonoInst       **varinfo;
551         MonoMethodVar  **vars;
552         MonoInst        *ret;
553         MonoBasicBlock  *bb_entry;
554         MonoBasicBlock  *bb_exit;
555         MonoBasicBlock  *bb_init;
556         MonoBasicBlock **bblocks;
557         MonoBasicBlock **cil_offset_to_bb;
558         MonoMemPool     *state_pool; /* used by instruction selection */
559         MonoBasicBlock  *cbb;        /* used by instruction selection */
560         MonoInst        *prev_ins;   /* in decompose */
561         MonoJumpInfo    *patch_info;
562         MonoJitInfo     *jit_info;
563         MonoJitDynamicMethodInfo *dynamic_info;
564         guint            num_bblocks;
565         guint            locals_start;
566         guint            num_varinfo; /* used items in varinfo */
567         guint            varinfo_count; /* total storage in varinfo */
568         gint             stack_offset;
569         gint             max_ireg;
570         gint             cil_offset_to_bb_len;
571         MonoRegState    *rs;
572         MonoSpillInfo   *spill_info; /* machine register spills */
573         MonoSpillInfo   *spill_info_float; /* fp register spills */
574         gint             spill_count;
575         gint             spill_info_len, spill_info_float_len;
576         /* unsigned char   *cil_code; */
577         MonoMethod      *inlined_method; /* the method which is currently inlined */
578         MonoInst        *domainvar; /* a cache for the current domain */
579         MonoInst        *got_var; /* Global Offset Table variable */
580         MonoInst        **args;
581         
582         struct MonoAliasingInformation *aliasing_info;
583
584         /* A hashtable of region ID-> SP var mappings */
585         /* An SP var is a place to store the stack pointer (used by handlers)*/
586         GHashTable      *spvars;
587
588         /* A hashtable of region ID -> EX var mappings */
589         /* An EX var stores the exception object passed to catch/filter blocks */
590         GHashTable      *exvars;
591
592         GList           *ldstr_list; /* used by AOT */
593         
594         MonoDomain      *domain;
595
596         MonoGenericSharingContext *generic_sharing_context;
597
598         unsigned char   *cil_start;
599         unsigned char   *native_code;
600         guint            code_size;
601         guint            code_len;
602         guint            prolog_end;
603         guint            epilog_begin;
604         regmask_t        used_int_regs;
605         guint32          opt;
606         guint32          prof_options;
607         guint32          flags;
608         guint32          comp_done;
609         guint32          verbose_level;
610         guint32          stack_usage;
611         guint32          param_area;
612         guint32          frame_reg;
613         gint32           sig_cookie;
614         guint            disable_aot : 1;
615         guint            disable_ssa : 1;
616         guint            run_cctors : 1;
617         guint            need_lmf_area : 1;
618         guint            compile_aot : 1;
619         guint            got_var_allocated : 1;
620         guint            ret_var_is_local : 1;
621         guint            dont_verify_stack_merge : 1;
622         guint            unverifiable : 1;
623         guint            skip_visibility : 1;
624         gpointer         debug_info;
625         guint32          lmf_offset;
626         guint16          *intvars;
627         MonoProfileCoverageInfo *coverage_info;
628         GHashTable       *token_info_hash;
629         MonoCompileArch  arch;
630         guint32          exception_type;        /* MONO_EXCEPTION_* */
631         guint32          exception_data;
632         char*            exception_message;
633         gpointer         exception_ptr;
634
635         /* Fields used by the local reg allocator */
636         void*            reginfo;
637         void*            reginfof;
638         void*            reverse_inst_list;
639         int              reginfo_len, reginfof_len;
640         int              reverse_inst_list_len;
641 } MonoCompile;
642
643 typedef enum {
644         MONO_CFG_HAS_ALLOCA = 1 << 0,
645         MONO_CFG_HAS_CALLS  = 1 << 1,
646         MONO_CFG_HAS_LDELEMA  = 1 << 2,
647         MONO_CFG_HAS_VARARGS  = 1 << 3,
648         MONO_CFG_HAS_TAIL     = 1 << 4,
649         MONO_CFG_HAS_FPOUT    = 1 << 5, /* there are fp values passed in int registers */
650         MONO_CFG_HAS_SPILLUP  = 1 << 6  /* spill var slots are allocated from bottom to top */
651 } MonoCompileFlags;
652
653 typedef struct {
654         gulong methods_compiled;
655         gulong methods_aot;
656         gulong methods_lookups;
657         gulong method_trampolines;
658         gulong allocate_var;
659         gulong analyze_stack_repeat;
660         gulong cil_code_size;
661         gulong native_code_size;
662         gulong code_reallocs;
663         gulong max_code_size_ratio;
664         gulong biggest_method_size;
665         gulong allocated_code_size;
666         gulong inlineable_methods;
667         gulong inlined_methods;
668         gulong basic_blocks;
669         gulong max_basic_blocks;
670         gulong locals_stack_size;
671         gulong cas_declsec_check;
672         gulong cas_linkdemand_icall;
673         gulong cas_linkdemand_pinvoke;
674         gulong cas_linkdemand_aptc;
675         gulong cas_linkdemand;
676         gulong cas_demand_generation;
677         gulong generic_virtual_invocations;
678         MonoMethod *max_ratio_method;
679         MonoMethod *biggest_method;
680         gboolean enabled;
681 } MonoJitStats;
682
683 extern MonoJitStats mono_jit_stats;
684
685 /* values for MonoInst.ssa_op */
686 enum {
687         MONO_SSA_NOP = 0,
688         MONO_SSA_ADDRESS_TAKEN = 1,
689         MONO_SSA_LOAD = 2,
690         MONO_SSA_STORE = 4,
691         MONO_SSA_LOAD_STORE = MONO_SSA_LOAD|MONO_SSA_STORE,
692         MONO_SSA_INDIRECT_LOAD = MONO_SSA_LOAD|MONO_SSA_ADDRESS_TAKEN,
693         MONO_SSA_INDIRECT_STORE = MONO_SSA_STORE|MONO_SSA_ADDRESS_TAKEN,
694         MONO_SSA_INDIRECT_LOAD_STORE =
695         MONO_SSA_LOAD|MONO_SSA_STORE|MONO_SSA_ADDRESS_TAKEN
696 };
697
698 #define OP_CEQ    (256+CEE_CEQ)
699 #define OP_CLT    (256+CEE_CLT)
700 #define OP_CLT_UN (256+CEE_CLT_UN)
701 #define OP_CGT    (256+CEE_CGT)
702 #define OP_CGT_UN (256+CEE_CGT_UN)
703 #define OP_LOCALLOC (256+CEE_LOCALLOC)
704
705 /* opcodes: value assigned after all the CIL opcodes */
706 #ifdef MINI_OP
707 #undef MINI_OP
708 #endif
709 #define MINI_OP(a,b) a,
710 enum {
711         OP_START = MONO_CEE_LAST - 1,
712 #include "mini-ops.h"
713         OP_LAST
714 };
715 #undef MINI_OP
716
717 #if SIZEOF_VOID_P == 8
718 #define OP_PCONST OP_I8CONST
719 #define OP_PADD OP_LADD
720 #define OP_PNEG OP_LNEG
721 #define OP_PCONV_TO_U2 OP_LCONV_TO_U2
722 #define OP_PCONV_TO_OVF_I1_UN OP_LCONV_TO_OVF_I1_UN
723 #define OP_PCONV_TO_OVF_I1 OP_LCONV_TO_OVF_I1
724 #define OP_PCEQ CEE_CEQ
725 #define OP_STOREP_MEMBASE_REG OP_STOREI8_MEMBASE_REG
726 #define OP_STOREP_MEMBASE_IMM OP_STOREI8_MEMBASE_IMM
727 #else
728 #define OP_PCONST OP_ICONST
729 #define OP_PADD CEE_ADD
730 #define OP_PNEG CEE_NEG
731 #define OP_PCONV_TO_U2 CEE_CONV_U2
732 #define OP_PCONV_TO_OVF_I1_UN CEE_CONV_OVF_I1_UN
733 #define OP_PCONV_TO_OVF_I1 CEE_CONV_OVF_I1
734 #define OP_PCEQ CEE_CEQ
735 #define OP_STOREP_MEMBASE_REG OP_STOREI4_MEMBASE_REG
736 #define OP_STOREP_MEMBASE_IMM OP_STOREI4_MEMBASE_IMM
737 #endif
738
739 typedef enum {
740         STACK_INV,
741         STACK_I4,
742         STACK_I8,
743         STACK_PTR,
744         STACK_R8,
745         STACK_MP,
746         STACK_OBJ,
747         STACK_VTYPE,
748         STACK_MAX
749 } MonoStackType;
750
751 typedef struct {
752         union {
753                 double   r8;
754                 gint32   i4;
755                 gint64   i8;
756                 gpointer p;
757                 MonoClass *klass;
758         } data;
759         int type;
760 } StackSlot;
761
762 #if HAVE_ARRAY_ELEM_INIT
763 extern const guint8 mono_burg_arity [];
764 #else
765 extern guint8 mono_burg_arity [];
766 #endif
767
768 extern const char MONO_ARCH_CPU_SPEC [] MONO_INTERNAL;
769 #define MONO_ARCH_CPU_SPEC_IDX_COMBINE(a) a ## _idx
770 #define MONO_ARCH_CPU_SPEC_IDX(a) MONO_ARCH_CPU_SPEC_IDX_COMBINE(a)
771 extern const guint16 MONO_ARCH_CPU_SPEC_IDX(MONO_ARCH_CPU_SPEC) [] MONO_INTERNAL;
772 #define ins_get_spec(op) ((const char*)&MONO_ARCH_CPU_SPEC + MONO_ARCH_CPU_SPEC_IDX(MONO_ARCH_CPU_SPEC)[(op)])
773
774 enum {
775         MONO_COMP_DOM = 1,
776         MONO_COMP_IDOM = 2,
777         MONO_COMP_DFRONTIER = 4,
778         MONO_COMP_DOM_REV = 8,
779         MONO_COMP_LIVENESS = 16,
780         MONO_COMP_SSA = 32,
781         MONO_COMP_SSA_DEF_USE = 64,
782         MONO_COMP_REACHABILITY = 128,
783         MONO_COMP_LOOPS = 256
784 };
785
786 typedef enum {
787         MONO_GRAPH_CFG = 1,
788         MONO_GRAPH_DTREE = 2,
789         MONO_GRAPH_CFG_CODE = 4,
790         MONO_GRAPH_CFG_SSA = 8,
791         MONO_GRAPH_CFG_OPTCODE = 16
792 } MonoGraphOptions;
793
794 typedef struct {
795         guint16 size;
796         guint16 offset;
797         guint8  pad;
798 } MonoJitArgumentInfo;
799
800 typedef struct {
801         gboolean handle_sigint;
802         gboolean keep_delegates;
803         gboolean collect_pagefault_stats;
804         gboolean break_on_unverified;
805 } MonoDebugOptions;
806
807 enum {
808         BRANCH_NOT_TAKEN,
809         BRANCH_TAKEN,
810         BRANCH_UNDEF
811 };
812
813 typedef enum {
814         CMP_EQ,
815         CMP_NE,
816         CMP_LE,
817         CMP_GE,
818         CMP_LT,
819         CMP_GT,
820         CMP_LE_UN,
821         CMP_GE_UN,
822         CMP_LT_UN,
823         CMP_GT_UN
824 } CompRelation;
825
826 typedef enum {
827         CMP_TYPE_L,
828         CMP_TYPE_I,
829         CMP_TYPE_F
830 } CompType;
831
832 /* Implicit exceptions */
833 enum {
834         MONO_EXC_INDEX_OUT_OF_RANGE,
835         MONO_EXC_OVERFLOW,
836         MONO_EXC_ARITHMETIC,
837         MONO_EXC_DIVIDE_BY_ZERO,
838         MONO_EXC_INVALID_CAST,
839         MONO_EXC_NULL_REF,
840         MONO_EXC_ARRAY_TYPE_MISMATCH,
841         MONO_EXC_INTRINS_NUM
842 };
843
844 /*
845  * Flags for which contexts were used in inflating a generic.
846  */
847 enum {
848         MONO_GENERIC_CONTEXT_USED_CLASS = 1,
849         MONO_GENERIC_CONTEXT_USED_METHOD = 2
850 };
851
852 #define MONO_GENERIC_CONTEXT_USED_BOTH          (MONO_GENERIC_CONTEXT_USED_CLASS | MONO_GENERIC_CONTEXT_USED_METHOD)
853
854 typedef void (*MonoInstFunc) (MonoInst *tree, gpointer data);
855
856 /* main function */
857 int         mono_main                      (int argc, char* argv[]);
858 void        mono_set_defaults              (int verbose_level, guint32 opts);
859 MonoDomain* mini_init                      (const char *filename, const char *runtime_version) MONO_INTERNAL;
860 void        mini_cleanup                   (MonoDomain *domain) MONO_INTERNAL;
861
862 /* helper methods */
863 MonoJumpInfoToken * mono_jump_info_token_new (MonoMemPool *mp, MonoImage *image, guint32 token) MONO_INTERNAL;
864 MonoInst* mono_find_spvar_for_region        (MonoCompile *cfg, int region) MONO_INTERNAL;
865 void      mono_precompile_assemblies        (void) MONO_INTERNAL;
866 int       mono_parse_default_optimizations  (const char* p);
867 void      mono_bblock_add_inst              (MonoBasicBlock *bb, MonoInst *inst) MONO_INTERNAL;
868 void      mono_constant_fold                (MonoCompile *cfg) MONO_INTERNAL;
869 void      mono_constant_fold_inst           (MonoInst *inst, gpointer data) MONO_INTERNAL;
870 int       mono_eval_cond_branch             (MonoInst *branch) MONO_INTERNAL;
871 int       mono_is_power_of_two              (guint32 val) MONO_INTERNAL;
872 void      mono_cprop_local                  (MonoCompile *cfg, MonoBasicBlock *bb, MonoInst **acp, int acp_size) MONO_INTERNAL;
873 MonoInst* mono_compile_create_var           (MonoCompile *cfg, MonoType *type, int opcode) MONO_INTERNAL;
874 void      mono_compile_make_var_load        (MonoCompile *cfg, MonoInst *dest, gssize var_index) MONO_INTERNAL;
875 MonoInst* mono_compile_create_var_load      (MonoCompile *cfg, gssize var_index) MONO_INTERNAL;
876 MonoInst* mono_compile_create_var_store     (MonoCompile *cfg, gssize var_index, MonoInst *value) MONO_INTERNAL;
877 MonoType* mono_type_from_stack_type         (MonoInst *ins) MONO_INTERNAL;
878 void      mono_blockset_print               (MonoCompile *cfg, MonoBitSet *set, const char *name, guint idom) MONO_INTERNAL;
879 void      mono_print_tree                   (MonoInst *tree) MONO_INTERNAL;
880 void      mono_print_tree_nl                (MonoInst *tree) MONO_INTERNAL;
881 void      mono_print_code                   (MonoCompile *cfg) MONO_INTERNAL;
882 void      mono_print_method_from_ip         (void *ip);
883 char     *mono_pmip                         (void *ip);
884 void      mono_select_instructions          (MonoCompile *cfg) MONO_INTERNAL;
885 const char* mono_inst_name                  (int op);
886 void      mono_inst_foreach                 (MonoInst *tree, MonoInstFunc func, gpointer data) MONO_INTERNAL;
887 void      mono_disassemble_code             (MonoCompile *cfg, guint8 *code, int size, char *id) MONO_INTERNAL;
888 void      mono_add_patch_info               (MonoCompile *cfg, int ip, MonoJumpInfoType type, gconstpointer target) MONO_INTERNAL;
889 void      mono_remove_patch_info            (MonoCompile *cfg, int ip) MONO_INTERNAL;
890 MonoJumpInfo* mono_patch_info_dup_mp        (MonoMemPool *mp, MonoJumpInfo *patch_info) MONO_INTERNAL;
891 guint     mono_patch_info_hash (gconstpointer data) MONO_INTERNAL;
892 gint      mono_patch_info_equal (gconstpointer ka, gconstpointer kb) MONO_INTERNAL;
893 gpointer  mono_resolve_patch_target         (MonoMethod *method, MonoDomain *domain, guint8 *code, MonoJumpInfo *patch_info, gboolean run_cctors) MONO_INTERNAL;
894 MonoLMF * mono_get_lmf                      (void) MONO_INTERNAL;
895 MonoLMF** mono_get_lmf_addr                 (void) MONO_INTERNAL;
896 void      mono_jit_thread_attach            (MonoDomain *domain);
897 guint32   mono_get_jit_tls_key              (void) MONO_INTERNAL;
898 gint32    mono_get_lmf_tls_offset           (void) MONO_INTERNAL;
899 gint32    mono_get_lmf_addr_tls_offset      (void) MONO_INTERNAL;
900 GList    *mono_varlist_insert_sorted        (MonoCompile *cfg, GList *list, MonoMethodVar *mv, gboolean sort_end) MONO_INTERNAL;
901 GList    *mono_varlist_sort                 (MonoCompile *cfg, GList *list, int sort_type) MONO_INTERNAL;
902 void      mono_analyze_liveness             (MonoCompile *cfg) MONO_INTERNAL;
903 void      mono_liveness_handle_exception_clauses (MonoCompile *cfg) MONO_INTERNAL;
904 void      mono_linear_scan                  (MonoCompile *cfg, GList *vars, GList *regs, regmask_t *used_mask) MONO_INTERNAL;
905 void      mono_create_jump_table            (MonoCompile *cfg, MonoInst *label, MonoBasicBlock **bbs, int num_blocks) MONO_INTERNAL;
906 int       mono_compile_assembly             (MonoAssembly *ass, guint32 opts, const char *aot_options) MONO_INTERNAL;
907 MonoCompile *mini_method_compile            (MonoMethod *method, guint32 opts, MonoDomain *domain, gboolean run_cctors, gboolean compile_aot, int parts) MONO_INTERNAL;
908 void      mono_destroy_compile              (MonoCompile *cfg) MONO_INTERNAL;
909 MonoJitICallInfo *mono_find_jit_opcode_emulation (int opcode) MONO_INTERNAL;
910 void      mono_print_ins (int i, MonoInst *ins) MONO_INTERNAL;
911
912 void      mono_aot_init                     (void) MONO_INTERNAL;
913 gpointer  mono_aot_get_method               (MonoDomain *domain,
914                                                                                          MonoMethod *method) MONO_INTERNAL;
915 gpointer  mono_aot_get_method_from_token    (MonoDomain *domain, MonoImage *image, guint32 token) MONO_INTERNAL;
916 gboolean  mono_aot_is_got_entry             (guint8 *code, guint8 *addr) MONO_INTERNAL;
917 guint8*   mono_aot_get_plt_entry            (guint8 *code) MONO_INTERNAL;
918 gboolean  mono_aot_init_vtable              (MonoVTable *vtable) MONO_INTERNAL;
919 gboolean  mono_aot_get_cached_class_info    (MonoClass *klass, MonoCachedClassInfo *res) MONO_INTERNAL;
920 gboolean  mono_aot_get_class_from_name      (MonoImage *image, const char *name_space, const char *name, MonoClass **klass) MONO_INTERNAL;
921 MonoJitInfo* mono_aot_find_jit_info         (MonoDomain *domain, MonoImage *image, gpointer addr) MONO_INTERNAL;
922 void mono_aot_set_make_unreadable           (gboolean unreadable) MONO_INTERNAL;
923 gboolean mono_aot_is_pagefault              (void *ptr) MONO_INTERNAL;
924 void mono_aot_handle_pagefault              (void *ptr) MONO_INTERNAL;
925 guint32 mono_aot_get_n_pagefaults           (void) MONO_INTERNAL;
926 gpointer mono_aot_plt_resolve               (gpointer aot_module, guint32 plt_info_offset, guint8 *code) MONO_INTERNAL;
927
928 gboolean  mono_method_blittable             (MonoMethod *method) MONO_INTERNAL;
929 gboolean  mono_method_same_domain           (MonoJitInfo *caller, MonoJitInfo *callee) MONO_INTERNAL;
930
931 void      mono_register_opcode_emulation    (int opcode, const char* name, const char *sigstr, gpointer func, gboolean no_throw) MONO_INTERNAL;
932 void      mono_draw_graph                   (MonoCompile *cfg, MonoGraphOptions draw_options) MONO_INTERNAL;
933 void      mono_add_varcopy_to_end           (MonoCompile *cfg, MonoBasicBlock *bb, int src, int dest) MONO_INTERNAL;
934 void      mono_add_ins_to_end               (MonoBasicBlock *bb, MonoInst *inst) MONO_INTERNAL;
935 gpointer  mono_create_ftnptr                (MonoDomain *domain, gpointer addr) MONO_INTERNAL;
936
937 int               mono_find_method_opcode      (MonoMethod *method) MONO_INTERNAL;
938 MonoJitICallInfo *mono_find_jit_icall_by_name  (const char *name) MONO_INTERNAL;
939 MonoJitICallInfo *mono_find_jit_icall_by_addr  (gconstpointer addr) MONO_INTERNAL;
940 MonoJitICallInfo *mono_register_jit_icall      (gconstpointer func, const char *name, MonoMethodSignature *sig, gboolean is_save) MONO_INTERNAL;
941 gconstpointer     mono_icall_get_wrapper       (MonoJitICallInfo* callinfo) MONO_INTERNAL;
942
943 guint8 *          mono_get_trampoline_code (MonoTrampolineType tramp_type) MONO_INTERNAL;
944 gpointer          mono_create_jump_trampoline (MonoDomain *domain, 
945                                                                                            MonoMethod *method, 
946                                                                                            gboolean add_sync_wrapper) MONO_INTERNAL;
947 gpointer          mono_create_class_init_trampoline (MonoVTable *vtable) MONO_INTERNAL;
948 gpointer          mono_create_jit_trampoline (MonoMethod *method) MONO_INTERNAL;
949 gpointer          mono_create_jit_trampoline_from_token (MonoImage *image, guint32 token) MONO_INTERNAL;
950 MonoVTable*       mono_find_class_init_trampoline_by_addr (gconstpointer addr) MONO_INTERNAL;
951 gpointer          mono_magic_trampoline (gssize *regs, guint8 *code, MonoMethod *m, guint8* tramp) MONO_INTERNAL;
952 gpointer          mono_delegate_trampoline (gssize *regs, guint8 *code, MonoClass *klass, guint8* tramp) MONO_INTERNAL;
953 gpointer          mono_aot_trampoline (gssize *regs, guint8 *code, guint8 *token_info, 
954                                                                            guint8* tramp) MONO_INTERNAL;
955 gpointer          mono_aot_plt_trampoline (gssize *regs, guint8 *code, guint8 *token_info, 
956                                                                                    guint8* tramp) MONO_INTERNAL;
957 void              mono_class_init_trampoline (gssize *regs, guint8 *code, MonoVTable *vtable, guint8 *tramp) MONO_INTERNAL;
958 gpointer          mono_debugger_create_notification_function (void) MONO_INTERNAL;
959
960
961 gboolean          mono_running_on_valgrind (void) MONO_INTERNAL;
962 void*             mono_global_codeman_reserve (int size) MONO_INTERNAL;
963 const char       *mono_regname_full (int reg, gboolean fp) MONO_INTERNAL;
964 gint32*           mono_allocate_stack_slots_full (MonoCompile *cfg, gboolean backward, guint32 *stack_size, guint32 *stack_align) MONO_INTERNAL;
965 gint32*           mono_allocate_stack_slots (MonoCompile *cfg, guint32 *stack_size, guint32 *stack_align) MONO_INTERNAL;
966 void              mono_local_regalloc (MonoCompile *cfg, MonoBasicBlock *bb) MONO_INTERNAL;
967 MonoInst         *mono_branch_optimize_exception_target (MonoCompile *cfg, MonoBasicBlock *bb, const char * exname) MONO_INTERNAL;
968 gboolean          mono_is_regsize_var (MonoType *t) MONO_INTERNAL;
969 CompRelation      mono_opcode_to_cond (int opcode) MONO_INTERNAL;
970 CompType          mono_opcode_to_type (int opcode, int cmp_opcode) MONO_INTERNAL;
971
972 /* methods that must be provided by the arch-specific port */
973 void      mono_arch_init                        (void) MONO_INTERNAL;
974 void      mono_arch_cleanup                     (void) MONO_INTERNAL;
975 void      mono_arch_cpu_init                    (void) MONO_INTERNAL;
976 guint32   mono_arch_cpu_optimizazions           (guint32 *exclude_mask) MONO_INTERNAL;
977 void      mono_arch_instrument_mem_needs        (MonoMethod *method, int *stack, int *code) MONO_INTERNAL;
978 void     *mono_arch_instrument_prolog           (MonoCompile *cfg, void *func, void *p, gboolean enable_arguments) MONO_INTERNAL;
979 void     *mono_arch_instrument_epilog           (MonoCompile *cfg, void *func, void *p, gboolean enable_arguments) MONO_INTERNAL;
980 MonoCallInst *mono_arch_call_opcode             (MonoCompile *cfg, MonoBasicBlock* bb, MonoCallInst *call, int is_virtual) MONO_INTERNAL;
981 MonoInst *mono_arch_get_inst_for_method         (MonoCompile *cfg, MonoMethod *cmethod, MonoMethodSignature *fsig, MonoInst **args) MONO_INTERNAL;
982 void      mono_codegen                          (MonoCompile *cfg) MONO_INTERNAL;
983 void      mono_call_inst_add_outarg_reg         (MonoCompile *cfg, MonoCallInst *call, int vreg, int hreg, gboolean fp) MONO_INTERNAL;
984 const char *mono_arch_regname                   (int reg) MONO_INTERNAL;
985 const char *mono_arch_fregname                  (int reg) MONO_INTERNAL;
986 gpointer  mono_arch_get_throw_exception         (void) MONO_INTERNAL;
987 gpointer  mono_arch_get_rethrow_exception       (void) MONO_INTERNAL;
988 gpointer  mono_arch_get_throw_exception_by_name (void) MONO_INTERNAL;
989 gpointer  mono_arch_get_throw_corlib_exception  (void) MONO_INTERNAL;
990 guchar*   mono_arch_create_trampoline_code      (MonoTrampolineType tramp_type) MONO_INTERNAL;
991 gpointer  mono_arch_create_jit_trampoline       (MonoMethod *method) MONO_INTERNAL;
992 MonoJitInfo *mono_arch_create_jump_trampoline      (MonoMethod *method) MONO_INTERNAL;
993 gpointer  mono_arch_create_class_init_trampoline(MonoVTable *vtable) MONO_INTERNAL;
994 GList    *mono_arch_get_allocatable_int_vars    (MonoCompile *cfg) MONO_INTERNAL;
995 GList    *mono_arch_get_global_int_regs         (MonoCompile *cfg) MONO_INTERNAL;
996 guint32   mono_arch_regalloc_cost               (MonoCompile *cfg, MonoMethodVar *vmv) MONO_INTERNAL;
997 void      mono_arch_patch_code                  (MonoMethod *method, MonoDomain *domain, guint8 *code, MonoJumpInfo *ji, gboolean run_cctors) MONO_INTERNAL;
998 void      mono_arch_flush_icache                (guint8 *code, gint size) MONO_INTERNAL;
999 int       mono_arch_max_epilog_size             (MonoCompile *cfg) MONO_INTERNAL;
1000 guint8   *mono_arch_emit_prolog                 (MonoCompile *cfg) MONO_INTERNAL;
1001 void      mono_arch_emit_epilog                 (MonoCompile *cfg) MONO_INTERNAL;
1002 void      mono_arch_emit_exceptions             (MonoCompile *cfg) MONO_INTERNAL;
1003 void      mono_arch_local_regalloc              (MonoCompile *cfg, MonoBasicBlock *bb) MONO_INTERNAL;
1004 void      mono_arch_output_basic_block          (MonoCompile *cfg, MonoBasicBlock *bb) MONO_INTERNAL;
1005 gboolean  mono_arch_has_unwind_info             (gconstpointer addr) MONO_INTERNAL;
1006 void      mono_arch_setup_jit_tls_data          (MonoJitTlsData *tls) MONO_INTERNAL;
1007 void      mono_arch_free_jit_tls_data           (MonoJitTlsData *tls) MONO_INTERNAL;
1008 void      mono_arch_emit_this_vret_args         (MonoCompile *cfg, MonoCallInst *inst, int this_reg, int this_type, int vt_reg) MONO_INTERNAL;
1009 void      mono_arch_allocate_vars               (MonoCompile *m) MONO_INTERNAL;
1010 int       mono_arch_get_argument_info           (MonoMethodSignature *csig, int param_count, MonoJitArgumentInfo *arg_info) MONO_INTERNAL;
1011 gboolean  mono_arch_print_tree                  (MonoInst *tree, int arity) MONO_INTERNAL;
1012 MonoJitInfo *mono_arch_find_jit_info            (MonoDomain *domain, 
1013                                                  MonoJitTlsData *jit_tls, 
1014                                                  MonoJitInfo *res, 
1015                                                  MonoJitInfo *prev_ji, 
1016                                                  MonoContext *ctx, 
1017                                                  MonoContext *new_ctx, 
1018                                                  char **trace, 
1019                                                  MonoLMF **lmf, 
1020                                                  int *native_offset,
1021                                                  gboolean *managed) MONO_INTERNAL;
1022 gpointer mono_arch_get_call_filter              (void) MONO_INTERNAL;
1023 gpointer mono_arch_get_restore_context          (void) MONO_INTERNAL;
1024 gboolean mono_arch_handle_exception             (void *sigctx, gpointer obj, gboolean test_only) MONO_INTERNAL;
1025 void     mono_arch_handle_altstack_exception    (void *sigctx, gpointer fault_addr, gboolean stack_ovf) MONO_INTERNAL;
1026 gpointer mono_arch_ip_from_context              (void *sigctx) MONO_INTERNAL;
1027 void     mono_arch_sigctx_to_monoctx            (void *sigctx, MonoContext *ctx) MONO_INTERNAL;
1028 void     mono_arch_monoctx_to_sigctx            (MonoContext *mctx, void *ctx) MONO_INTERNAL;
1029 void     mono_arch_flush_register_windows       (void) MONO_INTERNAL;
1030 gboolean mono_arch_is_inst_imm                  (gint64 imm) MONO_INTERNAL;
1031 MonoInst* mono_arch_get_domain_intrinsic        (MonoCompile* cfg) MONO_INTERNAL;
1032 MonoInst* mono_arch_get_thread_intrinsic        (MonoCompile* cfg) MONO_INTERNAL;
1033 gboolean mono_arch_is_int_overflow              (void *sigctx, void *info) MONO_INTERNAL;
1034 void     mono_arch_invalidate_method            (MonoJitInfo *ji, void *func, gpointer func_arg) MONO_INTERNAL;
1035 guint32  mono_arch_get_patch_offset             (guint8 *code) MONO_INTERNAL;
1036 gpointer*mono_arch_get_vcall_slot_addr          (guint8* code, gpointer *regs) MONO_INTERNAL;
1037 gpointer mono_arch_get_vcall_slot               (guint8 *code, gpointer *regs, int *displacement) MONO_INTERNAL;
1038 gpointer*mono_arch_get_delegate_method_ptr_addr (guint8* code, gpointer *regs) MONO_INTERNAL;
1039 void     mono_arch_create_vars                  (MonoCompile *cfg) MONO_INTERNAL;
1040 void     mono_arch_save_unwind_info             (MonoCompile *cfg) MONO_INTERNAL;
1041 void     mono_arch_register_lowlevel_calls      (void) MONO_INTERNAL;
1042 gpointer mono_arch_get_unbox_trampoline         (MonoMethod *m, gpointer addr) MONO_INTERNAL;
1043 void     mono_arch_patch_callsite               (guint8 *code, guint8 *addr) MONO_INTERNAL;
1044 void     mono_arch_patch_plt_entry              (guint8 *code, guint8 *addr) MONO_INTERNAL;
1045 void     mono_arch_nullify_class_init_trampoline(guint8 *code, gssize *regs) MONO_INTERNAL;
1046 void     mono_arch_nullify_plt_entry            (guint8 *code) MONO_INTERNAL;
1047 void     mono_arch_patch_delegate_trampoline    (guint8 *code, guint8 *tramp, gssize *regs, guint8 *addr) MONO_INTERNAL;
1048 gpointer mono_arch_get_this_arg_from_call       (MonoMethodSignature *sig, gssize *regs, guint8 *code);
1049 gpointer mono_arch_get_delegate_invoke_impl     (MonoMethodSignature *sig, gboolean has_target);
1050 gpointer mono_arch_create_specific_trampoline   (gpointer arg1, MonoTrampolineType tramp_type, MonoDomain *domain, guint32 *code_len) MONO_INTERNAL;
1051 void        mono_arch_emit_imt_argument         (MonoCompile *cfg, MonoCallInst *call) MONO_INTERNAL;
1052 MonoMethod* mono_arch_find_imt_method           (gpointer *regs, guint8 *code) MONO_INTERNAL;
1053 MonoObject* mono_arch_find_this_argument        (gpointer *regs, MonoMethod *method) MONO_INTERNAL;
1054 gpointer    mono_arch_build_imt_thunk           (MonoVTable *vtable, MonoDomain *domain, MonoIMTCheckItem **imt_entries, int count) MONO_INTERNAL;
1055
1056 /* Exception handling */
1057 gboolean mono_handle_exception                  (MonoContext *ctx, gpointer obj,
1058                                                  gpointer original_ip, gboolean test_only) MONO_INTERNAL;
1059 void     mono_handle_native_sigsegv             (int signal, void *sigctx) MONO_INTERNAL;
1060 void     mono_print_thread_dump                 (void *sigctx);
1061 void     mono_jit_walk_stack                    (MonoStackWalk func, gboolean do_il_offset, gpointer user_data) MONO_INTERNAL;
1062 void     mono_jit_walk_stack_from_ctx           (MonoStackWalk func, MonoContext *ctx, gboolean do_il_offset, gpointer user_data) MONO_INTERNAL;
1063 void     mono_setup_altstack                    (MonoJitTlsData *tls) MONO_INTERNAL;
1064 void     mono_free_altstack                     (MonoJitTlsData *tls) MONO_INTERNAL;
1065
1066 /* the new function to do stack walks */
1067 typedef gboolean (*MonoStackFrameWalk)          (MonoDomain *domain, MonoContext *ctx, MonoJitInfo *ji, gpointer data);
1068 void      mono_walk_stack                       (MonoDomain *domain, MonoJitTlsData *jit_tls, MonoContext *start_ctx, MonoStackFrameWalk func, gpointer user_data);
1069
1070 MonoArray *ves_icall_get_trace                  (MonoException *exc, gint32 skip, MonoBoolean need_file_info) MONO_INTERNAL;
1071 MonoBoolean ves_icall_get_frame_info            (gint32 skip, MonoBoolean need_file_info, 
1072                                                  MonoReflectionMethod **method, 
1073                                                  gint32 *iloffset, gint32 *native_offset,
1074                                                  MonoString **file, gint32 *line, gint32 *column) MONO_INTERNAL;
1075 MonoString *ves_icall_System_Exception_get_trace (MonoException *exc) MONO_INTERNAL;
1076
1077 /* Dominator/SSA methods */
1078 void        mono_compile_dominator_info         (MonoCompile *cfg, int dom_flags) MONO_INTERNAL;
1079 void        mono_compute_natural_loops          (MonoCompile *cfg) MONO_INTERNAL;
1080 MonoBitSet* mono_compile_iterated_dfrontier     (MonoCompile *cfg, MonoBitSet *set) MONO_INTERNAL;
1081 void        mono_ssa_compute                    (MonoCompile *cfg) MONO_INTERNAL;
1082 void        mono_ssa_remove                     (MonoCompile *cfg) MONO_INTERNAL;
1083 void        mono_ssa_cprop                      (MonoCompile *cfg) MONO_INTERNAL;
1084 void        mono_ssa_deadce                     (MonoCompile *cfg) MONO_INTERNAL;
1085 void        mono_ssa_strength_reduction         (MonoCompile *cfg) MONO_INTERNAL;
1086 void        mono_free_loop_info                 (MonoCompile *cfg) MONO_INTERNAL;
1087
1088 /* debugging support */
1089 void      mono_debug_init_method                (MonoCompile *cfg, MonoBasicBlock *start_block,
1090                                                  guint32 breakpoint_id) MONO_INTERNAL;
1091 void      mono_debug_open_method                (MonoCompile *cfg) MONO_INTERNAL;
1092 void      mono_debug_close_method               (MonoCompile *cfg) MONO_INTERNAL;
1093 void      mono_debug_open_block                 (MonoCompile *cfg, MonoBasicBlock *bb, guint32 address) MONO_INTERNAL;
1094 void      mono_debug_record_line_number         (MonoCompile *cfg, MonoInst *ins, guint32 address) MONO_INTERNAL;
1095 void      mono_debug_serialize_debug_info       (MonoCompile *cfg, guint8 **out_buf, guint32 *buf_len) MONO_INTERNAL;
1096 void      mono_debug_add_aot_method             (MonoDomain *domain,
1097                                                  MonoMethod *method, guint8 *code_start, 
1098                                                  guint8 *debug_info, guint32 debug_info_len) MONO_INTERNAL;
1099 void      mono_debug_add_icall_wrapper          (MonoMethod *method, MonoJitICallInfo* info) MONO_INTERNAL;
1100 void      mono_debug_print_vars                 (gpointer ip, gboolean only_arguments);
1101 void      mono_debugger_run_finally             (MonoContext *start_ctx);
1102
1103 /* Mono Debugger support */
1104 void      mono_debugger_init                    (void);
1105 int       mono_debugger_main                    (MonoDomain *domain, MonoAssembly *assembly, int argc, char **argv);
1106
1107
1108 /* Tracing */
1109 MonoTraceSpec *mono_trace_parse_options         (char *options) MONO_INTERNAL;
1110 void           mono_trace_set_assembly          (MonoAssembly *assembly) MONO_INTERNAL;
1111 gboolean       mono_trace_eval                  (MonoMethod *method) MONO_INTERNAL;
1112
1113 extern void
1114 mono_perform_abc_removal (MonoCompile *cfg) MONO_INTERNAL;
1115 extern void
1116 mono_perform_ssapre (MonoCompile *cfg) MONO_INTERNAL;
1117 extern void
1118 mono_local_cprop (MonoCompile *cfg) MONO_INTERNAL;
1119
1120 /* CAS - stack walk */
1121 MonoSecurityFrame* ves_icall_System_Security_SecurityFrame_GetSecurityFrame (gint32 skip) MONO_INTERNAL;
1122 MonoArray* ves_icall_System_Security_SecurityFrame_GetSecurityStack (gint32 skip) MONO_INTERNAL;
1123
1124 int mini_wapi_hps     (int argc, char **argv);
1125 int mini_wapi_semdel  (int argc, char **argv);
1126 int mini_wapi_seminfo (int argc, char **argv);
1127
1128 /* Generic sharing */
1129
1130 int mono_method_check_context_used (MonoMethod *method, MonoGenericContext *context) MONO_INTERNAL;
1131 int mono_class_check_context_used (MonoClass *class, MonoGenericContext *context) MONO_INTERNAL;
1132
1133 gboolean mono_method_is_generic_impl (MonoMethod *method) MONO_INTERNAL;
1134 gboolean mono_method_is_generic_sharable_impl (MonoMethod *method) MONO_INTERNAL;
1135
1136 MonoGenericContext* mono_make_shared_context (MonoCompile *cfg, MonoGenericContext *context) MONO_INTERNAL;
1137
1138 MonoType* mini_get_basic_type_from_generic (MonoGenericSharingContext *gsctx, MonoType *type) MONO_INTERNAL;
1139
1140 int mini_type_stack_size (MonoGenericSharingContext *gsctx, MonoType *t, int *align) MONO_INTERNAL;
1141
1142 #endif /* __MONO_MINI_H__ */