mono/mini/inssel.brg

   1 /*
   2  * inssel.brg: instruction selection
   3  *
   4  * Author:
   5  *   Dietmar Maurer (dietmar@ximian.com)
   6  *   Paolo Molaro (lupus@ximian.com)
   7  *
   8  * (C) 2002 Ximian, Inc.
   9  *
  10  */
  11
  12 #include <config.h>
  13 #include <string.h>
  14
  15 #include "mini.h"
  16 #include <mono/metadata/marshal.h>
  17
  18 #define MBTREE_TYPE  MonoInst
  19 #define MBCGEN_TYPE  MonoCompile
  20 #define MBCOST_DATA  MonoCompile
  21 #define MBALLOC_STATE mono_mempool_alloc (data->state_pool, sizeof (MBState))
  22 #define MBMAX_OPCODES OP_LAST
  23 #define MBGET_OP_NAME(op) mono_inst_name (op)
  24
  25 #define MBTREE_OP(t) ((t)->opcode)
  26 #define MBTREE_LEFT(t) ((t)->inst_left)
  27 #define MBTREE_RIGHT(t) ((t)->inst_right)
  28
  29 #define MONO_EMIT_UNALU(cfg,inst,op,dr,sr1) do { \
  30                 (inst)->opcode = op; \
  31                 (inst)->dreg = dr; \
  32                 (inst)->sreg1 = sr1; \
  33                 mono_bblock_add_inst (cfg->cbb, inst); \
  34         } while (0)
  35
  36 #define MONO_EMIT_NEW_UNALU(cfg,op,dr,sr1) do { \
  37                 MonoInst *inst; \
  38                 inst = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
  39                 inst->opcode = op; \
  40                 inst->dreg = dr; \
  41                 inst->sreg1 = sr1; \
  42                 mono_bblock_add_inst (cfg->cbb, inst); \
  43         } while (0)
  44
  45 #define MONO_EMIT_BIALU(cfg,inst,op,dr,sr1,sr2) do { \
  46                 (inst)->opcode = op; \
  47                 (inst)->dreg = dr; \
  48                 (inst)->sreg1 = sr1; \
  49                 (inst)->sreg2 = sr2; \
  50                 mono_bblock_add_inst (cfg->cbb, inst); \
  51         } while (0)
  52
  53 #define MONO_EMIT_NEW_BIALU(cfg,op,dr,sr1,sr2) do { \
  54                 MonoInst *inst; \
  55                 inst = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
  56                 inst->opcode = op; \
  57                 inst->dreg = dr; \
  58                 inst->sreg1 = sr1; \
  59                 inst->sreg2 = sr2; \
  60                 mono_bblock_add_inst (cfg->cbb, inst); \
  61         } while (0)
  62
  63 #define MONO_EMIT_BIALU_IMM(cfg,inst,op,dr,sr,imm) do { \
  64                 (inst)->opcode = op; \
  65                 (inst)->dreg = dr; \
  66                 (inst)->sreg1 = sr; \
  67                 (inst)->inst_p1 = (gpointer)imm; \
  68                 mono_bblock_add_inst (cfg->cbb, inst); \
  69         } while (0)
  70
  71 #define MONO_EMIT_NEW_BIALU_IMM(cfg,op,dr,sr,imm) do { \
  72                 MonoInst *inst; \
  73                 inst = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
  74                 inst->opcode = op; \
  75                 inst->dreg = dr; \
  76                 inst->sreg1 = sr; \
  77                 inst->inst_p1 = (gpointer)imm; \
  78                 mono_bblock_add_inst (cfg->cbb, inst); \
  79         } while (0)
  80
  81 #define MONO_EMIT_LOAD_MEMBASE(cfg,inst,dr,base,offset) do { \
  82                 (inst)->opcode = OP_LOAD_MEMBASE; \
  83                 (inst)->dreg = dr; \
  84                 (inst)->inst_basereg = base; \
  85                 (inst)->inst_offset = offset; \
  86                 mono_bblock_add_inst (cfg->cbb, inst); \
  87         } while (0)
  88
  89 #define MONO_EMIT_LOAD_MEMBASE_OP(cfg,inst,op,dr,base,offset) do { \
  90                 (inst)->opcode = op; \
  91                 (inst)->dreg = dr; \
  92                 (inst)->inst_basereg = base; \
  93                 (inst)->inst_offset = offset; \
  94                 mono_bblock_add_inst (cfg->cbb, inst); \
  95         } while (0)
  96
  97 #define MONO_EMIT_NEW_LOAD_MEM(cfg,dr,addr) do { \
  98                 MonoInst *inst; \
  99                 inst = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
 100                 inst->opcode = OP_LOADU4_MEM; \
 101                 inst->dreg = dr; \
 102                 inst->inst_p0 = addr; \
 103                 mono_bblock_add_inst (cfg->cbb, inst); \
 104         } while (0)
 105
 106 #define MONO_EMIT_NEW_LOAD_MEMBASE(cfg,dr,base,offset) do { \
 107                 MonoInst *inst; \
 108                 inst = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
 109                 inst->opcode = OP_LOAD_MEMBASE; \
 110                 inst->dreg = dr; \
 111                 inst->inst_basereg = base; \
 112                 inst->inst_offset = offset; \
 113                 mono_bblock_add_inst (cfg->cbb, inst); \
 114         } while (0)
 115
 116 #define MONO_EMIT_NEW_LOAD_MEMBASE_OP(cfg,op,dr,base,offset) do { \
 117                 MonoInst *inst; \
 118                 inst = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
 119                 inst->opcode = op; \
 120                 inst->dreg = dr; \
 121                 inst->inst_basereg = base; \
 122                 inst->inst_offset = offset; \
 123                 mono_bblock_add_inst (cfg->cbb, inst); \
 124         } while (0)
 125
 126 #define MONO_EMIT_STORE_MEMBASE(cfg,inst,op,base,offset,sr) do { \
 127                 (inst)->opcode = op; \
 128                 (inst)->sreg1 = sr; \
 129                 (inst)->inst_destbasereg = base; \
 130                 (inst)->inst_offset = offset; \
 131                 mono_bblock_add_inst (cfg->cbb, inst); \
 132         } while (0)
 133
 134 #define MONO_EMIT_NEW_STORE_MEMBASE(cfg,op,base,offset,sr) do { \
 135                 MonoInst *inst; \
 136                 inst = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
 137                 inst->opcode = op; \
 138                 inst->sreg1 = sr; \
 139                 inst->inst_destbasereg = base; \
 140                 inst->inst_offset = offset; \
 141                 mono_bblock_add_inst (cfg->cbb, inst); \
 142         } while (0)
 143
 144 #define MONO_EMIT_STORE_MEMBASE_IMM(cfg,inst,op,base,offset,imm) do { \
 145                 (inst)->opcode = op; \
 146                 (inst)->inst_destbasereg = base; \
 147                 (inst)->inst_offset = offset; \
 148                 (inst)->inst_p1 = (gpointer)imm; \
 149                 mono_bblock_add_inst (cfg->cbb, inst); \
 150         } while (0)
 151
 152 #define MONO_EMIT_NEW_STORE_MEMBASE_IMM(cfg,op,base,offset,imm) do { \
 153                 MonoInst *inst; \
 154                 inst = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
 155                 inst->opcode = op; \
 156                 inst->inst_destbasereg = base; \
 157                 inst->inst_offset = offset; \
 158                 inst->inst_p1 = (gpointer)imm; \
 159                 mono_bblock_add_inst (cfg->cbb, inst); \
 160         } while (0)
 161
 162 #define MONO_EMIT_NEW_COMPARE_IMM(cfg,sr1,imm) do { \
 163                 MonoInst *inst; \
 164                 inst = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
 165                 inst->opcode = OP_COMPARE_IMM;  \
 166                 inst->sreg1 = sr1; \
 167                 inst->inst_p1 = (gpointer)imm; \
 168                 mono_bblock_add_inst ((cfg)->cbb, inst); \
 169         } while (0)
 170
 171 #define MONO_EMIT_NEW_COND_EXC(cfg,cond,name) do { \
 172                 MonoInst *inst; \
 173                 inst = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
 174                 inst->opcode = OP_COND_EXC_##cond;  \
 175                 inst->inst_p1 = (char*)name; \
 176                 mono_bblock_add_inst ((cfg)->cbb, inst); \
 177         } while (0)
 178
 179 #define MONO_EMIT_NEW_ICONST(cfg,dr,imm) do { \
 180                 MonoInst *inst; \
 181                 inst = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
 182                 inst->opcode = OP_ICONST;       \
 183                 inst->dreg = dr; \
 184                 inst->inst_c0 = imm; \
 185                 mono_bblock_add_inst ((cfg)->cbb, inst); \
 186         } while (0)
 187
 188 #define MONO_EMIT_NEW_I8CONST(cfg,dr,imm) do { \
 189                 MonoInst *inst; \
 190                 inst = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
 191                 inst->opcode = OP_I8CONST;      \
 192                 inst->dreg = dr; \
 193                 inst->inst_l = imm; \
 194                 mono_bblock_add_inst ((cfg)->cbb, inst); \
 195         } while (0)
 196
 197 #define MONO_EMIT_NEW_PCONST(cfg,dr,imm) do { \
 198                 MonoInst *inst; \
 199                 inst = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
 200                 inst->opcode = OP_ICONST;       \
 201                 inst->dreg = dr; \
 202                 inst->inst_p0 = (gpointer) imm; \
 203                 mono_bblock_add_inst ((cfg)->cbb, inst); \
 204         } while (0)
 205
 206 #define MONO_EMIT_NEW_AOTCONST(cfg,dr,imm,type) do { \
 207                 MonoInst *inst; \
 208                 inst = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
 209                 inst->opcode = OP_AOTCONST;     \
 210                 inst->dreg = dr; \
 211                 inst->inst_p0 = imm; \
 212                 inst->inst_c1 = type; \
 213                 mono_bblock_add_inst ((cfg)->cbb, inst); \
 214         } while (0)
 215
 216 #define MONO_EMIT_NEW_CLASSCONST(cfg,dr,imm) MONO_EMIT_NEW_AOTCONST(cfg,dr,imm,MONO_PATCH_INFO_CLASS)
 217
 218 #define MONO_EMIT_NEW_BRANCH_BLOCK(cfg,op,targetbb) do { \
 219                 MonoInst *inst; \
 220                 MonoInst *target_label; \
 221                 target_label = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
 222                 target_label->opcode = OP_LABEL;        \
 223                 target_label->next = (targetbb)->code; \
 224                 target_label->inst_c0 = (targetbb)->native_offset; \
 225                 (targetbb)->code = target_label; \
 226                 inst = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
 227                 inst->opcode = op;      \
 228                 inst->inst_i0 = target_label;   \
 229                 inst->flags = MONO_INST_BRLABEL;        \
 230                 mono_bblock_add_inst ((cfg)->cbb, inst); \
 231         } while (0)
 232
 233 #define MONO_EMIT_NEW_BRANCH_LABEL(cfg,op,label) do { \
 234                 MonoInst *inst; \
 235                 inst = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst)); \
 236                 inst->opcode = op;      \
 237                 inst->inst_i0 = label;  \
 238                 inst->flags = MONO_INST_BRLABEL;        \
 239                 mono_bblock_add_inst ((cfg)->cbb, inst); \
 240         } while (0)
 241
 242 #define MONO_NEW_LABEL(cfg,inst) do { \
 243                 (inst) = mono_mempool_alloc0 ((cfg)->mempool, sizeof (MonoInst));       \
 244                 (inst)->opcode = OP_LABEL;      \
 245         } while (0)
 246
 247 /* we need to kludge state because monoburg puts this stuff before the definition of MBState */
 248 void mini_emit_virtual_call (MonoCompile *s, void *state, MonoInst *tree, int novirt_op, int virtop);
 249 void mini_emit_isninst_cast (MonoCompile *s, int klass_reg, MonoClass *klass, MonoInst *false_target, MonoInst *true_target);
 250 void mini_emit_isninst_iface_cast (MonoCompile *s, int vtable_reg, MonoClass *klass, MonoInst *false_target, MonoInst *true_target);
 251 void mini_emit_isninst_iface_class_cast (MonoCompile *s, int klass_reg, MonoClass *klass, MonoInst *false_target, MonoInst *true_target);
 252 void mini_emit_castclass (MonoCompile *s, int klass_reg, MonoClass *klass);
 253 void mini_emit_castclass_iface (MonoCompile *s, int vtable_reg, MonoClass *klass);
 254 void mini_emit_castclass_iface_class (MonoCompile *s, int klass_reg, MonoClass *klass);
 255
 256 void mini_emit_memcpy (MonoCompile *s, int destreg, int doffset, int srcreg, int soffset, int size, int align);
 257 void mini_emit_memset (MonoCompile *s, int destreg, int offset, int size, int val, int align);
 258
 259 %%
 260
 261 %termprefix OP_ CEE_
 262
 263 %start stmt
 264
 265 #
 266 # base addressing mode
 267 #
 268
 269 base: reg "0" {
 270         /* we create a new MonoInst in chain rules and set state->tree to it
 271          * since a MBState (and hence state->tree) is reused in chain rules and
 272          * normal rules.
 273          */
 274         MonoInst *inst;
 275         inst = mono_mempool_alloc0 (s->mempool, sizeof (MonoInst));
 276         inst->opcode = OP_ICONST; /* doesn't matter */
 277         inst->inst_basereg = state->reg1;
 278         inst->inst_offset = 0;
 279         state->tree = inst;
 280         //g_print ("mybase: (assigned R%d from R%d - R%d)\n", state->reg1, tree->dreg, state->reg2);
 281         //tree->inst_offset = 0;
 282         //tree->inst_basereg = state->reg1;
 283 }
 284
 285 base: CEE_LDIND_I (OP_REGVAR) "0" {
 286         tree->inst_offset = 0;
 287         tree->inst_basereg = state->left->tree->dreg;
 288 }
 289
 290 base: OP_REGOFFSET "0" {
 291         /* nothing to do */
 292 }
 293
 294 base: OP_LDADDR (OP_REGOFFSET) "0" {
 295         tree->inst_offset = state->left->tree->inst_offset;
 296         tree->inst_basereg = state->left->tree->inst_basereg;
 297 }
 298
 299 base: CEE_LDOBJ (OP_REGOFFSET) "0" {
 300         tree->inst_offset = state->left->tree->inst_offset;
 301         tree->inst_basereg = state->left->tree->inst_basereg;
 302 }
 303
 304 base: CEE_ADD (base, OP_ICONST) "0" {
 305         tree->inst_offset = state->left->tree->inst_offset + state->right->tree->inst_c0;
 306         tree->inst_basereg = state->left->tree->inst_basereg;
 307 }
 308
 309 base: CEE_ADD (CEE_LDIND_REF (OP_REGVAR), OP_ICONST) "0" {
 310         tree->inst_offset = state->right->tree->inst_c0;
 311         tree->inst_basereg = state->left->left->tree->dreg;
 312 }
 313
 314 base: CEE_ADD (CEE_LDIND_I (OP_REGVAR), OP_ICONST) "0" {
 315         tree->inst_offset = state->right->tree->inst_c0;
 316         tree->inst_basereg = state->left->left->tree->dreg;
 317 }
 318
 319 #
 320 # helpers
 321 #
 322
 323 reg: OP_ICONST {
 324         MONO_EMIT_NEW_ICONST (s, state->reg1, tree->inst_c0);
 325 }
 326
 327 reg: OP_AOTCONST {
 328         MONO_EMIT_NEW_AOTCONST (s, state->reg1, tree->inst_p0, tree->inst_c1);
 329 }
 330
 331 #
 332 # load/store operations
 333 #
 334
 335 reg: CEE_LDIND_I (base) {
 336         MONO_EMIT_LOAD_MEMBASE (s, tree, state->reg1, state->left->tree->inst_basereg,
 337                                 state->left->tree->inst_offset);
 338 }
 339
 340 reg: CEE_LDIND_REF (base) {
 341         MONO_EMIT_LOAD_MEMBASE (s, tree, state->reg1, state->left->tree->inst_basereg,
 342                                 state->left->tree->inst_offset);
 343 }
 344
 345 reg: CEE_LDIND_I1 (base) {
 346         MONO_EMIT_LOAD_MEMBASE_OP (s, tree, OP_LOADI1_MEMBASE, state->reg1,
 347                                    state->left->tree->inst_basereg, state->left->tree->inst_offset);
 348 }
 349
 350 reg: CEE_LDIND_U1 (base) {
 351         MONO_EMIT_LOAD_MEMBASE_OP (s, tree, OP_LOADU1_MEMBASE, state->reg1,
 352                                    state->left->tree->inst_basereg, state->left->tree->inst_offset);
 353 }
 354
 355 reg: CEE_LDIND_I2 (base) {
 356         MONO_EMIT_LOAD_MEMBASE_OP (s, tree, OP_LOADI2_MEMBASE, state->reg1,
 357                                    state->left->tree->inst_basereg, state->left->tree->inst_offset);
 358 }
 359
 360 reg: CEE_LDIND_U2 (base) {
 361         MONO_EMIT_LOAD_MEMBASE_OP (s, tree, OP_LOADU2_MEMBASE, state->reg1,
 362                                    state->left->tree->inst_basereg, state->left->tree->inst_offset);
 363 }
 364
 365 reg: OP_LDADDR (OP_REGOFFSET) "2" {
 366         /* use LEA */
 367         tree->opcode = OP_MOVE;
 368         tree->sreg1 = state->left->tree->inst_basereg;
 369         tree->dreg = state->reg1;
 370         mono_bblock_add_inst (s->cbb, tree);
 371         if (state->left->tree->inst_offset) {
 372                 MONO_EMIT_NEW_BIALU_IMM (s, OP_ADD_IMM, tree->dreg, tree->dreg, state->left->tree->inst_offset);
 373         }
 374 }
 375
 376 reg: CEE_LDOBJ (OP_REGOFFSET) "2" {
 377         /* use LEA */
 378         /* FIXME: this is just an hack */
 379         tree->opcode = OP_MOVE;
 380         tree->sreg1 = state->left->tree->inst_basereg;
 381         tree->dreg = state->reg1;
 382         mono_bblock_add_inst (s->cbb, tree);
 383         if (state->left->tree->inst_offset) {
 384                 MONO_EMIT_NEW_BIALU_IMM (s, OP_ADD_IMM, tree->dreg, tree->dreg, state->left->tree->inst_offset);
 385         }
 386 }
 387
 388 reg: CEE_LDOBJ (reg) {
 389         tree->opcode = OP_MOVE;
 390         tree->sreg1 = state->left->reg1;
 391         tree->dreg = state->reg1;
 392         mono_bblock_add_inst (s->cbb, tree);
 393 }
 394
 395 reg: OP_OBJADDR (reg) {
 396         tree->opcode = OP_MOVE;
 397         tree->sreg1 = state->left->reg1;
 398         tree->dreg = state->reg1;
 399         mono_bblock_add_inst (s->cbb, tree);
 400 }
 401
 402 reg: OP_VTADDR (reg) {
 403         tree->opcode = OP_MOVE;
 404         tree->sreg1 = state->left->reg1;
 405         tree->dreg = state->reg1;
 406         mono_bblock_add_inst (s->cbb, tree);
 407 }
 408
 409 reg: CEE_LDIND_REF (OP_REGVAR) {
 410         tree->opcode = OP_MOVE;
 411         tree->sreg1 = state->left->tree->dreg;
 412         tree->dreg = state->reg1;
 413         mono_bblock_add_inst (s->cbb, tree);
 414 }
 415
 416 reg: CEE_LDIND_I4 (OP_REGVAR) {
 417         tree->opcode = OP_MOVE;
 418         tree->sreg1 = state->left->tree->dreg;
 419         tree->dreg = state->reg1;
 420         mono_bblock_add_inst (s->cbb, tree);
 421 }
 422
 423 reg: CEE_LDIND_U4 (OP_REGVAR) {
 424         tree->opcode = OP_MOVE;
 425         tree->sreg1 = state->left->tree->dreg;
 426         tree->dreg = state->reg1;
 427         mono_bblock_add_inst (s->cbb, tree);
 428 }
 429
 430 reg: CEE_LDIND_U1 (OP_REGVAR) {
 431         MONO_EMIT_BIALU_IMM (s, tree, OP_AND_IMM, state->reg1, state->left->tree->dreg, 0xff);
 432 }
 433
 434 reg: CEE_LDIND_U2 (OP_REGVAR) {
 435         MONO_EMIT_BIALU_IMM (s, tree, OP_AND_IMM, state->reg1, state->left->tree->dreg, 0xffff);
 436 }
 437
 438 stmt: CEE_STIND_REF (base, reg) {
 439         MONO_EMIT_STORE_MEMBASE (s, tree, OP_STORE_MEMBASE_REG, state->left->tree->inst_basereg,
 440                                  state->left->tree->inst_offset, state->right->reg1);
 441 }
 442
 443 stmt: CEE_STIND_REF (base, CEE_LDIND_REF (OP_REGVAR)) {
 444         MONO_EMIT_STORE_MEMBASE (s, tree, OP_STORE_MEMBASE_REG, state->left->tree->inst_basereg,
 445                                  state->left->tree->inst_offset, state->right->left->tree->dreg);
 446 }
 447
 448 stmt: CEE_STIND_REF (base, OP_ICONST) {
 449         MONO_EMIT_STORE_MEMBASE_IMM (s, tree, OP_STORE_MEMBASE_IMM, state->left->tree->inst_basereg,
 450                                      state->left->tree->inst_offset, state->right->tree->inst_c0);
 451 }
 452
 453 stmt: CEE_STIND_REF (OP_REGVAR, CEE_LDIND_REF (OP_REGVAR)) {
 454         MONO_EMIT_UNALU (s, tree, OP_MOVE, state->left->tree->dreg, state->right->left->tree->dreg);
 455 }
 456
 457
 458 stmt: CEE_STIND_I (base, reg) {
 459         MONO_EMIT_STORE_MEMBASE (s, tree, OP_STORE_MEMBASE_REG, state->left->tree->inst_basereg,
 460                                  state->left->tree->inst_offset, state->right->reg1);
 461 }
 462
 463 stmt: CEE_STIND_I (base, OP_ICONST) {
 464         MONO_EMIT_STORE_MEMBASE_IMM (s, tree, OP_STORE_MEMBASE_IMM, state->left->tree->inst_basereg,
 465                                      state->left->tree->inst_offset, state->right->tree->inst_c0);
 466 }
 467
 468 reg: CEE_LDIND_I4 (base) {
 469         MONO_EMIT_LOAD_MEMBASE_OP (s, tree, OP_LOADI4_MEMBASE, state->reg1,
 470                                    state->left->tree->inst_basereg, state->left->tree->inst_offset);
 471 }
 472
 473 reg: CEE_LDIND_U4 (base) {
 474         MONO_EMIT_LOAD_MEMBASE_OP (s, tree, OP_LOADU4_MEMBASE, state->reg1,
 475                                    state->left->tree->inst_basereg, state->left->tree->inst_offset);
 476 }
 477
 478 reg: CEE_LDIND_I4 (OP_REGVAR) {
 479         MONO_EMIT_UNALU (s, tree, OP_MOVE, state->reg1, state->left->tree->dreg);
 480 }
 481
 482 reg: CEE_LDIND_U4 (OP_REGVAR) {
 483         MONO_EMIT_UNALU (s, tree, OP_MOVE, state->reg1, state->left->tree->dreg);
 484 }
 485
 486 reg: CEE_LDIND_I (OP_REGVAR) {
 487         MONO_EMIT_UNALU (s, tree, OP_MOVE, state->reg1, state->left->tree->dreg);
 488 }
 489
 490 stmt: CEE_STIND_I4 (base, reg) {
 491         MONO_EMIT_STORE_MEMBASE (s, tree, OP_STOREI4_MEMBASE_REG, state->left->tree->inst_basereg,
 492                                  state->left->tree->inst_offset, state->right->reg1);
 493 }
 494
 495 stmt: CEE_STIND_I4 (base, CEE_LDIND_I4 (OP_REGVAR)) {
 496         MONO_EMIT_STORE_MEMBASE (s, tree, OP_STOREI4_MEMBASE_REG, state->left->tree->inst_basereg,
 497                                  state->left->tree->inst_offset, state->right->left->tree->dreg);
 498 }
 499
 500 stmt: CEE_STIND_I4 (base, OP_ICONST) {
 501         MONO_EMIT_STORE_MEMBASE_IMM (s, tree, OP_STOREI4_MEMBASE_IMM, state->left->tree->inst_basereg,
 502                                      state->left->tree->inst_offset, state->right->tree->inst_c0);
 503 }
 504
 505 stmt: CEE_STIND_I1 (base, reg) {
 506         MONO_EMIT_STORE_MEMBASE (s, tree, OP_STOREI1_MEMBASE_REG, state->left->tree->inst_basereg,
 507                                  state->left->tree->inst_offset, state->right->reg1);
 508 }
 509
 510 stmt: CEE_STIND_I1 (base, OP_ICONST) {
 511         MONO_EMIT_STORE_MEMBASE_IMM (s, tree, OP_STOREI1_MEMBASE_IMM, state->left->tree->inst_basereg,
 512                                      state->left->tree->inst_offset, state->right->tree->inst_c0);
 513 }
 514
 515 stmt: CEE_STIND_I2 (base, reg) {
 516         MONO_EMIT_STORE_MEMBASE (s, tree, OP_STOREI2_MEMBASE_REG, state->left->tree->inst_basereg,
 517                                  state->left->tree->inst_offset, state->right->reg1);
 518 }
 519
 520 stmt: CEE_STIND_I2 (base, OP_ICONST) {
 521         MONO_EMIT_STORE_MEMBASE_IMM (s, tree, OP_STOREI2_MEMBASE_IMM, state->left->tree->inst_basereg,
 522                                      state->left->tree->inst_offset, state->right->tree->inst_c0);
 523 }
 524
 525 stmt: CEE_STIND_I4 (OP_REGVAR, reg) {
 526         MONO_EMIT_UNALU (s, tree, OP_MOVE, state->left->tree->dreg, state->right->reg1);
 527 }
 528
 529 stmt: CEE_STIND_I2 (OP_REGVAR, reg) {
 530         MONO_EMIT_BIALU_IMM (s, tree, OP_AND_IMM, state->left->tree->dreg, state->right->reg1, 0xffff);
 531 }
 532
 533 stmt: CEE_STIND_I1 (OP_REGVAR, reg) {
 534         MONO_EMIT_BIALU_IMM (s, tree, OP_AND_IMM, state->left->tree->dreg, state->right->reg1, 0xff);
 535 }
 536
 537 stmt: CEE_STIND_I1 (OP_REGVAR, CEE_LDIND_U1 (OP_REGVAR)) {
 538         MONO_EMIT_BIALU_IMM (s, tree, OP_AND_IMM, state->left->tree->dreg, state->right->left->tree->dreg, 0xff);
 539 }
 540
 541 stmt: CEE_STIND_I1 (OP_REGVAR, CEE_LDIND_I1 (OP_REGVAR)) {
 542         MONO_EMIT_BIALU_IMM (s, tree, OP_AND_IMM, state->left->tree->dreg, state->right->left->tree->dreg, 0xff);
 543 }
 544
 545 stmt: CEE_STIND_I2 (OP_REGVAR, CEE_LDIND_U2 (OP_REGVAR)) {
 546         MONO_EMIT_BIALU_IMM (s, tree, OP_AND_IMM, state->left->tree->dreg, state->right->left->tree->dreg, 0xffff);
 547 }
 548
 549 stmt: CEE_STIND_I2 (OP_REGVAR, CEE_LDIND_I2 (OP_REGVAR)) {
 550         MONO_EMIT_BIALU_IMM (s, tree, OP_AND_IMM, state->left->tree->dreg, state->right->left->tree->dreg, 0xffff);
 551 }
 552
 553 stmt: CEE_STIND_I4 (OP_REGVAR, CEE_LDIND_I4 (OP_REGVAR)) {
 554         MONO_EMIT_UNALU (s, tree, OP_MOVE, state->left->tree->dreg, state->right->left->tree->dreg);
 555 }
 556
 557 stmt: CEE_STIND_I4 (OP_REGVAR, CEE_LDIND_I4 (base)) {
 558         MONO_EMIT_LOAD_MEMBASE_OP (s, tree, OP_LOADI4_MEMBASE, state->left->tree->dreg,
 559                                    state->right->left->tree->inst_basereg,
 560                                    state->right->left->tree->inst_offset);
 561 }
 562
 563 stmt: CEE_STIND_I4 (OP_REGVAR, OP_ICONST) {
 564         tree->opcode = OP_ICONST;
 565         tree->dreg = state->left->tree->dreg;
 566         tree->inst_c0 = state->right->tree->inst_c0;
 567         mono_bblock_add_inst (s->cbb, tree);
 568 }
 569
 570 stmt: CEE_STIND_REF (OP_REGVAR, reg) {
 571         MONO_EMIT_UNALU (s, tree, OP_MOVE, state->left->tree->dreg, state->right->reg1);
 572 }
 573
 574 stmt: CEE_STIND_REF (OP_REGVAR, OP_ICONST) {
 575         tree->opcode = OP_ICONST;
 576         tree->dreg = state->left->tree->dreg;
 577         tree->inst_c0 = state->right->tree->inst_c0;
 578         mono_bblock_add_inst (s->cbb, tree);
 579 }
 580
 581 stmt: CEE_STIND_I (OP_REGVAR, reg) {
 582         MONO_EMIT_UNALU (s, tree, OP_MOVE, state->left->tree->dreg, state->right->reg1);
 583 }
 584
 585 stmt: CEE_STELEM_REF (OP_GROUP (reg, reg), reg) {
 586
 587         g_assert_not_reached ();
 588 }
 589
 590 reg: OP_GROUP (reg, reg) {
 591         g_assert_not_reached ();
 592 }
 593
 594 stmt: OP_MEMCPY (reg, reg) {
 595         int size = tree->unused;
 596         mini_emit_memcpy (s, state->left->reg1, 0, state->right->reg1, 0, size, 0);
 597 }
 598
 599 stmt: OP_MEMSET (reg) {
 600         int size = tree->unused;
 601         mini_emit_memset (s, state->left->reg1, 0, size, tree->inst_imm, 0);
 602 }
 603
 604 reg: OP_LDELEMA2D (reg, OP_GROUP (reg, reg)) "20" {
 605         int bounds_reg = mono_regstate_next_int (s->rs);
 606         int add_reg = mono_regstate_next_int (s->rs);
 607         int mult_reg = mono_regstate_next_int (s->rs);
 608         int mult2_reg = mono_regstate_next_int (s->rs);
 609         int low1_reg = mono_regstate_next_int (s->rs);
 610         int low2_reg = mono_regstate_next_int (s->rs);
 611         int high1_reg = mono_regstate_next_int (s->rs);
 612         int high2_reg = mono_regstate_next_int (s->rs);
 613         int realidx1_reg = mono_regstate_next_int (s->rs);
 614         int realidx2_reg = mono_regstate_next_int (s->rs);
 615         int sum_reg = mono_regstate_next_int (s->rs);
 616         int index1, index2;
 617         guint32 size = mono_array_element_size (tree->klass);
 618
 619         index1 = state->right->left->reg1;
 620         index2 = state->right->right->reg1;
 621
 622         /* range checking */
 623         MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOADI4_MEMBASE, bounds_reg,
 624                                        state->left->reg1, G_STRUCT_OFFSET (MonoArray, bounds));
 625
 626         MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOADI4_MEMBASE, low1_reg,
 627                                        bounds_reg, G_STRUCT_OFFSET (MonoArrayBounds, lower_bound));
 628         MONO_EMIT_NEW_BIALU (s, CEE_SUB, realidx1_reg, index1, low1_reg);
 629         MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOADI4_MEMBASE, high1_reg,
 630                                        bounds_reg, G_STRUCT_OFFSET (MonoArrayBounds, length));
 631         MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, high1_reg, realidx1_reg);
 632         MONO_EMIT_NEW_COND_EXC (s, LE_UN, "IndexOutOfRangeException");
 633
 634         MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOADI4_MEMBASE, low2_reg,
 635                                        bounds_reg, sizeof (MonoArrayBounds) + G_STRUCT_OFFSET (MonoArrayBounds, lower_bound));
 636         MONO_EMIT_NEW_BIALU (s, CEE_SUB, realidx2_reg, index2, low2_reg);
 637         MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOADI4_MEMBASE, high2_reg,
 638                                        bounds_reg, sizeof (MonoArrayBounds) + G_STRUCT_OFFSET (MonoArrayBounds, length));
 639         MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, high2_reg, realidx2_reg);
 640         MONO_EMIT_NEW_COND_EXC (s, LE_UN, "IndexOutOfRangeException");
 641
 642         MONO_EMIT_NEW_BIALU (s, CEE_MUL, mult_reg, high2_reg, realidx1_reg);
 643         MONO_EMIT_NEW_BIALU (s, CEE_ADD, sum_reg, mult_reg, realidx2_reg);
 644         MONO_EMIT_NEW_BIALU_IMM (s, OP_MUL_IMM, mult2_reg, sum_reg, size);
 645         MONO_EMIT_NEW_BIALU (s, CEE_ADD, add_reg, mult2_reg, state->left->reg1);
 646         MONO_EMIT_NEW_BIALU_IMM (s, OP_ADD_IMM, state->reg1, add_reg, G_STRUCT_OFFSET (MonoArray, vector));
 647 }
 648
 649 #
 650 # conversions: conv_u can be implemented with AND, also all _ovf conversions?
 651 #
 652
 653 reg: CEE_CONV_I1 (reg) {
 654         MONO_EMIT_UNALU (s, tree, tree->opcode, state->reg1, state->left->reg1);
 655 }
 656
 657 reg: CEE_CONV_I2 (reg) {
 658         MONO_EMIT_UNALU (s, tree, tree->opcode, state->reg1, state->left->reg1);
 659 }
 660
 661 reg: CEE_CONV_I4 (reg) {
 662         MONO_EMIT_UNALU (s, tree, tree->opcode, state->reg1, state->left->reg1);
 663 }
 664
 665 reg: CEE_CONV_U1 (reg) {
 666         MONO_EMIT_BIALU_IMM (s, tree, OP_AND_IMM, state->reg1, state->left->reg1, 0xff);
 667 }
 668
 669 reg: CEE_CONV_U2 (reg) {
 670         MONO_EMIT_BIALU_IMM (s, tree, OP_AND_IMM, state->reg1, state->left->reg1, 0xffff);
 671 }
 672
 673 reg: CEE_CONV_U4 (reg) {
 674         if (sizeof (void *) == 8) {
 675                 MONO_EMIT_UNALU (s, tree, tree->opcode, state->reg1, state->left->reg1);
 676         } else {
 677                 MONO_EMIT_UNALU (s, tree, OP_MOVE, state->reg1, state->left->reg1);
 678         }
 679 }
 680
 681 reg: CEE_CONV_U (reg) {
 682         if (sizeof (void *) == 8) {
 683                 MONO_EMIT_UNALU (s, tree, tree->opcode, state->reg1, state->left->reg1);
 684         } else {
 685                 MONO_EMIT_UNALU (s, tree, OP_MOVE, state->reg1, state->left->reg1);
 686         }
 687 }
 688
 689 reg: CEE_CONV_I (reg) {
 690         if (sizeof (void *) == 8) {
 691                 MONO_EMIT_UNALU (s, tree, tree->opcode, state->reg1, state->left->reg1);
 692         } else {
 693                 MONO_EMIT_UNALU (s, tree, OP_MOVE, state->reg1, state->left->reg1);
 694         }
 695 }
 696
 697 reg: CEE_CONV_OVF_I4 (reg) {
 698         if (sizeof (void *) == 8) {
 699                 MONO_EMIT_UNALU (s, tree, tree->opcode, state->reg1, state->left->reg1);
 700         } else {
 701                 MONO_EMIT_UNALU (s, tree, OP_MOVE, state->reg1, state->left->reg1);
 702         }
 703 }
 704
 705 reg: CEE_CONV_OVF_U4 (reg) {
 706         if (sizeof (void *) == 8) {
 707                 MONO_EMIT_UNALU (s, tree, tree->opcode, state->reg1, state->left->reg1);
 708         } else {
 709                 /* Keep in sync with CONV_OVF_I4_UN below, they are the same on 32-bit machines */
 710                 MONO_EMIT_NEW_COMPARE_IMM (s, state->left->reg1, 0);
 711                 MONO_EMIT_NEW_COND_EXC (s, LT, "OverflowException");
 712                 MONO_EMIT_UNALU (s, tree, OP_MOVE, state->reg1, state->left->reg1);
 713         }
 714 }
 715
 716 reg: CEE_CONV_OVF_I4_UN (reg) {
 717         if (sizeof (void *) == 8) {
 718                 MONO_EMIT_UNALU (s, tree, tree->opcode, state->reg1, state->left->reg1);
 719         } else {
 720                 /* Keep in sync with CONV_OVF_U4 above, they are the same on 32-bit machines */
 721                 MONO_EMIT_NEW_COMPARE_IMM (s, state->left->reg1, 0);
 722                 MONO_EMIT_NEW_COND_EXC (s, LT, "OverflowException");
 723                 MONO_EMIT_UNALU (s, tree, OP_MOVE, state->reg1, state->left->reg1);
 724         }
 725 }
 726
 727 reg: CEE_CONV_OVF_I1 (reg) {
 728         MONO_EMIT_NEW_COMPARE_IMM (s, state->left->reg1, 127);
 729         MONO_EMIT_NEW_COND_EXC (s, GT, "OverflowException");
 730         MONO_EMIT_NEW_COMPARE_IMM (s, state->left->reg1, -128);
 731         MONO_EMIT_NEW_COND_EXC (s, LT, "OverflowException");
 732         MONO_EMIT_UNALU (s, tree, CEE_CONV_I1, state->reg1, state->left->reg1);
 733 }
 734
 735 reg: CEE_CONV_OVF_I1_UN (reg) {
 736         /* probe values between 0 to 127 */
 737         MONO_EMIT_NEW_COMPARE_IMM (s, state->left->reg1, 127);
 738         MONO_EMIT_NEW_COND_EXC (s, GT_UN, "OverflowException");
 739         MONO_EMIT_UNALU (s, tree, CEE_CONV_I1, state->reg1, state->left->reg1);
 740 }
 741
 742 reg: CEE_CONV_OVF_U1 (reg) {
 743         /* probe value to be within 0 to 255 */
 744         MONO_EMIT_NEW_COMPARE_IMM (s, state->left->reg1, 255);
 745         MONO_EMIT_NEW_COND_EXC (s, GT_UN, "OverflowException");
 746         MONO_EMIT_BIALU_IMM (s, tree, OP_AND_IMM, state->reg1, state->left->reg1, 0xff);
 747 }
 748
 749 reg: CEE_CONV_OVF_U1_UN (reg) {
 750         /* probe value to be within 0 to 255 */
 751         MONO_EMIT_NEW_COMPARE_IMM (s, state->left->reg1, 255);
 752         MONO_EMIT_NEW_COND_EXC (s, GT_UN, "OverflowException");
 753         MONO_EMIT_BIALU_IMM (s, tree, OP_AND_IMM, state->reg1, state->left->reg1, 0xff);
 754 }
 755
 756 reg: CEE_CONV_OVF_I2 (reg) {
 757         /* Probe value to be within -32768 and 32767 */
 758         MONO_EMIT_NEW_COMPARE_IMM (s, state->left->reg1, 32767);
 759         MONO_EMIT_NEW_COND_EXC (s, GT, "OverflowException");
 760         MONO_EMIT_NEW_COMPARE_IMM (s, state->left->reg1, -32768);
 761         MONO_EMIT_NEW_COND_EXC (s, LT, "OverflowException");
 762         MONO_EMIT_UNALU (s, tree, CEE_CONV_I2, state->reg1, state->left->reg1);
 763 }
 764
 765 reg: CEE_CONV_OVF_I2_UN (reg) {
 766         /* Convert uint value into short, value within 0 and 32767 */
 767         MONO_EMIT_NEW_COMPARE_IMM (s, state->left->reg1, 32767);
 768         MONO_EMIT_NEW_COND_EXC (s, GT_UN, "OverflowException");
 769         MONO_EMIT_UNALU (s, tree, CEE_CONV_I2, state->reg1, state->left->reg1);
 770 }
 771
 772 reg: CEE_CONV_OVF_U2 (reg) {
 773         /* Probe value to be within 0 and 65535 */
 774         MONO_EMIT_NEW_COMPARE_IMM (s, state->left->reg1, 0xffff);
 775         MONO_EMIT_NEW_COND_EXC (s, GT_UN, "OverflowException");
 776         MONO_EMIT_BIALU_IMM (s, tree, OP_AND_IMM, state->reg1, state->left->reg1, 0xffff);
 777 }
 778
 779 reg: CEE_CONV_OVF_U2_UN (reg) {
 780         /* Probe value to be within 0 and 65535 */
 781         MONO_EMIT_NEW_COMPARE_IMM (s, state->left->reg1, 0xffff);
 782         MONO_EMIT_NEW_COND_EXC (s, GT_UN, "OverflowException");
 783         MONO_EMIT_BIALU_IMM (s, tree, OP_AND_IMM, state->reg1, state->left->reg1, 0xffff);
 784 }
 785
 786 #
 787 # basic alu operations
 788 #
 789
 790 reg: CEE_AND (reg, reg) {
 791         MONO_EMIT_BIALU (s, tree, tree->opcode, state->reg1, state->left->reg1, state->right->reg1);
 792 }
 793
 794 reg: CEE_AND (reg, OP_ICONST) {
 795         MONO_EMIT_BIALU_IMM (s, tree, OP_AND_IMM, state->reg1, state->left->reg1, state->right->tree->inst_c0);
 796 }
 797
 798 reg: CEE_OR (reg, reg) {
 799         MONO_EMIT_BIALU (s, tree, tree->opcode, state->reg1, state->left->reg1, state->right->reg1);
 800 }
 801
 802 reg: CEE_OR (reg, OP_ICONST) {
 803         MONO_EMIT_BIALU_IMM (s, tree, OP_OR_IMM, state->reg1, state->left->reg1, state->right->tree->inst_c0);
 804 }
 805
 806 reg: CEE_XOR (reg, reg) {
 807         MONO_EMIT_BIALU (s, tree, tree->opcode, state->reg1, state->left->reg1, state->right->reg1);
 808 }
 809
 810 reg: CEE_XOR (reg, OP_ICONST) {
 811         MONO_EMIT_BIALU_IMM (s, tree, OP_XOR_IMM, state->reg1, state->left->reg1, state->right->tree->inst_c0);
 812 }
 813
 814 reg: CEE_NEG (reg) {
 815         MONO_EMIT_UNALU (s, tree, tree->opcode, state->reg1, state->left->reg1);
 816 }
 817
 818 reg: CEE_NOT (reg) {
 819         MONO_EMIT_UNALU (s, tree, tree->opcode, state->reg1, state->left->reg1);
 820 }
 821
 822 reg: CEE_ADD (reg, reg) {
 823         MONO_EMIT_BIALU (s, tree, tree->opcode, state->reg1, state->left->reg1, state->right->reg1);
 824 }
 825
 826 reg: CEE_ADD (reg, OP_ICONST) {
 827         MONO_EMIT_BIALU_IMM (s, tree, OP_ADD_IMM, state->reg1, state->left->reg1, state->right->tree->inst_c0);
 828 }
 829
 830 reg: CEE_ADD_OVF (reg, reg) {
 831         MONO_EMIT_NEW_BIALU (s, OP_ADDCC, state->reg1, state->left->reg1, state->right->reg1);
 832         MONO_EMIT_NEW_COND_EXC (s, OV, "OverflowException");
 833 }
 834
 835 reg: CEE_ADD_OVF_UN (reg, reg) {
 836         MONO_EMIT_NEW_BIALU (s, OP_ADDCC, state->reg1, state->left->reg1, state->right->reg1);
 837         MONO_EMIT_NEW_COND_EXC (s, C, "OverflowException");
 838 }
 839
 840 reg: CEE_SUB (reg, reg) {
 841         MONO_EMIT_BIALU (s, tree, tree->opcode, state->reg1, state->left->reg1, state->right->reg1);
 842 }
 843
 844 reg: CEE_SUB (reg, OP_ICONST) {
 845         MONO_EMIT_BIALU_IMM (s, tree, OP_SUB_IMM, state->reg1, state->left->reg1, state->right->tree->inst_c0);
 846 }
 847
 848 reg: CEE_SUB_OVF (reg, reg) {
 849         MONO_EMIT_NEW_BIALU (s, OP_SUBCC, state->reg1, state->left->reg1, state->right->reg1);
 850         MONO_EMIT_NEW_COND_EXC (s, OV, "OverflowException");
 851 }
 852
 853 reg: CEE_SUB_OVF_UN (reg, reg) {
 854         MONO_EMIT_NEW_BIALU (s, OP_SUBCC, state->reg1, state->left->reg1, state->right->reg1);
 855         MONO_EMIT_NEW_COND_EXC (s, C, "OverflowException");
 856 }
 857
 858 #
 859 # mult/div operations
 860 #
 861
 862 reg: CEE_MUL (reg, reg) {
 863         MONO_EMIT_BIALU (s, tree, tree->opcode, state->reg1, state->left->reg1, state->right->reg1);
 864 }
 865
 866 reg: CEE_MUL (reg, OP_ICONST) {
 867         MONO_EMIT_BIALU_IMM (s, tree, OP_MUL_IMM, state->reg1, state->left->reg1, state->right->tree->inst_c0);
 868 }
 869
 870 reg: CEE_MUL_OVF (reg, reg) {
 871         MONO_EMIT_BIALU (s, tree, tree->opcode, state->reg1, state->left->reg1, state->right->reg1);
 872 }
 873
 874 reg: CEE_MUL_OVF_UN (reg, reg) {
 875         MONO_EMIT_BIALU (s, tree, tree->opcode, state->reg1, state->left->reg1, state->right->reg1);
 876 }
 877
 878 reg: CEE_DIV (reg, reg) {
 879         MONO_EMIT_BIALU (s, tree, tree->opcode, state->reg1, state->left->reg1, state->right->reg1);
 880 }
 881
 882 #reg: CEE_DIV (reg, OP_ICONST) {
 883 #       MONO_EMIT_BIALU_IMM (s, tree, OP_DIV_IMM, state->reg1, state->left->reg1, state->right->tree->inst_c0);
 884 #}
 885
 886 reg: CEE_DIV_UN (reg, reg) {
 887         MONO_EMIT_BIALU (s, tree, tree->opcode, state->reg1, state->left->reg1, state->right->reg1);
 888 }
 889
 890 #reg: CEE_DIV_UN (reg, OP_ICONST) {
 891 #       MONO_EMIT_BIALU_IMM (s, tree, OP_DIV_UN_IMM, state->reg1, state->left->reg1, state->right->tree->inst_c0);
 892 #}
 893
 894 reg: CEE_REM (reg, reg) {
 895         MONO_EMIT_BIALU (s, tree, tree->opcode, state->reg1, state->left->reg1, state->right->reg1);
 896 }
 897
 898 #reg: CEE_REM (reg, OP_ICONST) {
 899 #       MONO_EMIT_BIALU_IMM (s, tree, OP_REM_IMM, state->reg1, state->left->reg1, state->right->tree->inst_c0);
 900 #}
 901
 902 reg: CEE_REM_UN (reg, reg) {
 903         MONO_EMIT_BIALU (s, tree, tree->opcode, state->reg1, state->left->reg1, state->right->reg1);
 904 }
 905
 906 #reg: CEE_REM_UN (reg, OP_ICONST) {
 907 #       MONO_EMIT_BIALU_IMM (s, tree, OP_REM_UN_IMM, state->reg1, state->left->reg1, state->right->tree->inst_c0);
 908 #}
 909
 910 #
 911 # shift operations
 912 #
 913
 914 reg: CEE_SHL (reg, reg) {
 915         MONO_EMIT_BIALU (s, tree, tree->opcode, state->reg1, state->left->reg1, state->right->reg1);
 916 }
 917
 918 reg: CEE_SHL (reg, OP_ICONST) {
 919         MONO_EMIT_BIALU_IMM (s, tree, OP_SHL_IMM, state->reg1, state->left->reg1, state->right->tree->inst_c0);
 920 }
 921
 922 reg: CEE_SHR (reg, reg) {
 923         MONO_EMIT_BIALU (s, tree, tree->opcode, state->reg1, state->left->reg1, state->right->reg1);
 924 }
 925
 926 reg: CEE_SHR (reg, OP_ICONST) {
 927         MONO_EMIT_BIALU_IMM (s, tree, OP_SHR_IMM, state->reg1, state->left->reg1, state->right->tree->inst_c0);
 928 }
 929
 930 reg: CEE_SHR_UN (reg, reg) {
 931         MONO_EMIT_BIALU (s, tree, tree->opcode, state->reg1, state->left->reg1, state->right->reg1);
 932 }
 933
 934 reg: CEE_SHR_UN (reg, OP_ICONST) {
 935         MONO_EMIT_BIALU_IMM (s, tree, OP_SHR_UN_IMM, state->reg1, state->left->reg1, state->right->tree->inst_c0);
 936 }
 937
 938
 939 #
 940 # other alu operations
 941 #
 942
 943 reg: OP_CEQ (cflags) {
 944         tree->dreg = state->reg1;
 945         mono_bblock_add_inst (s->cbb, tree);
 946 }
 947
 948 reg: OP_CLT (cflags) {
 949         tree->dreg = state->reg1;
 950         mono_bblock_add_inst (s->cbb, tree);
 951 }
 952
 953 reg: OP_CLT_UN (cflags) {
 954         tree->dreg = state->reg1;
 955         mono_bblock_add_inst (s->cbb, tree);
 956 }
 957
 958 reg: OP_CGT (cflags) {
 959         tree->dreg = state->reg1;
 960         mono_bblock_add_inst (s->cbb, tree);
 961 }
 962
 963 reg: OP_CGT_UN (cflags) {
 964         tree->dreg = state->reg1;
 965         mono_bblock_add_inst (s->cbb, tree);
 966 }
 967
 968 #
 969 # control flow commands
 970 #
 971
 972 stmt: OP_LABEL {
 973         mono_bblock_add_inst (s->cbb, tree);
 974 }
 975
 976 stmt: CEE_NOP "0" {
 977 }
 978
 979 stmt: CEE_BREAK "0" {
 980         mono_bblock_add_inst (s->cbb, tree);
 981 }
 982
 983 stmt: CEE_SWITCH (reg) {
 984         MonoInst *label;
 985         int offset_reg = mono_regstate_next_int (s->rs);
 986         int target_reg = mono_regstate_next_int (s->rs);
 987         int n = GPOINTER_TO_INT (tree->klass);
 988
 989         MONO_NEW_LABEL (s, label);
 990         mono_create_jump_table (s, label, tree->inst_many_bb, n);
 991
 992         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, state->left->reg1, n);
 993         MONO_EMIT_NEW_BRANCH_BLOCK (s, CEE_BGE_UN, tree->inst_many_bb [n]);
 994         MONO_EMIT_NEW_BIALU_IMM (s, OP_SHL_IMM, offset_reg, state->left->reg1, 2);
 995         mono_bblock_add_inst (s->cbb, label);
 996          /* the backend must patch the address. we use 0xf0f0f0f0 to avoid the usage
 997           * of special (short) opcodes on x86 */
 998         MONO_EMIT_NEW_LOAD_MEMBASE (s, target_reg, offset_reg, 0xf0f0f0f0);
 999         MONO_EMIT_UNALU (s, tree, OP_BR_REG, -1, target_reg);
1000 }
1001
1002 stmt: CEE_BR "0" {
1003         mono_bblock_add_inst (s->cbb, tree);
1004 }
1005
1006 stmt: OP_ARGLIST (reg) {
1007         mono_bblock_add_inst (s->cbb, tree);
1008 }
1009
1010 reg: CEE_CALL {
1011         tree->dreg = state->reg1;
1012         mono_bblock_add_inst (s->cbb, tree);
1013 }
1014
1015 reg: CEE_CALLVIRT (reg) {
1016         mini_emit_virtual_call (s, state, tree, CEE_CALL, OP_CALL_MEMBASE);
1017 }
1018
1019 stmt: OP_VOIDCALLVIRT (reg) {
1020         mini_emit_virtual_call (s, state, tree, OP_VOIDCALL, OP_VOIDCALL_MEMBASE);
1021 }
1022
1023 lreg: OP_LCALLVIRT (reg) {
1024         mini_emit_virtual_call (s, state, tree, OP_LCALL, OP_LCALL_MEMBASE);
1025 }
1026
1027 freg: OP_FCALLVIRT (reg) {
1028         mini_emit_virtual_call (s, state, tree, OP_FCALL, OP_FCALL_MEMBASE);
1029 }
1030
1031 stmt: OP_VCALLVIRT (reg, reg) {
1032         mini_emit_virtual_call (s, state, tree, OP_VCALL, OP_VCALL_MEMBASE);
1033 }
1034
1035 reg: OP_CALL_REG (reg) {
1036         tree->sreg1 = state->left->reg1;
1037         tree->dreg = state->reg1;
1038         mono_bblock_add_inst (s->cbb, tree);
1039 }
1040
1041 stmt: OP_VOIDCALL {
1042         mono_bblock_add_inst (s->cbb, tree);
1043 }
1044
1045 stmt: OP_VOIDCALL_REG (reg) {
1046         tree->sreg1 = state->left->reg1;
1047         mono_bblock_add_inst (s->cbb, tree);
1048 }
1049
1050 freg: OP_FCALL {
1051         tree->dreg = state->reg1;
1052         mono_bblock_add_inst (s->cbb, tree);
1053 }
1054
1055 freg: OP_FCALL_REG (reg) {
1056         tree->sreg1 = state->left->reg1;
1057         tree->dreg = state->reg1;
1058         mono_bblock_add_inst (s->cbb, tree);
1059 }
1060
1061 lreg: OP_LCALL {
1062         tree->dreg = state->reg1;
1063         mono_bblock_add_inst (s->cbb, tree);
1064 }
1065
1066 lreg: OP_LCALL_REG (reg) {
1067         tree->sreg1 = state->left->reg1;
1068         tree->dreg = state->reg1;
1069         mono_bblock_add_inst (s->cbb, tree);
1070 }
1071
1072 stmt: OP_VCALL (reg) {
1073         MonoInst *vtarg;
1074         /* FIXME: this is actually arch-specific... */
1075         MONO_INST_NEW (s, vtarg, OP_OUTARG);
1076         vtarg->inst_left = state->left->tree;
1077         vtarg->type = STACK_MP;
1078         vtarg->sreg1 = state->left->reg1;
1079         mono_bblock_add_inst (s->cbb, vtarg);
1080
1081         mono_bblock_add_inst (s->cbb, tree);
1082 }
1083
1084 stmt: OP_VCALL_REG (reg, reg) {
1085         MonoInst *vtarg;
1086         /* FIXME: this is actually arch-specific... */
1087         MONO_INST_NEW (s, vtarg, OP_OUTARG);
1088         vtarg->inst_left = state->right->tree;
1089         vtarg->type = STACK_MP;
1090         vtarg->sreg1 = state->right->reg1;
1091         mono_bblock_add_inst (s->cbb, vtarg);
1092
1093         tree->sreg1 = state->left->reg1;
1094         mono_bblock_add_inst (s->cbb, tree);
1095 }
1096
1097 stmt: CEE_RET "0" {
1098         mono_bblock_add_inst (s->cbb, tree);
1099 }
1100
1101 cflags: OP_COMPARE (reg, reg) {
1102         tree->sreg1 = state->left->reg1;
1103         tree->sreg2 = state->right->reg1;
1104         mono_bblock_add_inst (s->cbb, tree);
1105 }
1106
1107 cflags: OP_COMPARE (CEE_LDIND_I4 (OP_REGVAR), reg) {
1108         tree->sreg1 = state->left->left->tree->dreg;
1109         tree->sreg2 = state->right->reg1;
1110         mono_bblock_add_inst (s->cbb, tree);
1111 }
1112
1113 cflags: OP_COMPARE (CEE_LDIND_I4 (OP_REGVAR), OP_ICONST) {
1114         tree->opcode = OP_COMPARE_IMM;
1115         tree->sreg1 = state->left->left->tree->dreg;
1116         tree->inst_imm = state->right->tree->inst_c0;
1117         mono_bblock_add_inst (s->cbb, tree);
1118 }
1119
1120 cflags: OP_COMPARE (reg, OP_ICONST) {
1121         tree->opcode = OP_COMPARE_IMM;
1122         tree->sreg1 = state->left->reg1;
1123         tree->inst_imm = state->right->tree->inst_c0;
1124         mono_bblock_add_inst (s->cbb, tree);
1125 }
1126
1127 stmt: CEE_BNE_UN (cflags) {
1128         mono_bblock_add_inst (s->cbb, tree);
1129 }
1130
1131 stmt: CEE_BEQ (cflags) {
1132         mono_bblock_add_inst (s->cbb, tree);
1133 }
1134
1135 stmt: CEE_BLT (cflags) {
1136         mono_bblock_add_inst (s->cbb, tree);
1137 }
1138
1139 stmt: CEE_BLT_UN (cflags) {
1140         mono_bblock_add_inst (s->cbb, tree);
1141 }
1142
1143 stmt: CEE_BGT (cflags) {
1144         mono_bblock_add_inst (s->cbb, tree);
1145 }
1146
1147 stmt: CEE_BGT_UN (cflags) {
1148         mono_bblock_add_inst (s->cbb, tree);
1149 }
1150
1151 stmt: CEE_BGE  (cflags) {
1152         mono_bblock_add_inst (s->cbb, tree);
1153 }
1154
1155 stmt: CEE_BGE_UN (cflags) {
1156         mono_bblock_add_inst (s->cbb, tree);
1157 }
1158
1159 stmt: CEE_BLE  (cflags) {
1160         mono_bblock_add_inst (s->cbb, tree);
1161 }
1162
1163 stmt: CEE_BLE_UN (cflags) {
1164         mono_bblock_add_inst (s->cbb, tree);
1165 }
1166
1167 stmt: CEE_POP (reg)
1168
1169 # remove some common pops without side effects
1170 stmt: CEE_POP (OP_ICONST)
1171 stmt: CEE_POP (CEE_LDIND_REF (base))
1172 stmt: CEE_POP (CEE_LDIND_I4 (base))
1173 stmt: CEE_POP (CEE_LDIND_U1 (base))
1174
1175 stmt: CEE_JMP "0" {
1176         mono_bblock_add_inst (s->cbb, tree);
1177 }
1178
1179 # exception handling
1180
1181 stmt: CEE_THROW (reg) {
1182         MONO_EMIT_UNALU (s, tree, CEE_THROW, -1, state->left->reg1);
1183 }
1184
1185 stmt: CEE_THROW (CEE_LDIND_REF (OP_REGVAR)) {
1186         MONO_EMIT_UNALU (s, tree, CEE_THROW, -1, state->left->left->tree->dreg);
1187 }
1188
1189 stmt: OP_CALL_HANDLER {
1190         mono_bblock_add_inst (s->cbb, tree);
1191 }
1192
1193 stmt: OP_START_HANDLER "2" {
1194         mono_bblock_add_inst (s->cbb, tree);
1195 }
1196
1197 stmt: CEE_ENDFINALLY "2" {
1198         mono_bblock_add_inst (s->cbb, tree);
1199 }
1200
1201 stmt: OP_ENDFILTER (reg) "2" {
1202         MONO_EMIT_UNALU (s, tree, OP_ENDFILTER, -1, state->left->reg1);
1203 }
1204
1205 stmt: OP_CHECK_THIS (reg) {
1206         mono_bblock_add_inst (s->cbb, tree);
1207 }
1208
1209 # object related opcodes
1210
1211 reg: CEE_ISINST (reg) {
1212         MonoClass *klass = tree->inst_newa_class;
1213         MonoInst *object_is_null, *end_label, *false_label;
1214         int obj_reg = state->left->reg1;
1215         int vtable_reg = mono_regstate_next_int (s->rs);
1216
1217         MONO_NEW_LABEL (s, object_is_null);
1218         MONO_NEW_LABEL (s, end_label);
1219         MONO_NEW_LABEL (s, false_label);
1220
1221         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, obj_reg, 0);
1222         MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BEQ, object_is_null);
1223
1224         if (klass->flags & TYPE_ATTRIBUTE_INTERFACE) {
1225                 MONO_EMIT_NEW_LOAD_MEMBASE (s, vtable_reg, obj_reg, G_STRUCT_OFFSET (MonoObject, vtable));
1226                 /* the object_is_null target simply copies the input register to the output */
1227                 mini_emit_isninst_iface_cast (s, vtable_reg, klass, false_label, object_is_null);
1228         } else {
1229                 int klass_reg = mono_regstate_next_int (s->rs);
1230
1231                 MONO_EMIT_NEW_LOAD_MEMBASE (s, vtable_reg, obj_reg, G_STRUCT_OFFSET (MonoObject, vtable));
1232                 MONO_EMIT_NEW_LOAD_MEMBASE (s, klass_reg, vtable_reg, G_STRUCT_OFFSET (MonoVTable, klass));
1233
1234                 if (klass->rank) {
1235                         int rank_reg = mono_regstate_next_int (s->rs);
1236                         int eclass_reg = mono_regstate_next_int (s->rs);
1237
1238                         MONO_EMIT_NEW_LOAD_MEMBASE (s, rank_reg, klass_reg, G_STRUCT_OFFSET (MonoClass, rank));
1239                         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, rank_reg, klass->rank);
1240                         MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BNE_UN, false_label);
1241                         MONO_EMIT_NEW_LOAD_MEMBASE (s, eclass_reg, klass_reg, G_STRUCT_OFFSET (MonoClass, cast_class));
1242                         if (klass->cast_class == mono_defaults.object_class) {
1243                                 int parent_reg = mono_regstate_next_int (s->rs);
1244                                 int const_reg;
1245                                 MONO_EMIT_NEW_LOAD_MEMBASE (s, parent_reg, eclass_reg, G_STRUCT_OFFSET (MonoClass, parent));
1246                                 if (mono_compile_aot) {
1247                                         const_reg = mono_regstate_next_int (s->rs);
1248                                         MONO_EMIT_NEW_CLASSCONST (s, const_reg, mono_defaults.enum_class->parent);
1249                                         MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, parent_reg, const_reg);
1250                                 } else {
1251                                         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, parent_reg, mono_defaults.enum_class->parent);
1252                                 }
1253                                 MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BNE_UN, object_is_null);
1254                                 if (mono_compile_aot) {
1255                                         MONO_EMIT_NEW_CLASSCONST (s, const_reg, mono_defaults.enum_class);
1256                                         MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, eclass_reg, const_reg);
1257                                 } else {
1258                                         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, eclass_reg, mono_defaults.enum_class);
1259                                 }
1260                                 MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BEQ, object_is_null);
1261                                 MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BR, false_label);
1262                         } else if (klass->cast_class == mono_defaults.enum_class->parent) {
1263                                 int const_reg;
1264
1265                                 if (mono_compile_aot) {
1266                                         const_reg = mono_regstate_next_int (s->rs);
1267                                         MONO_EMIT_NEW_CLASSCONST (s, const_reg, mono_defaults.enum_class->parent);
1268                                         MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, eclass_reg, const_reg);
1269                                 } else {
1270                                         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, eclass_reg, mono_defaults.enum_class->parent);
1271                                 }
1272                                 MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BEQ, object_is_null);
1273                                 if (mono_compile_aot) {
1274                                         MONO_EMIT_NEW_CLASSCONST (s, const_reg, mono_defaults.enum_class);
1275                                         MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, eclass_reg, const_reg);
1276                                 } else {
1277                                         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, eclass_reg, mono_defaults.enum_class);
1278                                 }
1279                                 MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BEQ, object_is_null);
1280                                 MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BR, false_label);
1281                         } else if (klass->cast_class == mono_defaults.enum_class) {
1282                                 if (mono_compile_aot) {
1283                                         int const_reg = mono_regstate_next_int (s->rs);
1284                                         MONO_EMIT_NEW_CLASSCONST (s, const_reg, mono_defaults.enum_class);
1285                                         MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, eclass_reg, const_reg);
1286                                 } else {
1287                                         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, eclass_reg, mono_defaults.enum_class);
1288                                 }
1289                                 MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BEQ, object_is_null);
1290                                 MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BR, false_label);
1291                         } else if (klass->cast_class->flags & TYPE_ATTRIBUTE_INTERFACE) {
1292                                 mini_emit_isninst_iface_class_cast (s, eclass_reg, klass->cast_class, false_label, object_is_null);
1293                         } else {
1294                                 /* the object_is_null target simply copies the input register to the output */
1295                                 mini_emit_isninst_cast (s, eclass_reg, klass->cast_class, false_label, object_is_null);
1296                         }
1297                 } else {
1298
1299                         if (klass->marshalbyref) {
1300                                 MonoInst *no_proxy;
1301
1302                                 MONO_NEW_LABEL (s, no_proxy);
1303
1304                                 if (mono_compile_aot) {
1305                                         int tproxy_reg = mono_regstate_next_int (s->rs);
1306                                         MONO_EMIT_NEW_CLASSCONST (s, tproxy_reg, mono_defaults.transparent_proxy_class);
1307                                         MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, klass_reg, tproxy_reg);
1308                                 } else {
1309                                         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, klass_reg, mono_defaults.transparent_proxy_class);
1310                                 }
1311                                 MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BNE_UN, no_proxy);
1312                                 MONO_EMIT_NEW_LOAD_MEMBASE (s, klass_reg, obj_reg, G_STRUCT_OFFSET (MonoTransparentProxy, klass));
1313                                 mono_bblock_add_inst (s->cbb, no_proxy);
1314                         }
1315
1316                         /* the object_is_null target simply copies the input register to the output */
1317                         mini_emit_isninst_cast (s, klass_reg, klass, false_label, object_is_null);
1318                 }
1319         }
1320
1321         mono_bblock_add_inst (s->cbb, false_label);
1322         MONO_EMIT_NEW_ICONST (s, state->reg1, 0);
1323         MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BR, end_label);
1324         mono_bblock_add_inst (s->cbb, object_is_null);
1325         MONO_EMIT_UNALU (s, tree, OP_MOVE, state->reg1, obj_reg);
1326         mono_bblock_add_inst (s->cbb, end_label);
1327 }
1328
1329 reg: OP_UNBOXCAST (reg) {
1330         MonoClass *klass = tree->inst_newa_class;
1331         int obj_reg = state->left->reg1;
1332         int vtable_reg = mono_regstate_next_int (s->rs);
1333         int klass_reg = mono_regstate_next_int (s->rs);
1334         int eclass_reg = mono_regstate_next_int (s->rs);
1335
1336         MONO_EMIT_NEW_LOAD_MEMBASE (s, vtable_reg, obj_reg, G_STRUCT_OFFSET (MonoObject, vtable));
1337         MONO_EMIT_NEW_LOAD_MEMBASE (s, klass_reg, vtable_reg, G_STRUCT_OFFSET (MonoVTable, klass));
1338         MONO_EMIT_NEW_LOAD_MEMBASE (s, eclass_reg, klass_reg, G_STRUCT_OFFSET (MonoClass, element_class));
1339         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, eclass_reg, klass->element_class);
1340
1341         MONO_EMIT_NEW_COND_EXC (s, NE_UN, "InvalidCastException");
1342         MONO_EMIT_UNALU (s, tree, OP_MOVE, state->reg1, obj_reg);
1343 }
1344
1345 reg: CEE_CASTCLASS (reg) {
1346         MonoClass *klass = tree->inst_newa_class;
1347         MonoInst *object_is_null;
1348         int obj_reg = state->left->reg1;
1349         int vtable_reg = mono_regstate_next_int (s->rs);
1350
1351         MONO_NEW_LABEL (s, object_is_null);
1352
1353         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, obj_reg, 0);
1354         MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BEQ, object_is_null);
1355
1356         if (klass->flags & TYPE_ATTRIBUTE_INTERFACE) {
1357                 MONO_EMIT_NEW_LOAD_MEMBASE (s, vtable_reg, obj_reg, G_STRUCT_OFFSET (MonoObject, vtable));
1358                 mini_emit_castclass_iface (s, vtable_reg, klass);
1359         } else {
1360                 int klass_reg = mono_regstate_next_int (s->rs);
1361
1362                 MONO_EMIT_NEW_LOAD_MEMBASE (s, vtable_reg, obj_reg, G_STRUCT_OFFSET (MonoObject, vtable));
1363                 MONO_EMIT_NEW_LOAD_MEMBASE (s, klass_reg, vtable_reg, G_STRUCT_OFFSET (MonoVTable, klass));
1364
1365                 if (klass->rank) {
1366                         int rank_reg = mono_regstate_next_int (s->rs);
1367                         int eclass_reg = mono_regstate_next_int (s->rs);
1368
1369                         MONO_EMIT_NEW_LOAD_MEMBASE (s, rank_reg, klass_reg, G_STRUCT_OFFSET (MonoClass, rank));
1370                         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, rank_reg, klass->rank);
1371                         MONO_EMIT_NEW_COND_EXC (s, NE_UN, "InvalidCastException");
1372                         MONO_EMIT_NEW_LOAD_MEMBASE (s, eclass_reg, klass_reg, G_STRUCT_OFFSET (MonoClass, cast_class));
1373                         if (klass->cast_class == mono_defaults.object_class) {
1374                                 int parent_reg = mono_regstate_next_int (s->rs);
1375                                 int const_reg;
1376                                 MONO_EMIT_NEW_LOAD_MEMBASE (s, parent_reg, eclass_reg, G_STRUCT_OFFSET (MonoClass, parent));
1377                                 if (mono_compile_aot) {
1378                                         const_reg = mono_regstate_next_int (s->rs);
1379                                         MONO_EMIT_NEW_CLASSCONST (s, const_reg, mono_defaults.enum_class->parent);
1380                                         MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, parent_reg, const_reg);
1381                                 } else {
1382                                         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, parent_reg, mono_defaults.enum_class->parent);
1383                                 }
1384                                 MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BNE_UN, object_is_null);
1385                                 if (mono_compile_aot) {
1386                                         MONO_EMIT_NEW_CLASSCONST (s, const_reg, mono_defaults.enum_class);
1387                                         MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, eclass_reg, const_reg);
1388                                 } else {
1389                                         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, eclass_reg, mono_defaults.enum_class);
1390                                 }
1391                                 MONO_EMIT_NEW_COND_EXC (s, NE_UN, "InvalidCastException");
1392                         } else if (klass->cast_class == mono_defaults.enum_class->parent) {
1393                                 int const_reg = mono_regstate_next_int (s->rs);
1394                                 if (mono_compile_aot) {
1395                                         MONO_EMIT_NEW_CLASSCONST (s, const_reg, mono_defaults.enum_class->parent);
1396                                         MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, eclass_reg, const_reg);
1397                                 } else {
1398                                         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, eclass_reg, mono_defaults.enum_class->parent);
1399                                 }
1400                                 MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BEQ, object_is_null);
1401                                 if (mono_compile_aot) {
1402                                         MONO_EMIT_NEW_CLASSCONST (s, const_reg, mono_defaults.enum_class);
1403                                         MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, eclass_reg, const_reg);
1404                                 } else {
1405                                         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, eclass_reg, mono_defaults.enum_class);
1406                                 }
1407                                 MONO_EMIT_NEW_COND_EXC (s, NE_UN, "InvalidCastException");
1408                         } else if (klass->cast_class == mono_defaults.enum_class) {
1409                                 if (mono_compile_aot) {
1410                                         int const_reg = mono_regstate_next_int (s->rs);
1411                                         MONO_EMIT_NEW_CLASSCONST (s, const_reg, mono_defaults.enum_class);
1412                                         MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, eclass_reg, const_reg);
1413                                 } else {
1414                                         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, eclass_reg, mono_defaults.enum_class);
1415                                 }
1416                                 MONO_EMIT_NEW_COND_EXC (s, NE_UN, "InvalidCastException");
1417                         } else if (klass->cast_class->flags & TYPE_ATTRIBUTE_INTERFACE) {
1418                                 mini_emit_castclass_iface_class (s, eclass_reg, klass->cast_class);
1419                         } else {
1420                                 mini_emit_castclass (s, eclass_reg, klass->cast_class);
1421                         }
1422                 } else {
1423
1424                         if (klass->marshalbyref) {
1425                                 MonoInst *no_proxy;
1426
1427                                 MONO_NEW_LABEL (s, no_proxy);
1428
1429                                 if (mono_compile_aot) {
1430                                         int tproxy_reg = mono_regstate_next_int (s->rs);
1431                                         MONO_EMIT_NEW_CLASSCONST (s, tproxy_reg, mono_defaults.transparent_proxy_class);
1432                                         MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, klass_reg, tproxy_reg);
1433                                 } else {
1434                                         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, klass_reg, mono_defaults.transparent_proxy_class);
1435                                 }
1436                                 MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BNE_UN, no_proxy);
1437                                 MONO_EMIT_NEW_LOAD_MEMBASE (s, klass_reg, obj_reg, G_STRUCT_OFFSET (MonoTransparentProxy, klass));
1438                                 mono_bblock_add_inst (s->cbb, no_proxy);
1439                         }
1440
1441                         mini_emit_castclass (s, klass_reg, klass);
1442                 }
1443         }
1444
1445         mono_bblock_add_inst (s->cbb, object_is_null);
1446         MONO_EMIT_UNALU (s, tree, OP_MOVE, state->reg1, obj_reg);
1447 }
1448
1449 reg: CEE_NEWARR (reg) {
1450         g_assert_not_reached ();
1451 }
1452
1453 lreg: OP_LMUL (lreg, lreg) {
1454         g_assert_not_reached ();
1455 }
1456
1457 lreg: OP_LMUL_OVF (lreg, lreg) {
1458         g_assert_not_reached ();
1459 }
1460
1461 lreg: OP_LMUL_OVF_UN (lreg, lreg) {
1462         g_assert_not_reached ();
1463 }
1464
1465 lreg: OP_LDIV (lreg, lreg) {
1466         g_assert_not_reached ();
1467 }
1468
1469 lreg: OP_LDIV_UN (lreg, lreg) {
1470         g_assert_not_reached ();
1471 }
1472
1473 lreg: OP_LREM (lreg, lreg) {
1474         g_assert_not_reached ();
1475 }
1476
1477 lreg: OP_LREM_UN (lreg, lreg) {
1478         g_assert_not_reached ();
1479 }
1480
1481 lreg: OP_LSHL (lreg, reg) {
1482         g_assert_not_reached ();
1483 }
1484
1485 lreg: OP_LSHR (lreg, reg) {
1486         g_assert_not_reached ();
1487 }
1488
1489 lreg: OP_LSHR_UN (lreg, reg) {
1490         g_assert_not_reached ();
1491 }
1492
1493 reg: CEE_UNBOX (reg) {
1494         int vtable_reg = mono_regstate_next_int (s->rs);
1495         int class_reg = mono_regstate_next_int (s->rs);
1496         int element_class_reg = mono_regstate_next_int (s->rs);
1497
1498         MONO_EMIT_NEW_LOAD_MEMBASE (s, vtable_reg, state->left->reg1, G_STRUCT_OFFSET (MonoObject, vtable));
1499         MONO_EMIT_NEW_LOAD_MEMBASE (s, class_reg, vtable_reg, G_STRUCT_OFFSET (MonoVTable, klass));
1500         MONO_EMIT_NEW_LOAD_MEMBASE (s, element_class_reg, class_reg, G_STRUCT_OFFSET (MonoClass, element_class));
1501
1502         if (mono_compile_aot) {
1503                 /* fixme: make it work with the AOT compiler */
1504                 g_assert_not_reached ();
1505         } else {
1506                 MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, element_class_reg, tree->inst_newa_class);
1507         }
1508
1509         MONO_EMIT_NEW_COND_EXC (s, NE_UN, "InvalidCastException");
1510         MONO_EMIT_BIALU_IMM (s, tree, CEE_ADD, state->reg1, state->left->reg1, sizeof (MonoObject));
1511         g_warning ("untested code!!");
1512 }
1513
1514 #
1515 # string support
1516 #
1517 reg: OP_GETCHR (reg, reg) {
1518         int length_reg = mono_regstate_next_int (s->rs);
1519         int mult_reg = mono_regstate_next_int (s->rs);
1520         int add_reg = mono_regstate_next_int (s->rs);
1521
1522         MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOADI4_MEMBASE, length_reg,
1523                                        state->left->reg1, G_STRUCT_OFFSET (MonoString, length));
1524         MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, length_reg, state->right->reg1);
1525         MONO_EMIT_NEW_COND_EXC (s, LE_UN, "IndexOutOfRangeException");
1526
1527         MONO_EMIT_NEW_BIALU_IMM (s, OP_SHL_IMM, mult_reg, state->right->reg1, 1);
1528         MONO_EMIT_NEW_BIALU (s, CEE_ADD, add_reg, mult_reg, state->left->reg1);
1529         MONO_EMIT_LOAD_MEMBASE_OP (s, tree, OP_LOADI2_MEMBASE, state->reg1,
1530                                    add_reg, G_STRUCT_OFFSET (MonoString, chars));
1531 }
1532
1533 reg: OP_GETCHR (reg, OP_ICONST) {
1534         int length_reg = mono_regstate_next_int (s->rs);
1535         int ind;
1536
1537         MONO_EMIT_NEW_LOAD_MEMBASE (s, length_reg, state->left->reg1, G_STRUCT_OFFSET (MonoString, length));
1538         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, length_reg, state->right->tree->inst_c0);
1539         MONO_EMIT_NEW_COND_EXC (s, LE_UN, "IndexOutOfRangeException");
1540
1541         ind = 2 * state->right->tree->inst_c0 + G_STRUCT_OFFSET (MonoString, chars);
1542         MONO_EMIT_LOAD_MEMBASE_OP (s, tree, OP_LOADI2_MEMBASE, state->reg1, state->left->reg1, ind);
1543 }
1544
1545 #
1546 # array support
1547 #
1548 reg: CEE_LDLEN (reg) {
1549         MONO_EMIT_LOAD_MEMBASE_OP (s, tree, OP_LOADI4_MEMBASE, state->reg1,
1550                                    state->left->reg1, G_STRUCT_OFFSET (MonoArray, max_length));
1551 }
1552
1553 reg: OP_ARRAY_RANK (reg) {
1554         int vtable_reg = mono_regstate_next_int (s->rs);
1555         int class_reg = mono_regstate_next_int (s->rs);
1556         MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOAD_MEMBASE, vtable_reg,
1557                                        state->left->reg1, G_STRUCT_OFFSET (MonoObject, vtable));
1558         MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOAD_MEMBASE, class_reg,
1559                                        vtable_reg, G_STRUCT_OFFSET (MonoVTable, klass));
1560         MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOADI4_MEMBASE, state->reg1,
1561                                        class_reg, G_STRUCT_OFFSET (MonoClass, rank));
1562 }
1563
1564 reg: OP_CHECK_ARRAY_TYPE (reg) {
1565         int vtable_reg = mono_regstate_next_int (s->rs);
1566         int class_reg = mono_regstate_next_int (s->rs);
1567         int elclass_reg = mono_regstate_next_int (s->rs);
1568
1569         MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOAD_MEMBASE, vtable_reg,
1570                                        state->left->reg1, G_STRUCT_OFFSET (MonoObject, vtable));
1571         MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOAD_MEMBASE, class_reg,
1572                                        vtable_reg, G_STRUCT_OFFSET (MonoVTable, klass));
1573         MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOAD_MEMBASE, elclass_reg,
1574                                        class_reg, G_STRUCT_OFFSET (MonoClass, element_class));
1575         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, elclass_reg, tree->klass);
1576         MONO_EMIT_NEW_COND_EXC (s, NE_UN, "ArrayTypeMismatchException");
1577         MONO_EMIT_UNALU (s, tree, OP_MOVE, state->reg1, state->left->reg1);
1578 }
1579
1580 reg: CEE_LDELEMA (reg, OP_ICONST) "15" {
1581         int length_reg = mono_regstate_next_int (s->rs);
1582         guint32 size = mono_class_array_element_size (tree->klass);
1583         int ind;
1584
1585         MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOADI4_MEMBASE, length_reg,
1586                                        state->left->reg1, G_STRUCT_OFFSET (MonoArray, max_length));
1587         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, length_reg, state->right->tree->inst_c0);
1588         MONO_EMIT_NEW_COND_EXC (s, LE_UN, "IndexOutOfRangeException");
1589
1590         ind = size * state->right->tree->inst_c0 + G_STRUCT_OFFSET (MonoArray, vector);
1591
1592         MONO_EMIT_NEW_BIALU_IMM (s, OP_ADD_IMM, state->reg1, state->left->reg1, ind);
1593 }
1594
1595 reg: CEE_LDELEMA (reg, reg) "20" {
1596         int length_reg = mono_regstate_next_int (s->rs);
1597         int mult_reg = mono_regstate_next_int (s->rs);
1598         int add_reg = mono_regstate_next_int (s->rs);
1599         guint32 size = mono_class_array_element_size (tree->klass);
1600
1601         MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOADI4_MEMBASE, length_reg,
1602                                        state->left->reg1, G_STRUCT_OFFSET (MonoArray, max_length));
1603         MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, length_reg, state->right->reg1);
1604         MONO_EMIT_NEW_COND_EXC (s, LE_UN, "IndexOutOfRangeException");
1605
1606         MONO_EMIT_NEW_BIALU_IMM (s, OP_MUL_IMM, mult_reg, state->right->reg1, size);
1607         MONO_EMIT_NEW_BIALU (s, CEE_ADD, add_reg, mult_reg, state->left->reg1);
1608         MONO_EMIT_NEW_BIALU_IMM (s, OP_ADD_IMM, state->reg1, add_reg, G_STRUCT_OFFSET (MonoArray, vector));
1609 }
1610
1611 %%
1612
1613 void
1614 mini_emit_virtual_call (MonoCompile *cfg, void *st, MonoInst *tree, int novirtop, int virtop)
1615 {
1616         MonoInst *this, *vtarg;
1617         MonoMethod *method = ((MonoCallInst*)tree)->method;
1618         int vtable_reg, slot_reg;
1619         MBState *state = st;
1620
1621         /* add the this argument */
1622         MONO_INST_NEW (cfg, this, OP_OUTARG);
1623         this->inst_left = state->left->tree;
1624         this->type = this->inst_left->type;
1625         this->sreg1 = state->left->reg1;
1626         mono_bblock_add_inst (cfg->cbb, this);
1627
1628         if (novirtop == OP_VCALL) {
1629                 /* FIXME: this is actually arch-specific... */
1630                 MONO_INST_NEW (cfg, vtarg, OP_OUTARG);
1631                 vtarg->inst_left = state->right->tree;
1632                 vtarg->type = STACK_MP;
1633                 vtarg->sreg1 = state->right->reg1;
1634                 mono_bblock_add_inst (cfg->cbb, vtarg);
1635         }
1636
1637         if (!(method->flags & METHOD_ATTRIBUTE_VIRTUAL) ||
1638             ((method->flags & METHOD_ATTRIBUTE_FINAL) &&
1639              method->wrapper_type != MONO_WRAPPER_REMOTING_INVOKE_WITH_CHECK)) {
1640                 /*
1641                  * the method is not virtual, we just need to ensure this is not null
1642                  * and then we can call the method directly.
1643                  */
1644                 if (method->klass->marshalbyref || method->klass == mono_defaults.object_class) {
1645                         method = ((MonoCallInst*)tree)->method = mono_marshal_get_remoting_invoke_with_check (method);
1646                 }
1647
1648                 if (!method->string_ctor)
1649                         MONO_EMIT_NEW_UNALU (cfg, OP_CHECK_THIS, -1, this->sreg1);
1650
1651                 tree->dreg = state->reg1;
1652                 tree->opcode = novirtop;
1653                 mono_bblock_add_inst (cfg->cbb, tree);
1654                 return;
1655         }
1656
1657         vtable_reg = mono_regstate_next_int (cfg->rs);
1658         MONO_EMIT_NEW_LOAD_MEMBASE (cfg, vtable_reg, this->sreg1, G_STRUCT_OFFSET (MonoObject, vtable));
1659         if (method->klass->flags & TYPE_ATTRIBUTE_INTERFACE) {
1660                 int ifoffset_reg = mono_regstate_next_int (cfg->rs);
1661                 slot_reg = mono_regstate_next_int (cfg->rs);
1662                 MONO_EMIT_NEW_LOAD_MEMBASE (cfg, ifoffset_reg, vtable_reg, G_STRUCT_OFFSET (MonoVTable, interface_offsets));
1663                 MONO_EMIT_NEW_LOAD_MEMBASE (cfg, slot_reg, ifoffset_reg, method->klass->interface_id * SIZEOF_VOID_P);
1664                 tree->inst_offset = method->slot * SIZEOF_VOID_P;
1665                 cfg->disable_aot = TRUE;
1666         } else {
1667                 slot_reg = vtable_reg;
1668                 tree->inst_offset = G_STRUCT_OFFSET (MonoVTable, vtable) + (method->slot * SIZEOF_VOID_P);
1669         }
1670
1671         tree->dreg = state->reg1;
1672         tree->opcode = virtop;
1673         tree->sreg1 = slot_reg;
1674         mono_bblock_add_inst (cfg->cbb, tree);
1675 }
1676
1677 void
1678 mini_emit_isninst_cast (MonoCompile *s, int klass_reg, MonoClass *klass, MonoInst *false_target, MonoInst *true_target)
1679 {
1680         int idepth_reg = mono_regstate_next_int (s->rs);
1681         int stypes_reg = mono_regstate_next_int (s->rs);
1682         int stype = mono_regstate_next_int (s->rs);
1683
1684         if (klass->idepth > MONO_DEFAULT_SUPERTABLE_SIZE) {
1685                 MONO_EMIT_NEW_LOAD_MEMBASE (s, idepth_reg, klass_reg, G_STRUCT_OFFSET (MonoClass, idepth));
1686                 MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, idepth_reg, klass->idepth);
1687                 MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BLT_UN, false_target);
1688         }
1689         MONO_EMIT_NEW_LOAD_MEMBASE (s, stypes_reg, klass_reg, G_STRUCT_OFFSET (MonoClass, supertypes));
1690         MONO_EMIT_NEW_LOAD_MEMBASE (s, stype, stypes_reg, ((klass->idepth - 1) * SIZEOF_VOID_P));
1691         if (mono_compile_aot) {
1692                 int const_reg = mono_regstate_next_int (s->rs);
1693                 MONO_EMIT_NEW_CLASSCONST (s, const_reg, klass);
1694                 MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, stype, const_reg);
1695         } else {
1696                 MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, stype, klass);
1697         }
1698         MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BEQ, true_target);
1699 }
1700
1701 void
1702 mini_emit_isninst_iface_cast (MonoCompile *s, int vtable_reg, MonoClass *klass, MonoInst *false_target, MonoInst *true_target)
1703 {
1704         int max_iid_reg = mono_regstate_next_int (s->rs);
1705         int ioffset_reg = mono_regstate_next_int (s->rs);
1706         int intf_reg = mono_regstate_next_int (s->rs);
1707
1708         s->disable_aot = TRUE;
1709
1710         MONO_EMIT_NEW_LOAD_MEMBASE (s, max_iid_reg, vtable_reg, G_STRUCT_OFFSET (MonoVTable, max_interface_id));
1711         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, max_iid_reg, klass->interface_id);
1712         MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BLT_UN, false_target);
1713         MONO_EMIT_NEW_LOAD_MEMBASE (s, ioffset_reg, vtable_reg, G_STRUCT_OFFSET (MonoVTable, interface_offsets));
1714         MONO_EMIT_NEW_LOAD_MEMBASE (s, intf_reg, ioffset_reg, klass->interface_id * SIZEOF_VOID_P);
1715         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, intf_reg, 0);
1716         /* the object_is_null target simply copies the input register to the output */
1717         MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BNE_UN, true_target);
1718 }
1719
1720 /*
1721  * Variant of the aboce that takes a register to the class, not the vtable.
1722  * Note that inside interfaces_offsets the empty value is -1, not NULL, in this case.
1723  */
1724 void
1725 mini_emit_isninst_iface_class_cast (MonoCompile *s, int klass_reg, MonoClass *klass, MonoInst *false_target, MonoInst *true_target)
1726 {
1727         int max_iid_reg = mono_regstate_next_int (s->rs);
1728         int ioffset_reg = mono_regstate_next_int (s->rs);
1729         int intf_reg = mono_regstate_next_int (s->rs);
1730
1731         s->disable_aot = TRUE;
1732
1733         MONO_EMIT_NEW_LOAD_MEMBASE (s, max_iid_reg, klass_reg, G_STRUCT_OFFSET (MonoClass, max_interface_id));
1734         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, max_iid_reg, klass->interface_id);
1735         MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BLT_UN, false_target);
1736         MONO_EMIT_NEW_LOAD_MEMBASE (s, ioffset_reg, klass_reg, G_STRUCT_OFFSET (MonoClass, interface_offsets));
1737         MONO_EMIT_NEW_LOAD_MEMBASE (s, intf_reg, ioffset_reg, klass->interface_id * SIZEOF_VOID_P);
1738         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, intf_reg, 0);
1739         /* the object_is_null target simply copies the input register to the output */
1740         MONO_EMIT_NEW_BRANCH_LABEL (s, CEE_BGE, true_target);
1741 }
1742
1743 void
1744 mini_emit_castclass (MonoCompile *s, int klass_reg, MonoClass *klass)
1745 {
1746         int idepth_reg = mono_regstate_next_int (s->rs);
1747         int stypes_reg = mono_regstate_next_int (s->rs);
1748         int stype = mono_regstate_next_int (s->rs);
1749
1750         if (klass->idepth > MONO_DEFAULT_SUPERTABLE_SIZE) {
1751                 MONO_EMIT_NEW_LOAD_MEMBASE (s, idepth_reg, klass_reg, G_STRUCT_OFFSET (MonoClass, idepth));
1752                 MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, idepth_reg, klass->idepth);
1753                 MONO_EMIT_NEW_COND_EXC (s, LT_UN, "InvalidCastException");
1754         }
1755         MONO_EMIT_NEW_LOAD_MEMBASE (s, stypes_reg, klass_reg, G_STRUCT_OFFSET (MonoClass, supertypes));
1756         MONO_EMIT_NEW_LOAD_MEMBASE (s, stype, stypes_reg, ((klass->idepth - 1) * SIZEOF_VOID_P));
1757         if (mono_compile_aot) {
1758                 int const_reg = mono_regstate_next_int (s->rs);
1759                 MONO_EMIT_NEW_CLASSCONST (s, const_reg, klass);
1760                 MONO_EMIT_NEW_BIALU (s, OP_COMPARE, -1, stype, const_reg);
1761         } else {
1762                 MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, stype, klass);
1763         }
1764         MONO_EMIT_NEW_COND_EXC (s, NE_UN, "InvalidCastException");
1765 }
1766
1767 void
1768 mini_emit_castclass_iface (MonoCompile *s, int vtable_reg, MonoClass *klass)
1769 {
1770         int max_iid_reg = mono_regstate_next_int (s->rs);
1771         int ioffset_reg = mono_regstate_next_int (s->rs);
1772         int intf_reg = mono_regstate_next_int (s->rs);
1773
1774         s->disable_aot = TRUE;
1775
1776         MONO_EMIT_NEW_LOAD_MEMBASE (s, max_iid_reg, vtable_reg, G_STRUCT_OFFSET (MonoVTable, max_interface_id));
1777         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, max_iid_reg, klass->interface_id);
1778         MONO_EMIT_NEW_COND_EXC (s, LT_UN, "InvalidCastException");
1779         MONO_EMIT_NEW_LOAD_MEMBASE (s, ioffset_reg, vtable_reg, G_STRUCT_OFFSET (MonoVTable, interface_offsets));
1780         MONO_EMIT_NEW_LOAD_MEMBASE (s, intf_reg, ioffset_reg, klass->interface_id * SIZEOF_VOID_P);
1781         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, intf_reg, 0);
1782         MONO_EMIT_NEW_COND_EXC (s, EQ, "InvalidCastException");
1783 }
1784
1785 /*
1786  * Variant of the aboce that takes a register to the class, not the vtable.
1787  * Note that inside interfaces_offsets the empty value is -1, not NULL, in this case.
1788  */
1789 void
1790 mini_emit_castclass_iface_class (MonoCompile *s, int klass_reg, MonoClass *klass)
1791 {
1792         int max_iid_reg = mono_regstate_next_int (s->rs);
1793         int ioffset_reg = mono_regstate_next_int (s->rs);
1794         int intf_reg = mono_regstate_next_int (s->rs);
1795
1796         s->disable_aot = TRUE;
1797
1798         MONO_EMIT_NEW_LOAD_MEMBASE (s, max_iid_reg, klass_reg, G_STRUCT_OFFSET (MonoClass, max_interface_id));
1799         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, max_iid_reg, klass->interface_id);
1800         MONO_EMIT_NEW_COND_EXC (s, LT_UN, "InvalidCastException");
1801         MONO_EMIT_NEW_LOAD_MEMBASE (s, ioffset_reg, klass_reg, G_STRUCT_OFFSET (MonoClass, interface_offsets));
1802         MONO_EMIT_NEW_LOAD_MEMBASE (s, intf_reg, ioffset_reg, klass->interface_id * SIZEOF_VOID_P);
1803         MONO_EMIT_NEW_BIALU_IMM (s, OP_COMPARE_IMM, -1, intf_reg, 0);
1804         MONO_EMIT_NEW_COND_EXC (s, EQ, "InvalidCastException");
1805 }
1806
1807 void
1808 mini_emit_memcpy (MonoCompile *s, int destreg, int doffset, int srcreg, int soffset, int size, int align)
1809 {
1810         int cur_reg;
1811
1812         /* FIXME: consider alignment for archs that need it. */
1813         while (size >= 4) {
1814                 cur_reg = mono_regstate_next_int (s->rs);
1815                 MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOADI4_MEMBASE, cur_reg, srcreg, soffset);
1816                 MONO_EMIT_NEW_STORE_MEMBASE (s, OP_STOREI4_MEMBASE_REG, destreg, doffset, cur_reg);
1817                 doffset += 4;
1818                 soffset += 4;
1819                 size -= 4;
1820         }
1821         while (size >= 2) {
1822                 cur_reg = mono_regstate_next_int (s->rs);
1823                 MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOADI2_MEMBASE, cur_reg, srcreg, soffset);
1824                 MONO_EMIT_NEW_STORE_MEMBASE (s, OP_STOREI2_MEMBASE_REG, destreg, doffset, cur_reg);
1825                 doffset += 2;
1826                 soffset += 2;
1827                 size -= 2;
1828         }
1829         while (size >= 1) {
1830                 cur_reg = mono_regstate_next_int (s->rs);
1831                 MONO_EMIT_NEW_LOAD_MEMBASE_OP (s, OP_LOADI1_MEMBASE, cur_reg, srcreg, soffset);
1832                 MONO_EMIT_NEW_STORE_MEMBASE (s, OP_STOREI1_MEMBASE_REG, destreg, doffset, cur_reg);
1833                 doffset += 1;
1834                 soffset += 1;
1835                 size -= 1;
1836         }
1837 }
1838
1839 void
1840 mini_emit_memset (MonoCompile *s, int destreg, int offset, int size, int val, int alignl)
1841 {
1842         int val_reg = mono_regstate_next_int (s->rs);
1843
1844         MONO_EMIT_NEW_ICONST (s, val_reg, val);
1845
1846         while (size >= 4) {
1847                 MONO_EMIT_NEW_STORE_MEMBASE (s, OP_STOREI4_MEMBASE_REG, destreg, offset, val_reg);
1848                 offset += 4;
1849                 size -= 4;
1850         }
1851         while (size >= 2) {
1852                 MONO_EMIT_NEW_STORE_MEMBASE (s, OP_STOREI2_MEMBASE_REG, destreg, offset, val_reg);
1853                 offset += 2;
1854                 size -= 2;
1855         }
1856         while (size >= 1) {
1857                 MONO_EMIT_NEW_STORE_MEMBASE (s, OP_STOREI1_MEMBASE_REG, destreg, offset, val_reg);
1858                 offset += 1;
1859                 size -= 1;
1860         }
1861 }
1862