mono/mini/mini-s390.c

   1 /*------------------------------------------------------------------*/
   2 /*                                                                  */
   3 /* Name        - mini-s390.c                                        */
   4 /*                                                                  */
   5 /* Function    - S/390 backend for the Mono code generator.         */
   6 /*                                                                  */
   7 /* Name        - Neale Ferguson (Neale.Ferguson@SoftwareAG-usa.com) */
   8 /*                                                                  */
   9 /* Date        - January, 2004                                      */
  10 /*                                                                  */
  11 /* Derivation  - From mini-x86 & mini-ppc by -                      */
  12 /*               Paolo Molaro (lupus@ximian.com)                    */
  13 /*               Dietmar Maurer (dietmar@ximian.com)                */
  14 /*                                                                  */
  15 /*------------------------------------------------------------------*/
  16
  17 /*------------------------------------------------------------------*/
  18 /*                 D e f i n e s                                    */
  19 /*------------------------------------------------------------------*/
  20
  21 #define EMIT_COND_BRANCH(ins,cond)                                                      \
  22 {                                                                                       \
  23 if (ins->inst_true_bb->native_offset) {                                         \
  24         int displace;                                                           \
  25         displace = ((cfg->native_code +                                         \
  26                     ins->inst_true_bb->native_offset) - code) / 2;              \
  27         if (s390_is_imm16(displace)) {                                          \
  28                 s390_brc (code, cond, displace);                                \
  29         } else {                                                                \
  30                 s390_jcl (code, cond, displace);                                \
  31         }                                                                       \
  32 } else {                                                                        \
  33         mono_add_patch_info (cfg, code - cfg->native_code,                      \
  34                              MONO_PATCH_INFO_BB, ins->inst_true_bb);            \
  35         s390_jcl (code, cond, 0);                                               \
  36 }                                                                               \
  37 }
  38
  39 #define EMIT_UNCOND_BRANCH(ins)                                                         \
  40 {                                                                                       \
  41 if (ins->inst_target_bb->native_offset) {                                       \
  42         int displace;                                                           \
  43         displace = ((cfg->native_code +                                         \
  44                     ins->inst_target_bb->native_offset) - code) / 2;            \
  45         if (s390_is_imm16(displace)) {                                          \
  46                 s390_brc (code, S390_CC_UN, displace);                          \
  47         } else {                                                                \
  48                 s390_jcl (code, S390_CC_UN, displace);                          \
  49         }                                                                       \
  50 } else {                                                                        \
  51         mono_add_patch_info (cfg, code - cfg->native_code,                      \
  52                              MONO_PATCH_INFO_BB, ins->inst_target_bb);          \
  53         s390_jcl (code, S390_CC_UN, 0);                                         \
  54 }                                                                               \
  55 }
  56
  57 #define EMIT_COND_SYSTEM_EXCEPTION(cond,exc_name)                       \
  58         do {                                                            \
  59                 mono_add_patch_info (cfg, code - cfg->native_code,      \
  60                                     MONO_PATCH_INFO_EXC, exc_name);     \
  61                 s390_jcl (code, cond, 0);                               \
  62         } while (0);
  63
  64 #define CHECK_SRCDST_COM                                                \
  65         if (ins->dreg == ins->sreg2) {                                  \
  66                 src2 = ins->sreg1;                                      \
  67         } else {                                                        \
  68                 src2 = ins->sreg2;                                      \
  69                 if (ins->dreg != ins->sreg1) {                          \
  70                         s390_lr  (code, ins->dreg, ins->sreg1);         \
  71                 }                                                       \
  72         }
  73
  74 #define CHECK_SRCDST_NCOM                                               \
  75         if (ins->dreg == ins->sreg2) {                                  \
  76                 src2 = s390_r13;                                        \
  77                 s390_lr  (code, s390_r13, ins->sreg2);                  \
  78         } else {                                                        \
  79                 src2 = ins->sreg2;                                      \
  80         }                                                               \
  81         if (ins->dreg != ins->sreg1) {                                  \
  82                 s390_lr  (code, ins->dreg, ins->sreg1);                 \
  83         }
  84
  85 #define CHECK_SRCDST_COM_F                                              \
  86         if (ins->dreg == ins->sreg2) {                                  \
  87                 src2 = ins->sreg1;                                      \
  88         } else {                                                        \
  89                 src2 = ins->sreg2;                                      \
  90                 if (ins->dreg != ins->sreg1) {                          \
  91                         s390_ldr (code, ins->dreg, ins->sreg1);         \
  92                 }                                                       \
  93         }
  94
  95 #define CHECK_SRCDST_NCOM_F                                             \
  96         if (ins->dreg == ins->sreg2) {                                  \
  97                 src2 = s390_f15;                                        \
  98                 s390_ldr (code, s390_r13, ins->sreg2);                  \
  99         } else {                                                        \
 100                 src2 = ins->sreg2;                                      \
 101         }                                                               \
 102         if (ins->dreg != ins->sreg1) {                                  \
 103                 s390_ldr (code, ins->dreg, ins->sreg1);                 \
 104         }
 105
 106 #define MONO_EMIT_NEW_MOVE(cfg,dest,offset,src,imm,size) do {                   \
 107                 MonoInst *inst;                                                 \
 108                 int tmpr = 0;                                                   \
 109                 int sReg, dReg;                                                 \
 110                 MONO_INST_NEW (cfg, inst, OP_NOP);                              \
 111                 if (size > 256) {                                               \
 112                         inst->dreg        = dest;                               \
 113                         inst->inst_offset = offset;                             \
 114                         inst->sreg1       = src;                                \
 115                         inst->inst_imm    = imm;                                \
 116                 } else {                                                        \
 117                         if (s390_is_uimm12(offset)) {                           \
 118                                 inst->dreg        = dest;                       \
 119                                 inst->inst_offset = offset;                     \
 120                         } else {                                                \
 121                                 dReg = mono_alloc_preg (cfg);                   \
 122                                 MONO_EMIT_NEW_BIALU_IMM(cfg, OP_ADD_IMM,        \
 123                                         dReg, dest, offset);                    \
 124                                 inst->dreg        = dReg;                       \
 125                                 inst->inst_offset = 0;                          \
 126                         }                                                       \
 127                         if (s390_is_uimm12(imm)) {                              \
 128                                 inst->sreg1       = src;                        \
 129                                 inst->inst_imm    = imm;                        \
 130                         } else {                                                \
 131                                 sReg = mono_alloc_preg (cfg);                   \
 132                                 MONO_EMIT_NEW_BIALU_IMM(cfg, OP_ADD_IMM,        \
 133                                         sReg, src, imm);                        \
 134                                 inst->sreg1       = sReg;                       \
 135                                 inst->inst_imm    = 0;                          \
 136                         }                                                       \
 137                 }                                                               \
 138                 inst->opcode            = OP_S390_MOVE;                         \
 139                 inst->backend.size      = size;                                 \
 140         MONO_ADD_INS (cfg->cbb, inst);                                          \
 141         } while (0)
 142
 143 #define MONO_OUTPUT_VTR(cfg, size, dr, sr, so) do {                             \
 144         int reg = mono_alloc_preg (cfg); \
 145         switch (size) {                                                         \
 146                 case 0:                                                         \
 147                         MONO_EMIT_NEW_ICONST(cfg, reg, 0);                      \
 148                         mono_call_inst_add_outarg_reg(cfg, call, reg, dr, FALSE);       \
 149                 break;                                                          \
 150                 case 1:                                                         \
 151                         MONO_EMIT_NEW_LOAD_MEMBASE_OP(cfg, OP_LOADU1_MEMBASE,   \
 152                                 reg, sr, so);                                   \
 153                         mono_call_inst_add_outarg_reg(cfg, call, reg, dr, FALSE);       \
 154                 break;                                                          \
 155                 case 2:                                                         \
 156                         MONO_EMIT_NEW_LOAD_MEMBASE_OP(cfg, OP_LOADU2_MEMBASE,   \
 157                                 reg, sr, so);                                   \
 158                         mono_call_inst_add_outarg_reg(cfg, call, reg, dr, FALSE);       \
 159                 break;                                                          \
 160                 case 4:                                                         \
 161                         MONO_EMIT_NEW_LOAD_MEMBASE_OP(cfg, OP_LOAD_MEMBASE,     \
 162                                 reg, sr, so);                                   \
 163                         mono_call_inst_add_outarg_reg(cfg, call, reg, dr, FALSE);       \
 164                 break;                                                          \
 165                 case 8:                                                         \
 166                         MONO_EMIT_NEW_LOAD_MEMBASE_OP(cfg, OP_LOAD_MEMBASE,     \
 167                                 reg, sr, so);                                   \
 168                         mono_call_inst_add_outarg_reg(cfg, call, reg, dr, FALSE);       \
 169                         reg = mono_alloc_preg (cfg); \
 170                         MONO_EMIT_NEW_LOAD_MEMBASE_OP(cfg, OP_LOAD_MEMBASE,     \
 171                                 reg, sr, so + sizeof (guint32));                                        \
 172                         mono_call_inst_add_outarg_reg(cfg, call, reg, dr + 1, FALSE);   \
 173                 break;                                                          \
 174         }                                                                       \
 175 } while (0)
 176
 177 #define MONO_OUTPUT_VTS(cfg, size, dr, dx, sr, so) do {                         \
 178         int tmpr;                                                               \
 179         switch (size) {                                                         \
 180                 case 0:                                                         \
 181                         tmpr = mono_alloc_preg (cfg); \
 182                         MONO_EMIT_NEW_ICONST(cfg, tmpr, 0);                     \
 183                         MONO_EMIT_NEW_STORE_MEMBASE(cfg, OP_STORE_MEMBASE_REG,  \
 184                                 dr, dx, tmpr);                                  \
 185                 break;                                                          \
 186                 case 1:                                                         \
 187                         tmpr = mono_alloc_preg (cfg); \
 188                         MONO_EMIT_NEW_LOAD_MEMBASE_OP(cfg, OP_LOADU1_MEMBASE,   \
 189                                 tmpr, sr, so);                                  \
 190                         MONO_EMIT_NEW_STORE_MEMBASE(cfg, OP_STORE_MEMBASE_REG,  \
 191                                 dr, dx, tmpr);                                  \
 192                 break;                                                          \
 193                 case 2:                                                         \
 194                         tmpr = mono_alloc_preg (cfg); \
 195                         MONO_EMIT_NEW_LOAD_MEMBASE_OP(cfg, OP_LOADU2_MEMBASE,   \
 196                                 tmpr, sr, so);                                  \
 197                         MONO_EMIT_NEW_STORE_MEMBASE(cfg, OP_STORE_MEMBASE_REG,  \
 198                                 dr, dx, tmpr);                                  \
 199                 break;                                                          \
 200                 case 4:                                                         \
 201                 case 8:                                                         \
 202                         MONO_EMIT_NEW_MOVE (cfg, dr, dx, sr, so, size);         \
 203                 break;                                                          \
 204         }                                                                       \
 205 } while (0)
 206
 207 #undef DEBUG
 208 #define DEBUG(a) if (cfg->verbose_level > 1) a
 209
 210 #define MAX_EXC 16
 211
 212 #define S390_TRACE_STACK_SIZE (5*sizeof(gint32)+3*sizeof(gdouble))
 213
 214 #define MAX (a, b) ((a) > (b) ? (a) : (b))
 215
 216 /*========================= End of Defines =========================*/
 217
 218 /*------------------------------------------------------------------*/
 219 /*                 I n c l u d e s                                  */
 220 /*------------------------------------------------------------------*/
 221
 222 #include "mini.h"
 223 #include <string.h>
 224
 225 #include <mono/metadata/appdomain.h>
 226 #include <mono/metadata/debug-helpers.h>
 227 #include <mono/metadata/profiler-private.h>
 228 #include <mono/utils/mono-math.h>
 229
 230 #include "mini-s390.h"
 231 #include "cpu-s390.h"
 232 #include "jit-icalls.h"
 233 #include "ir-emit.h"
 234
 235 /*========================= End of Includes ========================*/
 236
 237 /*------------------------------------------------------------------*/
 238 /*                 T y p e d e f s                                  */
 239 /*------------------------------------------------------------------*/
 240
 241 typedef struct {
 242         guint stack_size,
 243               local_size,
 244               code_size,
 245               parm_size,
 246               offset,
 247               offStruct,
 248               retStruct;
 249 } size_data;
 250
 251 /*------------------------------------------------------------------*/
 252 /* Used by the instrument_emit_epilog                               */
 253 /*------------------------------------------------------------------*/
 254
 255 enum {
 256         SAVE_NONE,
 257         SAVE_STRUCT,
 258         SAVE_ONE,
 259         SAVE_TWO,
 260         SAVE_R4,
 261         SAVE_R8
 262 };
 263
 264 typedef struct InstList InstList;
 265
 266 struct InstList {
 267         InstList *prev;
 268         InstList *next;
 269         MonoInst *data;
 270 };
 271
 272 typedef enum {
 273         RegTypeGeneral,
 274         RegTypeBase,
 275         RegTypeFP,
 276         RegTypeFPR4,
 277         RegTypeStructByVal,
 278         RegTypeStructByValInFP,
 279         RegTypeStructByAddr
 280 } ArgStorage;
 281
 282 typedef struct {
 283         gint32  offset;         /* offset from caller's stack */
 284         gint32  offparm;        /* offset from callee's stack */
 285         guint16 vtsize;         /* in param area */
 286         guint8  reg;
 287         ArgStorage regtype;             /* See RegType* */
 288         guint32 size;           /* Size of structure used by RegTypeStructByVal */
 289 } ArgInfo;
 290
 291 typedef struct {
 292         int nargs;
 293         int lastgr;
 294         guint32 stack_usage;
 295         guint32 struct_ret;
 296         ArgInfo ret;
 297         ArgInfo sigCookie;
 298         size_data sz;
 299         ArgInfo args [1];
 300 } CallInfo;
 301
 302 typedef struct {
 303         gint32  gr[5];          /* R2-R6                            */
 304         gdouble fp[3];          /* F0-F2                            */
 305 } __attribute__ ((packed)) RegParm;
 306
 307 /*========================= End of Typedefs ========================*/
 308
 309 /*------------------------------------------------------------------*/
 310 /*                   P r o t o t y p e s                            */
 311 /*------------------------------------------------------------------*/
 312
 313 static void indent (int);
 314 static guint8 * backUpStackPtr(MonoCompile *, guint8 *, gint);
 315 static void decodeParm (MonoType *, void *, int);
 316 static void enter_method (MonoMethod *, RegParm *, char *);
 317 static void leave_method (MonoMethod *, ...);
 318 static gboolean is_regsize_var (MonoType *);
 319 static inline void add_general (guint *, size_data *, ArgInfo *, gboolean);
 320 static inline void add_stackParm (guint *, size_data *, ArgInfo *, gint);
 321 static inline void add_float (guint *, size_data *, ArgInfo *);
 322 static CallInfo * get_call_info (MonoCompile *, MonoMemPool *, MonoMethodSignature *, gboolean);
 323 static guchar * emit_float_to_int (MonoCompile *, guchar *, int, int, int, gboolean);
 324 gpointer mono_arch_get_lmf_addr (void);
 325 static guint8 * emit_load_volatile_registers(guint8 *, MonoCompile *);
 326 static void emit_sig_cookie (MonoCompile *, MonoCallInst *, CallInfo *);
 327
 328 /*========================= End of Prototypes ======================*/
 329
 330 /*------------------------------------------------------------------*/
 331 /*                 G l o b a l   V a r i a b l e s                  */
 332 /*------------------------------------------------------------------*/
 333
 334 int mono_exc_esp_offset = 0;
 335
 336 static int indent_level = 0;
 337
 338 static int appdomain_tls_offset = -1,
 339            thread_tls_offset = -1;
 340
 341 pthread_key_t lmf_addr_key;
 342
 343 gboolean lmf_addr_key_inited = FALSE;
 344
 345 #if 0
 346
 347 extern __thread MonoDomain *tls_appdomain;
 348 extern __thread MonoThread *tls_current_object;
 349 extern __thread gpointer   mono_lmf_addr;
 350
 351 #endif
 352
 353 /*====================== End of Global Variables ===================*/
 354
 355 /*------------------------------------------------------------------*/
 356 /*                                                                  */
 357 /* Name         - mono_arch_regname                                 */
 358 /*                                                                  */
 359 /* Function     - Returns the name of the register specified by     */
 360 /*                the input parameter.                              */
 361 /*                                                                  */
 362 /*------------------------------------------------------------------*/
 363
 364 const char*
 365 mono_arch_regname (int reg) {
 366         static const char * rnames[] = {
 367                 "s390_r0", "s390_sp", "s390_r2", "s390_r3", "s390_r4",
 368                 "s390_r5", "s390_r6", "s390_r7", "s390_r8", "s390_r9",
 369                 "s390_r10", "s390_r11", "s390_r12", "s390_r13", "s390_r14",
 370                 "s390_r15"
 371         };
 372
 373         if (reg >= 0 && reg < 16)
 374                 return rnames [reg];
 375         else
 376                 return "unknown";
 377 }
 378
 379 /*========================= End of Function ========================*/
 380
 381 /*------------------------------------------------------------------*/
 382 /*                                                                  */
 383 /* Name         - mono_arch_fregname                                */
 384 /*                                                                  */
 385 /* Function     - Returns the name of the register specified by     */
 386 /*                the input parameter.                              */
 387 /*                                                                  */
 388 /*------------------------------------------------------------------*/
 389
 390 const char*
 391 mono_arch_fregname (int reg) {
 392         static const char * rnames[] = {
 393                 "s390_f0", "s390_f1", "s390_f2", "s390_f3", "s390_f4",
 394                 "s390_f5", "s390_f6", "s390_f7", "s390_f8", "s390_f9",
 395                 "s390_f10", "s390_f11", "s390_f12", "s390_f13", "s390_f14",
 396                 "s390_f15"
 397         };
 398
 399         if (reg >= 0 && reg < 16)
 400                 return rnames [reg];
 401         else
 402                 return "unknown";
 403 }
 404
 405 /*========================= End of Function ========================*/
 406
 407 /*------------------------------------------------------------------*/
 408 /*                                                                  */
 409 /* Name         - arch_get_argument_info                            */
 410 /*                                                                  */
 411 /* Function     - Gathers information on parameters such as size,   */
 412 /*                alignment, and padding. arg_info should be large  */
 413 /*                enough to hold param_count + 1 entries.           */
 414 /*                                                                  */
 415 /* Parameters   - @csig - Method signature                          */
 416 /*                @param_count - No. of parameters to consider      */
 417 /*                @arg_info - An array to store the result info     */
 418 /*                                                                  */
 419 /* Returns      - Size of the activation frame                      */
 420 /*                                                                  */
 421 /*------------------------------------------------------------------*/
 422
 423 int
 424 mono_arch_get_argument_info (MonoMethodSignature *csig,
 425                              int param_count,
 426                              MonoJitArgumentInfo *arg_info)
 427 {
 428         int k, frame_size = 0;
 429         int size, align, pad;
 430         int offset = 8;
 431
 432         if (MONO_TYPE_ISSTRUCT (csig->ret)) {
 433                 frame_size += sizeof (gpointer);
 434                 offset += 4;
 435         }
 436
 437         arg_info [0].offset = offset;
 438
 439         if (csig->hasthis) {
 440                 frame_size += sizeof (gpointer);
 441                 offset += 4;
 442         }
 443
 444         arg_info [0].size = frame_size;
 445
 446         for (k = 0; k < param_count; k++) {
 447
 448                 if (csig->pinvoke)
 449                         size = mono_type_native_stack_size (csig->params [k], &align);
 450                 else
 451                         size = mini_type_stack_size (NULL, csig->params [k], &align);
 452
 453                 frame_size += pad = (align - (frame_size & (align - 1))) & (align - 1);
 454                 arg_info [k].pad = pad;
 455                 frame_size += size;
 456                 arg_info [k + 1].pad = 0;
 457                 arg_info [k + 1].size = size;
 458                 offset += pad;
 459                 arg_info [k + 1].offset = offset;
 460                 offset += size;
 461         }
 462
 463         align = MONO_ARCH_FRAME_ALIGNMENT;
 464         frame_size += pad = (align - (frame_size & (align - 1))) & (align - 1);
 465         arg_info [k].pad = pad;
 466
 467         return frame_size;
 468 }
 469
 470 /*========================= End of Function ========================*/
 471
 472 /*------------------------------------------------------------------*/
 473 /*                                                                  */
 474 /* Name         - retFitsInReg.                                     */
 475 /*                                                                  */
 476 /* Function     - Determines if a value can be returned in one or   */
 477 /*                two registers.                                    */
 478 /*                                                                  */
 479 /*------------------------------------------------------------------*/
 480
 481 static inline gboolean
 482 retFitsInReg(guint32 size)
 483 {
 484         switch (size) {
 485                 case 0:
 486                 case 1:
 487                 case 2:
 488                 case 4:
 489                 case 8:
 490                         return (TRUE);
 491                 break;
 492                 default:
 493                         return (FALSE);
 494         }
 495 }
 496
 497 /*========================= End of Function ========================*/
 498
 499 /*------------------------------------------------------------------*/
 500 /*                                                                  */
 501 /* Name         - backStackPtr.                                     */
 502 /*                                                                  */
 503 /* Function     - Restore Stack Pointer to previous frame.          */
 504 /*                                                                  */
 505 /*------------------------------------------------------------------*/
 506
 507 static inline guint8 *
 508 backUpStackPtr(MonoCompile *cfg, guint8 *code, gint framePtr)
 509 {
 510         int stackSize = cfg->stack_usage;
 511
 512         if (s390_is_uimm16 (cfg->stack_usage)) {
 513                 s390_ahi  (code, framePtr, cfg->stack_usage);
 514         } else {
 515                 while (stackSize > 32767) {
 516                         s390_ahi  (code, framePtr, 32767);
 517                         stackSize -= 32767;
 518                 }
 519                 s390_ahi  (code, framePtr, stackSize);
 520         }
 521         return (code);
 522 }
 523
 524 /*========================= End of Function ========================*/
 525
 526 /*------------------------------------------------------------------*/
 527 /*                                                                  */
 528 /* Name         - indent                                            */
 529 /*                                                                  */
 530 /* Function     - Perform nice indenting to current level           */
 531 /*                                                                  */
 532 /*------------------------------------------------------------------*/
 533
 534 static void
 535 indent (int diff) {
 536         int v;
 537         if (diff < 0)
 538                 indent_level += diff;
 539         v = indent_level;
 540         printf("[%3d] ",v);
 541         while (v-- > 0) {
 542                 printf (". ");
 543         }
 544         if (diff > 0)
 545                 indent_level += diff;
 546 }
 547
 548 /*========================= End of Function ========================*/
 549
 550 /*------------------------------------------------------------------*/
 551 /*                                                                  */
 552 /* Name         - decodeParm                                        */
 553 /*                                                                  */
 554 /* Function     - Decode a parameter for the trace.                 */
 555 /*                                                                  */
 556 /*------------------------------------------------------------------*/
 557
 558 static void
 559 decodeParm(MonoType *type, void *curParm, int size)
 560 {
 561         guint32 simpleType;
 562
 563         if (type->byref) {
 564                 printf("[BYREF:%p], ", *((char **) curParm));
 565         } else {
 566                 simpleType = mono_type_get_underlying_type(type)->type;
 567 enum_parmtype:
 568                 switch (simpleType) {
 569                         case MONO_TYPE_I :
 570                                 printf ("[INTPTR:%p], ", *((int **) curParm));
 571                                 break;
 572                         case MONO_TYPE_U :
 573                                 printf ("[UINTPTR:%p], ", *((int **) curParm));
 574                                 break;
 575                         case MONO_TYPE_BOOLEAN :
 576                                 printf ("[BOOL:%d], ", *((int *) curParm));
 577                                 break;
 578                         case MONO_TYPE_CHAR :
 579                                 printf ("[CHAR:%c], ", *((int *) curParm));
 580                                 break;
 581                         case MONO_TYPE_I1 :
 582                                 printf ("[INT1:%d], ", *((int *) curParm));
 583                                 break;
 584                         case MONO_TYPE_I2 :
 585                                 printf ("[INT2:%d], ", *((int *) curParm));
 586                                 break;
 587                         case MONO_TYPE_I4 :
 588                                 printf ("[INT4:%d], ", *((int *) curParm));
 589                                 break;
 590                         case MONO_TYPE_U1 :
 591                                 printf ("[UINT1:%u], ", *((unsigned int *) curParm));
 592                                 break;
 593                         case MONO_TYPE_U2 :
 594                                 printf ("[UINT2:%u], ", *((guint16 *) curParm));
 595                                 break;
 596                         case MONO_TYPE_U4 :
 597                                 printf ("[UINT4:%u], ", *((guint32 *) curParm));
 598                                 break;
 599                         case MONO_TYPE_U8 :
 600                                 printf ("[UINT8:%llu], ", *((guint64 *) curParm));
 601                                 break;
 602                         case MONO_TYPE_STRING : {
 603                                 MonoString *s = *((MonoString **) curParm);
 604                                 if (s) {
 605                                         g_assert (((MonoObject *) s)->vtable->klass == mono_defaults.string_class);
 606                                         printf("[STRING:%p:%s], ", s, mono_string_to_utf8(s));
 607                                 } else {
 608                                         printf("[STRING:null], ");
 609                                 }
 610                                 break;
 611                         }
 612                         case MONO_TYPE_CLASS :
 613                         case MONO_TYPE_OBJECT : {
 614                                 MonoObject *obj = *((MonoObject **) curParm);
 615                                 MonoClass *class;
 616                                 if ((obj) && (obj->vtable)) {
 617                                         printf("[CLASS/OBJ:");
 618                                         class = obj->vtable->klass;
 619                                         printf("%p [%p] ",obj,curParm);
 620 //                                      if (class == mono_defaults.string_class) {
 621 //                                              printf("[STRING:%p:%s]",
 622 //                                                     *obj, mono_string_to_utf8 (obj));
 623 //                                      } else if (class == mono_defaults.int32_class) {
 624 //                                              printf("[INT32:%p:%d]",
 625 //                                                      obj, *(gint32 *)((char *)obj + sizeof (MonoObject)));
 626 //                                      } else
 627 //                                              printf("[%s.%s:%p]",
 628 //                                                     class->name_space, class->name, obj);
 629                                         printf("], ");
 630                                 } else {
 631                                         printf("[OBJECT:null], ");
 632                                 }
 633                                 break;
 634                         }
 635                         case MONO_TYPE_PTR :
 636                                 printf("[PTR:%p], ", *((gpointer **) (curParm)));
 637                                 break;
 638                         case MONO_TYPE_FNPTR :
 639                                 printf("[FNPTR:%p], ", *((gpointer **) (curParm)));
 640                                 break;
 641                         case MONO_TYPE_ARRAY :
 642                                 printf("[ARRAY:%p], ", *((gpointer **) (curParm)));
 643                                 break;
 644                         case MONO_TYPE_SZARRAY :
 645                                 printf("[SZARRAY:%p], ", *((gpointer **) (curParm)));
 646                                 break;
 647                         case MONO_TYPE_I8 :
 648                                 printf("[INT8:%lld], ", *((gint64 *) (curParm)));
 649                                 break;
 650                         case MONO_TYPE_R4 :
 651                                 printf("[FLOAT4:%g], ", *((double *) (curParm)));
 652                                 break;
 653                         case MONO_TYPE_R8 :
 654                                 printf("[FLOAT8:%g], ", *((double *) (curParm)));
 655                                 break;
 656                         case MONO_TYPE_VALUETYPE : {
 657                                 int i;
 658                                 MonoMarshalType *info;
 659
 660                                 if (type->data.klass->enumtype) {
 661                                         simpleType = mono_class_enum_basetype (type->data.klass)->type;
 662                                         printf("{VALUETYPE} - ");
 663                                         goto enum_parmtype;
 664                                 }
 665
 666                                 info = mono_marshal_load_type_info (type->data.klass);
 667
 668                                 if ((info->native_size == sizeof(float)) &&
 669                                     (info->num_fields  == 1) &&
 670                                     (info->fields[0].field->type->type == MONO_TYPE_R4)) {
 671                                                 printf("[FLOAT4:%f], ", *((float *) (curParm)));
 672                                         break;
 673                                 }
 674
 675                                 if ((info->native_size == sizeof(double)) &&
 676                                     (info->num_fields  == 1) &&
 677                                     (info->fields[0].field->type->type == MONO_TYPE_R8)) {
 678                                         printf("[FLOAT8:%g], ", *((double *) (curParm)));
 679                                         break;
 680                                 }
 681
 682                                 printf("[VALUETYPE:");
 683                                 for (i = 0; i < size; i++)
 684                                         printf("%02x,", *((guint8 *)curParm+i));
 685                                 printf("]");
 686                                 break;
 687                         }
 688                         case MONO_TYPE_TYPEDBYREF: {
 689                                 int i;
 690                                 printf("[TYPEDBYREF:");
 691                                 for (i = 0; i < size; i++)
 692                                         printf("%02x,", *((guint8 *)curParm+i));
 693                                 printf("]");
 694                                 break;
 695                         }
 696                         default :
 697                                 printf("[?? - %d], ",simpleType);
 698                 }
 699         }
 700 }
 701
 702 /*========================= End of Function ========================*/
 703
 704 //static int lc = 0;
 705
 706 /*------------------------------------------------------------------*/
 707 /*                                                                  */
 708 /* Name         - enter_method                                      */
 709 /*                                                                  */
 710 /* Function     - Perform tracing of the entry to the current       */
 711 /*                method.                                           */
 712 /*                                                                  */
 713 /*------------------------------------------------------------------*/
 714
 715 static void
 716 enter_method (MonoMethod *method, RegParm *rParm, char *sp)
 717 {
 718         int i, oParm = 0, iParm = 0;
 719         MonoObject *obj;
 720         MonoMethodSignature *sig;
 721         char *fname;
 722         guint32 ip;
 723         CallInfo *cinfo;
 724         ArgInfo *ainfo;
 725         void *curParm;
 726
 727         fname = mono_method_full_name (method, TRUE);
 728         indent (1);
 729         printf ("ENTER: %s(", fname);
 730         g_free (fname);
 731
 732         ip  = (*(guint32 *) (sp+S390_RET_ADDR_OFFSET)) & 0x7fffffff;
 733         printf (") ip: %p sp: %p - ", (gpointer) ip, sp);
 734
 735         if (rParm == NULL)
 736                 return;
 737
 738         sig = mono_method_signature (method);
 739
 740         cinfo = get_call_info (NULL, NULL, sig, sig->pinvoke);
 741
 742         if (cinfo->struct_ret) {
 743                 printf ("[STRUCTRET:%p], ", (gpointer) rParm->gr[0]);
 744                 iParm = 1;
 745         }
 746
 747         if (sig->hasthis) {
 748                 gpointer *this = (gpointer *) rParm->gr[iParm];
 749                 obj = (MonoObject *) this;
 750                 if (method->klass->valuetype) {
 751                         if (obj) {
 752                                 printf("this:[value:%p:%08x], ",
 753                                        this, *((guint32 *)(this+sizeof(MonoObject))));
 754                         } else
 755                                 printf ("this:[NULL], ");
 756                 } else {
 757                         if (obj) {
 758 //                              class = obj->vtable->klass;
 759 //                              if (class == mono_defaults.string_class) {
 760 //                                      printf ("this:[STRING:%p:%s], ",
 761 //                                              obj, mono_string_to_utf8 ((MonoString *)obj));
 762 //                              } else {
 763 //                                      printf ("this:%p[%s.%s], ",
 764 //                                              obj, class->name_space, class->name);
 765 //                              }
 766 printf("this:%p, ",obj);
 767                         } else
 768                                 printf ("this:NULL, ");
 769                 }
 770                 oParm++;
 771         }
 772
 773         for (i = 0; i < sig->param_count; ++i) {
 774                 ainfo = &cinfo->args[i + oParm];
 775                 switch (ainfo->regtype) {
 776                         case RegTypeGeneral :
 777                                 decodeParm(sig->params[i], &(rParm->gr[ainfo->reg-2]), ainfo->size);
 778                                 break;
 779                         case RegTypeFP :
 780                                 decodeParm(sig->params[i], &(rParm->fp[ainfo->reg]), ainfo->size);
 781                                 break;
 782                         case RegTypeBase :
 783                                 decodeParm(sig->params[i], sp+ainfo->offset, ainfo->size);
 784                                 break;
 785                         case RegTypeStructByVal :
 786                                 if (ainfo->reg != STK_BASE)
 787                                         curParm = &(rParm->gr[ainfo->reg-2]);
 788                                 else
 789                                         curParm = sp+ainfo->offset;
 790
 791                                 if (retFitsInReg (ainfo->vtsize))
 792                                         decodeParm(sig->params[i],
 793                                                    curParm,
 794                                                    ainfo->size);
 795                                 else
 796                                         decodeParm(sig->params[i],
 797                                                    *((char **) curParm),
 798                                                    ainfo->vtsize);
 799                                 break;
 800                         case RegTypeStructByAddr :
 801                                 if (ainfo->reg != STK_BASE)
 802                                         curParm = &(rParm->gr[ainfo->reg-2]);
 803                                 else
 804                                         curParm = sp+ainfo->offset;
 805
 806                                 decodeParm(sig->params[i],
 807                                            *((char **) curParm),
 808                                            ainfo->vtsize);
 809                                 break;
 810
 811                         default :
 812                                 printf("???, ");
 813                 }
 814         }
 815         printf("\n");
 816         g_free(cinfo);
 817 }
 818
 819 /*========================= End of Function ========================*/
 820
 821 /*------------------------------------------------------------------*/
 822 /*                                                                  */
 823 /* Name         - leave_method                                      */
 824 /*                                                                  */
 825 /* Function     -                                                   */
 826 /*                                                                  */
 827 /*------------------------------------------------------------------*/
 828
 829 static void
 830 leave_method (MonoMethod *method, ...)
 831 {
 832         MonoType *type;
 833         char *fname;
 834         guint32 ip;
 835         va_list ap;
 836
 837         va_start(ap, method);
 838
 839         fname = mono_method_full_name (method, TRUE);
 840         indent (-1);
 841         printf ("LEAVE: %s", fname);
 842         g_free (fname);
 843
 844         type = mono_method_signature (method)->ret;
 845
 846 handle_enum:
 847         switch (type->type) {
 848         case MONO_TYPE_VOID:
 849                 break;
 850         case MONO_TYPE_BOOLEAN: {
 851                 int val = va_arg (ap, int);
 852                 if (val)
 853                         printf ("[TRUE:%d]", val);
 854                 else
 855                         printf ("[FALSE]");
 856
 857                 break;
 858         }
 859         case MONO_TYPE_CHAR: {
 860                 int val = va_arg (ap, int);
 861                 printf ("[CHAR:%d]", val);
 862                 break;
 863         }
 864         case MONO_TYPE_I1: {
 865                 int val = va_arg (ap, int);
 866                 printf ("[INT1:%d]", val);
 867                 break;
 868         }
 869         case MONO_TYPE_U1: {
 870                 int val = va_arg (ap, int);
 871                 printf ("[UINT1:%d]", val);
 872                 break;
 873         }
 874         case MONO_TYPE_I2: {
 875                 int val = va_arg (ap, int);
 876                 printf ("[INT2:%d]", val);
 877                 break;
 878         }
 879         case MONO_TYPE_U2: {
 880                 int val = va_arg (ap, int);
 881                 printf ("[UINT2:%d]", val);
 882                 break;
 883         }
 884         case MONO_TYPE_I4: {
 885                 int val = va_arg (ap, int);
 886                 printf ("[INT4:%d]", val);
 887                 break;
 888         }
 889         case MONO_TYPE_U4: {
 890                 int val = va_arg (ap, int);
 891                 printf ("[UINT4:%d]", val);
 892                 break;
 893         }
 894         case MONO_TYPE_I: {
 895                 int val = va_arg (ap, int);
 896                 printf ("[INT:%d]", val);
 897                 printf("]");
 898                 break;
 899         }
 900         case MONO_TYPE_U: {
 901                 int val = va_arg (ap, int);
 902                 printf ("[UINT:%d]", val);
 903                 printf("]");
 904                 break;
 905         }
 906         case MONO_TYPE_STRING: {
 907                 MonoString *s = va_arg (ap, MonoString *);
 908 ;
 909                 if (s) {
 910                         g_assert (((MonoObject *)s)->vtable->klass == mono_defaults.string_class);
 911                         printf ("[STRING:%p:%s]", s, mono_string_to_utf8 (s));
 912                 } else
 913                         printf ("[STRING:null], ");
 914                 break;
 915         }
 916         case MONO_TYPE_CLASS:
 917         case MONO_TYPE_OBJECT: {
 918                 MonoObject *o = va_arg (ap, MonoObject *);
 919
 920 //              if ((o) && (o->vtable)) {
 921 //                      if (o->vtable->klass == mono_defaults.boolean_class) {
 922 //                              printf ("[BOOLEAN:%p:%d]", o, *((guint8 *)o + sizeof (MonoObject)));
 923 //                      } else if  (o->vtable->klass == mono_defaults.int32_class) {
 924 //                              printf ("[INT32:%p:%d]", o, *((gint32 *)((char *)o + sizeof (MonoObject))));
 925 //                      } else if  (o->vtable->klass == mono_defaults.int64_class) {
 926 //                              printf ("[INT64:%p:%lld]", o, *((gint64 *)((char *)o + sizeof (MonoObject))));
 927 //                      } else
 928 //                              printf ("[%s.%s:%p]", o->vtable->klass->name_space, o->vtable->klass->name, o);
 929 //              } else
 930                         printf ("[OBJECT:%p]", o);
 931
 932                 break;
 933         }
 934         case MONO_TYPE_PTR:
 935         case MONO_TYPE_FNPTR:
 936         case MONO_TYPE_ARRAY:
 937         case MONO_TYPE_SZARRAY: {
 938                 gpointer p = va_arg (ap, gpointer);
 939                 printf ("[result=%p]", p);
 940                 break;
 941         }
 942         case MONO_TYPE_I8: {
 943                 gint64 l =  va_arg (ap, gint64);
 944                 printf ("[LONG:%lld]", l);
 945                 break;
 946         }
 947         case MONO_TYPE_U8: {
 948                 guint64 l =  va_arg (ap, guint64);
 949                 printf ("[ULONG:%llu]", l);
 950                 break;
 951         }
 952         case MONO_TYPE_R4: {
 953                 double f;
 954                 f = va_arg (ap, double);
 955                 printf ("[FLOAT4:%g]\n", f);
 956                 break;
 957         }
 958         case MONO_TYPE_R8: {
 959                 double f = va_arg (ap, double);
 960                 printf ("[FLOAT8:%g]\n", f);
 961                 break;
 962         }
 963         case MONO_TYPE_VALUETYPE: {
 964                 MonoMarshalType *info;
 965                 if (type->data.klass->enumtype) {
 966                         type = mono_class_enum_basetype (type->data.klass);
 967                         goto handle_enum;
 968                 } else {
 969                         guint8 *p = va_arg (ap, gpointer);
 970                         int j, size, align;
 971
 972                         info = mono_marshal_load_type_info (type->data.klass);
 973
 974                         if ((info->native_size == sizeof(float)) &&
 975                             (info->num_fields  == 1) &&
 976                             (info->fields[0].field->type->type == MONO_TYPE_R4)) {
 977                                 double f = va_arg (ap, double);
 978                                 printf("[FLOAT4:%g]\n", (double) f);
 979                                 break;
 980                         }
 981
 982                         if ((info->native_size == sizeof(double)) &&
 983                             (info->num_fields  == 1) &&
 984                             (info->fields[0].field->type->type == MONO_TYPE_R8)) {
 985                                 double f = va_arg (ap, double);
 986                                 printf("[FLOAT8:%g]\n", f);
 987                                 break;
 988                         }
 989
 990                         size = mono_type_size (type, &align);
 991                         switch (size) {
 992                         case 1:
 993                         case 2:
 994                         case 4:
 995                         case 8:
 996                                 printf ("[");
 997                                 for (j = 0; p && j < size; j++)
 998                                         printf ("%02x,", p [j]);
 999                                 printf ("]\n");
1000                                 break;
1001                         default:
1002                                 printf ("[VALUERET]\n");
1003                         }
1004                 }
1005                 break;
1006         }
1007         case MONO_TYPE_TYPEDBYREF: {
1008                 guint8 *p = va_arg (ap, gpointer);
1009                 int j, size, align;
1010                 size = mono_type_size (type, &align);
1011                 switch (size) {
1012                 case 1:
1013                 case 2:
1014                 case 4:
1015                 case 8:
1016                         printf ("[");
1017                         for (j = 0; p && j < size; j++)
1018                                 printf ("%02x,", p [j]);
1019                         printf ("]\n");
1020                         break;
1021                 default:
1022                         printf ("[TYPEDBYREF]\n");
1023                 }
1024         }
1025                 break;
1026         default:
1027                 printf ("(unknown return type %x)",
1028                         mono_method_signature (method)->ret->type);
1029         }
1030
1031         ip = ((gint32) __builtin_return_address (0)) & 0x7fffffff;
1032         printf (" ip: %p\n", (gpointer) ip);
1033 }
1034
1035 /*========================= End of Function ========================*/
1036
1037 /*------------------------------------------------------------------*/
1038 /*                                                                  */
1039 /* Name         - mono_arch_cpu_init                                */
1040 /*                                                                  */
1041 /* Function     - Perform CPU specific initialization to execute    */
1042 /*                managed code.                                     */
1043 /*                                                                  */
1044 /*------------------------------------------------------------------*/
1045
1046 void
1047 mono_arch_cpu_init (void)
1048 {
1049         guint mode = 1;
1050
1051         /*--------------------------------------*/
1052         /* Set default rounding mode for FP     */
1053         /*--------------------------------------*/
1054         __asm__ ("SRNM\t%0\n\t"
1055                 : : "m" (mode));
1056 }
1057
1058 /*========================= End of Function ========================*/
1059
1060
1061 /*
1062  * Initialize architecture specific code.
1063  */
1064 void
1065 mono_arch_init (void)
1066 {
1067 }
1068
1069 /*
1070  * Cleanup architecture specific code.
1071  */
1072 void
1073 mono_arch_cleanup (void)
1074 {
1075 }
1076
1077 /*------------------------------------------------------------------*/
1078 /*                                                                  */
1079 /* Name         - mono_arch_cpu_optimizazions                       */
1080 /*                                                                  */
1081 /* Function     - Returns the optimizations supported on this CPU   */
1082 /*                                                                  */
1083 /*------------------------------------------------------------------*/
1084
1085 guint32
1086 mono_arch_cpu_optimizazions (guint32 *exclude_mask)
1087 {
1088         guint32 opts = 0;
1089
1090         /*----------------------------------------------------------*/
1091         /* no s390-specific optimizations yet                       */
1092         /*----------------------------------------------------------*/
1093         *exclude_mask = MONO_OPT_INLINE|MONO_OPT_LINEARS;
1094 //      *exclude_mask = MONO_OPT_INLINE;
1095         return opts;
1096 }
1097
1098 /*========================= End of Function ========================*/
1099
1100 /*------------------------------------------------------------------*/
1101 /*                                                                  */
1102 /* Name         -                                                   */
1103 /*                                                                  */
1104 /* Function     -                                                   */
1105 /*                                                                  */
1106 /*------------------------------------------------------------------*/
1107
1108 static gboolean
1109 is_regsize_var (MonoType *t) {
1110         if (t->byref)
1111                 return TRUE;
1112         switch (mono_type_get_underlying_type (t)->type) {
1113         case MONO_TYPE_I4:
1114         case MONO_TYPE_U4:
1115         case MONO_TYPE_I:
1116         case MONO_TYPE_U:
1117         case MONO_TYPE_PTR:
1118         case MONO_TYPE_FNPTR:
1119                 return TRUE;
1120         case MONO_TYPE_OBJECT:
1121         case MONO_TYPE_STRING:
1122         case MONO_TYPE_CLASS:
1123         case MONO_TYPE_SZARRAY:
1124         case MONO_TYPE_ARRAY:
1125                 return FALSE;
1126         case MONO_TYPE_VALUETYPE:
1127                 if (t->data.klass->enumtype)
1128                         return is_regsize_var (mono_class_enum_basetype (t->data.klass));
1129                 return FALSE;
1130         }
1131         return FALSE;
1132 }
1133
1134 /*========================= End of Function ========================*/
1135
1136 /*------------------------------------------------------------------*/
1137 /*                                                                  */
1138 /* Name         - mono_arch_get_allocatable_int_vars                */
1139 /*                                                                  */
1140 /* Function     -                                                   */
1141 /*                                                                  */
1142 /*------------------------------------------------------------------*/
1143
1144 GList *
1145 mono_arch_get_allocatable_int_vars (MonoCompile *cfg)
1146 {
1147         GList *vars = NULL;
1148         int i;
1149
1150         for (i = 0; i < cfg->num_varinfo; i++) {
1151                 MonoInst *ins = cfg->varinfo [i];
1152                 MonoMethodVar *vmv = MONO_VARINFO (cfg, i);
1153
1154                 /* unused vars */
1155                 if (vmv->range.first_use.abs_pos >= vmv->range.last_use.abs_pos)
1156                         continue;
1157
1158                 if (ins->flags & (MONO_INST_VOLATILE|MONO_INST_INDIRECT) ||
1159                     (ins->opcode != OP_LOCAL && ins->opcode != OP_ARG))
1160                         continue;
1161
1162                 /* we can only allocate 32 bit values */
1163                 if (is_regsize_var (ins->inst_vtype)) {
1164                         g_assert (MONO_VARINFO (cfg, i)->reg == -1);
1165                         g_assert (i == vmv->idx);
1166                         vars = mono_varlist_insert_sorted (cfg, vars, vmv, FALSE);
1167                 }
1168         }
1169
1170         return vars;
1171 }
1172
1173 /*========================= End of Function ========================*/
1174
1175 /*------------------------------------------------------------------*/
1176 /*                                                                  */
1177 /* Name         - mono_arch_global_int_regs                         */
1178 /*                                                                  */
1179 /* Function     - Return a list of usable integer registers.        */
1180 /*                                                                  */
1181 /*------------------------------------------------------------------*/
1182
1183 GList *
1184 mono_arch_get_global_int_regs (MonoCompile *cfg)
1185 {
1186         GList *regs = NULL;
1187         MonoMethodHeader *header;
1188         int i, top = 13;
1189
1190         header = cfg->header;
1191         if ((cfg->flags & MONO_CFG_HAS_ALLOCA) || header->num_clauses)
1192                 cfg->frame_reg = s390_r11;
1193
1194         /* FIXME: s390_r12 is reserved for bkchain_reg. Only reserve it if needed */
1195         top = 12;
1196         for (i = 8; i < top; ++i) {
1197                 if (cfg->frame_reg != i)
1198                         regs = g_list_prepend (regs, GUINT_TO_POINTER (i));
1199         }
1200
1201         return regs;
1202 }
1203
1204 /*========================= End of Function ========================*/
1205
1206 /*------------------------------------------------------------------*/
1207 /*                                                                  */
1208 /* Name         -  mono_arch_flush_icache                           */
1209 /*                                                                  */
1210 /* Function     -  Flush the CPU icache.                            */
1211 /*                                                                  */
1212 /*------------------------------------------------------------------*/
1213
1214 void
1215 mono_arch_flush_icache (guint8 *code, gint size)
1216 {
1217 }
1218
1219 /*========================= End of Function ========================*/
1220
1221 /*------------------------------------------------------------------*/
1222 /*                                                                  */
1223 /* Name         -  mono_arch_is_inst_imm                                */
1224 /*                                                                  */
1225 /*------------------------------------------------------------------*/
1226
1227 gboolean
1228 mono_arch_is_inst_imm (gint64 imm)
1229 {
1230         /* The lowering pass will take care of it */
1231         return TRUE;
1232 }
1233
1234 /*========================= End of Function ========================*/
1235
1236 /*------------------------------------------------------------------*/
1237 /*                                                                  */
1238 /* Name         - add_general                                       */
1239 /*                                                                  */
1240 /* Function     - Determine code and stack size incremements for a  */
1241 /*                parameter.                                        */
1242 /*                                                                  */
1243 /*------------------------------------------------------------------*/
1244
1245 static void inline
1246 add_general (guint *gr, size_data *sz, ArgInfo *ainfo, gboolean simple)
1247 {
1248         int disp;
1249
1250         if (simple) {
1251                 if (*gr > S390_LAST_ARG_REG) {
1252                         sz->stack_size  = S390_ALIGN(sz->stack_size, sizeof(long));
1253                         ainfo->offset   = sz->stack_size;
1254                         ainfo->reg      = STK_BASE;
1255                         ainfo->regtype  = RegTypeBase;
1256                         sz->stack_size += sizeof(int);
1257                         sz->local_size += sizeof(int);
1258                         sz->offStruct  += sizeof(int);
1259                         sz->code_size  += 12;
1260                 } else {
1261                         ainfo->reg      = *gr;
1262                         sz->code_size  += 8;
1263                 }
1264         } else {
1265                 if (*gr > S390_LAST_ARG_REG - 1) {
1266                         disp            = sz->stack_size;
1267                         sz->stack_size  = S390_ALIGN(sz->stack_size, S390_STACK_ALIGNMENT);
1268                         disp            = sz->stack_size - disp;
1269                         ainfo->offset   = sz->stack_size;
1270                         ainfo->reg      = STK_BASE;
1271                         ainfo->regtype  = RegTypeBase;
1272                         sz->stack_size += sizeof(long long);
1273                         sz->local_size += (sizeof(long long) + disp);
1274                         sz->offStruct  += (sizeof(long long) + disp);
1275                         sz->code_size  += 10;
1276                 } else {
1277                         ainfo->reg      = *gr;
1278                         sz->code_size  += 8;
1279                 }
1280                 (*gr) ++;
1281         }
1282         (*gr) ++;
1283 }
1284
1285 /*========================= End of Function ========================*/
1286
1287 /*------------------------------------------------------------------*/
1288 /*                                                                  */
1289 /* Name         - add_stackParm                                     */
1290 /*                                                                  */
1291 /* Function     - Determine code and stack size incremements for a  */
1292 /*                parameter.                                        */
1293 /*                                                                  */
1294 /*------------------------------------------------------------------*/
1295
1296 static void inline
1297 add_stackParm (guint *gr, size_data *sz, ArgInfo *ainfo, gint size)
1298 {
1299         if (*gr > S390_LAST_ARG_REG) {
1300                 sz->stack_size  = S390_ALIGN(sz->stack_size, sizeof(long));
1301                 ainfo->reg          = STK_BASE;
1302                 ainfo->offset   = sz->stack_size;
1303                 sz->stack_size += sizeof (gpointer);
1304                 sz->parm_size  += sizeof(gpointer);
1305                 sz->offStruct  += sizeof(gpointer);
1306         } else {
1307                 ainfo->reg      = *gr;
1308                 ainfo->offset   = sz->stack_size;
1309         }
1310         (*gr) ++;
1311         ainfo->offparm  = sz->offset;
1312         sz->offset      = S390_ALIGN(sz->offset+size, sizeof(long));
1313         ainfo->size     = size;
1314         ainfo->regtype  = RegTypeStructByAddr;
1315         ainfo->vtsize   = size;
1316         sz->parm_size  += size;
1317 }
1318
1319 /*========================= End of Function ========================*/
1320
1321 /*------------------------------------------------------------------*/
1322 /*                                                                  */
1323 /* Name         - add_float                                         */
1324 /*                                                                  */
1325 /* Function     - Determine code and stack size incremements for a  */
1326 /*                float parameter.                                  */
1327 /*                                                                  */
1328 /*------------------------------------------------------------------*/
1329
1330 static void inline
1331 add_float (guint *fr,  size_data *sz, ArgInfo *ainfo)
1332 {
1333         if ((*fr) <= S390_LAST_FPARG_REG) {
1334                 ainfo->regtype = RegTypeFP;
1335                 ainfo->reg     = *fr;
1336                 sz->code_size += 4;
1337                 (*fr) += 2;
1338         }
1339         else {
1340                 ainfo->offset   = sz->stack_size;
1341                 ainfo->reg      = STK_BASE;
1342                 ainfo->regtype  = RegTypeBase;
1343                 sz->code_size  += 4;
1344                 sz->stack_size += ainfo->size;
1345                 sz->local_size += ainfo->size;
1346                 sz->offStruct  += ainfo->size;
1347         }
1348 }
1349
1350 /*========================= End of Function ========================*/
1351
1352 /*------------------------------------------------------------------*/
1353 /*                                                                  */
1354 /* Name         - get_call_info                                         */
1355 /*                                                                  */
1356 /* Function     - Determine the amount of space required for code   */
1357 /*                and stack. In addition determine starting points  */
1358 /*                for stack-based parameters, and area for struct-  */
1359 /*                ures being returned on the stack.                 */
1360 /*                                                                  */
1361 /*------------------------------------------------------------------*/
1362
1363 static CallInfo *
1364 get_call_info (MonoCompile *cfg, MonoMemPool *mp, MonoMethodSignature *sig, gboolean is_pinvoke)
1365 {
1366         guint i, fr, gr, size;
1367         int nParm = sig->hasthis + sig->param_count;
1368         MonoType *ret_type;
1369         guint32 simpletype, align;
1370         CallInfo *cinfo;
1371         size_data *sz;
1372         MonoGenericSharingContext *gsctx = cfg ? cfg->generic_sharing_context : NULL;
1373
1374         if (mp)
1375                 cinfo = mono_mempool_alloc0 (mp, sizeof (CallInfo) + sizeof (ArgInfo) * nParm);
1376         else
1377                 cinfo = g_malloc0 (sizeof (CallInfo) + sizeof (ArgInfo) * nParm);
1378
1379         fr                = 0;
1380         gr                = s390_r2;
1381         nParm                 = 0;
1382         cinfo->struct_ret = 0;
1383         sz                = &cinfo->sz;
1384         sz->offset            = 0;
1385         sz->offStruct     = S390_MINIMAL_STACK_SIZE;
1386         sz->retStruct     = 0;
1387         sz->stack_size    = S390_MINIMAL_STACK_SIZE;
1388         sz->code_size     = 0;
1389         sz->parm_size     = 0;
1390         sz->local_size    = 0;
1391
1392         /*----------------------------------------------------------*/
1393         /* We determine the size of the return code/stack in case we*/
1394         /* need to reserve a register to be used to address a stack */
1395         /* area that the callee will use.                           */
1396         /*----------------------------------------------------------*/
1397
1398         ret_type = mono_type_get_underlying_type (sig->ret);
1399         ret_type = mini_get_basic_type_from_generic (gsctx, ret_type);
1400         simpletype = ret_type->type;
1401 enum_retvalue:
1402         switch (simpletype) {
1403                 case MONO_TYPE_BOOLEAN:
1404                 case MONO_TYPE_I1:
1405                 case MONO_TYPE_U1:
1406                 case MONO_TYPE_I2:
1407                 case MONO_TYPE_U2:
1408                 case MONO_TYPE_CHAR:
1409                 case MONO_TYPE_I4:
1410                 case MONO_TYPE_U4:
1411                 case MONO_TYPE_I:
1412                 case MONO_TYPE_U:
1413                 case MONO_TYPE_CLASS:
1414                 case MONO_TYPE_OBJECT:
1415                 case MONO_TYPE_SZARRAY:
1416                 case MONO_TYPE_ARRAY:
1417                 case MONO_TYPE_PTR:
1418                 case MONO_TYPE_FNPTR:
1419                 case MONO_TYPE_STRING:
1420                         cinfo->ret.reg = s390_r2;
1421                         sz->code_size += 4;
1422                         break;
1423                 case MONO_TYPE_R4:
1424                 case MONO_TYPE_R8:
1425                         cinfo->ret.reg = s390_f0;
1426                         sz->code_size += 4;
1427                         break;
1428                 case MONO_TYPE_I8:
1429                 case MONO_TYPE_U8:
1430                         cinfo->ret.reg = s390_r2;
1431                         sz->code_size += 4;
1432                         break;
1433                 case MONO_TYPE_GENERICINST:
1434                         if (!mono_type_generic_inst_is_valuetype (ret_type)) {
1435                                 cinfo->ret.reg = s390_r2;
1436                                 sz->code_size += 4;
1437                                 break;
1438                         }
1439                         /* Fall through */
1440                 case MONO_TYPE_VALUETYPE: {
1441                         MonoClass *klass = mono_class_from_mono_type (sig->ret);
1442                         if (klass->enumtype) {
1443                                 simpletype = mono_class_enum_basetype (klass)->type;
1444                                 goto enum_retvalue;
1445                         }
1446                         if (sig->pinvoke)
1447                                 size = mono_class_native_size (klass, &align);
1448                         else
1449                                 size = mono_class_value_size (klass, &align);
1450
1451                         cinfo->ret.reg    = s390_r2;
1452                         cinfo->struct_ret = 1;
1453                         cinfo->ret.size   = size;
1454                         cinfo->ret.vtsize = size;
1455                         gr++;
1456                         break;
1457                 }
1458                 case MONO_TYPE_TYPEDBYREF:
1459                         size = sizeof (MonoTypedRef);
1460                         cinfo->ret.reg    = s390_r2;
1461                         cinfo->struct_ret = 1;
1462                         cinfo->ret.size   = size;
1463                         cinfo->ret.vtsize = size;
1464                         gr++;
1465                         break;
1466                 case MONO_TYPE_VOID:
1467                         break;
1468                 default:
1469                         g_error ("mini-s390: cannot handle as return value 0x%x (0x%x)", sig->ret->type,simpletype);
1470         }
1471
1472         if (sig->hasthis) {
1473                 add_general (&gr, sz, cinfo->args+nParm, TRUE);
1474                 cinfo->args[nParm].size = sizeof(gpointer);
1475                 nParm++;
1476         }
1477
1478         /*----------------------------------------------------------*/
1479         /* We determine the size of the parameter code and stack    */
1480         /* requirements by checking the types and sizes of the      */
1481         /* parameters.                                              */
1482         /*----------------------------------------------------------*/
1483
1484         for (i = 0; i < sig->param_count; ++i) {
1485                 MonoType *ptype;
1486
1487                 /*--------------------------------------------------*/
1488                 /* Handle vararg type calls. All args are put on    */
1489                 /* the stack.                                       */
1490                 /*--------------------------------------------------*/
1491                 if ((sig->call_convention == MONO_CALL_VARARG) &&
1492                     (i == sig->sentinelpos)) {
1493                         gr = S390_LAST_ARG_REG + 1;
1494                         add_general (&gr, sz, &cinfo->sigCookie, TRUE);
1495                 }
1496
1497                 if (sig->params [i]->byref) {
1498                         add_general (&gr, sz, cinfo->args+nParm, TRUE);
1499                         cinfo->args[nParm].size = sizeof(gpointer);
1500                         nParm++;
1501                         continue;
1502                 }
1503
1504                 ptype = mono_type_get_underlying_type (sig->params [i]);
1505                 ptype = mini_get_basic_type_from_generic (gsctx, ptype);
1506                 simpletype = ptype->type;
1507                 switch (simpletype) {
1508                 case MONO_TYPE_BOOLEAN:
1509                 case MONO_TYPE_I1:
1510                 case MONO_TYPE_U1:
1511                         cinfo->args[nParm].size = sizeof(char);
1512                         add_general (&gr, sz, cinfo->args+nParm, TRUE);
1513                         nParm++;
1514                         break;
1515                 case MONO_TYPE_I2:
1516                 case MONO_TYPE_U2:
1517                 case MONO_TYPE_CHAR:
1518                         cinfo->args[nParm].size = sizeof(short);
1519                         add_general (&gr, sz, cinfo->args+nParm, TRUE);
1520                         nParm++;
1521                         break;
1522                 case MONO_TYPE_I4:
1523                 case MONO_TYPE_U4:
1524                         cinfo->args[nParm].size = sizeof(int);
1525                         add_general (&gr, sz, cinfo->args+nParm, TRUE);
1526                         nParm++;
1527                         break;
1528                 case MONO_TYPE_I:
1529                 case MONO_TYPE_U:
1530                 case MONO_TYPE_PTR:
1531                 case MONO_TYPE_FNPTR:
1532                 case MONO_TYPE_CLASS:
1533                 case MONO_TYPE_OBJECT:
1534                 case MONO_TYPE_STRING:
1535                 case MONO_TYPE_SZARRAY:
1536                 case MONO_TYPE_ARRAY:
1537                         cinfo->args[nParm].size = sizeof(gpointer);
1538                         add_general (&gr, sz, cinfo->args+nParm, TRUE);
1539                         nParm++;
1540                         break;
1541                 case MONO_TYPE_I8:
1542                 case MONO_TYPE_U8:
1543                         cinfo->args[nParm].size = sizeof(long long);
1544                         add_general (&gr, sz, cinfo->args+nParm, FALSE);
1545                         nParm++;
1546                         break;
1547                 case MONO_TYPE_R4:
1548                         cinfo->args[nParm].size = sizeof(float);
1549                         add_float (&fr, sz, cinfo->args+nParm);
1550                         nParm++;
1551                         break;
1552                 case MONO_TYPE_R8:
1553                         cinfo->args[nParm].size = sizeof(double);
1554                         add_float (&fr, sz, cinfo->args+nParm);
1555                         nParm++;
1556                         break;
1557                 case MONO_TYPE_GENERICINST:
1558                         if (!mono_type_generic_inst_is_valuetype (ptype)) {
1559                                 cinfo->args[nParm].size = sizeof(gpointer);
1560                                 add_general (&gr, sz, cinfo->args+nParm, TRUE);
1561                                 nParm++;
1562                                 break;
1563                         }
1564                         /* Fall through */
1565                 case MONO_TYPE_VALUETYPE: {
1566                         MonoMarshalType *info;
1567                         MonoClass *klass = mono_class_from_mono_type (sig->params [i]);
1568                         if (sig->pinvoke)
1569                                 size = mono_class_native_size (klass, &align);
1570                         else
1571                                 size = mono_class_value_size (klass, &align);
1572
1573                         info = mono_marshal_load_type_info (klass);
1574
1575                         if ((info->native_size == sizeof(float)) &&
1576                             (info->num_fields  == 1) &&
1577                             (info->fields[0].field->type->type == MONO_TYPE_R4)) {
1578                                 cinfo->args[nParm].size = sizeof(float);
1579                                 add_float(&fr, sz, cinfo->args+nParm);
1580                                 nParm ++;
1581                                 break;
1582                         }
1583
1584                         if ((info->native_size == sizeof(double)) &&
1585                             (info->num_fields  == 1) &&
1586                             (info->fields[0].field->type->type == MONO_TYPE_R8)) {
1587                                 cinfo->args[nParm].size = sizeof(double);
1588                                 add_float(&fr, sz, cinfo->args+nParm);
1589                                 nParm ++;
1590                                 break;
1591                         }
1592
1593                         cinfo->args[nParm].vtsize  = 0;
1594                         cinfo->args[nParm].size    = 0;
1595
1596                         switch (size) {
1597                                 /*----------------------------------*/
1598                                 /* On S/390, structures of size 1,  */
1599                                 /* 2, 4, and 8 bytes are passed in  */
1600                                 /* (a) register(s).                 */
1601                                 /*----------------------------------*/
1602                                 case 0:
1603                                 case 1:
1604                                 case 2:
1605                                 case 4:
1606                                         add_general(&gr, sz, cinfo->args+nParm, TRUE);
1607                                         cinfo->args[nParm].size    = size;
1608                                         cinfo->args[nParm].regtype = RegTypeStructByVal;
1609                                         nParm++;
1610                                         sz->local_size            += sizeof(long);
1611                                         break;
1612                                 case 8:
1613                                         add_general(&gr, sz, cinfo->args+nParm, FALSE);
1614                                         cinfo->args[nParm].size    = sizeof(long long);
1615                                         cinfo->args[nParm].regtype = RegTypeStructByVal;
1616                                         nParm++;
1617                                         sz->local_size            += sizeof(long long);
1618                                         break;
1619                                 default:
1620                                         add_stackParm(&gr, sz, cinfo->args+nParm, size);
1621                                         nParm++;
1622                         }
1623                 }
1624                         break;
1625                 case MONO_TYPE_TYPEDBYREF: {
1626                         int size = sizeof (MonoTypedRef);
1627
1628                         cinfo->args[nParm].vtsize  = 0;
1629                         cinfo->args[nParm].size    = 0;
1630
1631                         switch (size) {
1632                                 /*----------------------------------*/
1633                                 /* On S/390, structures of size 1,  */
1634                                 /* 2, 4, and 8 bytes are passed in  */
1635                                 /* (a) register(s).                 */
1636                                 /*----------------------------------*/
1637                                 case 0:
1638                                 case 1:
1639                                 case 2:
1640                                 case 4:
1641                                         add_general(&gr, sz, cinfo->args+nParm, TRUE);
1642                                         cinfo->args[nParm].size    = size;
1643                                         cinfo->args[nParm].regtype = RegTypeStructByVal;
1644                                         nParm++;
1645                                         sz->local_size            += sizeof(long);
1646                                         break;
1647                                 case 8:
1648                                         add_general(&gr, sz, cinfo->args+nParm, FALSE);
1649                                         cinfo->args[nParm].size    = sizeof(long long);
1650                                         cinfo->args[nParm].regtype = RegTypeStructByVal;
1651                                         nParm++;
1652                                         sz->local_size            += sizeof(long long);
1653                                         break;
1654                                 default:
1655                                         add_stackParm(&gr, sz, cinfo->args+nParm, size);
1656                                         nParm++;
1657                         }
1658                 }
1659                         break;
1660                 default:
1661                         g_error ("Can't trampoline 0x%x", sig->params [i]->type);
1662                 }
1663         }
1664
1665         /*----------------------------------------------------------*/
1666         /* If we are passing a structure back then if it won't be   */
1667         /* in a register(s) then we make room at the end of the     */
1668         /* parameters that may have been placed on the stack        */
1669         /*----------------------------------------------------------*/
1670         if (cinfo->struct_ret) {
1671                 cinfo->ret.offset = sz->stack_size;
1672                 switch (cinfo->ret.size) {
1673                 case 0:
1674                 case 1:
1675                 case 2:
1676                 case 4:
1677                 case 8:
1678                         break;
1679                 default:
1680                         sz->stack_size   += S390_ALIGN(cinfo->ret.size, align);
1681                 }
1682         }
1683
1684         /*----------------------------------------------------------*/
1685         /* Handle the case where there are no implicit arguments    */
1686         /*----------------------------------------------------------*/
1687         if ((sig->call_convention == MONO_CALL_VARARG) &&
1688             (sig->param_count == sig->sentinelpos)) {
1689                 gr = S390_LAST_ARG_REG + 1;
1690                 add_general (&gr, sz, &cinfo->sigCookie, TRUE);
1691         }
1692
1693         cinfo->lastgr   = gr;
1694         sz->stack_size  = sz->stack_size + sz->local_size + sz->parm_size +
1695                           sz->offset;
1696         sz->stack_size  = S390_ALIGN(sz->stack_size, sizeof(long));
1697
1698         return (cinfo);
1699 }
1700
1701 /*========================= End of Function ========================*/
1702
1703 /*------------------------------------------------------------------*/
1704 /*                                                                  */
1705 /* Name         - mono_arch_allocate_vars                           */
1706 /*                                                                  */
1707 /* Function     - Set var information according to the calling      */
1708 /*                convention for S/390. The local var stuff should  */
1709 /*                most likely be split in another method.           */
1710 /*                                                                  */
1711 /* Parameter    - @m - Compile unit.                                */
1712 /*                                                                  */
1713 /*------------------------------------------------------------------*/
1714
1715 void
1716 mono_arch_allocate_vars (MonoCompile *cfg)
1717 {
1718         MonoMethodSignature *sig;
1719         MonoMethodHeader *header;
1720         MonoInst *inst;
1721         CallInfo *cinfo;
1722         int iParm, iVar, offset, size, align, curinst;
1723         int frame_reg = STK_BASE;
1724         int sArg, eArg;
1725
1726         header  = cfg->header;
1727
1728         cfg->flags |= MONO_CFG_HAS_SPILLUP;
1729
1730         sig     = mono_method_signature (cfg->method);
1731
1732         cinfo   = get_call_info (cfg, cfg->mempool, sig, sig->pinvoke);
1733
1734         /*---------------------------------------------------------*/
1735         /* We use the frame register also for any method that has  */
1736         /* filter clauses. This way, when the handlers are called, */
1737         /* the code will reference local variables using the frame */
1738         /* reg instead of the stack pointer: if we had to restore  */
1739         /* the stack pointer, we'd corrupt the method frames that  */
1740         /* are already on the stack (since filters get called      */
1741         /* before stack unwinding happens) when the filter code    */
1742         /* would call any method.                                  */
1743         /*---------------------------------------------------------*/
1744         if ((cfg->flags & MONO_CFG_HAS_ALLOCA) || header->num_clauses)
1745                 frame_reg = s390_r11;
1746
1747         cfg->frame_reg = frame_reg;
1748
1749         cfg->arch.bkchain_reg = -1;
1750
1751         if (frame_reg != STK_BASE)
1752                 cfg->used_int_regs |= 1 << frame_reg;
1753
1754         sig     = mono_method_signature (cfg->method);
1755
1756         cinfo   = get_call_info (cfg, cfg->mempool, sig, sig->pinvoke);
1757
1758         if (!cinfo->struct_ret) {
1759                 switch (mono_type_get_underlying_type (sig->ret)->type) {
1760                 case MONO_TYPE_VOID:
1761                         break;
1762                 default:
1763                         cfg->ret->opcode = OP_REGVAR;
1764                         cfg->ret->dreg   = s390_r2;
1765                         break;
1766                 }
1767         }
1768
1769         /*--------------------------------------------------------------*/
1770         /* local vars are at a positive offset from the stack pointer   */
1771         /* also note that if the function uses alloca, we use s390_r11  */
1772         /* to point at the local variables.                             */
1773         /* add parameter area size for called functions                 */
1774         /*--------------------------------------------------------------*/
1775         offset          = (cfg->param_area + S390_MINIMAL_STACK_SIZE);
1776         cfg->sig_cookie = 0;
1777
1778         if (cinfo->struct_ret) {
1779                 inst               = cfg->vret_addr;
1780                 offset             = S390_ALIGN(offset, sizeof(gpointer));
1781                 inst->inst_offset  = offset;
1782                 inst->opcode       = OP_REGOFFSET;
1783                 inst->inst_basereg = frame_reg;
1784                 offset            += sizeof(gpointer);
1785                 if (G_UNLIKELY (cfg->verbose_level > 1)) {
1786                         printf ("vret_addr =");
1787                         mono_print_ins (cfg->vret_addr);
1788                 }
1789         }
1790
1791         if (sig->hasthis) {
1792                 inst = cfg->args [0];
1793                 if (inst->opcode != OP_REGVAR) {
1794                         inst->opcode       = OP_REGOFFSET;
1795                         inst->inst_basereg = frame_reg;
1796                         offset             = S390_ALIGN(offset, sizeof(gpointer));
1797                         inst->inst_offset  = offset;
1798                         offset            += sizeof (gpointer);
1799                 }
1800                 curinst = sArg = 1;
1801         } else {
1802                 curinst = sArg = 0;
1803         }
1804
1805         eArg = sig->param_count + sArg;
1806
1807         if (sig->call_convention == MONO_CALL_VARARG)
1808                 cfg->sig_cookie += S390_MINIMAL_STACK_SIZE;
1809
1810         for (iParm = sArg; iParm < eArg; ++iParm) {
1811                 inst = cfg->args [curinst];
1812                 if (inst->opcode != OP_REGVAR) {
1813                         switch (cinfo->args[iParm].regtype) {
1814                             case RegTypeStructByAddr : {
1815                                         MonoInst *indir;
1816
1817                                         size = sizeof (gpointer);
1818
1819                                         if (cinfo->args [iParm].reg == STK_BASE) {
1820                                                 cfg->arch.bkchain_reg = s390_r12;
1821                                                 cfg->used_int_regs |= 1 << cfg->arch.bkchain_reg;
1822
1823                                                 inst->opcode       = OP_REGOFFSET;
1824                                                 inst->inst_basereg = cfg->arch.bkchain_reg;
1825                                                 inst->inst_offset  = cinfo->args [iParm].offset;
1826                                         } else {
1827                                                 inst->opcode = OP_REGOFFSET;
1828                                                 inst->inst_basereg = frame_reg;
1829                                                 inst->inst_offset = S390_ALIGN(offset, sizeof (gpointer));
1830                                         }
1831
1832                                         /* Add a level of indirection */
1833                                         MONO_INST_NEW (cfg, indir, 0);
1834                                         *indir = *inst;
1835                                         inst->opcode = OP_VTARG_ADDR;
1836                                         inst->inst_left = indir;
1837                                 }
1838                                         break;
1839                                 case RegTypeStructByVal :
1840                                         size               = cinfo->args[iParm].size;
1841                                         offset             = S390_ALIGN(offset, size);
1842                                         inst->opcode = OP_REGOFFSET;
1843                                         inst->inst_basereg = frame_reg;
1844                                         inst->inst_offset = S390_ALIGN (offset, size);
1845                                         break;
1846                                 default :
1847                                         if (cinfo->args [iParm].reg == STK_BASE) {
1848                                                 /*
1849                                                  * These arguments are in the previous frame, so we can't
1850                                                  * compute their offset from the current frame pointer right
1851                                                  * now, since cfg->stack_offset is not yet known, so dedicate a
1852                                                  * register holding the previous frame pointer.
1853                                                  */
1854                                                 cfg->arch.bkchain_reg = s390_r12;
1855                                                 cfg->used_int_regs |= 1 << cfg->arch.bkchain_reg;
1856
1857                                                 inst->opcode       = OP_REGOFFSET;
1858                                                 inst->inst_basereg = cfg->arch.bkchain_reg;
1859                                                 size               = (cinfo->args[iParm].size < 4
1860                                                                                   ? 4 - cinfo->args[iParm].size
1861                                                                                   : 0);
1862                                                 inst->inst_offset  = cinfo->args [iParm].offset + size;
1863                                                 size = sizeof (long);
1864                                         } else {
1865                                                 inst->opcode       = OP_REGOFFSET;
1866                                                 inst->inst_basereg = frame_reg;
1867                                                 size               = (cinfo->args[iParm].size < 8
1868                                                                                   ? sizeof(long)
1869                                                                                   : sizeof(long long));
1870                                                 offset             = S390_ALIGN(offset, size);
1871                                                 inst->inst_offset  = offset;
1872                                         }
1873                         }
1874                         if ((sig->call_convention == MONO_CALL_VARARG) &&
1875                             (cinfo->args[iParm].regtype != RegTypeGeneral) &&
1876                             (iParm < sig->sentinelpos))
1877                                 cfg->sig_cookie += size;
1878
1879                         offset += size;
1880                 }
1881                 curinst++;
1882         }
1883
1884         curinst = cfg->locals_start;
1885         for (iVar = curinst; iVar < cfg->num_varinfo; ++iVar) {
1886                 inst = cfg->varinfo [iVar];
1887                 if ((inst->flags & MONO_INST_IS_DEAD) ||
1888                     (inst->opcode == OP_REGVAR))
1889                         continue;
1890
1891                 /*--------------------------------------------------*/
1892                 /* inst->backend.is_pinvoke indicates native sized value types, */
1893                 /* this is used by the pinvoke wrappers when they   */
1894                 /* call functions returning structure               */
1895                 /*--------------------------------------------------*/
1896                 if (inst->backend.is_pinvoke && MONO_TYPE_ISSTRUCT (inst->inst_vtype))
1897                         size = mono_class_native_size (mono_class_from_mono_type(inst->inst_vtype), &align);
1898                 else
1899                         size = mono_type_size (inst->inst_vtype, &align);
1900
1901                 offset             = S390_ALIGN(offset, align);
1902                 inst->inst_offset  = offset;
1903                 inst->opcode       = OP_REGOFFSET;
1904                 inst->inst_basereg = frame_reg;
1905                 offset            += size;
1906                 DEBUG (g_print("allocating local %d to %ld\n", iVar, inst->inst_offset));
1907         }
1908
1909         /*------------------------------------------------------*/
1910         /* Allow space for the trace method stack area if needed*/
1911         /*------------------------------------------------------*/
1912         if (mono_jit_trace_calls != NULL && mono_trace_eval (cfg->method)) {
1913                 offset += S390_TRACE_STACK_SIZE;
1914         }
1915
1916         /*------------------------------------------------------*/
1917         /* Reserve space to save LMF and caller saved registers */
1918         /*------------------------------------------------------*/
1919         if (cfg->method->save_lmf)
1920                 offset += sizeof (MonoLMF);
1921
1922         /*------------------------------------------------------*/
1923         /* align the offset                                     */
1924         /*------------------------------------------------------*/
1925         cfg->stack_offset = S390_ALIGN(offset, S390_STACK_ALIGNMENT);
1926
1927         /* Fix up offsets for arguments whose value is in the parent frame */
1928         for (iParm = sArg; iParm < eArg; ++iParm) {
1929                 inst = cfg->args [iParm];
1930
1931                 if (inst->opcode == OP_S390_STKARG) {
1932                         inst->opcode = OP_REGOFFSET;
1933                         inst->inst_offset += cfg->stack_offset;
1934                 }
1935         }
1936 }
1937
1938 /*========================= End of Function ========================*/
1939
1940 /*------------------------------------------------------------------*/
1941 /*                                                                  */
1942 /* Name         - mono_arch_create_vars                                 */
1943 /*                                                                  */
1944 /*------------------------------------------------------------------*/
1945
1946 void
1947 mono_arch_create_vars (MonoCompile *cfg)
1948 {
1949         MonoMethodSignature *sig;
1950         CallInfo *cinfo;
1951
1952         sig = mono_method_signature (cfg->method);
1953
1954         cinfo = get_call_info (cfg, cfg->mempool, sig, sig->pinvoke);
1955
1956         if (cinfo->struct_ret) {
1957                 cfg->vret_addr = mono_compile_create_var (cfg, &mono_defaults.int_class->byval_arg, OP_ARG);
1958                 if (G_UNLIKELY (cfg->verbose_level > 1)) {
1959                         printf ("vret_addr = ");
1960                         mono_print_ins (cfg->vret_addr);
1961                 }
1962         }
1963 }
1964
1965 /*========================= End of Function ========================*/
1966
1967 static void
1968 add_outarg_reg2 (MonoCompile *cfg, MonoCallInst *call, ArgStorage storage, int reg, MonoInst *tree)
1969 {
1970         MonoInst *ins;
1971
1972         switch (storage) {
1973         case RegTypeGeneral:
1974                 MONO_INST_NEW (cfg, ins, OP_MOVE);
1975                 ins->dreg = mono_alloc_ireg (cfg);
1976                 ins->sreg1 = tree->dreg;
1977                 MONO_ADD_INS (cfg->cbb, ins);
1978                 mono_call_inst_add_outarg_reg (cfg, call, ins->dreg, reg, FALSE);
1979                 break;
1980         case RegTypeFP:
1981                 MONO_INST_NEW (cfg, ins, OP_FMOVE);
1982                 ins->dreg = mono_alloc_freg (cfg);
1983                 ins->sreg1 = tree->dreg;
1984                 MONO_ADD_INS (cfg->cbb, ins);
1985                 mono_call_inst_add_outarg_reg (cfg, call, ins->dreg, reg, TRUE);
1986                 break;
1987         case RegTypeFPR4:
1988                 MONO_INST_NEW (cfg, ins, OP_S390_SETF4RET);
1989                 ins->dreg = mono_alloc_freg (cfg);
1990                 ins->sreg1 = tree->dreg;
1991                 MONO_ADD_INS (cfg->cbb, ins);
1992                 mono_call_inst_add_outarg_reg (cfg, call, ins->dreg, reg, TRUE);
1993                 break;
1994         default:
1995                 g_assert_not_reached ();
1996         }
1997 }
1998
1999 static void
2000 emit_sig_cookie (MonoCompile *cfg, MonoCallInst *call, CallInfo *cinfo)
2001 {
2002         MonoMethodSignature *tmpSig;
2003         MonoInst *sig_arg;
2004
2005         cfg->disable_aot = TRUE;
2006
2007         /*----------------------------------------------------------*/
2008         /* mono_ArgIterator_Setup assumes the signature cookie is   */
2009         /* passed first and all the arguments which were before it  */
2010         /* passed on the stack after the signature. So compensate   */
2011         /* by passing a different signature.                        */
2012         /*----------------------------------------------------------*/
2013         tmpSig = mono_metadata_signature_dup (call->signature);
2014         tmpSig->param_count -= call->signature->sentinelpos;
2015         tmpSig->sentinelpos  = 0;
2016         if (tmpSig->param_count > 0)
2017                 memcpy (tmpSig->params,
2018                         call->signature->params + call->signature->sentinelpos,
2019                         tmpSig->param_count * sizeof(MonoType *));
2020
2021         MONO_INST_NEW (cfg, sig_arg, OP_ICONST);
2022         sig_arg->dreg = mono_alloc_ireg (cfg);
2023         sig_arg->inst_p0 = tmpSig;
2024         MONO_ADD_INS (cfg->cbb, sig_arg);
2025
2026         MONO_EMIT_NEW_STORE_MEMBASE (cfg, OP_STORE_MEMBASE_REG, STK_BASE,
2027                                                                  cinfo->sigCookie.offset, sig_arg->dreg);
2028 }
2029
2030 /*------------------------------------------------------------------*/
2031 /*                                                                  */
2032 /* Name         - mono_arch_emit_call                                   */
2033 /*                                                                  */
2034 /*------------------------------------------------------------------*/
2035
2036 void
2037 mono_arch_emit_call (MonoCompile *cfg, MonoCallInst *call)
2038 {
2039         MonoInst *in;
2040         MonoMethodSignature *sig;
2041         MonoInst *ins;
2042         int i, n, lParamArea;
2043         CallInfo *cinfo;
2044         ArgInfo *ainfo = NULL;
2045         int stackSize;
2046
2047         sig = call->signature;
2048         n = sig->param_count + sig->hasthis;
2049         DEBUG (g_print ("Call requires: %d parameters\n",n));
2050
2051         cinfo = get_call_info (cfg, cfg->mempool, sig, sig->pinvoke);
2052
2053         stackSize         = cinfo->sz.stack_size + cinfo->sz.local_size + cinfo->sz.parm_size + cinfo->sz.offset;
2054         call->stack_usage = MAX(stackSize, call->stack_usage);
2055         lParamArea        = MAX((call->stack_usage-S390_MINIMAL_STACK_SIZE-cinfo->sz.parm_size), 0);
2056         cfg->param_area   = MAX(((signed) cfg->param_area), lParamArea);
2057         cfg->flags       |= MONO_CFG_HAS_CALLS;
2058
2059         if (cinfo->struct_ret) {
2060                 MONO_INST_NEW (cfg, ins, OP_MOVE);
2061                 ins->sreg1 = call->vret_var->dreg;
2062                 ins->dreg = mono_alloc_preg (cfg);
2063                 MONO_ADD_INS (cfg->cbb, ins);
2064                 mono_call_inst_add_outarg_reg (cfg, call, ins->dreg, cinfo->ret.reg, FALSE);
2065         }
2066
2067         for (i = 0; i < n; ++i) {
2068                 ainfo = cinfo->args + i;
2069                 MonoType *t;
2070
2071                 if (i >= sig->hasthis)
2072                         t = sig->params [i - sig->hasthis];
2073                 else
2074                         t = &mono_defaults.int_class->byval_arg;
2075                 t = mono_type_get_underlying_type (t);
2076
2077                 in = call->args [i];
2078
2079                 if ((sig->call_convention == MONO_CALL_VARARG) &&
2080                     (i == sig->sentinelpos)) {
2081                         emit_sig_cookie (cfg, call, cinfo);
2082                 }
2083
2084                 switch (ainfo->regtype) {
2085                 case RegTypeGeneral:
2086                         if (!t->byref && (t->type == MONO_TYPE_I8 || t->type == MONO_TYPE_U8)) {
2087                                 MONO_INST_NEW (cfg, ins, OP_MOVE);
2088                                 ins->dreg = mono_alloc_ireg (cfg);
2089                                 ins->sreg1 = in->dreg + 2;
2090                                 MONO_ADD_INS (cfg->cbb, ins);
2091                                 mono_call_inst_add_outarg_reg (cfg, call, ins->dreg, ainfo->reg, FALSE);
2092                                 MONO_INST_NEW (cfg, ins, OP_MOVE);
2093                                 ins->dreg = mono_alloc_ireg (cfg);
2094                                 ins->sreg1 = in->dreg + 1;
2095                                 MONO_ADD_INS (cfg->cbb, ins);
2096                                 mono_call_inst_add_outarg_reg (cfg, call, ins->dreg, ainfo->reg + 1, FALSE);
2097                         } else {
2098                                 add_outarg_reg2 (cfg, call, ainfo->regtype, ainfo->reg, in);
2099                         }
2100                         break;
2101                 case RegTypeFP:
2102                         if (MONO_TYPE_ISSTRUCT (t)) {
2103                                 /* Valuetype passed in one fp register */
2104                                 ainfo->regtype = RegTypeStructByValInFP;
2105                                 /* Fall through */
2106                         } else {
2107                                 if (ainfo->size == 4)
2108                                         ainfo->regtype = RegTypeFPR4;
2109                                 add_outarg_reg2 (cfg, call, ainfo->regtype, ainfo->reg, in);
2110                                 break;
2111                         }
2112                 case RegTypeStructByVal:
2113                 case RegTypeStructByAddr: {
2114                         guint32 align;
2115                         guint32 size;
2116
2117                         if (sig->params [i - sig->hasthis]->type == MONO_TYPE_TYPEDBYREF) {
2118                                 size = sizeof (MonoTypedRef);
2119                                 align = sizeof (gpointer);
2120                         }
2121                         else
2122                                 if (sig->pinvoke)
2123                                         size = mono_type_native_stack_size (&in->klass->byval_arg, &align);
2124                                 else {
2125                                         /*
2126                                          * Other backends use mono_type_stack_size (), but that
2127                                          * aligns the size to 8, which is larger than the size of
2128                                          * the source, leading to reads of invalid memory if the
2129                                          * source is at the end of address space.
2130                                          */
2131                                         size = mono_class_value_size (in->klass, &align);
2132                                 }
2133
2134                         g_assert (in->klass);
2135
2136                         ainfo->offparm += cinfo->sz.offStruct;
2137
2138                         MONO_INST_NEW (cfg, ins, OP_OUTARG_VT);
2139                         ins->sreg1 = in->dreg;
2140                         ins->klass = in->klass;
2141                         ins->backend.size = ainfo->size;
2142                         ins->inst_p0 = call;
2143                         ins->inst_p1 = mono_mempool_alloc (cfg->mempool, sizeof (ArgInfo));
2144                         memcpy (ins->inst_p1, ainfo, sizeof (ArgInfo));
2145
2146                         MONO_ADD_INS (cfg->cbb, ins);
2147
2148                         if (ainfo->regtype == RegTypeStructByAddr) {
2149                                 /*
2150                                  * We use OP_OUTARG_VT to copy the valuetype to a stack location, then
2151                                  * use the normal OUTARG opcodes to pass the address of the location to
2152                                  * the callee.
2153                                  */
2154                                 int treg = mono_alloc_preg (cfg);
2155                                 MONO_EMIT_NEW_BIALU_IMM (cfg, OP_ADD_IMM, treg,
2156                                                                                  STK_BASE, ainfo->offparm);
2157                                 if (ainfo->reg == STK_BASE) {
2158                                         /* The address is passed on the stack */
2159                                         MONO_INST_NEW (cfg, ins, OP_STORE_MEMBASE_REG);
2160                                         ins->inst_destbasereg = STK_BASE;
2161                                         ins->inst_offset = ainfo->offset;
2162                                         ins->sreg1 = treg;
2163                                         MONO_ADD_INS (cfg->cbb, ins);
2164                                 } else {
2165                                         mono_call_inst_add_outarg_reg (cfg, call, treg, ainfo->reg, FALSE);
2166                                 }
2167                         }
2168                         break;
2169                 }
2170                 case RegTypeBase:
2171                         if (!t->byref && t->type == MONO_TYPE_R4) {
2172                                 MONO_EMIT_NEW_STORE_MEMBASE (cfg, OP_STORER4_MEMBASE_REG,
2173                                                                                          STK_BASE, ainfo->offset,
2174                                                                                          in->dreg);
2175                         } else if (!t->byref && (t->type == MONO_TYPE_R8)) {
2176                                 MONO_EMIT_NEW_STORE_MEMBASE (cfg, OP_STORER8_MEMBASE_REG,
2177                                                                                          STK_BASE, ainfo->offset,
2178                                                                                          in->dreg);
2179                         } else if (!t->byref && (t->type == MONO_TYPE_I8 || t->type == MONO_TYPE_U8)) {
2180                                 MONO_INST_NEW (cfg, ins, OP_STORE_MEMBASE_REG);
2181                                 ins->inst_destbasereg = STK_BASE;
2182                                 ins->inst_offset = ainfo->offset + MINI_LS_WORD_OFFSET;
2183                                 ins->sreg1 = in->dreg + 1;
2184                                 MONO_ADD_INS (cfg->cbb, ins);
2185
2186                                 MONO_INST_NEW (cfg, ins, OP_STORE_MEMBASE_REG);
2187                                 ins->inst_destbasereg = STK_BASE;
2188                                 ins->inst_offset = ainfo->offset + MINI_MS_WORD_OFFSET;
2189                                 ins->sreg1 = in->dreg + 2;
2190                                 MONO_ADD_INS (cfg->cbb, ins);
2191                         } else {
2192                                 MONO_INST_NEW (cfg, ins, OP_STORE_MEMBASE_REG);
2193                                 ins->inst_destbasereg = STK_BASE;
2194                                 ins->inst_offset = ainfo->offset;
2195                                 ins->sreg1 = in->dreg;
2196                                 MONO_ADD_INS (cfg->cbb, ins);
2197                         }
2198                         break;
2199                 default:
2200                         g_assert_not_reached ();
2201                         break;
2202                 }
2203         }
2204
2205         /*
2206          * Handle the case where there are no implicit arguments
2207          */
2208         if ((sig->call_convention == MONO_CALL_VARARG) &&
2209             (i == sig->sentinelpos)) {
2210                 emit_sig_cookie (cfg, call, cinfo);
2211         }
2212 }
2213
2214 /*========================= End of Function ========================*/
2215
2216 /*------------------------------------------------------------------*/
2217 /*                                                                  */
2218 /* Name         - mono_arch_emit_outarg_vt                              */
2219 /*                                                                  */
2220 /*------------------------------------------------------------------*/
2221
2222 void
2223 mono_arch_emit_outarg_vt (MonoCompile *cfg, MonoInst *ins, MonoInst *src)
2224 {
2225         MonoCallInst *call = (MonoCallInst*)ins->inst_p0;
2226         ArgInfo *ainfo = (ArgInfo*)ins->inst_p1;
2227         int size = ins->backend.size;
2228
2229         if (ainfo->regtype == RegTypeStructByVal) {
2230                 /*
2231                                 arg->ins.sreg1  = ainfo->reg;
2232                                 arg->ins.opcode = OP_OUTARG_VT;
2233                                 arg->size       = ainfo->size;
2234                                 arg->offset     = ainfo->offset;
2235                                 arg->offPrm     = ainfo->offparm + cinfo->sz.offStruct;
2236                 */
2237                 if (ainfo->reg != STK_BASE) {
2238                         MONO_OUTPUT_VTR (cfg, size, ainfo->reg, src->dreg, 0);
2239                 } else {
2240                         MONO_OUTPUT_VTS (cfg, size, ainfo->reg, ainfo->offset,
2241                                                           src->dreg, 0);
2242                 }
2243         } else if (ainfo->regtype == RegTypeStructByValInFP) {
2244                 int dreg = mono_alloc_freg (cfg);
2245
2246                 if (ainfo->size == 4) {
2247                         MONO_EMIT_NEW_LOAD_MEMBASE_OP (cfg, OP_LOADR4_MEMBASE, dreg, src->dreg, 0);
2248                         MONO_EMIT_NEW_UNALU (cfg, OP_S390_SETF4RET, dreg, dreg);
2249                 } else {
2250                         g_assert (ainfo->size == 8);
2251
2252                         MONO_EMIT_NEW_LOAD_MEMBASE_OP (cfg, OP_LOADR8_MEMBASE, dreg, src->dreg, 0);
2253                 }
2254
2255                 mono_call_inst_add_outarg_reg (cfg, call, dreg, ainfo->reg, TRUE);
2256         } else {
2257                 MONO_EMIT_NEW_MOVE (cfg, STK_BASE, ainfo->offparm,
2258                                                          src->dreg, 0, size);
2259         }
2260 }
2261
2262 /*------------------------------------------------------------------*/
2263 /*                                                                  */
2264 /* Name         - mono_arch_emit_setret                                 */
2265 /*                                                                  */
2266 /*------------------------------------------------------------------*/
2267
2268 void
2269 mono_arch_emit_setret (MonoCompile *cfg, MonoMethod *method, MonoInst *val)
2270 {
2271         MonoType *ret = mono_type_get_underlying_type (mono_method_signature (method)->ret);
2272
2273         if (!ret->byref) {
2274                 if (ret->type == MONO_TYPE_R4) {
2275                         MONO_EMIT_NEW_UNALU (cfg, OP_S390_SETF4RET, s390_f0, val->dreg);
2276                         return;
2277                 } else if (ret->type == MONO_TYPE_R8) {
2278                         MONO_EMIT_NEW_UNALU (cfg, OP_FMOVE, s390_f0, val->dreg);
2279                         return;
2280                 } else if (ret->type == MONO_TYPE_I8 || ret->type == MONO_TYPE_U8) {
2281                         MONO_EMIT_NEW_UNALU (cfg, OP_MOVE, s390_r3, val->dreg + 1);
2282                         MONO_EMIT_NEW_UNALU (cfg, OP_MOVE, s390_r2, val->dreg + 2);
2283                         return;
2284                 }
2285         }
2286
2287         MONO_EMIT_NEW_UNALU (cfg, OP_MOVE, cfg->ret->dreg, val->dreg);
2288 }
2289
2290 /*========================= End of Function ========================*/
2291
2292 /*------------------------------------------------------------------*/
2293 /*                                                                  */
2294 /* Name         - mono_arch_instrument_mem_needs                    */
2295 /*                                                                  */
2296 /* Function     - Allow tracing to work with this interface (with   */
2297 /*                an optional argument).                            */
2298 /*                                                                  */
2299 /*------------------------------------------------------------------*/
2300
2301 void
2302 mono_arch_instrument_mem_needs (MonoMethod *method, int *stack, int *code)
2303 {
2304         /* no stack room needed now (may be needed for FASTCALL-trace support) */
2305         *stack = 0;
2306         /* split prolog-epilog requirements? */
2307         *code = 50; /* max bytes needed: check this number */
2308 }
2309
2310 /*========================= End of Function ========================*/
2311
2312 /*------------------------------------------------------------------*/
2313 /*                                                                  */
2314 /* Name         - mono_arch_instrument_prolog                       */
2315 /*                                                                  */
2316 /* Function     - Create an "instrumented" prolog.                  */
2317 /*                                                                  */
2318 /*------------------------------------------------------------------*/
2319
2320 void*
2321 mono_arch_instrument_prolog (MonoCompile *cfg, void *func, void *p,
2322                              gboolean enable_arguments)
2323 {
2324         guchar  *code = p;
2325         int     parmOffset,
2326                 fpOffset,
2327                 baseReg;
2328
2329         parmOffset = cfg->stack_usage - S390_TRACE_STACK_SIZE;
2330         if (cfg->method->save_lmf)
2331                 parmOffset -= sizeof(MonoLMF);
2332         fpOffset   = parmOffset + (5*sizeof(gint32));
2333         if (fpOffset > 4096) {
2334                 s390_lr (code, s390_r12, STK_BASE);
2335                 baseReg = s390_r12;
2336                 while (fpOffset > 4096) {
2337                         s390_ahi (code, baseReg, 4096);
2338                         fpOffset   -= 4096;
2339                         parmOffset -= 4096;
2340                 }
2341         } else {
2342                 baseReg = STK_BASE;
2343         }
2344
2345         s390_stm  (code, s390_r2, s390_r6, baseReg, parmOffset);
2346         s390_std  (code, s390_f0, 0, baseReg, fpOffset);
2347         s390_std  (code, s390_f1, 0, baseReg, fpOffset+sizeof(gdouble));
2348         s390_std  (code, s390_f2, 0, baseReg, fpOffset+2*sizeof(gdouble));
2349         s390_basr (code, s390_r13, 0);
2350         s390_j    (code, 6);
2351         s390_word (code, cfg->method);
2352         s390_word (code, func);
2353         s390_l    (code, s390_r2, 0, s390_r13, 4);
2354         s390_la   (code, s390_r3, 0, baseReg, parmOffset);
2355         s390_lr   (code, s390_r4, STK_BASE);
2356         s390_ahi  (code, s390_r4, cfg->stack_usage);
2357         s390_l    (code, s390_r1, 0, s390_r13, 8);
2358         s390_basr (code, s390_r14, s390_r1);
2359         s390_ld   (code, s390_f2, 0, baseReg, fpOffset+2*sizeof(gdouble));
2360         s390_ld   (code, s390_f1, 0, baseReg, fpOffset+sizeof(gdouble));
2361         s390_ld   (code, s390_f0, 0, baseReg, fpOffset);
2362         s390_lm   (code, s390_r2, s390_r6, baseReg, parmOffset);
2363
2364         return code;
2365 }
2366
2367 /*========================= End of Function ========================*/
2368
2369 /*------------------------------------------------------------------*/
2370 /*                                                                  */
2371 /* Name         - mono_arch_instrument_epilog                       */
2372 /*                                                                  */
2373 /* Function     - Create an epilog that will handle the returned    */
2374 /*                values used in instrumentation.                   */
2375 /*                                                                  */
2376 /*------------------------------------------------------------------*/
2377
2378 void*
2379 mono_arch_instrument_epilog_full (MonoCompile *cfg, void *func, void *p, gboolean enable_arguments, gboolean preserve_argument_registers)
2380 {
2381         guchar     *code = p;
2382         int        save_mode = SAVE_NONE,
2383                    saveOffset;
2384         MonoMethod *method = cfg->method;
2385         int        rtype = mono_type_get_underlying_type (mono_method_signature (method)->ret)->type;
2386
2387         saveOffset = cfg->stack_usage - S390_TRACE_STACK_SIZE;
2388         if (method->save_lmf)
2389                 saveOffset -= sizeof(MonoLMF);
2390
2391 handle_enum:
2392         switch (rtype) {
2393         case MONO_TYPE_VOID:
2394                 /* special case string .ctor icall */
2395                 if (strcmp (".ctor", method->name) && method->klass == mono_defaults.string_class)
2396                         save_mode = SAVE_ONE;
2397                 else
2398                         save_mode = SAVE_NONE;
2399                 break;
2400         case MONO_TYPE_I8:
2401         case MONO_TYPE_U8:
2402                 save_mode = SAVE_TWO;
2403                 break;
2404         case MONO_TYPE_R4:
2405                 save_mode = SAVE_R4;
2406                 break;
2407         case MONO_TYPE_R8:
2408                 save_mode = SAVE_R8;
2409                 break;
2410         case MONO_TYPE_VALUETYPE:
2411                 if (mono_method_signature (method)->ret->data.klass->enumtype) {
2412                         rtype = mono_class_enum_basetype (mono_method_signature (method)->ret->data.klass)->type;
2413                         goto handle_enum;
2414                 }
2415                 save_mode = SAVE_STRUCT;
2416                 break;
2417         default:
2418                 save_mode = SAVE_ONE;
2419                 break;
2420         }
2421
2422         switch (save_mode) {
2423         case SAVE_TWO:
2424                 s390_stm (code, s390_r2, s390_r3, cfg->frame_reg, saveOffset);
2425                 if (enable_arguments) {
2426                         s390_lr (code, s390_r4, s390_r3);
2427                         s390_lr (code, s390_r3, s390_r2);
2428                 }
2429                 break;
2430         case SAVE_ONE:
2431                 s390_st (code, s390_r2, 0, cfg->frame_reg, saveOffset);
2432                 if (enable_arguments) {
2433                         s390_lr (code, s390_r3, s390_r2);
2434                 }
2435                 break;
2436         case SAVE_R4:
2437                 s390_std (code, s390_f0, 0, cfg->frame_reg, saveOffset);
2438                 if (enable_arguments) {
2439                         s390_ldebr (code, s390_f0, s390_f0);
2440                 }
2441                 break;
2442         case SAVE_R8:
2443                 s390_std (code, s390_f0, 0, cfg->frame_reg, saveOffset);
2444                 break;
2445         case SAVE_STRUCT:
2446                 s390_st (code, s390_r2, 0, cfg->frame_reg, saveOffset);
2447                 if (enable_arguments) {
2448                         s390_l (code, s390_r3, 0, cfg->frame_reg,
2449                                 S390_MINIMAL_STACK_SIZE+cfg->param_area);
2450                 }
2451                 break;
2452         case SAVE_NONE:
2453         default:
2454                 break;
2455         }
2456
2457         s390_basr (code, s390_r13, 0);
2458         s390_j    (code, 6);
2459         s390_word (code, cfg->method);
2460         s390_word (code, func);
2461         s390_l    (code, s390_r2, 0, s390_r13, 4);
2462         s390_l    (code, s390_r1, 0, s390_r13, 8);
2463         s390_basr (code, s390_r14, s390_r1);
2464
2465         switch (save_mode) {
2466         case SAVE_TWO:
2467                 s390_lm  (code, s390_r2, s390_r3, cfg->frame_reg, saveOffset);
2468                 break;
2469         case SAVE_ONE:
2470                 s390_l   (code, s390_r2, 0, cfg->frame_reg, saveOffset);
2471                 break;
2472         case SAVE_R4:
2473         case SAVE_R8:
2474                 s390_ld  (code, s390_f0, 0, cfg->frame_reg, saveOffset);
2475                 break;
2476         case SAVE_STRUCT:
2477                 s390_l   (code, s390_r2, 0, cfg->frame_reg, saveOffset);
2478                 break;
2479         case SAVE_NONE:
2480         default:
2481                 break;
2482         }
2483
2484         return code;
2485 }
2486
2487 /*========================= End of Function ========================*/
2488
2489 void
2490 mono_arch_peephole_pass_1 (MonoCompile *cfg, MonoBasicBlock *bb)
2491 {
2492 }
2493
2494 /*------------------------------------------------------------------*/
2495 /*                                                                  */
2496 /* Name         - mono_arch_peephole_pass                                     */
2497 /*                                                                  */
2498 /* Function     - Form a peephole pass at the code looking for      */
2499 /*                simple optimizations.                             */
2500 /*                                                                  */
2501 /*------------------------------------------------------------------*/
2502
2503 void
2504 mono_arch_peephole_pass_2 (MonoCompile *cfg, MonoBasicBlock *bb)
2505 {
2506         MonoInst *ins, *n;
2507
2508         MONO_BB_FOR_EACH_INS_SAFE (bb, n, ins) {
2509                 mono_peephole_ins (bb, ins);
2510         }
2511 }
2512
2513 /*========================= End of Function ========================*/
2514
2515 void
2516 mono_arch_lowering_pass (MonoCompile *cfg, MonoBasicBlock *bb)
2517 {
2518         MonoInst *ins, *next;
2519
2520         MONO_BB_FOR_EACH_INS_SAFE (bb, next, ins) {
2521                 switch (ins->opcode) {
2522                 case OP_DIV_IMM:
2523                 case OP_REM_IMM:
2524                 case OP_IDIV_IMM:
2525                 case OP_IREM_IMM:
2526                 case OP_IDIV_UN_IMM:
2527                 case OP_IREM_UN_IMM:
2528                 case OP_LOCALLOC_IMM:
2529                         mono_decompose_op_imm (cfg, bb, ins);
2530                         break;
2531                 default:
2532                         break;
2533                 }
2534         }
2535
2536         bb->max_vreg = cfg->next_vreg;
2537 }
2538
2539 /*========================= End of Function ========================*/
2540
2541 /*------------------------------------------------------------------*/
2542 /*                                                                  */
2543 /* Name         - emit_float_to_int                                 */
2544 /*                                                                  */
2545 /* Function     - Create instructions which will convert a floating */
2546 /*                point value to integer.                           */
2547 /*                                                                  */
2548 /*------------------------------------------------------------------*/
2549
2550 static guchar*
2551 emit_float_to_int (MonoCompile *cfg, guchar *code, int dreg, int sreg, int size, gboolean is_signed)
2552 {
2553         /* sreg is a float, dreg is an integer reg. */
2554         if (is_signed) {
2555                 s390_cfdbr (code, dreg, 5, sreg);
2556                 switch (size) {
2557                         case 1:
2558                                 s390_lhi  (code, s390_r0, 0);
2559                                 s390_lhi  (code, s390_r13, 0xff);
2560                                 s390_ltr  (code, dreg, dreg);
2561                                 s390_jnl  (code, 4);
2562                                 s390_lhi  (code, s390_r0, 0x80);
2563                                 s390_nr   (code, dreg, s390_r13);
2564                                 s390_or   (code, dreg, s390_r0);
2565                                 break;
2566                 }
2567         } else {
2568                 short *o[1];
2569                 s390_basr   (code, s390_r13, 0);
2570                 s390_j      (code, 10);
2571                 s390_llong  (code, 0x41e0000000000000LL);
2572                 s390_llong  (code, 0x41f0000000000000LL);
2573                 s390_ldr    (code, s390_f15, sreg);
2574                 s390_cdb    (code, s390_f15, 0, s390_r13, 4);
2575                 s390_jl     (code, 0); CODEPTR(code, o[0]);
2576                 s390_sdb    (code, s390_f15, 0, s390_r13, 12);
2577                 s390_cfdbr  (code, dreg, 7, s390_f15);
2578                 s390_j      (code, 4);
2579                 PTRSLOT(code, o[0]);
2580                 s390_cfdbr  (code, dreg, 5, sreg);
2581                 switch (size) {
2582                         case 1:
2583                                 s390_lhi  (code, s390_r0, 0xff);
2584                                 s390_nr   (code, dreg, s390_r0);
2585                                 break;
2586                         case 2:
2587                                 s390_lhi  (code, s390_r0, -1);
2588                                 s390_srl  (code, s390_r0, 0, 16);
2589                                 s390_nr   (code, dreg, s390_r0);
2590                                 break;
2591                 }
2592         }
2593         return code;
2594 }
2595
2596 /*========================= End of Function ========================*/
2597
2598 /*------------------------------------------------------------------*/
2599 /*                                                                  */
2600 /* Name         - mono_arch_output_basic_block                      */
2601 /*                                                                  */
2602 /* Function     - Perform the "real" work of emitting instructions  */
2603 /*                that will do the work of in the basic block.      */
2604 /*                                                                  */
2605 /*------------------------------------------------------------------*/
2606
2607 void
2608 mono_arch_output_basic_block (MonoCompile *cfg, MonoBasicBlock *bb)
2609 {
2610         MonoInst *ins;
2611         MonoCallInst *call;
2612         guint offset;
2613         guint8 *code = cfg->native_code + cfg->code_len;
2614         MonoInst *last_ins = NULL;
2615         guint last_offset = 0;
2616         int max_len, cpos, src2;
2617
2618         /* we don't align basic blocks of loops on s390 */
2619
2620         if (cfg->verbose_level > 2)
2621                 g_print ("Basic block %d starting at offset 0x%x\n", bb->block_num, bb->native_offset);
2622
2623         cpos = bb->max_offset;
2624
2625         if (cfg->prof_options & MONO_PROFILE_COVERAGE) {
2626                 //MonoCoverageInfo *cov = mono_get_coverage_info (cfg->method);
2627                 //g_assert (!mono_compile_aot);
2628                 //cpos += 6;
2629                 //if (bb->cil_code)
2630                 //      cov->data [bb->dfn].iloffset = bb->cil_code - cfg->cil_code;
2631                 /* this is not thread save, but good enough */
2632                 /* fixme: howto handle overflows? */
2633                 //x86_inc_mem (code, &cov->data [bb->dfn].count);
2634         }
2635
2636         MONO_BB_FOR_EACH_INS (bb, ins) {
2637                 offset = code - cfg->native_code;
2638
2639                 max_len = ((guint8 *)ins_get_spec (ins->opcode))[MONO_INST_LEN];
2640
2641                 if (offset > (cfg->code_size - max_len - 16)) {
2642                         cfg->code_size *= 2;
2643                         cfg->native_code = g_realloc (cfg->native_code, cfg->code_size);
2644                         code = cfg->native_code + offset;
2645                 }
2646
2647                 mono_debug_record_line_number (cfg, ins, offset);
2648
2649                 switch (ins->opcode) {
2650                 case OP_STOREI1_MEMBASE_IMM: {
2651                         s390_lhi (code, s390_r0, ins->inst_imm);
2652                         if (s390_is_uimm12(ins->inst_offset))
2653                                 s390_stc (code, s390_r0, 0, ins->inst_destbasereg, ins->inst_offset);
2654                         else {
2655                                 s390_basr (code, s390_r13, 0);
2656                                 s390_j    (code, 4);
2657                                 s390_word (code, ins->inst_offset);
2658                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
2659                                 s390_stc  (code, s390_r0, s390_r13, ins->inst_destbasereg, 0);
2660                         }
2661                 }
2662                         break;
2663                 case OP_STOREI2_MEMBASE_IMM: {
2664                         s390_lhi (code, s390_r0, ins->inst_imm);
2665                         if (s390_is_uimm12(ins->inst_offset)) {
2666                                 s390_sth (code, s390_r0, 0, ins->inst_destbasereg, ins->inst_offset);
2667                         } else {
2668                                 s390_basr (code, s390_r13, 0);
2669                                 s390_j    (code, 4);
2670                                 s390_word (code, ins->inst_offset);
2671                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
2672                                 s390_sth  (code, s390_r0, s390_r13, ins->inst_destbasereg, 0);
2673                         }
2674                 }
2675                         break;
2676                 case OP_STORE_MEMBASE_IMM:
2677                 case OP_STOREI4_MEMBASE_IMM: {
2678                         if (s390_is_imm16(ins->inst_imm)) {
2679                                 s390_lhi  (code, s390_r0, ins->inst_imm);
2680                         } else {
2681                                 s390_basr (code, s390_r13, 0);
2682                                 s390_j    (code, 4);
2683                                 s390_word (code, ins->inst_imm);
2684                                 s390_l    (code, s390_r0, 0, s390_r13, 4);
2685                         }
2686                         if (s390_is_uimm12(ins->inst_offset)) {
2687                                 s390_st  (code, s390_r0, 0, ins->inst_destbasereg, ins->inst_offset);
2688                         } else {
2689                                 s390_basr (code, s390_r13, 0);
2690                                 s390_j    (code, 4);
2691                                 s390_word (code, ins->inst_offset);
2692                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
2693                                 s390_st   (code, s390_r0, s390_r13, ins->inst_destbasereg, 0);
2694                         }
2695                 }
2696                         break;
2697                 case OP_STOREI1_MEMBASE_REG: {
2698                         if (s390_is_uimm12(ins->inst_offset)) {
2699                                 s390_stc  (code, ins->sreg1, 0, ins->inst_destbasereg, ins->inst_offset);
2700                         } else {
2701                                 s390_basr (code, s390_r13, 0);
2702                                 s390_j    (code, 4);
2703                                 s390_word (code, ins->inst_offset);
2704                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
2705                                 s390_stc  (code, ins->sreg1, s390_r13, ins->inst_destbasereg, 0);
2706                         }
2707                 }
2708                         break;
2709                 case OP_STOREI2_MEMBASE_REG: {
2710                         if (s390_is_uimm12(ins->inst_offset)) {
2711                                 s390_sth  (code, ins->sreg1, 0, ins->inst_destbasereg, ins->inst_offset);
2712                         } else {
2713                                 s390_basr (code, s390_r13, 0);
2714                                 s390_j    (code, 4);
2715                                 s390_word (code, ins->inst_offset);
2716                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
2717                                 s390_sth  (code, ins->sreg1, s390_r13, ins->inst_destbasereg, 0);
2718                         }
2719                 }
2720                         break;
2721                 case OP_STORE_MEMBASE_REG:
2722                 case OP_STOREI4_MEMBASE_REG: {
2723                         if (s390_is_uimm12(ins->inst_offset)) {
2724                                 s390_st   (code, ins->sreg1, 0, ins->inst_destbasereg, ins->inst_offset);
2725                         } else {
2726                                 s390_basr (code, s390_r13, 0);
2727                                 s390_j    (code, 4);
2728                                 s390_word (code, ins->inst_offset);
2729                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
2730                                 s390_st   (code, ins->sreg1, s390_r13, ins->inst_destbasereg, 0);
2731                         }
2732                 }
2733                         break;
2734                 case OP_LOADU4_MEM:
2735                         g_assert_not_reached ();
2736                         break;
2737                 case OP_LOAD_MEMBASE:
2738                 case OP_LOADI4_MEMBASE:
2739                 case OP_LOADU4_MEMBASE: {
2740                         if (s390_is_uimm12(ins->inst_offset))
2741                                 s390_l    (code, ins->dreg, 0, ins->inst_basereg, ins->inst_offset);
2742                         else {
2743                                 if (s390_is_imm16(ins->inst_offset)) {
2744                                         s390_lhi (code, s390_r13, ins->inst_offset);
2745                                         s390_l   (code, ins->dreg, s390_r13, ins->inst_basereg, 0);
2746                                 } else {
2747                                         s390_basr (code, s390_r13, 0);
2748                                         s390_j    (code, 4);
2749                                         s390_word (code, ins->inst_offset);
2750                                         s390_l    (code, s390_r13, 0, s390_r13, 4);
2751                                         s390_l    (code, ins->dreg, s390_r13, ins->inst_basereg, 0);
2752                                 }
2753                         }
2754                 }
2755                         break;
2756                 case OP_LOADU1_MEMBASE: {
2757                         s390_lhi (code, s390_r0, 0);
2758                         if (s390_is_uimm12(ins->inst_offset))
2759                                 s390_ic   (code, s390_r0, 0, ins->inst_basereg, ins->inst_offset);
2760                         else {
2761                                 s390_basr (code, s390_r13, 0);
2762                                 s390_j    (code, 4);
2763                                 s390_word (code, ins->inst_offset);
2764                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
2765                                 s390_ic   (code, s390_r0, s390_r13, ins->inst_basereg, 0);
2766                         }
2767                         s390_lr   (code, ins->dreg, s390_r0);
2768                 }
2769                         break;
2770                 case OP_LOADI1_MEMBASE: {
2771                         s390_lhi (code, s390_r0, 0);
2772                         if (s390_is_uimm12(ins->inst_offset))
2773                                 s390_ic   (code, s390_r0, 0, ins->inst_basereg, ins->inst_offset);
2774                         else {
2775                                 s390_basr (code, s390_r13, 0);
2776                                 s390_j    (code, 4);
2777                                 s390_word (code, ins->inst_offset);
2778                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
2779                                 s390_ic   (code, s390_r0, s390_r13, ins->inst_basereg, 0);
2780                         }
2781                         s390_lhi  (code, s390_r13, 0x80);
2782                         s390_nr   (code, s390_r13, s390_r0);
2783                         s390_jz   (code, 5);
2784                         s390_lhi  (code, s390_r13, 0xff00);
2785                         s390_or   (code, s390_r0, s390_r13);
2786                         s390_lr   (code, ins->dreg, s390_r0);
2787                 }
2788                         break;
2789                 case OP_LOADU2_MEMBASE: {
2790                         s390_lhi (code, s390_r0, 0);
2791                         if (s390_is_uimm12(ins->inst_offset))
2792                                 s390_icm  (code, s390_r0, 3, ins->inst_basereg, ins->inst_offset);
2793                         else {
2794                                 s390_basr (code, s390_r13, 0);
2795                                 s390_j    (code, 4);
2796                                 s390_word (code, ins->inst_offset);
2797                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
2798                                 s390_ar   (code, s390_r13, ins->inst_basereg);
2799                                 s390_icm  (code, s390_r0, 3, s390_r13, 0);
2800                         }
2801                         s390_lr  (code, ins->dreg, s390_r0);
2802                 }
2803                         break;
2804                 case OP_LOADI2_MEMBASE: {
2805                         s390_lhi (code, s390_r0, 0);
2806                         if (s390_is_uimm12(ins->inst_offset))
2807                                 s390_lh   (code, s390_r0, 0, ins->inst_basereg, ins->inst_offset);
2808                         else {
2809                                 s390_basr (code, s390_r13, 0);
2810                                 s390_j    (code, 4);
2811                                 s390_word (code, ins->inst_offset);
2812                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
2813                                 s390_lh   (code, s390_r0, s390_r13, ins->inst_basereg, 0);
2814                         }
2815                         s390_lr  (code, ins->dreg, s390_r0);
2816                 }
2817                         break;
2818
2819                 case OP_ICONV_TO_I1: {
2820                         if (ins->dreg != ins->sreg1)
2821                                 s390_lr   (code, ins->dreg, ins->sreg1);
2822                         s390_sll (code, ins->dreg, 0, 24);
2823                         s390_sra (code, ins->dreg, 0, 24);
2824                 }
2825                         break;
2826                 case OP_ICONV_TO_I2: {
2827                         if (ins->dreg != ins->sreg1)
2828                                 s390_lr   (code, ins->dreg, ins->sreg1);
2829                         s390_sll (code, ins->dreg, 0, 16);
2830                         s390_sra (code, ins->dreg, 0, 16);
2831                 }
2832                         break;
2833                 case OP_ICONV_TO_U1: {
2834                         s390_lhi  (code, s390_r0, 0xff);
2835                         if (ins->dreg != ins->sreg1) {
2836                                 s390_lr   (code, ins->dreg, ins->sreg1);
2837                         }
2838                         s390_nr   (code, ins->dreg, s390_r0);
2839                 }
2840                         break;
2841                 case OP_ICONV_TO_U2: {
2842                         s390_lhi  (code, s390_r0, -1);
2843                         s390_sll  (code, s390_r0, 0, 16);
2844                         s390_srl  (code, s390_r0, 0, 16);
2845                         if (ins->dreg != ins->sreg1) {
2846                                 s390_lr   (code, ins->dreg, ins->sreg1);
2847                         }
2848                         s390_nr   (code, ins->dreg, s390_r0);
2849                 }
2850                         break;
2851                 case OP_COMPARE:
2852                 case OP_ICOMPARE: {
2853                         gboolean un = FALSE;
2854                         MonoInst *next = ins->next;
2855
2856                         if ((next) &&
2857                             (((next->opcode >= OP_IBNE_UN) &&
2858                               (next->opcode <= OP_IBLT_UN)) ||
2859                              ((next->opcode >= OP_COND_EXC_NE_UN) &&
2860                               (next->opcode <= OP_COND_EXC_LT_UN)) ||
2861                              ((next->opcode >= OP_COND_EXC_INE_UN) &&
2862                               (next->opcode <= OP_COND_EXC_ILT_UN)) ||
2863                              ((next->opcode == OP_CLT_UN) ||
2864                               (next->opcode == OP_CGT_UN)) ||
2865                              ((next->opcode == OP_ICLT_UN) ||
2866                               (next->opcode == OP_ICGT_UN))))
2867                                 un = TRUE;
2868
2869                         if (un)
2870                                 s390_clr  (code, ins->sreg1, ins->sreg2);
2871                         else
2872                                 s390_cr   (code, ins->sreg1, ins->sreg2);
2873                 }
2874                         break;
2875                 case OP_COMPARE_IMM:
2876                 case OP_ICOMPARE_IMM: {
2877                         gboolean un = FALSE;
2878                         MonoInst *next = ins->next;
2879
2880                         if ((next) &&
2881                             (((next->opcode >= OP_IBNE_UN) &&
2882                               (next->opcode <= OP_IBLT_UN)) ||
2883                              ((next->opcode >= OP_COND_EXC_NE_UN) &&
2884                               (next->opcode <= OP_COND_EXC_LT_UN)) ||
2885                              ((next->opcode >= OP_COND_EXC_INE_UN) &&
2886                               (next->opcode <= OP_COND_EXC_ILT_UN)) ||
2887                              ((next->opcode == OP_CLT_UN) ||
2888                               (next->opcode == OP_CGT_UN)) ||
2889                              ((next->opcode == OP_ICLT_UN) ||
2890                               (next->opcode == OP_ICGT_UN))))
2891                                 un = TRUE;
2892
2893                         if (s390_is_imm16 (ins->inst_imm)) {
2894                                 s390_lhi  (code, s390_r0, ins->inst_imm);
2895                                 if (un)
2896                                         s390_clr  (code, ins->sreg1, s390_r0);
2897                                 else
2898                                         s390_cr   (code, ins->sreg1, s390_r0);
2899                         }
2900                         else {
2901                                 s390_basr (code, s390_r13, 0);
2902                                 s390_j    (code, 4);
2903                                 s390_word (code, ins->inst_imm);
2904                                 if (un)
2905                                         s390_cl   (code, ins->sreg1, 0, s390_r13, 4);
2906                                 else
2907                                         s390_c    (code, ins->sreg1, 0, s390_r13, 4);
2908                         }
2909                 }
2910                         break;
2911                 case OP_BREAK: {
2912                         mono_add_patch_info (cfg, offset, MONO_PATCH_INFO_ABS, mono_break);
2913                         s390_brasl (code, s390_r14, 0);
2914                 }
2915                         break;
2916                 case OP_ADDCC:
2917                 case OP_IADDCC: {
2918                         CHECK_SRCDST_COM;
2919                         s390_alr  (code, ins->dreg, src2);
2920                 }
2921                         break;
2922                 case OP_IADD: {
2923                         CHECK_SRCDST_COM;
2924                         s390_ar   (code, ins->dreg, src2);
2925                 }
2926                         break;
2927                 case OP_ADC:
2928                 case OP_IADC: {
2929                         CHECK_SRCDST_COM;
2930                         s390_alcr (code, ins->dreg, src2);
2931                 }
2932                         break;
2933                 case OP_ADD_IMM:
2934                 case OP_IADD_IMM: {
2935                         if (ins->dreg != ins->sreg1) {
2936                                 s390_lr   (code, ins->dreg, ins->sreg1);
2937                         }
2938                         if ((ins->next) &&
2939                             (ins->next->opcode == OP_ADC_IMM)) {
2940                                 s390_basr (code, s390_r13, 0);
2941                                 s390_j    (code, 4);
2942                                 s390_word (code, ins->inst_imm);
2943                                 s390_a (code, ins->dreg, 0, s390_r13, 4);
2944                         } else {
2945                                 if (s390_is_imm16 (ins->inst_imm)) {
2946                                         s390_ahi  (code, ins->dreg, ins->inst_imm);
2947                                 } else {
2948                                         s390_basr (code, s390_r13, 0);
2949                                         s390_j    (code, 4);
2950                                         s390_word (code, ins->inst_imm);
2951                                         s390_a (code, ins->dreg, 0, s390_r13, 4);
2952                                 }
2953                         }
2954                 }
2955                         break;
2956                 case OP_ADDCC_IMM: {
2957                         if ((ins->next) &&
2958                             (ins->next->opcode == OP_ADC_IMM)) {
2959                                 s390_basr (code, s390_r13, 0);
2960                                 s390_j    (code, 4);
2961                                 s390_word (code, ins->inst_imm);
2962                                 if (ins->dreg != ins->sreg1) {
2963                                         s390_lr   (code, ins->dreg, ins->sreg1);
2964                                 }
2965                                 s390_al   (code, ins->dreg, 0, s390_r13, 4);
2966                         } else {
2967                                 if (s390_is_imm16 (ins->inst_imm)) {
2968                                         if (ins->dreg != ins->sreg1) {
2969                                                 s390_lr   (code, ins->dreg, ins->sreg1);
2970                                         }
2971                                         s390_lhi  (code, s390_r0, ins->inst_imm);
2972                                         s390_alcr (code, ins->dreg, s390_r0);
2973                                 } else {
2974                                         s390_basr (code, s390_r13, 0);
2975                                         s390_j    (code, 4);
2976                                         s390_word (code, ins->inst_imm);
2977                                         if (ins->dreg != ins->sreg1) {
2978                                                 s390_lr   (code, ins->dreg, ins->sreg1);
2979                                         }
2980                                         s390_al   (code, ins->dreg, 0, s390_r13, 4);
2981                                 }
2982                         }
2983                 }
2984                         break;
2985                 case OP_ADC_IMM: {
2986                         if (s390_is_imm16 (ins->inst_imm)) {
2987                                 if (ins->dreg != ins->sreg1) {
2988                                         s390_lr   (code, ins->dreg, ins->sreg1);
2989                                 }
2990                                 s390_lhi  (code, s390_r0, ins->inst_imm);
2991                                 s390_alcr (code, ins->dreg, s390_r0);
2992                         } else {
2993                                 s390_basr (code, s390_r13, 0);
2994                                 s390_j    (code, 4);
2995                                 s390_word (code, ins->inst_imm);
2996                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
2997                                 s390_alcr (code, ins->dreg, s390_r13);
2998                         }
2999                 }
3000                         break;
3001                 case OP_IADD_OVF:
3002                 case OP_S390_IADD_OVF: {
3003                         CHECK_SRCDST_COM;
3004                         s390_ar   (code, ins->dreg, src2);
3005                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_OV, "OverflowException");
3006                 }
3007                         break;
3008                 case OP_IADD_OVF_UN:
3009                 case OP_S390_IADD_OVF_UN: {
3010                         CHECK_SRCDST_COM;
3011                         s390_alr  (code, ins->dreg, src2);
3012                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_CY, "OverflowException");
3013                 }
3014                         break;
3015                 case OP_LADD:
3016                 case OP_S390_LADD: {
3017                         s390_alr  (code, s390_r0, ins->sreg1);
3018                         s390_jnc  (code, 4);
3019                         s390_ahi  (code, s390_r1, 1);
3020                         s390_ar   (code, s390_r1, ins->sreg2);
3021                         s390_lr   (code, ins->dreg, s390_r0);
3022                         s390_lr   (code, ins->dreg+1, s390_r1);
3023                 }
3024                         break;
3025                 case OP_LADD_OVF:
3026                 case OP_S390_LADD_OVF: {
3027                         short int *o[1];
3028                         s390_alr  (code, s390_r0, ins->sreg1);
3029                         s390_jnc  (code, 0); CODEPTR(code, o[0]);
3030                         s390_ahi  (code, s390_r1, 1);
3031                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_OV, "OverflowException");
3032                         PTRSLOT   (code, o[0]);
3033                         s390_ar   (code, s390_r1, ins->sreg2);
3034                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_OV, "OverflowException");
3035                         s390_lr   (code, ins->dreg, s390_r0);
3036                         s390_lr   (code, ins->dreg+1, s390_r1);
3037                 }
3038                         break;
3039                 case OP_LADD_OVF_UN:
3040                 case OP_S390_LADD_OVF_UN: {
3041                         s390_alr  (code, s390_r0, ins->sreg1);
3042                         s390_alcr (code, s390_r1, ins->sreg2);
3043                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_CY, "OverflowException");
3044                         s390_lr   (code, ins->dreg, s390_r0);
3045                         s390_lr   (code, ins->dreg+1, s390_r1);
3046                 }
3047                         break;
3048                 case OP_ADD_OVF_CARRY: {
3049                         CHECK_SRCDST_COM;
3050                         s390_lhi  (code, s390_r0, 0);
3051                         s390_lr   (code, s390_r1, s390_r0);
3052                         s390_alcr (code, s390_r0, s390_r1);
3053                         s390_ar   (code, ins->dreg, src2);
3054                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_OV, "OverflowException");
3055                         s390_ar   (code, ins->dreg, s390_r0);
3056                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_OV, "OverflowException");
3057                 }
3058                         break;
3059                 case OP_ADD_OVF_UN_CARRY: {
3060                         CHECK_SRCDST_COM;
3061                         s390_alcr (code, ins->dreg, src2);
3062                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_CY, "OverflowException");
3063                 }
3064                         break;
3065                 case OP_SUBCC:
3066                 case OP_ISUBCC: {
3067                         CHECK_SRCDST_NCOM;
3068                         s390_slr (code, ins->dreg, src2);
3069                 }
3070                         break;
3071                 case OP_ISUB: {
3072                         CHECK_SRCDST_NCOM;
3073                         s390_sr   (code, ins->dreg, src2);
3074                 }
3075                         break;
3076                 case OP_SBB:
3077                 case OP_ISBB: {
3078                         CHECK_SRCDST_NCOM;
3079                         s390_slbr (code, ins->dreg, src2);
3080                 }
3081                         break;
3082                 case OP_SUBCC_IMM: {
3083                         if (s390_is_imm16 (-ins->inst_imm)) {
3084                                 if (ins->dreg != ins->sreg1) {
3085                                         s390_lr   (code, ins->dreg, ins->sreg1);
3086                                 }
3087                                 s390_lhi  (code, s390_r0, ins->inst_imm);
3088                                 s390_slr  (code, ins->dreg, s390_r0);
3089                         } else {
3090                                 s390_basr (code, s390_r13, 0);
3091                                 s390_j    (code, 4);
3092                                 s390_word (code, ins->inst_imm);
3093                                 if (ins->dreg != ins->sreg1) {
3094                                         s390_lr   (code, ins->dreg, ins->sreg1);
3095                                 }
3096                                 s390_sl   (code, ins->dreg, 0, s390_r13, 4);
3097                         }
3098                 }
3099                         break;
3100                 case OP_SUB_IMM:
3101                 case OP_ISUB_IMM: {
3102                         if (s390_is_imm16 (-ins->inst_imm)) {
3103                                 if (ins->dreg != ins->sreg1) {
3104                                         s390_lr   (code, ins->dreg, ins->sreg1);
3105                                 }
3106                                 s390_ahi  (code, ins->dreg, -ins->inst_imm);
3107                         } else {
3108                                 s390_basr (code, s390_r13, 0);
3109                                 s390_j    (code, 4);
3110                                 s390_word (code, ins->inst_imm);
3111                                 if (ins->dreg != ins->sreg1) {
3112                                         s390_lr   (code, ins->dreg, ins->sreg1);
3113                                 }
3114                                 s390_s    (code, ins->dreg, 0, s390_r13, 4);
3115                         }
3116                 }
3117                         break;
3118                 case OP_SBB_IMM: {
3119                         if (ins->dreg != ins->sreg1) {
3120                                 s390_lr    (code, ins->dreg, ins->sreg1);
3121                         }
3122                         if (s390_is_imm16 (-ins->inst_imm)) {
3123                                 s390_lhi   (code, s390_r0, ins->inst_imm);
3124                                 s390_slbr  (code, ins->dreg, s390_r0);
3125                         } else {
3126                                 s390_basr (code, s390_r13, 0);
3127                                 s390_j    (code, 4);
3128                                 s390_word (code, ins->inst_imm);
3129                                 s390_slb  (code, ins->dreg, 0, s390_r13, 4);
3130                         }
3131                 }
3132                         break;
3133                 case OP_ISUB_OVF:
3134                 case OP_S390_ISUB_OVF: {
3135                         CHECK_SRCDST_NCOM;
3136                         s390_sr   (code, ins->dreg, src2);
3137                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_OV, "OverflowException");
3138                 }
3139                         break;
3140                 case OP_ISUB_OVF_UN:
3141                 case OP_S390_ISUB_OVF_UN: {
3142                         CHECK_SRCDST_NCOM;
3143                         s390_slr  (code, ins->dreg, src2);
3144                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_NC, "OverflowException");
3145                 }
3146                         break;
3147                 case OP_LSUB:
3148                 case OP_S390_LSUB: {
3149                         s390_lr   (code, s390_r14, ins->sreg2);
3150                         s390_slr  (code, s390_r0, ins->sreg1);
3151                         s390_jnl  (code, 4);
3152                         s390_ahi  (code, s390_r14, 1);
3153                         s390_sr   (code, s390_r1, s390_r14);
3154                         s390_lr   (code, ins->dreg, s390_r0);
3155                         s390_lr   (code, ins->dreg+1, s390_r1);
3156                 }
3157                         break;
3158                 case OP_LSUB_OVF:
3159                 case OP_S390_LSUB_OVF: {
3160                         short int *o[1];
3161                         s390_lr   (code, s390_r14, ins->sreg2);
3162                         s390_slr  (code, s390_r0, ins->sreg1);
3163                         s390_jnl  (code, 0); CODEPTR(code, o[0]);
3164                         s390_ahi  (code, s390_r14, 1);
3165                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_OV, "OverflowException");
3166                         PTRSLOT   (code, o[0]);
3167                         s390_sr   (code, s390_r1, s390_r14);
3168                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_OV, "OverflowException");
3169                         s390_lr   (code, ins->dreg, s390_r0);
3170                         s390_lr   (code, ins->dreg+1, s390_r1);
3171                 }
3172                         break;
3173                 case OP_LSUB_OVF_UN:
3174                 case OP_S390_LSUB_OVF_UN: {
3175                         s390_slr  (code, s390_r0, ins->sreg1);
3176                         s390_slbr (code, s390_r1, ins->sreg2);
3177                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_LT, "OverflowException");
3178                         s390_lr   (code, ins->dreg, s390_r0);
3179                         s390_lr   (code, ins->dreg+1, s390_r1);
3180                 }
3181                         break;
3182                 case OP_SUB_OVF_CARRY: {
3183                         CHECK_SRCDST_NCOM;
3184                         s390_lhi  (code, s390_r0, 0);
3185                         s390_lr   (code, s390_r1, s390_r0);
3186                         s390_slbr (code, s390_r0, s390_r1);
3187                         s390_sr   (code, ins->dreg, src2);
3188                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_OV, "OverflowException");
3189                         s390_ar   (code, ins->dreg, s390_r0);
3190                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_OV, "OverflowException");
3191                 }
3192                         break;
3193                 case OP_SUB_OVF_UN_CARRY: {
3194                         CHECK_SRCDST_NCOM;
3195                         s390_slbr (code, ins->dreg, src2);
3196                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_NC, "OverflowException");
3197                 }
3198                         break;
3199                 case OP_IAND: {
3200                         if (ins->sreg1 == ins->dreg) {
3201                                 s390_nr   (code, ins->dreg, ins->sreg2);
3202                         }
3203                         else {
3204                                 if (ins->sreg2 == ins->dreg) {
3205                                         s390_nr  (code, ins->dreg, ins->sreg1);
3206                                 }
3207                                 else {
3208                                         s390_lr  (code, ins->dreg, ins->sreg1);
3209                                         s390_nr  (code, ins->dreg, ins->sreg2);
3210                                 }
3211                         }
3212                 }
3213                         break;
3214                 case OP_AND_IMM:
3215                 case OP_IAND_IMM: {
3216                         if (s390_is_imm16 (ins->inst_imm)) {
3217                                 s390_lhi  (code, s390_r0, ins->inst_imm);
3218                                 if (ins->dreg != ins->sreg1) {
3219                                         s390_lr   (code, ins->dreg, ins->sreg1);
3220                                 }
3221                                 s390_nr   (code, ins->dreg, s390_r0);
3222                         } else {
3223                                 s390_basr (code, s390_r13, 0);
3224                                 s390_j    (code, 4);
3225                                 s390_word (code, ins->inst_imm);
3226                                 if (ins->dreg != ins->sreg1) {
3227                                         s390_lr   (code, ins->dreg, ins->sreg1);
3228                                 }
3229                                 s390_n    (code, ins->dreg, 0, s390_r13, 4);
3230                         }
3231                 }
3232                         break;
3233                 case OP_IDIV: {
3234                         s390_lr   (code, s390_r0, ins->sreg1);
3235                         s390_srda (code, s390_r0, 0, 32);
3236                         s390_dr   (code, s390_r0, ins->sreg2);
3237                         s390_lr   (code, ins->dreg, s390_r1);
3238                 }
3239                         break;
3240                 case OP_IDIV_UN: {
3241                         s390_lr   (code, s390_r0, ins->sreg1);
3242                         s390_srdl (code, s390_r0, 0, 32);
3243                         s390_dlr  (code, s390_r0, ins->sreg2);
3244                         s390_lr   (code, ins->dreg, s390_r1);
3245                 }
3246                         break;
3247                 case OP_IREM: {
3248                         s390_lr   (code, s390_r0, ins->sreg1);
3249                         s390_srda (code, s390_r0, 0, 32);
3250                         s390_dr   (code, s390_r0, ins->sreg2);
3251                         s390_lr   (code, ins->dreg, s390_r0);
3252                         break;
3253                 case OP_IREM_UN:
3254                         s390_lr   (code, s390_r0, ins->sreg1);
3255                         s390_srdl (code, s390_r0, 0, 32);
3256                         s390_dlr  (code, s390_r0, ins->sreg2);
3257                         s390_lr   (code, ins->dreg, s390_r0);
3258                 }
3259                         break;
3260                 case OP_IOR: {
3261                         if (ins->sreg1 == ins->dreg) {
3262                                 s390_or   (code, ins->dreg, ins->sreg2);
3263                         }
3264                         else {
3265                                 if (ins->sreg2 == ins->dreg) {
3266                                         s390_or  (code, ins->dreg, ins->sreg1);
3267                                 }
3268                                 else {
3269                                         s390_lr  (code, ins->dreg, ins->sreg1);
3270                                         s390_or  (code, ins->dreg, ins->sreg2);
3271                                 }
3272                         }
3273                 }
3274                         break;
3275                 case OP_OR_IMM:
3276                 case OP_IOR_IMM: {
3277                         if (s390_is_imm16 (ins->inst_imm)) {
3278                                 s390_lhi  (code, s390_r0, ins->inst_imm);
3279                                 if (ins->dreg != ins->sreg1) {
3280                                         s390_lr   (code, ins->dreg, ins->sreg1);
3281                                 }
3282                                 s390_or   (code, ins->dreg, s390_r0);
3283                         } else {
3284                                 s390_basr (code, s390_r13, 0);
3285                                 s390_j    (code, 4);
3286                                 s390_word (code, ins->inst_imm);
3287                                 if (ins->dreg != ins->sreg1) {
3288                                         s390_lr   (code, ins->dreg, ins->sreg1);
3289                                 }
3290                                 s390_o    (code, ins->dreg, 0, s390_r13, 4);
3291                         }
3292                 }
3293                         break;
3294                 case OP_IXOR: {
3295                         if (ins->sreg1 == ins->dreg) {
3296                                 s390_xr   (code, ins->dreg, ins->sreg2);
3297                         }
3298                         else {
3299                                 if (ins->sreg2 == ins->dreg) {
3300                                         s390_xr  (code, ins->dreg, ins->sreg1);
3301                                 }
3302                                 else {
3303                                         s390_lr  (code, ins->dreg, ins->sreg1);
3304                                         s390_xr  (code, ins->dreg, ins->sreg2);
3305                                 }
3306                         }
3307                 }
3308                         break;
3309                 case OP_XOR_IMM:
3310                 case OP_IXOR_IMM: {
3311                         if (s390_is_imm16 (ins->inst_imm)) {
3312                                 s390_lhi  (code, s390_r0, ins->inst_imm);
3313                                 if (ins->dreg != ins->sreg1) {
3314                                         s390_lr   (code, ins->dreg, ins->sreg1);
3315                                 }
3316                                 s390_xr   (code, ins->dreg, s390_r0);
3317                         } else {
3318                                 s390_basr (code, s390_r13, 0);
3319                                 s390_j    (code, 4);
3320                                 s390_word (code, ins->inst_imm);
3321                                 if (ins->dreg != ins->sreg1) {
3322                                         s390_lr   (code, ins->dreg, ins->sreg1);
3323                                 }
3324                                 s390_x    (code, ins->dreg, 0, s390_r13, 4);
3325                         }
3326                 }
3327                         break;
3328                 case OP_ISHL: {
3329                         CHECK_SRCDST_NCOM;
3330                         s390_sll  (code, ins->dreg, src2, 0);
3331                 }
3332                         break;
3333                 case OP_SHL_IMM:
3334                 case OP_ISHL_IMM: {
3335                         if (ins->sreg1 != ins->dreg) {
3336                                 s390_lr   (code, ins->dreg, ins->sreg1);
3337                         }
3338                         s390_sll  (code, ins->dreg, 0, (ins->inst_imm & 0x1f));
3339                 }
3340                         break;
3341                 case OP_ISHR: {
3342                         CHECK_SRCDST_NCOM;
3343                         s390_sra  (code, ins->dreg, src2, 0);
3344                 }
3345                         break;
3346                 case OP_SHR_IMM:
3347                 case OP_ISHR_IMM: {
3348                         if (ins->sreg1 != ins->dreg) {
3349                                 s390_lr   (code, ins->dreg, ins->sreg1);
3350                         }
3351                         s390_sra  (code, ins->dreg, 0, (ins->inst_imm & 0x1f));
3352                 }
3353                         break;
3354                 case OP_SHR_UN_IMM:
3355                 case OP_ISHR_UN_IMM: {
3356                         if (ins->sreg1 != ins->dreg) {
3357                                 s390_lr   (code, ins->dreg, ins->sreg1);
3358                         }
3359                         s390_srl  (code, ins->dreg, 0, (ins->inst_imm & 0x1f));
3360                 }
3361                         break;
3362                 case OP_ISHR_UN: {
3363                         CHECK_SRCDST_NCOM;
3364                         s390_srl  (code, ins->dreg, src2, 0);
3365                 }
3366                         break;
3367                 case OP_INOT: {
3368                         if (ins->sreg1 != ins->dreg) {
3369                                 s390_lr   (code, ins->dreg, ins->sreg1);
3370                         }
3371                         s390_lhi (code, s390_r0, -1);
3372                         s390_xr  (code, ins->dreg, s390_r0);
3373                 }
3374                         break;
3375                 case OP_INEG: {
3376                         s390_lcr (code, ins->dreg, ins->sreg1);
3377                 }
3378                         break;
3379                 case OP_S390_LNEG: {
3380                         /* From gcc code */
3381                         g_assert (ins->dreg + 1 != ins->sreg1);
3382                         s390_lcr (code, ins->dreg + 1, ins->sreg2);
3383                         s390_lcr (code, ins->dreg, ins->sreg1);
3384                         s390_je (code, 3);
3385                         s390_bctr (code, ins->dreg + 1, 0);
3386                 }
3387                         break;
3388                 case OP_IMUL: {
3389                         if (ins->sreg1 == ins->dreg) {
3390                                 s390_msr  (code, ins->dreg, ins->sreg2);
3391                         }
3392                         else {
3393                                 if (ins->sreg2 == ins->dreg) {
3394                                         s390_msr (code, ins->dreg, ins->sreg1);
3395                                 }
3396                                 else {
3397                                         s390_lr  (code, ins->dreg, ins->sreg1);
3398                                         s390_msr (code, ins->dreg, ins->sreg2);
3399                                 }
3400                         }
3401                 }
3402                         break;
3403                 case OP_MUL_IMM:
3404                 case OP_IMUL_IMM: {
3405                         if (s390_is_imm16 (ins->inst_imm)) {
3406                                 s390_lhi  (code, s390_r13, ins->inst_imm);
3407                         } else {
3408                                 s390_basr (code, s390_r13, 0);
3409                                 s390_j    (code, 4);
3410                                 s390_word (code, ins->inst_imm);
3411 //                              if (ins->dreg != ins->sreg1) {
3412 //                                      s390_lr   (code, ins->dreg, ins->sreg1);
3413 //                              }
3414                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
3415                         }
3416                         if (ins->dreg != ins->sreg1) {
3417                                 s390_lr   (code, ins->dreg, ins->sreg1);
3418                         }
3419                         s390_msr  (code, ins->dreg, s390_r13);
3420                 }
3421                         break;
3422                 case OP_IMUL_OVF: {
3423                         short int *o[2];
3424                         s390_ltr  (code, s390_r1, ins->sreg1);
3425                         s390_jz   (code, 0); CODEPTR(code, o[0]);
3426                         s390_ltr  (code, s390_r0, ins->sreg2);
3427                         s390_jnz  (code, 6);
3428                         s390_lhi  (code, s390_r1, 0);
3429                         s390_j    (code, 0); CODEPTR(code, o[1]);
3430                         s390_xr   (code, s390_r0, s390_r1);
3431                         s390_msr  (code, s390_r1, ins->sreg2);
3432                         s390_xr   (code, s390_r0, s390_r1);
3433                         s390_srl  (code, s390_r0, 0, 31);
3434                         s390_ltr  (code, s390_r0, s390_r0);
3435                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_NZ, "OverflowException");
3436                         PTRSLOT   (code, o[0]);
3437                         PTRSLOT   (code, o[1]);
3438                         s390_lr   (code, ins->dreg, s390_r1);
3439                 }
3440                         break;
3441                 case OP_IMUL_OVF_UN: {
3442                         s390_lhi  (code, s390_r0, 0);
3443                         s390_lr   (code, s390_r1, ins->sreg1);
3444                         s390_mlr  (code, s390_r0, ins->sreg2);
3445                         s390_ltr  (code, s390_r0, s390_r0);
3446                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_NZ, "OverflowException");
3447                         s390_lr   (code, ins->dreg, s390_r1);
3448                 }
3449                         break;
3450                 case OP_LMUL: {
3451                         s390_l    (code, s390_r0, 0, ins->sreg1, 4);
3452                         s390_srda (code, s390_r0, 0, 32);
3453                         s390_m    (code, s390_r0, 0, ins->sreg2, 4);
3454                         s390_l    (code, s390_r0, 0, ins->sreg1, 4);
3455                         s390_srl  (code, s390_r0, 0, 31);
3456                         s390_a    (code, s390_r0, 0, ins->sreg1, 0);
3457                         s390_l    (code, s390_r13, 0, ins->sreg2, 0);
3458                         s390_srl  (code, s390_r13, 0, 31);
3459                         s390_ms   (code, s390_r13, 0, ins->sreg1, 4);
3460                         s390_ar   (code, s390_r0, s390_r13);
3461                         s390_st   (code, s390_r0, 0, ins->dreg, 0);
3462                         s390_st   (code, s390_r1, 0, ins->dreg, 4);
3463                 }
3464                         break;
3465                 case OP_ICONST: {
3466                         if (s390_is_imm16(ins->inst_c0)) {
3467                                 s390_lhi  (code, ins->dreg, ins->inst_c0);
3468                         } else {
3469                                 s390_basr (code, s390_r13, 0);
3470                                 s390_j    (code, 4);
3471                                 s390_word (code, ins->inst_c0);
3472                                 s390_l    (code, ins->dreg, 0, s390_r13, 4);
3473                         }
3474                 }
3475                         break;
3476                 case OP_AOTCONST: {
3477                         s390_basr (code, s390_r13, 0);
3478                         s390_j    (code, 4);
3479                         mono_add_patch_info (cfg, code - cfg->native_code,
3480                                 (MonoJumpInfoType)ins->inst_i1, ins->inst_p0);
3481                         s390_word (code, 0);
3482                         s390_l    (code,ins->dreg, 0, s390_r13, 4);
3483                 }
3484                         break;
3485                 case OP_JUMP_TABLE: {
3486                         mono_add_patch_info (cfg, code - cfg->native_code,
3487                                 (MonoJumpInfoType)ins->inst_i1, ins->inst_p0);
3488                         s390_basr (code, s390_r13, 0);
3489                         s390_j    (code, 4);
3490                         s390_word (code, 0);
3491                         s390_l    (code, ins->dreg, 0, s390_r13, 4);
3492                 }
3493                         break;
3494                 case OP_ICONV_TO_I4:
3495                 case OP_ICONV_TO_U4:
3496                 case OP_MOVE: {
3497                         if (ins->dreg != ins->sreg1) {
3498                                 s390_lr (code, ins->dreg, ins->sreg1);
3499                         }
3500                 }
3501                         break;
3502                 case OP_SETLRET: {
3503                         int saved = ins->sreg1;
3504                         if (ins->sreg1 == s390_r2) {
3505                                 s390_lr (code, s390_r0, ins->sreg1);
3506                                 saved = s390_r0;
3507                         }
3508                         if (ins->sreg2 != s390_r2)
3509                                 s390_lr (code, s390_r2, ins->sreg2);
3510                         if (saved != s390_r3)
3511                                 s390_lr (code, s390_r3, saved);
3512                         break;
3513                 }
3514                 case OP_FMOVE: {
3515                         if (ins->dreg != ins->sreg1) {
3516                                 s390_ldr   (code, ins->dreg, ins->sreg1);
3517                         }
3518                 }
3519                         break;
3520                 case OP_S390_SETF4RET: {
3521                         s390_ledbr (code, ins->dreg, ins->sreg1);
3522                 }
3523                         break;
3524                 case OP_TLS_GET: {
3525                         if (s390_is_imm16 (ins->inst_offset)) {
3526                                 s390_lhi (code, s390_r13, ins->inst_offset);
3527                         } else {
3528                                 s390_bras (code, s390_r13, 0);
3529                                 s390_j    (code, 4);
3530                                 s390_word (code, ins->inst_offset);
3531                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
3532                         }
3533                         s390_ear (code, s390_r1, 0);
3534                         s390_l   (code, ins->dreg, s390_r13, s390_r1, 0);
3535                 }
3536                         break;
3537                 case OP_FCONV_TO_R4: {
3538                         // FIXME:
3539                         if (ins->dreg != ins->sreg1) {
3540                                 s390_ldr   (code, ins->dreg, ins->sreg1);
3541                         }
3542                         /*
3543                         NOT_IMPLEMENTED;
3544                         if ((ins->next) &&
3545                              (ins->next->opcode != OP_FMOVE) &&
3546                              (ins->next->opcode != OP_STORER4_MEMBASE_REG))
3547                                 s390_ledbr (code, ins->dreg, ins->sreg1);
3548                         */
3549                 }
3550                         break;
3551                 case OP_JMP: {
3552                         if (cfg->method->save_lmf)
3553                                 restoreLMF(code, cfg->frame_reg, cfg->stack_usage);
3554
3555                         if (cfg->flags & MONO_CFG_HAS_TAIL) {
3556                                 code = emit_load_volatile_registers(code, cfg);
3557                         }
3558
3559                         code = backUpStackPtr(cfg, code, STK_BASE);
3560                         s390_l   (code, s390_r14, 0, STK_BASE, S390_RET_ADDR_OFFSET);
3561                         mono_add_patch_info (cfg, code - cfg->native_code,
3562                                              MONO_PATCH_INFO_METHOD_JUMP,
3563                                              ins->inst_p0);
3564                         s390_jcl (code, S390_CC_UN, 0);
3565                 }
3566                         break;
3567                 case OP_CHECK_THIS: {
3568                         /* ensure ins->sreg1 is not NULL */
3569                         s390_icm (code, s390_r0, 15, ins->sreg1, 0);
3570                 }
3571                         break;
3572                 case OP_ARGLIST: {
3573                         int offset = cfg->sig_cookie + cfg->stack_usage;
3574
3575                         if (s390_is_imm16 (offset))
3576                                 s390_lhi  (code, s390_r0, offset);
3577                         else {
3578                                 s390_basr (code, s390_r13, 0);
3579                                 s390_j    (code, 4);
3580                                 s390_word (code, offset);
3581                                 s390_l    (code, s390_r0, 0, s390_r13, 0);
3582                         }
3583                         s390_ar   (code, s390_r0, cfg->frame_reg);
3584                         s390_st   (code, s390_r0, 0, ins->sreg1, 0);
3585                 }
3586                         break;
3587                 case OP_FCALL: {
3588                         call = (MonoCallInst*)ins;
3589                         if (ins->flags & MONO_INST_HAS_METHOD)
3590                                 mono_add_patch_info (cfg, offset, MONO_PATCH_INFO_METHOD,
3591                                                      call->method);
3592                         else
3593                                 mono_add_patch_info (cfg, offset, MONO_PATCH_INFO_ABS,
3594                                                      call->fptr);
3595                         s390_brasl (code, s390_r14, 0);
3596                         if (call->signature->ret->type == MONO_TYPE_R4)
3597                                 s390_ldebr (code, s390_f0, s390_f0);
3598                 }
3599                         break;
3600                 case OP_LCALL:
3601                 case OP_VCALL:
3602                 case OP_VCALL2:
3603                 case OP_VOIDCALL:
3604                 case OP_CALL: {
3605                         call = (MonoCallInst*)ins;
3606                         if (ins->flags & MONO_INST_HAS_METHOD)
3607                                 mono_add_patch_info (cfg, offset, MONO_PATCH_INFO_METHOD, call->method);
3608                         else
3609                                 mono_add_patch_info (cfg, offset, MONO_PATCH_INFO_ABS, call->fptr);
3610                         s390_brasl (code, s390_r14, 0);
3611                 }
3612                         break;
3613                 case OP_FCALL_REG: {
3614                         call = (MonoCallInst*)ins;
3615                         s390_lr   (code, s390_r1, ins->sreg1);
3616                         s390_basr (code, s390_r14, s390_r1);
3617                         if (call->signature->ret->type == MONO_TYPE_R4)
3618                                 s390_ldebr (code, s390_f0, s390_f0);
3619                 }
3620                         break;
3621                 case OP_LCALL_REG:
3622                 case OP_VCALL_REG:
3623                 case OP_VCALL2_REG:
3624                 case OP_VOIDCALL_REG:
3625                 case OP_CALL_REG: {
3626                         s390_lr   (code, s390_r1, ins->sreg1);
3627                         s390_basr (code, s390_r14, s390_r1);
3628                 }
3629                         break;
3630                 case OP_LCALL_MEMBASE:
3631                 case OP_VCALL_MEMBASE:
3632                 case OP_VCALL2_MEMBASE:
3633                 case OP_VOIDCALL_MEMBASE:
3634                 case OP_FCALL_MEMBASE:
3635                 case OP_CALL_MEMBASE: {
3636                         call = (MonoCallInst*)ins;
3637                         if (s390_is_uimm12(ins->inst_offset))
3638                                 s390_l    (code, s390_r1, 0, ins->inst_basereg, ins->inst_offset);
3639                         else {
3640                                 if (s390_is_imm16(ins->inst_offset)) {
3641                                         s390_lhi (code, s390_r13, ins->inst_offset);
3642                                         s390_l   (code, s390_r1, s390_r13, ins->inst_basereg, 0);
3643                                 } else {
3644                                         s390_basr (code, s390_r13, 0);
3645                                         s390_j    (code, 4);
3646                                         s390_word (code, ins->inst_offset);
3647                                         s390_l    (code, s390_r13, 0, s390_r13, 4);
3648                                         s390_l    (code, s390_r1, s390_r13, ins->inst_basereg, 0);
3649                                 }
3650                         }
3651                         s390_basr (code, s390_r14, s390_r1);
3652                         if (ins->opcode == OP_FCALL_MEMBASE && call->signature->ret->type == MONO_TYPE_R4)
3653                                 s390_ldebr (code, s390_f0, s390_f0);
3654                 }
3655                         break;
3656                 case OP_LOCALLOC: {
3657                         /*------------------------------------------*/
3658                         /* To allocate space on the stack we have   */
3659                         /* to allow room for parameters passed in   */
3660                         /* calls, the backchain pointer and round   */
3661                         /* it to our stack alignment requirements   */
3662                         /*------------------------------------------*/
3663                         int alloca_skip = S390_MINIMAL_STACK_SIZE + cfg->param_area;
3664                         int area_offset = S390_ALIGN(alloca_skip, S390_STACK_ALIGNMENT);
3665                         s390_lr   (code, s390_r1, ins->sreg1);
3666                         if (ins->flags & MONO_INST_INIT)
3667                                 s390_lr   (code, s390_r0, ins->sreg1);
3668                         s390_ahi  (code, s390_r1, 14);
3669                         s390_srl  (code, s390_r1, 0, 3);
3670                         s390_sll  (code, s390_r1, 0, 3);
3671                         if (cfg->method->save_lmf) {
3672                                 /*----------------------------------*/
3673                                 /* we have to adjust lmf ebp value  */
3674                                 /*----------------------------------*/
3675                                 int lmfOffset = cfg->stack_usage - sizeof(MonoLMF);
3676
3677                                 s390_lr (code, s390_r13, cfg->frame_reg);
3678                                 if (s390_is_uimm16(lmfOffset))
3679                                         s390_ahi   (code, s390_r13, lmfOffset);
3680                                 else {
3681                                         s390_basr (code, s390_r14, 0);
3682                                         s390_j    (code, 4);
3683                                         s390_word (code, lmfOffset);
3684                                         s390_a    (code, s390_r13, 0, s390_r14, 4);
3685                                 }
3686                                 s390_lr (code, s390_r14, STK_BASE);
3687                                 s390_sr (code, s390_r14, s390_r1);
3688                                 s390_st (code, s390_r14, 0, s390_r13,
3689                                          G_STRUCT_OFFSET(MonoLMF, ebp));
3690                         }
3691                         s390_l    (code, s390_r13, 0, STK_BASE, 0);
3692                         s390_sr   (code, STK_BASE, s390_r1);
3693                         s390_st   (code, s390_r13, 0, STK_BASE, 0);
3694                         s390_la   (code, ins->dreg, 0, STK_BASE, area_offset);
3695                         s390_srl  (code, ins->dreg, 0, 3);
3696                         s390_sll  (code, ins->dreg, 0, 3);
3697                         if (ins->flags & MONO_INST_INIT) {
3698                                 s390_lr   (code, s390_r1, s390_r0);
3699                                 s390_lr   (code, s390_r0, ins->dreg);
3700                                 s390_lr   (code, s390_r14, s390_r12);
3701                                 s390_lhi  (code, s390_r13, 0);
3702                                 s390_mvcle(code, s390_r0, s390_r12, 0, 0);
3703                                 s390_jo   (code, -2);
3704                                 s390_lr   (code, s390_r12, s390_r14);
3705                         }
3706                 }
3707                         break;
3708                 case OP_THROW: {
3709                         s390_lr (code, s390_r2, ins->sreg1);
3710                         mono_add_patch_info (cfg, code-cfg->native_code, MONO_PATCH_INFO_INTERNAL_METHOD,
3711                                              (gpointer)"mono_arch_throw_exception");
3712                         s390_brasl (code, s390_r14, 0);
3713                 }
3714                         break;
3715                 case OP_RETHROW: {
3716                         s390_lr (code, s390_r2, ins->sreg1);
3717                         mono_add_patch_info (cfg, code-cfg->native_code, MONO_PATCH_INFO_INTERNAL_METHOD,
3718                                              (gpointer)"mono_arch_rethrow_exception");
3719                         s390_brasl (code, s390_r14, 0);
3720                 }
3721                         break;
3722                 case OP_START_HANDLER: {
3723                         MonoInst *spvar = mono_find_spvar_for_region (cfg, bb->region);
3724                         if (s390_is_uimm12 (spvar->inst_offset)) {
3725                                 s390_st   (code, s390_r14, 0,
3726                                            spvar->inst_basereg,
3727                                            spvar->inst_offset);
3728                         } else {
3729                                 s390_basr (code, s390_r13, 0);
3730                                 s390_j    (code, 4);
3731                                 s390_word (code, spvar->inst_offset);
3732                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
3733                                 s390_st   (code, s390_r14, s390_r13,
3734                                                    spvar->inst_basereg, 0);
3735                         }
3736                 }
3737                         break;
3738                 case OP_ENDFILTER: {
3739                         MonoInst *spvar = mono_find_spvar_for_region (cfg, bb->region);
3740                         if (ins->sreg1 != s390_r2)
3741                                 s390_lr (code, s390_r2, ins->sreg1);
3742                         if (s390_is_uimm12 (spvar->inst_offset)) {
3743                                 s390_l  (code, s390_r14, 0, spvar->inst_basereg,
3744                                          spvar->inst_offset);
3745                         } else {
3746                                 s390_basr (code, s390_r13, 0);
3747                                 s390_j    (code, 4);
3748                                 s390_word (code, spvar->inst_offset);
3749                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
3750                                 s390_l    (code, s390_r14, s390_r13,
3751                                                    spvar->inst_basereg, 0);
3752                         }
3753                         s390_br  (code, s390_r14);
3754                 }
3755                         break;
3756                 case OP_ENDFINALLY: {
3757                         MonoInst *spvar = mono_find_spvar_for_region (cfg, bb->region);
3758                         if (s390_is_uimm12 (spvar->inst_offset)) {
3759                                 s390_l  (code, s390_r14, 0, spvar->inst_basereg,
3760                                          spvar->inst_offset);
3761                         } else {
3762                                 s390_basr (code, s390_r13, 0);
3763                                 s390_j    (code, 4);
3764                                 s390_word (code, spvar->inst_offset);
3765                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
3766                                 s390_l    (code, s390_r14, s390_r13,
3767                                                    spvar->inst_basereg, 0);
3768                         }
3769                         s390_br  (code, s390_r14);
3770                 }
3771                         break;
3772                 case OP_CALL_HANDLER: {
3773                         mono_add_patch_info (cfg, code-cfg->native_code,
3774                                              MONO_PATCH_INFO_BB, ins->inst_target_bb);
3775                         s390_brasl (code, s390_r14, 0);
3776                         mono_cfg_add_try_hole (cfg, ins->inst_eh_block, code, bb);
3777                 }
3778                         break;
3779                 case OP_LABEL: {
3780                         ins->inst_c0 = code - cfg->native_code;
3781                 }
3782                         break;
3783                 case OP_RELAXED_NOP:
3784                 case OP_NOP:
3785                 case OP_DUMMY_USE:
3786                 case OP_DUMMY_STORE:
3787                 case OP_NOT_REACHED:
3788                 case OP_NOT_NULL: {
3789                 }
3790                         break;
3791                 case OP_BR:
3792                         EMIT_UNCOND_BRANCH(ins);
3793                         break;
3794                 case OP_BR_REG: {
3795                         s390_br  (code, ins->sreg1);
3796                 }
3797                         break;
3798                 case OP_CEQ:
3799                 case OP_ICEQ: {
3800                         s390_lhi (code, ins->dreg, 1);
3801                         s390_jz  (code, 4);
3802                         s390_lhi (code, ins->dreg, 0);
3803                 }
3804                         break;
3805                 case OP_CLT:
3806                 case OP_ICLT: {
3807                         s390_lhi (code, ins->dreg, 1);
3808                         s390_jl  (code, 4);
3809                         s390_lhi (code, ins->dreg, 0);
3810                 }
3811                         break;
3812                 case OP_CLT_UN:
3813                 case OP_ICLT_UN: {
3814                         s390_lhi (code, ins->dreg, 1);
3815                         s390_jlo (code, 4);
3816                         s390_lhi (code, ins->dreg, 0);
3817                 }
3818                         break;
3819                 case OP_CGT:
3820                 case OP_ICGT: {
3821                         s390_lhi (code, ins->dreg, 1);
3822                         s390_jh  (code, 4);
3823                         s390_lhi (code, ins->dreg, 0);
3824                 }
3825                         break;
3826                 case OP_CGT_UN:
3827                 case OP_ICGT_UN: {
3828                         s390_lhi (code, ins->dreg, 1);
3829                         s390_jho (code, 4);
3830                         s390_lhi (code, ins->dreg, 0);
3831                 }
3832                         break;
3833                 case OP_COND_EXC_EQ:
3834                 case OP_COND_EXC_IEQ:
3835                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_EQ, ins->inst_p1);
3836                         break;
3837                 case OP_COND_EXC_NE_UN:
3838                 case OP_COND_EXC_INE_UN:
3839                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_NE, ins->inst_p1);
3840                         break;
3841                 case OP_COND_EXC_LT:
3842                 case OP_COND_EXC_ILT:
3843                 case OP_COND_EXC_LT_UN:
3844                 case OP_COND_EXC_ILT_UN:
3845                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_LT, ins->inst_p1);
3846                         break;
3847                 case OP_COND_EXC_GT:
3848                 case OP_COND_EXC_IGT:
3849                 case OP_COND_EXC_GT_UN:
3850                 case OP_COND_EXC_IGT_UN:
3851                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_GT, ins->inst_p1);
3852                         break;
3853                 case OP_COND_EXC_GE:
3854                 case OP_COND_EXC_IGE:
3855                 case OP_COND_EXC_GE_UN:
3856                 case OP_COND_EXC_IGE_UN:
3857                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_GE, ins->inst_p1);
3858                         break;
3859                 case OP_COND_EXC_LE:
3860                 case OP_COND_EXC_ILE:
3861                 case OP_COND_EXC_LE_UN:
3862                 case OP_COND_EXC_ILE_UN:
3863                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_LE, ins->inst_p1);
3864                         break;
3865                 case OP_COND_EXC_OV:
3866                 case OP_COND_EXC_IOV:
3867                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_OV, ins->inst_p1);
3868                         break;
3869                 case OP_COND_EXC_NO:
3870                 case OP_COND_EXC_INO:
3871                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_NO, ins->inst_p1);
3872                         break;
3873                 case OP_COND_EXC_C:
3874                 case OP_COND_EXC_IC:
3875                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_CY, ins->inst_p1);
3876                         break;
3877                 case OP_COND_EXC_NC:
3878                 case OP_COND_EXC_INC:
3879                         EMIT_COND_SYSTEM_EXCEPTION (S390_CC_NC, ins->inst_p1);
3880                         break;
3881                 case OP_IBEQ:
3882                         EMIT_COND_BRANCH (ins, S390_CC_EQ);
3883                         break;
3884                 case OP_IBNE_UN:
3885                         EMIT_COND_BRANCH (ins, S390_CC_NE);
3886                         break;
3887                 case OP_IBLT:
3888                 case OP_IBLT_UN:
3889                         EMIT_COND_BRANCH (ins, S390_CC_LT);
3890                         break;
3891                 case OP_IBGT:
3892                 case OP_IBGT_UN:
3893                         EMIT_COND_BRANCH (ins, S390_CC_GT);
3894                         break;
3895                 case OP_IBGE:
3896                 case OP_IBGE_UN:
3897                         EMIT_COND_BRANCH (ins, S390_CC_GE);
3898                         break;
3899                 case OP_IBLE:
3900                 case OP_IBLE_UN:
3901                         EMIT_COND_BRANCH (ins, S390_CC_LE);
3902                         break;
3903
3904                 /* floating point opcodes */
3905                 case OP_R8CONST: {
3906                         if (*((float *) ins->inst_p0) == 0) {
3907                                 s390_lzdr (code, ins->dreg);
3908                         } else {
3909                                 s390_basr  (code, s390_r13, 0);
3910                                 s390_j     (code, 4);
3911                                 s390_word  (code, ins->inst_p0);
3912                                 s390_l     (code, s390_r13, 0, s390_r13, 4);
3913                                 s390_ld    (code, ins->dreg, 0, s390_r13, 0);
3914                         }
3915                 }
3916                         break;
3917                 case OP_R4CONST: {
3918                         if (*((float *) ins->inst_p0) == 0) {
3919                                 s390_lzdr (code, ins->dreg);
3920                         } else {
3921                                 s390_basr (code, s390_r13, 0);
3922                                 s390_j    (code, 4);
3923                                 s390_word (code, ins->inst_p0);
3924                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
3925                                 s390_ldeb (code, ins->dreg, 0, s390_r13, 0);
3926                         }
3927                 }
3928                         break;
3929                 case OP_STORER8_MEMBASE_REG: {
3930                         if (s390_is_uimm12(ins->inst_offset)) {
3931                                 s390_std  (code, ins->sreg1, 0, ins->inst_destbasereg, ins->inst_offset);
3932                         } else {
3933                                 s390_basr (code, s390_r13, 0);
3934                                 s390_j    (code, 4);
3935                                 s390_word (code, ins->inst_offset);
3936                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
3937                                 s390_std  (code, ins->sreg1, s390_r13, ins->inst_destbasereg, 0);
3938                         }
3939                 }
3940                         break;
3941                 case OP_LOADR8_MEMBASE: {
3942                         if (s390_is_uimm12(ins->inst_offset)) {
3943                                 s390_ld   (code, ins->dreg, 0, ins->inst_basereg, ins->inst_offset);
3944                         } else {
3945                                 s390_basr (code, s390_r13, 0);
3946                                 s390_j    (code, 4);
3947                                 s390_word (code, ins->inst_offset);
3948                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
3949                                 s390_ld   (code, ins->dreg, s390_r13, ins->inst_basereg, 0);
3950                         }
3951                 }
3952                         break;
3953                 case OP_STORER4_MEMBASE_REG: {
3954                         if (s390_is_uimm12(ins->inst_offset)) {
3955                                 s390_ledbr(code, s390_f15, ins->sreg1);
3956                                 s390_ste  (code, s390_f15, 0, ins->inst_destbasereg, ins->inst_offset);
3957                         } else {
3958                                 s390_basr (code, s390_r13, 0);
3959                                 s390_j    (code, 4);
3960                                 s390_word (code, ins->inst_offset);
3961                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
3962                                 s390_ledbr(code, s390_f15, ins->sreg1);
3963                                 s390_ste  (code, s390_f15, s390_r13, ins->inst_destbasereg, 0);
3964                         }
3965                 }
3966                         break;
3967                 case OP_LOADR4_MEMBASE: {
3968                         if (s390_is_uimm12(ins->inst_offset)) {
3969                                 s390_ldeb (code, ins->dreg, 0, ins->inst_basereg, ins->inst_offset);
3970                         } else {
3971                                 s390_basr (code, s390_r13, 0);
3972                                 s390_j    (code, 4);
3973                                 s390_word (code, ins->inst_offset);
3974                                 s390_l    (code, s390_r13, 0, s390_r13, 4);
3975                                 s390_ldeb (code, ins->dreg, s390_r13, ins->inst_basereg, 0);
3976                         }
3977                 }
3978                         break;
3979                 case OP_ICONV_TO_R_UN: {
3980                         s390_cdfbr (code, ins->dreg, ins->sreg1);
3981                         s390_ltr   (code, ins->sreg1, ins->sreg1);
3982                         s390_jnl   (code, 12);
3983                         s390_basr  (code, s390_r13, 0);
3984                         s390_j     (code, 6);
3985                         s390_word  (code, 0x41f00000);
3986                         s390_word  (code, 0);
3987                         s390_adb   (code, ins->dreg, 0, s390_r13, 4);
3988                 }
3989                         break;
3990                 case OP_ICONV_TO_R4: {
3991                         s390_cdfbr (code, ins->dreg, ins->sreg1);
3992                 }
3993                         break;
3994                 case OP_ICONV_TO_R8: {
3995                         s390_cdfbr (code, ins->dreg, ins->sreg1);
3996                 }
3997                         break;
3998                 case OP_FCONV_TO_I1:
3999                         code = emit_float_to_int (cfg, code, ins->dreg, ins->sreg1, 1, TRUE);
4000                         break;
4001                 case OP_FCONV_TO_U1:
4002                         code = emit_float_to_int (cfg, code, ins->dreg, ins->sreg1, 1, FALSE);
4003                         break;
4004                 case OP_FCONV_TO_I2:
4005                         code = emit_float_to_int (cfg, code, ins->dreg, ins->sreg1, 2, TRUE);
4006                         break;
4007                 case OP_FCONV_TO_U2:
4008                         code = emit_float_to_int (cfg, code, ins->dreg, ins->sreg1, 2, FALSE);
4009                         break;
4010                 case OP_FCONV_TO_I4:
4011                 case OP_FCONV_TO_I:
4012                         code = emit_float_to_int (cfg, code, ins->dreg, ins->sreg1, 4, TRUE);
4013                         break;
4014                 case OP_FCONV_TO_U4:
4015                 case OP_FCONV_TO_U:
4016                         code = emit_float_to_int (cfg, code, ins->dreg, ins->sreg1, 4, FALSE);
4017                         break;
4018                 case OP_FCONV_TO_I8:
4019                 case OP_FCONV_TO_U8:
4020                         g_assert_not_reached ();
4021                         /* Implemented as helper calls */
4022                         break;
4023                 case OP_LCONV_TO_R_UN:
4024                         g_assert_not_reached ();
4025                         /* Implemented as helper calls */
4026                         break;
4027                 case OP_LCONV_TO_OVF_I:
4028                 case OP_LCONV_TO_OVF_I4_2: {
4029                         /* Valid ints: 0xffffffff:8000000 to 00000000:0x7f000000 */
4030                         short int *o[5];
4031                         s390_ltr  (code, ins->sreg1, ins->sreg1);
4032                         s390_jnl  (code, 0); CODEPTR(code, o[0]);
4033                         s390_ltr  (code, ins->sreg2, ins->sreg2);
4034                         s390_jnl  (code, 0); CODEPTR(code, o[1]);
4035                         s390_lhi  (code, s390_r13, -1);
4036                         s390_cr   (code, ins->sreg2, s390_r13);
4037                         s390_jnz  (code, 0); CODEPTR(code, o[2]);
4038                         s390_j    (code, 0); CODEPTR(code, o[3]);
4039                         PTRSLOT(code, o[0]);
4040                         s390_ltr  (code, ins->sreg2, ins->sreg2);
4041                         s390_jz   (code, 0); CODEPTR(code, o[4]);
4042                         PTRSLOT(code, o[1]);
4043                         PTRSLOT(code, o[2]);
4044                         mono_add_patch_info (cfg, code - cfg->native_code,
4045                                              MONO_PATCH_INFO_EXC, "OverflowException");
4046                         s390_brasl (code, s390_r14, 0);
4047                         PTRSLOT(code, o[3]);
4048                         PTRSLOT(code, o[4]);
4049                         if (ins->dreg != ins->sreg1)
4050                                 s390_lr   (code, ins->dreg, ins->sreg1);
4051                 }
4052                         break;
4053                 case OP_SQRT: {
4054                         s390_sqdbr (code, ins->dreg, ins->sreg1);
4055                 }
4056                         break;
4057                 case OP_FADD: {
4058                         CHECK_SRCDST_COM_F;
4059                         s390_adbr (code, ins->dreg, src2);
4060                 }
4061                         break;
4062                 case OP_FSUB: {
4063                         CHECK_SRCDST_NCOM_F;
4064                         s390_sdbr (code, ins->dreg, src2);
4065                 }
4066                         break;
4067                 case OP_FMUL: {
4068                         CHECK_SRCDST_COM_F;
4069                         s390_mdbr (code, ins->dreg, src2);
4070                 }
4071                         break;
4072                 case OP_FDIV: {
4073                         CHECK_SRCDST_NCOM_F;
4074                         s390_ddbr (code, ins->dreg, src2);
4075                 }
4076                         break;
4077                 case OP_FNEG: {
4078                         s390_lcdbr (code, ins->dreg, ins->sreg1);
4079                 }
4080                         break;
4081                 case OP_FREM: {
4082                         CHECK_SRCDST_NCOM_F;
4083                         s390_didbr (code, ins->dreg, src2, 5, s390_f15);
4084                 }
4085                         break;
4086                 case OP_FCOMPARE: {
4087                         s390_cdbr (code, ins->sreg1, ins->sreg2);
4088                 }
4089                         break;
4090                 case OP_FCEQ: {
4091                         s390_cdbr  (code, ins->sreg1, ins->sreg2);
4092                         s390_lhi   (code, ins->dreg, 1);
4093                         s390_je    (code, 4);
4094                         s390_lhi   (code, ins->dreg, 0);
4095                 }
4096                         break;
4097                 case OP_FCLT: {
4098                         s390_cdbr  (code, ins->sreg1, ins->sreg2);
4099                         s390_lhi   (code, ins->dreg, 1);
4100                         s390_jl    (code, 4);
4101                         s390_lhi   (code, ins->dreg, 0);
4102                 }
4103                         break;
4104                 case OP_FCLT_UN: {
4105                         s390_cdbr  (code, ins->sreg1, ins->sreg2);
4106                         s390_lhi   (code, ins->dreg, 1);
4107                         s390_jlo   (code, 4);
4108                         s390_lhi   (code, ins->dreg, 0);
4109                 }
4110                         break;
4111                 case OP_FCGT: {
4112                         s390_cdbr  (code, ins->sreg1, ins->sreg2);
4113                         s390_lhi   (code, ins->dreg, 1);
4114                         s390_jh    (code, 4);
4115                         s390_lhi   (code, ins->dreg, 0);
4116                 }
4117                         break;
4118                 case OP_FCGT_UN: {
4119                         s390_cdbr  (code, ins->sreg1, ins->sreg2);
4120                         s390_lhi   (code, ins->dreg, 1);
4121                         s390_jho   (code, 4);
4122                         s390_lhi   (code, ins->dreg, 0);
4123                 }
4124                         break;
4125                 case OP_FBEQ: {
4126                         short *o;
4127                         s390_jo (code, 0); CODEPTR(code, o);
4128                         EMIT_COND_BRANCH (ins, S390_CC_EQ);
4129                         PTRSLOT(code, o);
4130                 }
4131                         break;
4132                 case OP_FBNE_UN:
4133                         EMIT_COND_BRANCH (ins, S390_CC_NE|S390_CC_OV);
4134                         break;
4135                 case OP_FBLT: {
4136                         short *o;
4137                         s390_jo (code, 0); CODEPTR(code, o);
4138                         EMIT_COND_BRANCH (ins, S390_CC_LT);
4139                         PTRSLOT(code, o);
4140                 }
4141                         break;
4142                 case OP_FBLT_UN:
4143                         EMIT_COND_BRANCH (ins, S390_CC_LT|S390_CC_OV);
4144                         break;
4145                 case OP_FBGT: {
4146                         short *o;
4147                         s390_jo (code, 0); CODEPTR(code, o);
4148                         EMIT_COND_BRANCH (ins, S390_CC_GT);
4149                         PTRSLOT(code, o);
4150                 }
4151                         break;
4152                 case OP_FBGT_UN:
4153                         EMIT_COND_BRANCH (ins, S390_CC_GT|S390_CC_OV);
4154                         break;
4155                 case OP_FBGE: {
4156                         short *o;
4157                         s390_jo (code, 0); CODEPTR(code, o);
4158                         EMIT_COND_BRANCH (ins, S390_CC_GE);
4159                         PTRSLOT(code, o);
4160                 }
4161                         break;
4162                 case OP_FBGE_UN:
4163                         EMIT_COND_BRANCH (ins, S390_CC_GE|S390_CC_OV);
4164                         break;
4165                 case OP_FBLE: {
4166                         short *o;
4167                         s390_jo (code, 0); CODEPTR(code, o);
4168                         EMIT_COND_BRANCH (ins, S390_CC_LE);
4169                         PTRSLOT(code, o);
4170                 }
4171                         break;
4172                 case OP_FBLE_UN:
4173                         EMIT_COND_BRANCH (ins, S390_CC_LE|S390_CC_OV);
4174                         break;
4175                 case OP_CKFINITE: {
4176                         short *o;
4177                         s390_lhi  (code, s390_r13, 0x7f);
4178                         s390_tcdb (code, ins->sreg1, 0, s390_r13, 0);
4179                         s390_jz   (code, 0); CODEPTR(code, o);
4180                         mono_add_patch_info (cfg, code - cfg->native_code,
4181                                              MONO_PATCH_INFO_EXC, "ArithmeticException");
4182                         s390_brasl (code, s390_r14,0);
4183                         PTRSLOT(code, o);
4184                 }
4185                         break;
4186                 case OP_S390_MOVE: {
4187                         if (ins->backend.size > 0) {
4188                                 if (ins->backend.size <= 256) {
4189                                         s390_mvc  (code, ins->backend.size, ins->dreg,
4190                                                    ins->inst_offset, ins->sreg1, ins->inst_imm);
4191                                 } else {
4192                                         s390_lr  (code, s390_r0, ins->dreg);
4193                                         if (s390_is_imm16 (ins->inst_offset)) {
4194                                                 s390_ahi  (code, s390_r0, ins->inst_offset);
4195                                         } else {
4196                                                 s390_basr (code, s390_r13, 0);
4197                                                 s390_j    (code, 6);
4198                                                 s390_long (code, ins->inst_offset);
4199                                                 s390_a    (code, s390_r0, 0, s390_r13, 4);
4200                                         }
4201                                         s390_lr  (code, s390_r12, ins->sreg1);
4202                                         if (s390_is_imm16 (ins->inst_imm)) {
4203                                                 s390_ahi  (code, s390_r12, ins->inst_imm);
4204                                         } else {
4205                                                 s390_basr (code, s390_r13, 0);
4206                                                 s390_j    (code, 6);
4207                                                 s390_long (code, ins->inst_imm);
4208                                                 s390_a    (code, s390_r12, 0, s390_r13, 4);
4209                                         }
4210                                         if (s390_is_imm16 (ins->backend.size)) {
4211                                                 s390x_lhi (code, s390_r1, ins->backend.size);
4212                                         } else {
4213                                                 s390_basr (code, s390_r13, 0);
4214                                                 s390_j    (code, 6);
4215                                                 s390_long (code, ins->backend.size);
4216                                                 s390_l    (code, s390_r1, 0, s390_r13, 4);
4217                                         }
4218                                         s390_lr   (code, s390_r1, ins->backend.size);
4219                                         s390_lr   (code, s390_r13, s390_r1);
4220                                         s390_mvcle(code, s390_r0, s390_r12, 0, 0);
4221                                         s390_jo   (code, -2);
4222                                 }
4223                         }
4224                 }
4225                 case OP_ATOMIC_ADD_I4: {
4226                         s390_lr  (code, s390_r1, ins->sreg2);
4227                         s390_l   (code, s390_r0, 0, ins->inst_basereg, ins->inst_offset);
4228                         s390_a   (code, s390_r1, 0, ins->inst_basereg, ins->inst_offset);
4229                         s390_cs  (code, s390_r0, s390_r1, ins->inst_basereg, ins->inst_offset);
4230                         s390_jnz (code, -7);
4231                         s390_lr  (code, ins->dreg, s390_r1);
4232                 }
4233                         break;
4234                 case OP_ATOMIC_ADD_NEW_I4: {
4235                         s390_lr  (code, s390_r1, ins->sreg2);
4236                         s390_l   (code, s390_r0, 0, ins->inst_basereg, ins->inst_offset);
4237                         s390_a   (code, s390_r1, 0, ins->inst_basereg, ins->inst_offset);
4238                         s390_cs  (code, s390_r0, s390_r1, ins->inst_basereg, ins->inst_offset);
4239                         s390_jnz (code, -7);
4240                         s390_lr  (code, ins->dreg, s390_r1);
4241                 }
4242                         break;
4243                 case OP_ATOMIC_EXCHANGE_I4: {
4244                         s390_l   (code, s390_r0, 0, ins->inst_basereg, ins->inst_offset);
4245                         s390_cs  (code, s390_r0, ins->sreg2, ins->inst_basereg, ins->inst_offset);
4246                         s390_jnz (code, -4);
4247                         s390_lr  (code, ins->dreg, s390_r0);
4248                 }
4249                         break;
4250                 case OP_S390_BKCHAIN: {
4251                         s390_lr  (code, ins->dreg, ins->sreg1);
4252                         if (s390_is_imm16 (cfg->stack_offset)) {
4253                                 s390_ahi (code, ins->dreg, cfg->stack_offset);
4254                         } else {
4255                                 s390_basr (code, s390_r13, 0);
4256                                 s390_j    (code, 6);
4257                                 s390_word (code, cfg->stack_offset);
4258                                 s390_a    (code, ins->dreg, 0, s390_r13, 4);
4259                         }
4260                 }
4261                 case OP_MEMORY_BARRIER: {
4262                 }
4263                         break;
4264                 default:
4265                         g_warning ("unknown opcode %s in %s()\n", mono_inst_name (ins->opcode), __FUNCTION__);
4266                         g_assert_not_reached ();
4267                 }
4268
4269                 if ((cfg->opt & MONO_OPT_BRANCH) && ((code - cfg->native_code - offset) > max_len)) {
4270                         g_warning ("wrong maximal instruction length of instruction %s (expected %d, got %d)",
4271                                    mono_inst_name (ins->opcode), max_len, code - cfg->native_code - offset);
4272                         g_assert_not_reached ();
4273                 }
4274
4275                 cpos += max_len;
4276
4277                 last_ins = ins;
4278                 last_offset = offset;
4279         }
4280
4281         cfg->code_len = code - cfg->native_code;
4282 }
4283
4284 /*========================= End of Function ========================*/
4285
4286 /*------------------------------------------------------------------*/
4287 /*                                                                  */
4288 /* Name         - mono_arch_register_lowlevel_calls                 */
4289 /*                                                                  */
4290 /* Function     - Register routines to help with --trace operation. */
4291 /*                                                                  */
4292 /*------------------------------------------------------------------*/
4293
4294 void
4295 mono_arch_register_lowlevel_calls (void)
4296 {
4297         mono_register_jit_icall (mono_arch_get_lmf_addr, "mono_arch_get_lmf_addr", NULL, TRUE);
4298 }
4299
4300 /*========================= End of Function ========================*/
4301
4302 /*------------------------------------------------------------------*/
4303 /*                                                                  */
4304 /* Name         - mono_arch_patch_code                              */
4305 /*                                                                  */
4306 /* Function     - Process the patch data created during the         */
4307 /*                instruction build process. This resolves jumps,   */
4308 /*                calls, variables etc.                             */
4309 /*                                                                  */
4310 /*------------------------------------------------------------------*/
4311
4312 void
4313 mono_arch_patch_code (MonoMethod *method, MonoDomain *domain,
4314                       guint8 *code, MonoJumpInfo *ji, MonoCodeManager *dyn_code_mp, gboolean run_cctors)
4315 {
4316         MonoJumpInfo *patch_info;
4317
4318         for (patch_info = ji; patch_info; patch_info = patch_info->next) {
4319                 unsigned char *ip = patch_info->ip.i + code;
4320                 gconstpointer target = NULL;
4321
4322                 target = mono_resolve_patch_target (method, domain, code,
4323                                                     patch_info, run_cctors);
4324
4325                 switch (patch_info->type) {
4326                         case MONO_PATCH_INFO_IP:
4327                         case MONO_PATCH_INFO_EXC_NAME:
4328                         case MONO_PATCH_INFO_LDSTR:
4329                         case MONO_PATCH_INFO_TYPE_FROM_HANDLE:
4330                         case MONO_PATCH_INFO_LDTOKEN:
4331                         case MONO_PATCH_INFO_EXC:
4332                                 continue;
4333                         case MONO_PATCH_INFO_SWITCH:
4334                                 /*----------------------------------*/
4335                                 /* ip points at the basr r13,0/j +4 */
4336                                 /* instruction the vtable value     */
4337                                 /* follows this (i.e. ip+6)         */
4338                                 /*----------------------------------*/
4339                                 *((gconstpointer *)(ip+6)) = target;
4340                                 target = NULL;
4341                                 continue;
4342                         case MONO_PATCH_INFO_METHODCONST:
4343                         case MONO_PATCH_INFO_CLASS:
4344                         case MONO_PATCH_INFO_IMAGE:
4345                         case MONO_PATCH_INFO_FIELD:
4346                         case MONO_PATCH_INFO_IID:
4347                                 target = S390_RELATIVE(target, ip);
4348                                 continue;
4349                         case MONO_PATCH_INFO_R4:
4350                         case MONO_PATCH_INFO_R8:
4351                         case MONO_PATCH_INFO_METHOD_REL:
4352                                 g_assert_not_reached ();
4353                                 continue;
4354                         default:
4355                                 target = S390_RELATIVE(target, ip);
4356                                 ip += 2;
4357                 }
4358                 s390_patch (ip, (guint32) target);
4359         }
4360 }
4361
4362 /*========================= End of Function ========================*/
4363
4364 /*------------------------------------------------------------------*/
4365 /*                                                                  */
4366 /* Name         - emit_load_volatile_registers                      */
4367 /*                                                                  */
4368 /* Function     - Create the instruction sequence for loading the   */
4369 /*                parameter registers for use with the 'tail' op.   */
4370 /*                                                                  */
4371 /*                The register loading operations performed here    */
4372 /*                are the mirror of the store operations performed  */
4373 /*                in mono_arch_emit_prolog and need to be kept in   */
4374 /*                synchronization with it.                          */
4375 /*                                                                  */
4376 /*------------------------------------------------------------------*/
4377
4378 guint8 *
4379 emit_load_volatile_registers (guint8 * code, MonoCompile *cfg)
4380 {
4381         MonoMethod *method = cfg->method;
4382         MonoMethodSignature *sig;
4383         MonoInst *inst;
4384         int pos, i;
4385         CallInfo *cinfo;
4386
4387         sig = mono_method_signature (method);
4388         pos = 0;
4389
4390         cinfo = get_call_info (cfg, cfg->mempool, sig, sig->pinvoke);
4391
4392         if (cinfo->struct_ret) {
4393                 ArgInfo *ainfo = &cinfo->ret;
4394                 inst         = cfg->vret_addr;
4395                 s390_l (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4396         }
4397
4398         for (i = 0; i < sig->param_count + sig->hasthis; ++i) {
4399                 ArgInfo *ainfo = cinfo->args + i;
4400                 inst = cfg->args [pos];
4401
4402                 if (inst->opcode == OP_REGVAR) {
4403                         if (ainfo->regtype == RegTypeGeneral)
4404                                 s390_lr (code, ainfo->reg, inst->dreg);
4405                         else if (ainfo->regtype == RegTypeFP) {
4406                                 if (inst->dreg != ainfo->reg) {
4407                                         if (ainfo->size == 4) {
4408                                                 s390_ldebr (code, ainfo->reg, inst->dreg);
4409                                         } else {
4410                                                 s390_ldr   (code, ainfo->reg, inst->dreg);
4411                                         }
4412                                 }
4413                         }
4414                         else if (ainfo->regtype == RegTypeBase) {
4415                         } else
4416                                 g_assert_not_reached ();
4417                 } else {
4418                         if (ainfo->regtype == RegTypeGeneral) {
4419                                 if (!((ainfo->reg >= 2) && (ainfo->reg <= 6)))
4420                                         g_assert_not_reached();
4421                                 switch (ainfo->size) {
4422                                 case 1:
4423                                         s390_ic (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4424                                         break;
4425                                 case 2:
4426                                         s390_lh (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4427                                         break;
4428                                 case 8:
4429                                         s390_lm (code, ainfo->reg, ainfo->reg + 1,
4430                                                   inst->inst_basereg, inst->inst_offset);
4431                                         break;
4432                                 default:
4433                                         s390_l  (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4434                                 }
4435                         } else if (ainfo->regtype == RegTypeBase) {
4436                         } else if (ainfo->regtype == RegTypeFP) {
4437                                 if (ainfo->size == 8)
4438                                         s390_ld (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4439                                 else if (ainfo->size == 4)
4440                                         s390_le (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4441                                 else
4442                                         g_assert_not_reached ();
4443                         } else if (ainfo->regtype == RegTypeStructByVal) {
4444                                 if (ainfo->reg != STK_BASE) {
4445                                         switch (ainfo->size) {
4446                                         case 1:
4447                                                 s390_ic (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4448                                                 break;
4449                                         case 2:
4450                                                 s390_lh (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4451                                                 break;
4452                                         case 4:
4453                                                 s390_l  (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4454                                                 break;
4455                                         case 8:
4456                                                 s390_lm (code, ainfo->reg, ainfo->reg+1, inst->inst_basereg, inst->inst_offset);
4457                                                 break;
4458                                         }
4459                                 }
4460                         } else if (ainfo->regtype == RegTypeStructByAddr) {
4461                                 if (ainfo->reg != STK_BASE) {
4462                                         s390_l  (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4463                                 }
4464                         } else
4465                                 g_assert_not_reached ();
4466                 }
4467                 pos++;
4468         }
4469
4470         return code;
4471 }
4472
4473 /*========================= End of Function ========================*/
4474
4475 /*------------------------------------------------------------------*/
4476 /*                                                                  */
4477 /* Name         - mono_arch_emit_prolog                             */
4478 /*                                                                  */
4479 /* Function     - Create the instruction sequence for a function    */
4480 /*                prolog.                                           */
4481 /*                                                                  */
4482 /*------------------------------------------------------------------*/
4483
4484 guint8 *
4485 mono_arch_emit_prolog (MonoCompile *cfg)
4486 {
4487         MonoMethod *method = cfg->method;
4488         MonoBasicBlock *bb;
4489         MonoMethodSignature *sig;
4490         MonoInst *inst;
4491         int alloc_size, pos, max_offset, i;
4492         guint8 *code;
4493         CallInfo *cinfo;
4494         int tracing = 0;
4495         int lmfOffset;                                                          \
4496
4497         if (mono_jit_trace_calls != NULL && mono_trace_eval (method))
4498                 tracing = 1;
4499
4500         cfg->code_size   = 1024;
4501         cfg->native_code = code = g_malloc (cfg->code_size);
4502
4503         s390_stm  (code, s390_r6, s390_r14, STK_BASE, S390_REG_SAVE_OFFSET);
4504
4505         if (cfg->arch.bkchain_reg != -1)
4506                 s390_lr (code, cfg->arch.bkchain_reg, STK_BASE);
4507
4508         if (cfg->flags & MONO_CFG_HAS_ALLOCA) {
4509                 cfg->used_int_regs |= 1 << 11;
4510         }
4511
4512         alloc_size = cfg->stack_offset;
4513
4514         cfg->stack_usage = alloc_size;
4515         s390_lr   (code, s390_r11, STK_BASE);
4516         if (s390_is_uimm16 (alloc_size)) {
4517                 s390_ahi  (code, STK_BASE, -alloc_size);
4518         } else {
4519                 int stackSize = alloc_size;
4520                 while (stackSize > 32767) {
4521                         s390_ahi  (code, STK_BASE, -32767);
4522                         stackSize -= 32767;
4523                 }
4524                 s390_ahi  (code, STK_BASE, -stackSize);
4525         }
4526         s390_st   (code, s390_r11, 0, STK_BASE, 0);
4527
4528         if (cfg->frame_reg != STK_BASE)
4529                 s390_lr (code, s390_r11, STK_BASE);
4530
4531         /* compute max_offset in order to use short forward jumps
4532          * we always do it on s390 because the immediate displacement
4533          * for jumps is too small
4534          */
4535         max_offset = 0;
4536         for (bb = cfg->bb_entry; bb; bb = bb->next_bb) {
4537                 MonoInst *ins = bb->code;
4538                 bb->max_offset = max_offset;
4539
4540                 if (cfg->prof_options & MONO_PROFILE_COVERAGE)
4541                         max_offset += 6;
4542
4543                 MONO_BB_FOR_EACH_INS (bb, ins)
4544                         max_offset += ((guint8 *)ins_get_spec (ins->opcode))[MONO_INST_LEN];
4545         }
4546
4547         /* load arguments allocated to register from the stack */
4548         sig = mono_method_signature (method);
4549         pos = 0;
4550
4551         cinfo = get_call_info (cfg, cfg->mempool, sig, sig->pinvoke);
4552
4553         if (cinfo->struct_ret) {
4554                 ArgInfo *ainfo = &cinfo->ret;
4555                 inst         = cfg->vret_addr;
4556                 inst->backend.size = ainfo->vtsize;
4557                 s390_st (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4558         }
4559
4560         for (i = 0; i < sig->param_count + sig->hasthis; ++i) {
4561                 ArgInfo *ainfo = cinfo->args + i;
4562                 inst = cfg->args [pos];
4563
4564                 if (inst->opcode == OP_VTARG_ADDR)
4565                         inst = inst->inst_left;
4566
4567                 if (inst->opcode == OP_REGVAR) {
4568                         if (ainfo->regtype == RegTypeGeneral)
4569                                 s390_lr (code, inst->dreg, ainfo->reg);
4570                         else if (ainfo->regtype == RegTypeFP) {
4571                                 if (inst->dreg != ainfo->reg) {
4572                                         if (ainfo->size == 4) {
4573                                                 s390_ledbr (code, inst->dreg, ainfo->reg);
4574                                         } else {
4575                                                 s390_ldr   (code, inst->dreg, ainfo->reg);
4576                                         }
4577                                 }
4578                         }
4579                         else if (ainfo->regtype == RegTypeBase) {
4580                                 s390_lr  (code, s390_r13, STK_BASE);
4581                                 s390_ahi (code, s390_r13, alloc_size);
4582                                 s390_l   (code, inst->dreg, 0, s390_r13, ainfo->offset);
4583                         } else
4584                                 g_assert_not_reached ();
4585
4586                         if (cfg->verbose_level > 2)
4587                                 g_print ("Argument %d assigned to register %s\n",
4588                                          pos, mono_arch_regname (inst->dreg));
4589                 } else {
4590                         if (ainfo->regtype == RegTypeGeneral) {
4591                                 if (!((ainfo->reg >= 2) && (ainfo->reg <= 6)))
4592                                         g_assert_not_reached();
4593                                 switch (ainfo->size) {
4594                                 case 1:
4595                                         s390_stc (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4596                                         break;
4597                                 case 2:
4598                                         s390_sth (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4599                                         break;
4600                                 case 8:
4601                                         s390_stm (code, ainfo->reg, ainfo->reg + 1,
4602                                                   inst->inst_basereg, inst->inst_offset);
4603                                         break;
4604                                 default:
4605                                         s390_st  (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4606                                 }
4607                         } else if (ainfo->regtype == RegTypeBase) {
4608                         } else if (ainfo->regtype == RegTypeFP) {
4609                                 if (ainfo->size == 8)
4610                                         s390_std (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4611                                 else if (ainfo->size == 4)
4612                                         s390_ste (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4613                                 else
4614                                         g_assert_not_reached ();
4615                         } else if (ainfo->regtype == RegTypeStructByVal) {
4616                                 int doffset = inst->inst_offset;
4617                                 int reg;
4618                                 if (ainfo->reg != STK_BASE)
4619                                         reg = ainfo->reg;
4620                                 else {
4621                                         reg = s390_r0;
4622                                         s390_lr  (code, s390_r13, STK_BASE);
4623                                         s390_ahi (code, s390_r13, alloc_size);
4624                                 }
4625                                 switch (ainfo->size) {
4626                                         case 1:
4627                                                 if (ainfo->reg == STK_BASE)
4628                                                         s390_ic  (code, reg, 0, s390_r13, ainfo->offset+3);
4629                                                 s390_stc (code, reg, 0, inst->inst_basereg, doffset);
4630                                                 break;
4631                                         case 2:
4632                                                 if (ainfo->reg == STK_BASE)
4633                                                         s390_lh  (code, reg, 0, s390_r13, ainfo->offset+2);
4634                                                 s390_sth (code, reg, 0, inst->inst_basereg, doffset);
4635                                                 break;
4636                                         case 4:
4637                                                 if (ainfo->reg == STK_BASE)
4638                                                         s390_l   (code, reg, 0, s390_r13, ainfo->offset);
4639                                                 s390_st  (code, reg, 0, inst->inst_basereg, doffset);
4640                                                 break;
4641                                         case 8:
4642                                                 if (ainfo->reg == STK_BASE)
4643                                                         s390_lm  (code, s390_r0, s390_r1, s390_r13, ainfo->offset);
4644                                                 s390_stm (code, reg, reg+1, inst->inst_basereg, doffset);
4645                                                 break;
4646                                 }
4647                         } else if (ainfo->regtype == RegTypeStructByAddr) {
4648                                 if (ainfo->reg != STK_BASE)
4649                                         s390_st  (code, ainfo->reg, 0, inst->inst_basereg, inst->inst_offset);
4650                         } else
4651                                 g_assert_not_reached ();
4652                 }
4653                 pos++;
4654         }
4655
4656         if (method->save_lmf) {
4657                 /*---------------------------------------------------------------*/
4658                 /* we build the MonoLMF structure on the stack - see mini-s390.h */
4659                 /*---------------------------------------------------------------*/
4660                 lmfOffset = alloc_size - sizeof(MonoLMF);
4661
4662                 s390_lr    (code, s390_r13, cfg->frame_reg);
4663                 if (s390_is_uimm16(lmfOffset))
4664                         s390_ahi   (code, s390_r13, lmfOffset);
4665                 else {
4666                         s390_basr (code, s390_r14, 0);
4667                         s390_j    (code, 4);
4668                         s390_word (code, lmfOffset);
4669                         s390_a    (code, s390_r13, 0, s390_r14, 4);
4670                 }
4671
4672                 /*---------------------------------------------------------------*/
4673                 /* Preserve the parameter registers while we fix up the lmf      */
4674                 /*---------------------------------------------------------------*/
4675                 s390_stm   (code, s390_r2, s390_r6, s390_r13,
4676                             G_STRUCT_OFFSET(MonoLMF, pregs[0]));
4677
4678                 /*---------------------------------------------------------------*/
4679                 /* On return from this call r2 have the address of the &lmf      */
4680                 /*---------------------------------------------------------------*/
4681                 mono_add_patch_info (cfg, code - cfg->native_code,
4682                                      MONO_PATCH_INFO_INTERNAL_METHOD,
4683                                      (gpointer)"mono_get_lmf_addr");
4684                 s390_brasl (code, s390_r14, 0);
4685
4686                 /*---------------------------------------------------------------*/
4687                 /* Set lmf.lmf_addr = jit_tls->lmf                               */
4688                 /*---------------------------------------------------------------*/
4689                 s390_st    (code, s390_r2, 0, s390_r13,
4690                             G_STRUCT_OFFSET(MonoLMF, lmf_addr));
4691
4692                 /*---------------------------------------------------------------*/
4693                 /* Get current lmf                                               */
4694                 /*---------------------------------------------------------------*/
4695                 s390_l     (code, s390_r0, 0, s390_r2, 0);
4696
4697                 /*---------------------------------------------------------------*/
4698                 /* Set our lmf as the current lmf                                */
4699                 /*---------------------------------------------------------------*/
4700                 s390_st    (code, s390_r13, 0, s390_r2, 0);
4701
4702                 /*---------------------------------------------------------------*/
4703                 /* Have our lmf.previous_lmf point to the last lmf               */
4704                 /*---------------------------------------------------------------*/
4705                 s390_st    (code, s390_r0, 0, s390_r13,
4706                             G_STRUCT_OFFSET(MonoLMF, previous_lmf));
4707
4708                 /*---------------------------------------------------------------*/
4709                 /* save method info                                              */
4710                 /*---------------------------------------------------------------*/
4711                 s390_basr  (code, s390_r1, 0);
4712                 s390_j     (code, 4);
4713                 s390_word  (code, method);
4714                 s390_l     (code, s390_r1, 0, s390_r1, 4);
4715                 s390_st    (code, s390_r1, 0, s390_r13,
4716                             G_STRUCT_OFFSET(MonoLMF, method));
4717
4718                 /*---------------------------------------------------------------*/
4719                 /* save the current IP                                           */
4720                 /*---------------------------------------------------------------*/
4721                 s390_st    (code, STK_BASE, 0, s390_r13, G_STRUCT_OFFSET(MonoLMF, ebp));
4722                 s390_basr  (code, s390_r1, 0);
4723                 s390_la    (code, s390_r1, 0, s390_r1, 0);
4724                 s390_st    (code, s390_r1, 0, s390_r13, G_STRUCT_OFFSET(MonoLMF, eip));
4725
4726                 /*---------------------------------------------------------------*/
4727                 /* Save general and floating point registers                     */
4728                 /*---------------------------------------------------------------*/
4729                 s390_stm   (code, s390_r2, s390_r12, s390_r13,
4730                             G_STRUCT_OFFSET(MonoLMF, gregs[2]));
4731                 for (i = 0; i < 16; i++) {
4732                         s390_std  (code, i, 0, s390_r13,
4733                                    G_STRUCT_OFFSET(MonoLMF, fregs[i]));
4734                 }
4735
4736                 /*---------------------------------------------------------------*/
4737                 /* Restore the parameter registers now that we've set up the lmf */
4738                 /*---------------------------------------------------------------*/
4739                 s390_lm    (code, s390_r2, s390_r6, s390_r13,
4740                             G_STRUCT_OFFSET(MonoLMF, pregs[0]));
4741         }
4742
4743         if (tracing)
4744                 code = mono_arch_instrument_prolog(cfg, enter_method, code, TRUE);
4745
4746         cfg->code_len = code - cfg->native_code;
4747
4748         g_assert (cfg->code_len < cfg->code_size);
4749
4750         return code;
4751 }
4752
4753 /*========================= End of Function ========================*/
4754
4755 /*------------------------------------------------------------------*/
4756 /*                                                                  */
4757 /* Name         - mono_arch_emit_epilog                             */
4758 /*                                                                  */
4759 /* Function     - Emit the instructions for a function epilog.      */
4760 /*                                                                  */
4761 /*------------------------------------------------------------------*/
4762
4763 void
4764 mono_arch_emit_epilog (MonoCompile *cfg)
4765 {
4766         MonoMethod *method = cfg->method;
4767         int tracing = 0;
4768         guint8 *code;
4769         int max_epilog_size = 96;
4770
4771         if (cfg->method->save_lmf)
4772                 max_epilog_size += 128;
4773
4774         if (mono_jit_trace_calls != NULL)
4775                 max_epilog_size += 128;
4776
4777         if (cfg->prof_options & MONO_PROFILE_ENTER_LEAVE)
4778                 max_epilog_size += 128;
4779
4780         while ((cfg->code_len + max_epilog_size) > (cfg->code_size - 16)) {
4781                 cfg->code_size  *= 2;
4782                 cfg->native_code = g_realloc (cfg->native_code, cfg->code_size);
4783                 cfg->stat_code_reallocs++;
4784         }
4785
4786         code = cfg->native_code + cfg->code_len;
4787
4788         if (mono_jit_trace_calls != NULL && mono_trace_eval (method)) {
4789                 code = mono_arch_instrument_epilog (cfg, leave_method, code, TRUE);
4790                 tracing = 1;
4791         }
4792
4793         if (method->save_lmf)
4794                 restoreLMF(code, cfg->frame_reg, cfg->stack_usage);
4795
4796         if (cfg->flags & MONO_CFG_HAS_ALLOCA)
4797                 s390_l (code, STK_BASE, 0, STK_BASE, 0);
4798         else
4799                 code = backUpStackPtr(cfg, code, STK_BASE);
4800
4801         s390_lm  (code, s390_r6, s390_r14, STK_BASE, S390_REG_SAVE_OFFSET);
4802         s390_br  (code, s390_r14);
4803
4804         cfg->code_len = code - cfg->native_code;
4805
4806         g_assert (cfg->code_len < cfg->code_size);
4807
4808 }
4809
4810 /*========================= End of Function ========================*/
4811
4812 /*------------------------------------------------------------------*/
4813 /*                                                                  */
4814 /* Name         - mono_arch_emit_exceptions                         */
4815 /*                                                                  */
4816 /* Function     - Emit the blocks to handle exception conditions.   */
4817 /*                                                                  */
4818 /*------------------------------------------------------------------*/
4819
4820 void
4821 mono_arch_emit_exceptions (MonoCompile *cfg)
4822 {
4823         MonoJumpInfo    *patch_info;
4824         guint8          *code;
4825         int             nThrows = 0,
4826                         exc_count = 0,
4827                         iExc;
4828         guint32         code_size;
4829         MonoClass       *exc_classes [MAX_EXC];
4830         guint8          *exc_throw_start [MAX_EXC];
4831
4832         for (patch_info = cfg->patch_info;
4833              patch_info;
4834              patch_info = patch_info->next) {
4835                 if (patch_info->type == MONO_PATCH_INFO_EXC)
4836                         exc_count++;
4837         }
4838
4839         code_size = exc_count * 26;
4840
4841         while ((cfg->code_len + code_size) > (cfg->code_size - 16)) {
4842                 cfg->code_size  *= 2;
4843                 cfg->native_code = g_realloc (cfg->native_code, cfg->code_size);
4844                 cfg->stat_code_reallocs++;
4845         }
4846
4847         code = cfg->native_code + cfg->code_len;
4848
4849         /*---------------------------------------------------------------------*/
4850         /* Add code to raise exceptions                                        */
4851         /*---------------------------------------------------------------------*/
4852         for (patch_info = cfg->patch_info; patch_info; patch_info = patch_info->next) {
4853                 switch (patch_info->type) {
4854                 case MONO_PATCH_INFO_EXC: {
4855                         guint8 *ip = patch_info->ip.i + cfg->native_code;
4856                         MonoClass *exc_class;
4857                         guint32 throw_ip;
4858
4859                         /*-----------------------------------------------------*/
4860                         /* Patch the branch in epilog to come here             */
4861                         /*-----------------------------------------------------*/
4862                         s390_patch (ip + 2, (guint32) (S390_RELATIVE(code,ip)));
4863
4864                         exc_class = mono_class_from_name (mono_defaults.corlib,
4865                                                           "System",
4866                                                           patch_info->data.name);
4867                         g_assert (exc_class);
4868                         throw_ip = patch_info->ip.i;
4869
4870                         for (iExc = 0; iExc < nThrows; ++iExc)
4871                                 if (exc_classes [iExc] == exc_class)
4872                                         break;
4873
4874                         if (iExc < nThrows) {
4875                                 s390_jcl (code, S390_CC_UN, (guint32) exc_throw_start [iExc]);
4876                                 patch_info->type = MONO_PATCH_INFO_NONE;
4877                         } else {
4878
4879                                 if (nThrows < MAX_EXC) {
4880                                         exc_classes [nThrows]     = exc_class;
4881                                         exc_throw_start [nThrows] = code;
4882                                 }
4883
4884                                 /*---------------------------------------------*/
4885                                 /* Patch the parameter passed to the handler   */
4886                                 /*---------------------------------------------*/
4887                                 s390_basr (code, s390_r13, 0);
4888                                 s390_j    (code, 4);
4889                                 s390_word (code, patch_info->data.target);
4890                                 /*---------------------------------------------*/
4891                                 /* Load return address & parameter register    */
4892                                 /*---------------------------------------------*/
4893                                 s390_larl (code, s390_r14, (gsize)S390_RELATIVE((patch_info->ip.i +
4894                                                            cfg->native_code + 8), code));
4895                                 s390_l    (code, s390_r2, 0, s390_r13, 4);
4896                                 /*---------------------------------------------*/
4897                                 /* Reuse the current patch to set the jump     */
4898                                 /*---------------------------------------------*/
4899                                 patch_info->type      = MONO_PATCH_INFO_INTERNAL_METHOD;
4900                                 patch_info->data.name = "mono_arch_throw_exception_by_name";
4901                                 patch_info->ip.i      = code - cfg->native_code;
4902                                 s390_jcl  (code, S390_CC_UN, 0);
4903                         }
4904                         break;
4905                 }
4906                 default:
4907                         /* do nothing */
4908                         break;
4909                 }
4910         }
4911
4912         cfg->code_len = code - cfg->native_code;
4913
4914         g_assert (cfg->code_len < cfg->code_size);
4915
4916 }
4917
4918 /*========================= End of Function ========================*/
4919
4920 /*------------------------------------------------------------------*/
4921 /*                                                                  */
4922 /* Name         - mono_arch_finish_init                                 */
4923 /*                                                                  */
4924 /* Function     - Setup the JIT's Thread Level Specific Data.       */
4925 /*                                                                  */
4926 /*------------------------------------------------------------------*/
4927
4928 void
4929 mono_arch_finish_init (void)
4930 {
4931 #if HAVE_KW_THREAD
4932 # if 0
4933         __asm__ ("\tear\t%r1,0\n"
4934                  "\tlr\t%0,%3\n"
4935                  "\tsr\t%0,%r1\n"
4936                  "\tlr\t%1,%4\n"
4937                  "\tsr\t%1,%r1\n"
4938                  "\tlr\t%2,%5\n"
4939                  "\tsr\t%2,%r1\n"
4940                  : "=r" (appdomain_tls_offset),
4941                    "=r" (thread_tls_offset),
4942                    "=r" (lmf_tls_offset)
4943                  : "r" (&tls_appdomain),
4944                    "r" (&tls_current_object),
4945                    "r" (&mono_lmf_addr)
4946                  : "1", "cc");
4947 # endif
4948 #endif
4949
4950         if (!lmf_addr_key_inited) {
4951                 lmf_addr_key_inited = TRUE;
4952                 pthread_key_create (&lmf_addr_key, NULL);
4953         }
4954         pthread_setspecific (lmf_addr_key, &tls->lmf);
4955
4956 }
4957
4958 /*========================= End of Function ========================*/
4959
4960 /*------------------------------------------------------------------*/
4961 /*                                                                  */
4962 /* Name         - mono_arch_free_jit_tls_data                       */
4963 /*                                                                  */
4964 /* Function     - Free tls data.                                    */
4965 /*                                                                  */
4966 /*------------------------------------------------------------------*/
4967
4968 void
4969 mono_arch_free_jit_tls_data (MonoJitTlsData *tls)
4970 {
4971 }
4972
4973 /*========================= End of Function ========================*/
4974
4975 /*------------------------------------------------------------------*/
4976 /*                                                                  */
4977 /* Name         - mono_arch_emit_inst_for_method                    */
4978 /*                                                                  */
4979 /*------------------------------------------------------------------*/
4980
4981 MonoInst*
4982 mono_arch_emit_inst_for_method (MonoCompile *cfg, MonoMethod *cmethod, MonoMethodSignature *fsig, MonoInst **args)
4983 {
4984         return NULL;
4985 }
4986
4987 /*========================= End of Function ========================*/
4988
4989 /*------------------------------------------------------------------*/
4990 /*                                                                  */
4991 /* Name         - mono_arch_decompose_opts                          */
4992 /*                                                                  */
4993 /*------------------------------------------------------------------*/
4994
4995 void
4996 mono_arch_decompose_opts (MonoCompile *cfg, MonoInst *ins)
4997 {
4998         switch (ins->opcode) {
4999         case OP_ISUB_OVF:
5000                 ins->opcode = OP_S390_ISUB_OVF;
5001                 break;
5002         case OP_ISUB_OVF_UN:
5003                 ins->opcode = OP_S390_ISUB_OVF_UN;
5004                 break;
5005         case OP_IADD_OVF:
5006                 ins->opcode = OP_S390_IADD_OVF;
5007                 break;
5008         case OP_IADD_OVF_UN:
5009                 ins->opcode = OP_S390_IADD_OVF_UN;
5010                 break;
5011         default:
5012                 break;
5013         }
5014 }
5015
5016 /*========================= End of Function ========================*/
5017
5018 /*------------------------------------------------------------------*/
5019 /*                                                                  */
5020 /* Name         - mono_arch_decompose_long_opts                     */
5021 /*                                                                  */
5022 /*------------------------------------------------------------------*/
5023
5024 void
5025 mono_arch_decompose_long_opts (MonoCompile *cfg, MonoInst *ins)
5026 {
5027         // The generic code seems to work for OP_LSUB fine on s390, why is a different
5028         // implementation needed ? gcc also seems to use the different implementation.
5029         // FIXME: What about the other OP_L opcodes below ?
5030
5031         switch (ins->opcode) {
5032         case OP_LADD_OVF:
5033         case OP_LADD_OVF_UN:
5034         case OP_LSUB_OVF:
5035         case OP_LSUB_OVF_UN: {
5036                 int opcode = 0;
5037
5038                 switch (ins->opcode) {
5039                 case OP_LADD:
5040                         opcode = OP_S390_LADD;
5041                         break;
5042                 case OP_LADD_OVF:
5043                         opcode = OP_S390_LADD_OVF;
5044                         break;
5045                 case OP_LADD_OVF_UN:
5046                         opcode = OP_S390_LADD_OVF_UN;
5047                         break;
5048                 case OP_LSUB:
5049                         opcode = OP_S390_LSUB;
5050                         break;
5051                 case OP_LSUB_OVF:
5052                         opcode = OP_S390_LSUB_OVF;
5053                         break;
5054                 case OP_LSUB_OVF_UN:
5055                         opcode = OP_S390_LSUB_OVF_UN;
5056                         break;
5057                 default:
5058                         g_assert_not_reached ();
5059                 }
5060
5061                 /* These hard regs make ssa crazy */
5062                 cfg->disable_ssa = TRUE;
5063                 MONO_EMIT_NEW_UNALU (cfg, OP_MOVE, s390_r0, ins->sreg1 + 1);
5064                 MONO_EMIT_NEW_UNALU (cfg, OP_MOVE, s390_r1, ins->sreg1 + 2);
5065                 MONO_EMIT_NEW_BIALU (cfg, opcode, ins->dreg, ins->sreg2 + 1, ins->sreg2 + 2);
5066                 NULLIFY_INS (ins);
5067                 break;
5068         }
5069         case OP_LADD_IMM: {
5070                 int dreg = mono_alloc_dreg (cfg, STACK_I8);
5071                 MONO_EMIT_NEW_I8CONST (cfg, dreg, ins->inst_l);
5072                 MONO_EMIT_NEW_BIALU (cfg, OP_LADD, ins->dreg, ins->sreg1, dreg);
5073                 NULLIFY_INS (ins);
5074                 break;
5075         }
5076         case OP_LSUB_IMM: {
5077                 int dreg = mono_alloc_dreg (cfg, STACK_I8);
5078                 MONO_EMIT_NEW_I8CONST (cfg, dreg, ins->inst_l);
5079                 MONO_EMIT_NEW_BIALU (cfg, OP_LSUB, ins->dreg, ins->sreg1, dreg);
5080                 NULLIFY_INS (ins);
5081                 break;
5082         }
5083         case OP_LNEG: {
5084                 MONO_EMIT_NEW_BIALU (cfg, OP_S390_LNEG, ins->dreg, ins->sreg1 + 1, ins->sreg1 + 2);
5085                 NULLIFY_INS (ins);
5086                 break;
5087         }
5088         case OP_ISUB_OVF:
5089                 ins->opcode = OP_S390_ISUB_OVF;
5090                 break;
5091         case OP_ISUB_OVF_UN:
5092                 ins->opcode = OP_S390_ISUB_OVF_UN;
5093                 break;
5094         default:
5095                 break;
5096         }
5097 }
5098
5099 /*========================= End of Function ========================*/
5100
5101 /*------------------------------------------------------------------*/
5102 /*                                                                  */
5103 /* Name         - mono_arch_print_tree                              */
5104 /*                                                                  */
5105 /* Function     - Print platform-specific opcode details.           */
5106 /*                                                                  */
5107 /* Returns      - 1 - opcode details have been printed              */
5108 /*                0 - opcode details have not been printed          */
5109 /*                                                                  */
5110 /*------------------------------------------------------------------*/
5111
5112 gboolean
5113 mono_arch_print_tree (MonoInst *tree, int arity)
5114 {
5115         gboolean done;
5116
5117         switch (tree->opcode) {
5118                 case OP_S390_LOADARG:
5119                 case OP_S390_ARGREG:
5120                 case OP_S390_ARGPTR:
5121                         printf ("[0x%lx(%s)]", tree->inst_offset,
5122                                 mono_arch_regname (tree->inst_basereg));
5123                         done = 1;
5124                         break;
5125                 case OP_S390_STKARG:
5126                         printf ("[0x%lx(previous_frame)]",
5127                                 tree->inst_offset);
5128                         done = 1;
5129                         break;
5130                 case OP_S390_MOVE:
5131                         printf ("[0x%lx(%d,%s),0x%lx(%s)]",
5132                                 tree->inst_offset, tree->backend.size,
5133                                 mono_arch_regname(tree->dreg), tree->inst_imm,
5134                                 mono_arch_regname(tree->sreg1));
5135                         done = 1;
5136                         break;
5137                 case OP_S390_SETF4RET:
5138                         printf ("[%s,%s]",
5139                                 mono_arch_fregname (tree->dreg),
5140                                 mono_arch_fregname (tree->sreg1));
5141                         done = 1;
5142                         break;
5143                 case OP_TLS_GET:
5144                         printf ("[0x%lx(0x%lx,%s)]", tree->inst_offset,
5145                                 tree->inst_imm,
5146                                 mono_arch_regname (tree->sreg1));
5147                         done = 1;
5148                         break;
5149                 case OP_S390_BKCHAIN:
5150                         printf ("[previous_frame(%s)]",
5151                                 mono_arch_regname (tree->sreg1));
5152                         done = 1;
5153                         break;
5154                 default:
5155                         done = 0;
5156         }
5157         return (done);
5158 }
5159
5160 /*========================= End of Function ========================*/
5161
5162 /*------------------------------------------------------------------*/
5163 /*                                                                  */
5164 /* Name         - mono_arch_regalloc_cost                           */
5165 /*                                                                  */
5166 /* Function     - Determine the cost, in the number of memory       */
5167 /*                references, of the action of allocating the var-  */
5168 /*                iable VMV into a register during global register  */
5169 /*                allocation.                                       */
5170 /*                                                                  */
5171 /* Returns      - Cost                                              */
5172 /*                                                                  */
5173 /*------------------------------------------------------------------*/
5174
5175 guint32
5176 mono_arch_regalloc_cost (MonoCompile *cfg, MonoMethodVar *vmv)
5177 {
5178         /* FIXME: */
5179         return 2;
5180 }
5181
5182 /*========================= End of Function ========================*/
5183
5184 /*------------------------------------------------------------------*/
5185 /*                                                                  */
5186 /* Name         - mono_arch_get_domain_intrinsic                    */
5187 /*                                                                  */
5188 /* Function     -                                                   */
5189 /*                                                                  */
5190 /* Returns      -                                                   */
5191 /*                                                                  */
5192 /*------------------------------------------------------------------*/
5193
5194 MonoInst *
5195 mono_arch_get_domain_intrinsic (MonoCompile* cfg)
5196 {
5197         MonoInst *ins;
5198
5199         if (appdomain_tls_offset == -1)
5200                 return NULL;
5201
5202         MONO_INST_NEW (cfg, ins, OP_TLS_GET);
5203         ins->inst_offset = appdomain_tls_offset;
5204         return (ins);
5205 }
5206
5207 /*========================= End of Function ========================*/
5208
5209 /*------------------------------------------------------------------*/
5210 /*                                                                  */
5211 /* Name         - mono_arch_flush_register_windows                  */
5212 /*                                                                  */
5213 /* Function     -                                                   */
5214 /*                                                                  */
5215 /* Returns      -                                                   */
5216 /*                                                                  */
5217 /*------------------------------------------------------------------*/
5218
5219 void
5220 mono_arch_flush_register_windows (void)
5221 {
5222 }
5223
5224 /*========================= End of Function ========================*/
5225
5226 /*------------------------------------------------------------------*/
5227 /*                                                                  */
5228 /* Name         - mono_arch_get_lmf_addr                            */
5229 /*                                                                  */
5230 /* Function     -                                                   */
5231 /*                                                                  */
5232 /* Returns      -                                                   */
5233 /*                                                                  */
5234 /*------------------------------------------------------------------*/
5235
5236 gpointer
5237 mono_arch_get_lmf_addr (void)
5238 {
5239         return pthread_getspecific (lmf_addr_key);
5240 }
5241
5242
5243 /*========================= End of Function ========================*/
5244
5245 /*------------------------------------------------------------------*/
5246 /*                                                                  */
5247 /* Name         - mono_arch_get_patch_offset                        */
5248 /*                                                                  */
5249 /* Function     - Dummy entry point until s390x supports aot.       */
5250 /*                                                                  */
5251 /* Returns      - Offset for patch.                                 */
5252 /*                                                                  */
5253 /*------------------------------------------------------------------*/
5254
5255 guint32
5256 mono_arch_get_patch_offset (guint8 *code)
5257 {
5258         return 0;
5259 }
5260
5261 /*========================= End of Function ========================*/
5262
5263 /*------------------------------------------------------------------*/
5264 /*                                                                  */
5265 /* Name         - mono_arch_context_get_int_reg.                    */
5266 /*                                                                  */
5267 /* Function     - Dummy entry point until s390x supports aot.       */
5268 /*                                                                  */
5269 /* Returns      - Pointer to intreg.                                */
5270 /*                                                                  */
5271 /*------------------------------------------------------------------*/
5272
5273 mgreg_t
5274 mono_arch_context_get_int_reg (MonoContext *ctx, int reg)
5275 {
5276         /* FIXME: implement */
5277         g_assert_not_reached ();
5278         return NULL;
5279 }
5280
5281 /*========================= End of Function ========================*/