mono/arch/s390x/s390x-codegen.h

   1 /*
   2    Copyright (C)  2001 Radek Doulik
   3 */
   4
   5 #ifndef S390X_H
   6 #define S390X_H
   7 #include <glib.h>
   8 #include <assert.h>
   9
  10 #define FLOAT_REGS      2       /* No. float registers for parms    */
  11 #define GENERAL_REGS    5       /* No. general registers for parms  */
  12
  13 #define ARG_BASE s390_r10       /* Register for addressing arguments*/
  14 #define STKARG \
  15         (i*(sizeof(stackval)))  /* Displacement of ith argument     */
  16
  17 #define MINV_POS        160     /* MonoInvocation stack offset      */
  18 #define STACK_POS       (MINV_POS - sizeof (stackval) * sig->param_count)
  19 #define OBJ_POS         8
  20 #define TYPE_OFFSET     (G_STRUCT_OFFSET (stackval, type))
  21
  22 #define MIN_CACHE_LINE 256
  23
  24 /*------------------------------------------------------------------*/
  25 /* Sequence to add an int/long long to parameters to stack_from_data*/
  26 /*------------------------------------------------------------------*/
  27 #define ADD_ISTACK_PARM(r, i) \
  28         if (reg_param < GENERAL_REGS-(r)) { \
  29                 s390_la (p, s390_r4, 0, STK_BASE, \
  30                          local_start + (reg_param - this_flag) * sizeof(long)); \
  31                 reg_param += (i); \
  32         } else { \
  33                 s390_la (p, s390_r4, 0, STK_BASE, \
  34                          sz.stack_size + MINV_POS + stack_param * sizeof(long)); \
  35                 stack_param += (i); \
  36         }
  37
  38 /*------------------------------------------------------------------*/
  39 /* Sequence to add a float/double to parameters to stack_from_data  */
  40 /*------------------------------------------------------------------*/
  41 #define ADD_RSTACK_PARM(i) \
  42         if (fpr_param < FLOAT_REGS) { \
  43                 s390_la (p, s390_r4, 0, STK_BASE, \
  44                          float_pos + (fpr_param * sizeof(float) * (i))); \
  45                 fpr_param++; \
  46         } else { \
  47                 stack_param += (stack_param % (i)); \
  48                 s390_la (p, s390_r4, 0, STK_BASE, \
  49                          sz.stack_size + MINV_POS + stack_param * sizeof(float) * (i)); \
  50                 stack_param += (i); \
  51         }
  52
  53 /*------------------------------------------------------------------*/
  54 /* Sequence to add a structure ptr to parameters to stack_from_data */
  55 /*------------------------------------------------------------------*/
  56 #define ADD_TSTACK_PARM \
  57         if (reg_param < GENERAL_REGS) { \
  58                 s390_l (p, s390_r4, 0, STK_BASE, \
  59                         local_start + (reg_param - this_flag) * sizeof(long)); \
  60                 reg_param++; \
  61         } else { \
  62                 s390_l (p, s390_r4, 0, STK_BASE, \
  63                         sz.stack_size + MINV_POS + stack_param * sizeof(long)); \
  64                 stack_param++; \
  65         }
  66
  67 #define ADD_PSTACK_PARM(r, i) \
  68         if (reg_param < GENERAL_REGS-(r)) { \
  69                 s390_la (p, s390_r4, 0, STK_BASE, \
  70                          local_start + (reg_param - this_flag) * sizeof(long)); \
  71                 reg_param += (i); \
  72         } else { \
  73                 s390_l (p, s390_r4, 0, STK_BASE, \
  74                         sz.stack_size + MINV_POS + stack_param * sizeof(long)); \
  75                 stack_param++; \
  76         }
  77 typedef enum {
  78         s390_r0 = 0,
  79         s390_r1,
  80         s390_r2,
  81         s390_r3,
  82         s390_r4,
  83         s390_r5,
  84         s390_r6,
  85         s390_r7,
  86         s390_r8,
  87         s390_r9,
  88         s390_r10,
  89         s390_r11,
  90         s390_r12,
  91         s390_r13,
  92         s390_r14,
  93         s390_r15,
  94 } S390IntRegister;
  95
  96 typedef enum {
  97         s390_f0 = 0,
  98         s390_f1,
  99         s390_f2,
 100         s390_f3,
 101         s390_f4,
 102         s390_f5,
 103         s390_f6,
 104         s390_f7,
 105         s390_f8,
 106         s390_f9,
 107         s390_f10,
 108         s390_f11,
 109         s390_f12,
 110         s390_f13,
 111         s390_f14,
 112         s390_f15,
 113 } S390FloatRegister;
 114
 115 typedef enum {
 116         s390_a0 = 0,
 117         s390_a1,
 118         s390_a2,
 119         s390_a3,
 120         s390_a4,
 121         s390_a5,
 122         s390_a6,
 123         s390_a7,
 124         s390_a8,
 125         s390_a9,
 126         s390_a10,
 127         s390_a11,
 128         s390_a12,
 129         s390_a13,
 130         s390_a14,
 131         s390_a15,
 132 } S390AccRegister;
 133
 134 typedef enum {
 135         s390_fpc = 256,
 136 } S390SpecialRegister;
 137
 138 #define s390_is_imm16(val)              ((gint)val >= (gint)-(1<<15) && \
 139                                          (gint)val <= (gint)((1<<15)-1))
 140 #define s390_is_uimm16(val)             ((gint)val >= 0 && (gint)val <= 65535)
 141 #define s390_is_imm12(val)              ((gint)val >= (gint)-(1<<11) && \
 142                                          (gint)val <= (gint)((1<<15)-1))
 143 #define s390_is_uimm12(val)             ((gint)val >= 0 && (gint)val <= 4095)
 144
 145 #define STK_BASE                        s390_r15
 146 #define S390_MINIMAL_STACK_SIZE         160
 147 #define S390_REG_SAVE_OFFSET            48
 148 #define S390_PARM_SAVE_OFFSET           16
 149 #define S390_RET_ADDR_OFFSET            112
 150 #define S390_FLOAT_SAVE_OFFSET          128
 151
 152 #define S390_CC_ZR                      8
 153 #define S390_CC_NE                      7
 154 #define S390_CC_NZ                      7
 155 #define S390_CC_LT                      4
 156 #define S390_CC_GT                      2
 157 #define S390_CC_GE                      11
 158 #define S390_CC_LE                      13
 159 #define S390_CC_OV                      1
 160 #define S390_CC_NO                      14
 161 #define S390_CC_CY                      3
 162 #define S390_CC_NC                      12
 163 #define S390_CC_UN                      15
 164
 165 #define s390_word(addr, value) do               \
 166 {                                               \
 167         * (guint32 *) addr = (guint32) value;   \
 168         addr += sizeof(guint32);                \
 169 } while (0)
 170
 171 #define s390_float(addr, value) do              \
 172 {                                               \
 173         * (gfloat *) addr = (gfloat) value;     \
 174         addr += sizeof(gfloat);                 \
 175 } while (0)
 176
 177 #define s390_llong(addr, value) do              \
 178 {                                               \
 179         * (guint64 *) addr = (guint64) value;   \
 180         addr += sizeof(guint64);                \
 181 } while (0)
 182
 183 #define s390_double(addr, value) do             \
 184 {                                               \
 185         * (gdouble *) addr = (gdouble) value;   \
 186         addr += sizeof(gdouble);                \
 187 } while (0)
 188
 189 typedef struct {
 190         short   op;
 191 } E_Format;
 192
 193 typedef struct {
 194         char    op;
 195         int     im;
 196 } I_Format;
 197
 198 typedef struct {
 199         char    op;
 200         char    r1 : 4;
 201         char    r2 : 4;
 202 } RR_Format;
 203
 204 typedef struct {
 205         short   op;
 206         char    xx;
 207         char    r1 : 4;
 208         char    r2 : 4;
 209 } RRE_Format;
 210
 211 typedef struct {
 212         short   op;
 213         char    r1 : 4;
 214         char    xx : 4;
 215         char    r3 : 4;
 216         char    r2 : 4;
 217 } RRF_Format_1;
 218
 219 typedef struct {
 220         short   op;
 221         char    m3 : 4;
 222         char    xx : 4;
 223         char    r1 : 4;
 224         char    r2 : 4;
 225 } RRF_Format_2;
 226
 227 typedef struct {
 228         short   op;
 229         char    r3 : 4;
 230         char    m4 : 4;
 231         char    r1 : 4;
 232         char    r2 : 4;
 233 } RRF_Format_3;
 234
 235 typedef struct {
 236         char    op;
 237         char    r1 : 4;
 238         char    x2 : 4;
 239         char    b2 : 4;
 240         short   d2 : 12;
 241 } RX_Format;
 242
 243 typedef struct {
 244         char    op1;
 245         char    r1 : 4;
 246         char    x2 : 4;
 247         char    b2 : 4;
 248         int     d2 : 12;
 249         char    xx;
 250         char    op2;
 251 } RXE_Format;
 252
 253 typedef struct {
 254         char    op1;
 255         char    r3 : 4;
 256         char    x2 : 4;
 257         char    b2 : 4;
 258         int     d2 : 12;
 259         char    r1 : 4;
 260         char    xx : 4;
 261         char    op2;
 262 } RXF_Format;
 263
 264 typedef struct {
 265         char    op1;
 266         char    r1 : 4;
 267         char    x2 : 4;
 268         char    b2 : 4;
 269         int     d2 : 20;
 270         char    op2;
 271 } RXY_Format __attribute__ ((packed));
 272
 273 typedef struct {
 274         char    op;
 275         char    r1 : 4;
 276         char    r3 : 4;
 277         char    b2 : 4;
 278         int     d2 : 12;
 279 } RS_Format_1;
 280
 281 typedef struct {
 282         char    op;
 283         char    r1 : 4;
 284         char    m3 : 4;
 285         char    b2 : 4;
 286         int     d2 : 12;
 287 } RS_Format_2;
 288
 289 typedef struct {
 290         char    op;
 291         char    r1 : 4;
 292         char    xx : 4;
 293         char    b2 : 4;
 294         int     d2 : 12;
 295 } RS_Format_3;
 296
 297 typedef struct {
 298         char    op1;
 299         char    r1 : 4;
 300         char    r3 : 4;
 301         char    b2 : 4;
 302         int     d2 : 20;
 303         char    op2;
 304 } RSY_Format_1 __attribute__ ((packed));
 305
 306 typedef struct {
 307         char    op1;
 308         char    r1 : 4;
 309         char    m3 : 4;
 310         char    b2 : 4;
 311         int     d2 : 20;
 312         char    op2;
 313 } RSY_Format_2 __attribute__ ((packed));
 314
 315 typedef struct {
 316         char    op1;
 317         char    l1 : 4;
 318         char    xx : 4;
 319         char    b1 : 4;
 320         int     d1 : 12;
 321         char    yy;
 322         char    op2;
 323 } RSL_Format;
 324
 325 typedef struct {
 326         char    op;
 327         char    r1 : 4;
 328         char    r3 : 4;
 329         short   i2;
 330 } RSI_Format;
 331
 332 typedef struct {
 333         char    op1;
 334         char    r1 : 4;
 335         char    op2 : 4;
 336         short   i2;
 337 } RI_Format;
 338
 339 typedef struct {
 340         char    op1;
 341         char    r1 : 4;
 342         char    r3 : 4;
 343         short   i2;
 344         char    xx;
 345         char    op2;
 346 } RIE_Format;
 347
 348 typedef struct {
 349         char    op1;
 350         char    r1 : 4;
 351         char    op2 : 4;
 352         int     i2;
 353 } RIL_Format_1 __attribute__ ((packed));
 354
 355 typedef struct {
 356         char    op1;
 357         char    m1 : 4;
 358         char    op2 : 4;
 359         int     i2;
 360 } RIL_Format_2 __attribute__ ((packed));
 361
 362 typedef struct {
 363         char    op;
 364         char    i2;
 365         char    b1 : 4;
 366         short   d1 : 12;
 367 } SI_Format;
 368
 369 typedef struct {
 370         char    op1;
 371         char    i2;
 372         char    b1 : 4;
 373         int     d1 : 20;
 374         char    op2;
 375 } SIY_Format __attribute__ ((packed));
 376
 377 typedef struct {
 378         short   op;
 379         char    b2 : 4;
 380         short   d2 : 12;
 381 } S_Format;
 382
 383 typedef struct {
 384         char    op;
 385         char    ll;
 386         char    b1 : 4;
 387         short   d1 : 12;
 388         char    b2 : 4;
 389         short   d2 : 12;
 390 } SS_Format_1;
 391
 392 typedef struct {
 393         char    op;
 394         char    l1 : 4;
 395         char    l2 : 4;
 396         char    b1 : 4;
 397         short   d1 : 12;
 398         char    b2 : 4;
 399         short   d2 : 12;
 400 } SS_Format_2;
 401
 402 typedef struct {
 403         char    op;
 404         char    r1 : 4;
 405         char    r3 : 4;
 406         char    b1 : 4;
 407         short   d1 : 12;
 408         char    b2 : 4;
 409         short   d2 : 12;
 410 } SS_Format_3;
 411
 412 typedef struct {
 413         char    op;
 414         char    r1 : 4;
 415         char    r3 : 4;
 416         char    b2 : 4;
 417         short   d2 : 12;
 418         char    b4 : 4;
 419         short   d4 : 12;
 420 } SS_Format_4;
 421
 422 typedef struct {
 423         short   op;
 424         char    b1 : 4;
 425         short   d1 : 12;
 426         char    b2 : 4;
 427         short   d2 : 12;
 428 } SSE_Format __attribute__ ((packed));
 429
 430 #define s390_emit16(c, x) do                    \
 431 {                                               \
 432         *((guint16 *) c) = x;                   \
 433         c += sizeof(guint16);                   \
 434 } while(0)
 435
 436 #define s390_emit32(c, x) do                    \
 437 {                                               \
 438         *((guint32 *) c) = x;                   \
 439         c += sizeof(guint32);                   \
 440 } while(0)
 441
 442 #define S390_E(c,opc)                   s390_emit16(c,opc)
 443
 444 #define S390_I(c,opc,imm)               s390_emit16(c, (opc << 8 | imm))
 445
 446 #define S390_RR(c,opc,g1,g2)            s390_emit16(c, (opc << 8 | (g1) << 4 | g2))
 447
 448 #define S390_RRE(c,opc,g1,g2)           s390_emit32(c, (opc << 16 | (g1) << 4 | g2))
 449
 450 #define S390_RRF_1(c,opc,g1,g2,g3)      s390_emit32(c, (opc << 16 | (g1) << 12 | (g3) << 4 | g2))
 451
 452 #define S390_RRF_2(c,opc,g1,k3,g2)      s390_emit32(c, (opc << 16 | (k3) << 12 | (g1) << 4 | g2))
 453
 454 #define S390_RRF_3(c,opc,g1,g2,k4,g3)   s390_emit32(c, (opc << 16 | (g3) << 12 | (k4) << 8 | (g1) << 4 | g2))
 455
 456 #define S390_RX(c,opc,g1,n2,s2,p2)      s390_emit32(c, (opc << 24 | (g1) << 20 | (n2) << 16 | (s2) << 12 | ((p2) & 0xfff)))
 457
 458 #define S390_RXE(c,opc,g1,n2,s2,p2) do                          \
 459 {                                                               \
 460         s390_emit16(c, ((opc & 0xff00) | (g1) << 4 | n2));      \
 461         s390_emit32(c, ((s2) << 28 | (((p2) & 0xfff) << 16) |   \
 462                         (opc & 0xff)));                         \
 463 } while (0)
 464
 465 #define S390_RXY(c,opc,g1,n2,s2,p2) do                          \
 466 {                                                               \
 467         s390_emit16(c, ((opc & 0xff00) | (g1) << 4 | n2));      \
 468         s390_emit32(c, ((s2) << 28 | (((p2) & 0xfff) << 16) |   \
 469                         ((((p2) & 0xff000) >> 12) << 8) |       \
 470                         (opc & 0xff)));                         \
 471 } while (0)
 472
 473 #define S390_RS_1(c,opc,g1,g3,s2,p2)    s390_emit32(c, (opc << 24 | (g1) << 20 | (g3) << 16 | (s2) << 12 | ((p2) & 0xfff)))
 474
 475 #define S390_RS_2(c,opc,g1,k3,s2,p2)    s390_emit32(c, (opc << 24 | (g1) << 20 | (k3) << 16 | (s2) << 12 | ((p2) & 0xfff)))
 476
 477 #define S390_RS_3(c,opc,g1,s2,p2)       s390_emit32(c, (opc << 24 | (g1) << 20 | (s2) << 12 | ((p2) & 0xfff)))
 478
 479 #define S390_RSY_1(c,opc,g1,g3,s2,p2) do                        \
 480 {                                                               \
 481         s390_emit16(c, ((opc & 0xff00) | (g1) << 4 | g3));      \
 482         s390_emit32(c, ((s2) << 28 | (((p2) & 0xfff) << 16) |   \
 483                         ((((p2) & 0xff000) >> 12) << 8) |       \
 484                         (opc & 0xff)));                         \
 485 } while (0)
 486
 487 #define S390_RSY_2(c,opc,g1,k3,s2,p2) do                        \
 488 {                                                               \
 489         s390_emit16(c, ((opc & 0xff00) | (g1) << 4 | k3));      \
 490         s390_emit32(c, ((s2) << 28 | (((p2) & 0xfff) << 16) |   \
 491                         ((((p2) & 0xff000) >> 12) << 8) |       \
 492                         (opc & 0xff)));                         \
 493 } while (0)
 494
 495 #define S390_RSL(c,opc,ln,s1,p1) do                             \
 496 {                                                               \
 497         s390_emit16(c, ((opc & 0xff00) | (ln) << 4));           \
 498         s390_emit32(c, ((s1) << 28 | ((s1 & 0xfff) << 16) |     \
 499                         (opc & 0xff)));                         \
 500 } while (0)
 501
 502 #define S390_RSI(c,opc,g1,g3,m2)        s390_emit32(c, (opc << 24 | (g1) << 20 | (g3) << 16 | (m2 & 0xffff)))
 503
 504 #define S390_RI(c,opc,g1,m2)            s390_emit32(c, ((opc >> 4) << 24 | (g1) << 20 | (opc & 0x0f) << 16 | (m2 & 0xffff)))
 505
 506 #define S390_RIE(c,opc,g1,g3,m2) do                             \
 507 {                                                               \
 508         s390_emit16(c, ((opc & 0xff00) | (g1) << 4 | g3));      \
 509         s390_emit32(c, ((m2) << 16 | (opc & 0xff)));            \
 510 } while (0)
 511
 512 #define S390_RIL_1(c,opc,g1,m2) do                                      \
 513 {                                                                       \
 514         s390_emit16(c, ((opc >> 4) << 8 | (g1) << 4 | (opc & 0xf)));    \
 515         s390_emit32(c, m2);                                             \
 516 } while (0)
 517
 518 #define S390_RIL_2(c,opc,k1,m2) do                                      \
 519 {                                                                       \
 520         s390_emit16(c, ((opc >> 4) << 8 | (k1) << 4 | (opc & 0xf)));    \
 521         s390_emit32(c, m2);                                             \
 522 } while (0)
 523
 524 #define S390_SI(c,opc,s1,p1,m2)         s390_emit32(c, (opc << 24 | (m2) << 16 | (s1) << 12 | ((p1) & 0xfff)));
 525
 526 #define S390_SIY(c,opc,s1,p1,m2) do                             \
 527 {                                                               \
 528         s390_emit16(c, ((opc & 0xff00) | m2));                  \
 529         s390_emit32(c, ((s1) << 24 | (((p2) & 0xfffff) << 8) |  \
 530                         (opc & 0xff)));                         \
 531 } while (0)
 532
 533 #define S390_S(c,opc,s2,p2)     s390_emit32(c, (opc << 16 | (s2) << 12 | ((p2) & 0xfff)))
 534
 535 #define S390_SS_1(c,opc,ln,s1,p1,s2,p2) do                      \
 536 {                                                               \
 537         s390_emit32(c, (opc << 24 | ((ln-1) & 0xff) << 16 |     \
 538                         (s1) << 12 | ((p1) & 0xfff)));          \
 539         s390_emit16(c, ((s2) << 12 | ((p2) & 0xfff)));          \
 540 } while (0)
 541
 542 #define S390_SS_2(c,opc,n1,n2,s1,p1,s2,p2) do                   \
 543 {                                                               \
 544         s390_emit32(c, (opc << 24 | (n1) << 16 | (n2) << 12 |   \
 545                         (s1) << 12 | ((p1) & 0xfff)));          \
 546         s390_emit16(c, ((s2) << 12 | ((p2) & 0xfff)));          \
 547 } while (0)
 548
 549 #define S390_SS_3(c,opc,g1,g3,s1,p1,s2,p2) do                   \
 550 {                                                               \
 551         s390_emit32(c, (opc << 24 | (g1) << 16 | (g3) << 12 |   \
 552                         (s1) << 12 | ((p1) & 0xfff)));          \
 553         s390_emit16(c, ((s2) << 12 | ((p2) & 0xfff)));          \
 554 } while (0)
 555
 556 #define S390_SS_4(c,opc,g1,g3,s2,p2,s4,p4) do                   \
 557 {                                                               \
 558         s390_emit32(c, (opc << 24 | (g1) << 16 | (g3) << 12 |   \
 559                         (s2) << 12 | ((p2) & 0xfff)));          \
 560         s390_emit16(c, ((s4) << 12 | ((p4) & 0xfff)));          \
 561 } while (0)
 562
 563 #define S390_SSE(c,opc,s1,p1,s2,p2) do                  \
 564 {                                                       \
 565         s390_emit16(c, opc);                            \
 566         s390_emit16(c, ((s1) << 12 | ((p1) & 0xfff)));  \
 567         s390_emit16(c, ((s2) << 12 | ((p2) & 0xfff)));  \
 568 } while (0)
 569
 570 #define s390_basr(c, r1, r2)            S390_RR(c, 0x0d, r1, r2)
 571 #define s390_bras(c, r, o)              S390_RI(c, 0xa75, r, o)
 572 #define s390_brasl(c, r, o)             S390_RIL_1(c, 0xc05, r, o)
 573 #define s390_ahi(c, r, v)               S390_RI(c, 0xa7a, r, v)
 574 #define s390_aghi(c, r, v)              S390_RI(c, 0xa7b, r, v)
 575 #define s390_alcr(c, r1, r2)            S390_RRE(c, 0xb998, r1, r2)
 576 #define s390_alcgr(c, r1, r2)           S390_RRE(c, 0xb988, r1, r2)
 577 #define s390_ar(c, r1, r2)              S390_RR(c, 0x1a, r1, r2)
 578 #define s390_agr(c, r1, r2)             S390_RRE(c, 0xb908, r1, r2)
 579 #define s390_alr(c, r1, r2)             S390_RR(c, 0x1e, r1, r2)
 580 #define s390_algr(c, r1, r2)            S390_RRE(c, 0xb90a, r1, r2)
 581 #define s390_a(c, r, x, b, d)           S390_RX(c, 0x5a, r, x, b, d)
 582 #define s390_ag(c, r, x, b, d)          S390_RXY(c, 0xe308, r, x, b, d)
 583 #define s390_al(c, r, x, b, d)          S390_RX(c, 0x5e, r, x, b, d)
 584 #define s390_alg(c, r, x, b, d)         S390_RXY(c, 0xe30a, r, x, b, d)
 585 #define s390_slbr(c, r1, r2)            S390_RRE(c, 0xb999, r1, r2)
 586 #define s390_slbgr(c, r1, r2)           S390_RRE(c, 0xb989, r1, r2)
 587 #define s390_sr(c, r1, r2)              S390_RR(c, 0x1b, r1, r2)
 588 #define s390_sgr(c, r1, r2)             S390_RRE(c, 0xb909, r1, r2)
 589 #define s390_slr(c, r1, r2)             S390_RR(c, 0x1f, r1, r2)
 590 #define s390_slgr(c, r1, r2)            S390_RRE(c, 0xb90b, r1, r2)
 591 #define s390_s(c, r, x, b, d)           S390_RX(c, 0x5b, r, x, b, d)
 592 #define s390_sg(c, r, x, b, d)          S390_RXY(c, 0xe309, r, x, b, d)
 593 #define s390_sl(c, r, x, b, d)          S390_RX(c, 0x5f, r, x, b, d)
 594 #define s390_slg(c, r, x, b, d)         S390_RXY(c, 0xe30b, r, x, b, d)
 595 #define s390_mr(c, r1, r2)              S390_RR(c, 0x1c, r1, r2)
 596 #define s390_m(c, r, x, b, d)           S390_RX(c, 0x5c, r, x, b, d)
 597 #define s390_msr(c, r1, r2)             S390_RRE(c, 0xb252, r1, r2)
 598 #define s390_msgr(c, r1, r2)            S390_RRE(c, 0xb90c, r1, r2)
 599 #define s390_msgfr(c, r1, r2)           S390_RRE(c, 0xb91c, r1, r2)
 600 #define s390_ms(c, r, x, b, d)          S390_RX(c, 0x71, r, x, b, d)
 601 #define s390_mlr(c, r1, r2)             S390_RRE(c, 0xb996, r1, r2)
 602 #define s390_mlgr(c, r1, r2)            S390_RRE(c, 0xb986, r1, r2)
 603 #define s390_dr(c, r1, r2)              S390_RR(c, 0x1d, r1, r2)
 604 #define s390_dlr(c, r1, r2)             S390_RRE(c, 0xb997, r1, r2)
 605 #define s390_dlgr(c, r1, r2)            S390_RRE(c, 0xb987, r1, r2)
 606 #define s390_dsgr(c, r1, r2)            S390_RRE(c, 0xb90d, r1, r2)
 607 #define s390_dsgfr(c, r1, r2)           S390_RRE(c, 0xb91d, r1, r2)
 608 #define s390_br(c, r)                   S390_RR(c, 0x07, 0xf, r)
 609 #define s390_nr(c, r1, r2)              S390_RR(c, 0x14, r1, r2)
 610 #define s390_ngr(c, r1, r2)             S390_RRE(c, 0xb980, r1, r2)
 611 #define s390_n(c, r, x, b, d)           S390_RX(c, 0x54, r, x, b, d)
 612 #define s390_ng(c, r, x, b, d)          S390_RXY(c, 0xe380, r, x, b, d)
 613 #define s390_or(c, r1, r2)              S390_RR(c, 0x16, r1, r2)
 614 #define s390_ogr(c, r1, r2)             S390_RRE(c, 0xb981, r1, r2)
 615 #define s390_o(c, r, x, b, d)           S390_RX(c, 0x56, r, x, b, d)
 616 #define s390_og(c, r, x, b, d)          S390_RXY(c, 0xe381, r, x, b, d)
 617 #define s390_xr(c, r1, r2)              S390_RR(c, 0x17, r1, r2)
 618 #define s390_xgr(c, r1, r2)             S390_RRE(c, 0xb982, r1, r2)
 619 #define s390_x(c, r, x, b, d)           S390_RX(c, 0x57, r, x, b, d)
 620 #define s390_xg(c, r, x, b, d)          S390_RXY(c, 0xe382, r, x, b, d)
 621 #define s390_lr(c, r1, r2)              S390_RR(c, 0x18, r1, r2)
 622 #define s390_lgr(c, r1, r2)             S390_RRE(c, 0xb904, r1, r2)
 623 #define s390_lgfr(c, r1, r2)            S390_RRE(c, 0xb914, r1, r2)
 624 #define s390_llgfr(c, r1, r2)           S390_RRE(c, 0xb916, r1, r2)
 625 #define s390_ltr(c, r1, r2)             S390_RR(c, 0x12, r1, r2)
 626 #define s390_ltgr(c, r1, r2)            S390_RRE(c, 0xb902, r1, r2)
 627 #define s390_ltgfr(c, r1, r2)           S390_RRE(c, 0xb912, r1, r2)
 628 #define s390_l(c, r, x, b, d)           S390_RX(c, 0x58, r, x, b, d)
 629 #define s390_lg(c, r, x, b, d)          S390_RXY(c, 0xe304, r, x, b, d)
 630 #define s390_lgf(c, r, x, b, d)         S390_RXY(c, 0xe314, r, x, b, d)
 631 #define s390_llgf(c, r, x, b, d)        S390_RXY(c, 0xe316, r, x, b, d)
 632 #define s390_llgc(c, r, x, b, d)        S390_RXY(c, 0xe390, r, x, b, d)
 633 #define s390_llgh(c, r, x, b, d)        S390_RXY(c, 0xe391, r, x, b, d)
 634 #define s390_lb(c, r, x, b, d)          S390_RXY(c, 0xe376, r, x, b, d)
 635 #define s390_lgb(c, r, x, b, d)         S390_RXY(c, 0xe377, r, x, b, d)
 636 #define s390_lcr(c, r1, r2)             S390_RR(c, 0x13, r1, r2)
 637 #define s390_lcgr(c, r1, r2)            S390_RRE(c, 0xb903, r1, r2)
 638 #define s390_lnr(c, r1, r2)             S390_RR(c, 0x11, r1, r2)
 639 #define s390_lngr(c, r1, r2)            S390_RRE(c, 0xb901, r1, r2)
 640 #define s390_lpr(c, r1, r2)             S390_RR(c, 0x10, r1, r2)
 641 #define s390_lpgr(c, r1, r2)            S390_RRE(c, 0xb900, r1, r2)
 642 #define s390_lm(c, r1, r2, b, d)        S390_RS_1(c, 0x98, r1, r2, b, d)
 643 #define s390_lmg(c, r1, r2, b, d)       S390_RSY_1(c, 0xeb04, r1, r2, b, d)
 644 #define s390_lh(c, r, x, b, d)          S390_RX(c, 0x48, r, x, b, d)
 645 #define s390_lhg(c, r, x, b, d)         S390_RXY(c, 0xe315, r, x, b, d)
 646 #define s390_lhi(c, r, v)               S390_RI(c, 0xa78, r, v)
 647 #define s390_lghi(c, r, v)              S390_RI(c, 0xa79, r, v)
 648 #define s390_ic(c, r, x, b, d)          S390_RX(c, 0x43, r, x, b, d)
 649 #define s390_icm(c, r, m, b, d)         S390_RX(c, 0xbf, r, m, b, d)
 650 #define s390_st(c, r, x, b, d)          S390_RX(c, 0x50, r, x, b, d)
 651 #define s390_stg(c, r, x, b, d)         S390_RXY(c, 0xe324, r, x, b, d)
 652 #define s390_stm(c, r1, r2, b, d)       S390_RS_1(c, 0x90, r1, r2, b, d)
 653 #define s390_stmg(c, r1, r2, b, d)      S390_RSY_1(c, 0xeb24, r1, r2, b, d)
 654 #define s390_stam(c, r1, r2, b, d)      S390_RS_1(c, 0x9b, r1, r2, b, d)
 655 #define s390_lam(c, r1, r2, b, d)       S390_RS_1(c, 0x9a, r1, r2, b, d)
 656 #define s390_sth(c, r, x, b, d)         S390_RX(c, 0x40, r, x, b, d)
 657 #define s390_stc(c, r, x, b, d)         S390_RX(c, 0x42, r, x, b, d)
 658 #define s390_stcm(c, r, m, b, d)        S390_RX(c, 0xbe, r, m, b, d)
 659 #define s390_la(c, r, x, b, d)          S390_RX(c, 0x41, r, x, b, d)
 660 #define s390_larl(c, r, o)              S390_RIL_1(c, 0xc00, r, o)
 661 #define s390_ld(c, f, x, b, d)          S390_RX(c, 0x68, f, x, b, d)
 662 #define s390_le(c, f, x, b, d)          S390_RX(c, 0x78, f, x, b, d)
 663 #define s390_std(c, f, x, b, d)         S390_RX(c, 0x60, f, x, b, d)
 664 #define s390_ste(c, f, x, b, d)         S390_RX(c, 0x70, f, x, b, d)
 665 #define s390_mvc(c, l, b1, d1, b2, d2)  S390_SS_1(c, 0xd2, l, b1, d1, b2, d2)
 666 #define s390_mvcl(c, r1, r2)            S390_RR(c, 0x0e, r1, r2)
 667 #define s390_mvcle(c, r1, r3, d2, b2)   S390_RS_1(c, 0xa8, r1, r3, d2, b2)
 668 #define s390_break(c)                   S390_RR(c, 0, 0, 0)
 669 #define s390_nill(c, r, v)              S390_RI(c, 0xa57, r, v)
 670 #define s390_nilh(c, r, v)              S390_RI(c, 0xa56, r, v)
 671 #define s390_cr(c, r1, r2)              S390_RR(c, 0x19, r1, r2)
 672 #define s390_cgr(c, r1, r2)             S390_RRE(c, 0xb920, r1, r2)
 673 #define s390_clr(c, r1, r2)             S390_RR(c, 0x15, r1, r2)
 674 #define s390_clgr(c, r1, r2)            S390_RRE(c, 0xb921, r1, r2)
 675 #define s390_c(c, r, x, b, d)           S390_RX(c, 0x59, r, x, b, d)
 676 #define s390_cg(c, r, x, b, d)          S390_RXY(c, 0xe320, r, x, b, d)
 677 #define s390_cl(c, r, x, b, d)          S390_RX(c, 0x55, r, x, b, d)
 678 #define s390_clg(c, r, x, b, d)         S390_RXY(c, 0xe321, r, x, b, d)
 679 #define s390_chi(c, r, i)               S390_RI(c, 0xa7e, r, i)
 680 #define s390_cghi(c, r, i)              S390_RI(c, 0xa7f, r, i)
 681 #define s390_brc(c, m, d)               S390_RI(c, 0xa74, m, d)
 682 #define s390_j(c,d)                     s390_brc(c, S390_CC_UN, d)
 683 #define s390_je(c, d)                   s390_brc(c, S390_CC_EQ, d)
 684 #define s390_jeo(c, d)                  s390_brc(c, S390_CC_ZR|S390_CC_OV, d)
 685 #define s390_jz(c, d)                   s390_brc(c, S390_CC_ZR, d)
 686 #define s390_jnz(c, d)                  s390_brc(c, S390_CC_NZ, d)
 687 #define s390_jne(c, d)                  s390_brc(c, S390_CC_NZ, d)
 688 #define s390_jp(c, d)                   s390_brc(c, S390_CC_GT, d)
 689 #define s390_jm(c, d)                   s390_brc(c, S390_CC_LT, d)
 690 #define s390_jh(c, d)                   s390_brc(c, S390_CC_GT, d)
 691 #define s390_jl(c, d)                   s390_brc(c, S390_CC_LT, d)
 692 #define s390_jnh(c, d)                  s390_brc(c, S390_CC_LE, d)
 693 #define s390_jo(c, d)                   s390_brc(c, S390_CC_OV, d)
 694 #define s390_jnl(c, d)                  s390_brc(c, S390_CC_GE, d)
 695 #define s390_jlo(c, d)                  s390_brc(c, S390_CC_LT|S390_CC_OV, d)
 696 #define s390_jho(c, d)                  s390_brc(c, S390_CC_GT|S390_CC_OV, d)
 697 #define s390_jc(c, m, d)                s390_brc(c, m, d)
 698 #define s390_jcl(c, m, d)               S390_RIL_2(c, 0xc04, m, d)
 699 #define s390_slda(c, r, b, d)           S390_RS_3(c, 0x8f, r, b, d)
 700 #define s390_sldl(c, r, b, d)           S390_RS_3(c, 0x8d, r, b, d)
 701 #define s390_srda(c, r, b, d)           S390_RS_3(c, 0x8e, r, b, d)
 702 #define s390_srdl(c, r, b, d)           S390_RS_3(c, 0x8c, r, b, d)
 703 #define s390_sla(c, r, b, d)            S390_RS_3(c, 0x8b, r, b, d)
 704 #define s390_slag(c, r1, r2, b, d)      S390_RSY_1(c, 0xeb0b, r1, r2, b, d)
 705 #define s390_sll(c, r, b, d)            S390_RS_3(c, 0x89, r, b, d)
 706 #define s390_sllg(c, r1, r2, b, d)      S390_RSY_1(c, 0xeb0d, r1, r2, b, d)
 707 #define s390_sra(c, r, b, d)            S390_RS_3(c, 0x8a, r, b, d)
 708 #define s390_srag(c, r1, r2, b, d)      S390_RSY_1(c, 0xeb0a, r1, r2, b, d)
 709 #define s390_srl(c, r, b, d)            S390_RS_3(c, 0x88, r, b, d)
 710 #define s390_srlg(c, r1, r2, b, d)      S390_RSY_1(c, 0xeb0c, r1, r2, b, d)
 711 #define s390_sqdbr(c, r1, r2)           S390_RRE(c, 0xb315, r1, r2)
 712 #define s390_sqebr(c, r1, r2)           S390_RRE(c, 0xb314, r1, r2)
 713 #define s390_adbr(c, r1, r2)            S390_RRE(c, 0xb31a, r1, r2)
 714 #define s390_aebr(c, r1, r2)            S390_RRE(c, 0xb30a, r1, r2)
 715 #define s390_adb(c, r, x, b, d)         S390_RXE(c, 0xed1a, r, x, b, d)
 716 #define s390_sdbr(c, r1, r2)            S390_RRE(c, 0xb31b, r1, r2)
 717 #define s390_sebr(c, r1, r2)            S390_RRE(c, 0xb30b, r1, r2)
 718 #define s390_sdb(c, r, x, b, d)         S390_RXE(c, 0xed1b, r, x, b, d)
 719 #define s390_mdbr(c, r1, r2)            S390_RRE(c, 0xb31c, r1, r2)
 720 #define s390_meebr(c, r1, r2)           S390_RRE(c, 0xb317, r1, r2)
 721 #define s390_ldr(c, r1, r2)             S390_RR(c, 0x28, r1, r2)
 722 #define s390_ler(c, r1, r2)             S390_RR(c, 0x38, r1, r2)
 723 #define s390_lzdr(c, r)                 S390_RRE(c, 0xb375, r, 0)
 724 #define s390_lzer(c, r)                 S390_RRE(c, 0xb374, r, 0)
 725 #define s390_ddbr(c, r1, r2)            S390_RRE(c, 0xb31d, r1, r2)
 726 #define s390_debr(c, r1, r2)            S390_RRE(c, 0xb30d, r1, r2)
 727 #define s390_didbr(c, r1, r2, m, r3)    S390_RRF_3(c, 0xb35b, r1, r2, m, r3)
 728 #define s390_lcdbr(c, r1, r2)           S390_RRE(c, 0xb313, r1, r2)
 729 #define s390_lndbr(c, r1, r2)           S390_RRE(c, 0xb311, r1, r2)
 730 #define s390_ldebr(c, r1, r2)           S390_RRE(c, 0xb304, r1, r2)
 731 #define s390_ledbr(c, r1, r2)           S390_RRE(c, 0xb344, r1, r2)
 732 #define s390_ldeb(c, r, x, b, d)        S390_RXE(c, 0xed04, r, x, b, d)
 733 #define s390_cfdbr(c, r1, m, r2)        S390_RRF_2(c, 0xb399, r1, m, r2)
 734 #define s390_cdfbr(c, r1, r2)           S390_RRE(c, 0xb395, r1, r2)
 735 #define s390_cdbr(c, r1, r2)            S390_RRE(c, 0xb319, r1, r2)
 736 #define s390_cebr(c, r1, r2)            S390_RRE(c, 0xb309, r1, r2)
 737 #define s390_cdb(c, r, x, b, d)         S390_RXE(c, 0xed19, r, x, b, d)
 738 #define s390_tcdb(c, r, x, b, d)        S390_RXE(c, 0xed11, r, x, b, d)
 739 #define s390_tceb(c, r, x, b, d)        S390_RXE(c, 0xed10, r, x, b, d)
 740 #define s390_stfpc(c, b, d)             S390_S(c, 0xb29c, b, d)
 741 #endif