blob: eb750a87946c30656108f1fe134457b4afcf2563 [file] [log] [blame]
/* -*- mode: C; c-basic-offset: 3; -*- */
/*---------------------------------------------------------------*/
/*--- begin guest_s390_toIR.c ---*/
/*---------------------------------------------------------------*/
/*
This file is part of Valgrind, a dynamic binary instrumentation
framework.
Copyright IBM Corp. 2010-2013
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License as
published by the Free Software Foundation; either version 2 of the
License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but
WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
02110-1301, USA.
The GNU General Public License is contained in the file COPYING.
*/
/* Contributed by Florian Krohm and Christian Borntraeger */
/* Translates s390 code to IR. */
#include "libvex_basictypes.h"
#include "libvex_ir.h"
#include "libvex_emnote.h"
#include "libvex_s390x_common.h"
#include "main_util.h" /* vassert */
#include "main_globals.h" /* vex_traceflags */
#include "guest_generic_bb_to_IR.h" /* DisResult */
#include "guest_s390_defs.h" /* prototypes for this file's functions */
#include "s390_disasm.h"
#include "s390_defs.h" /* S390_BFP_ROUND_xyzzy */
#include "host_s390_defs.h" /* s390_host_has_xyzzy */
/*------------------------------------------------------------*/
/*--- Forward declarations ---*/
/*------------------------------------------------------------*/
static UInt s390_decode_and_irgen(UChar *, UInt, DisResult *);
static void s390_irgen_xonc(IROp, IRTemp, IRTemp, IRTemp);
static void s390_irgen_CLC_EX(IRTemp, IRTemp, IRTemp);
/*------------------------------------------------------------*/
/*--- Globals ---*/
/*------------------------------------------------------------*/
/* The IRSB* into which we're generating code. */
static IRSB *irsb;
/* The guest address for the instruction currently being
translated. */
static Addr64 guest_IA_curr_instr;
/* The guest address for the instruction following the current instruction. */
static Addr64 guest_IA_next_instr;
/* Result of disassembly step. */
static DisResult *dis_res;
/* Resteer function and callback data */
static Bool (*resteer_fn)(void *, Addr64);
static void *resteer_data;
/* Whether to print diagnostics for illegal instructions. */
static Bool sigill_diag;
/* The last seen execute target instruction */
ULong last_execute_target;
/* The possible outcomes of a decoding operation */
typedef enum {
S390_DECODE_OK,
S390_DECODE_UNKNOWN_INSN,
S390_DECODE_UNIMPLEMENTED_INSN,
S390_DECODE_UNKNOWN_SPECIAL_INSN,
S390_DECODE_ERROR
} s390_decode_t;
/*------------------------------------------------------------*/
/*--- Helpers for constructing IR. ---*/
/*------------------------------------------------------------*/
/* Sign extend a value with the given number of bits. This is a
macro because it allows us to overload the type of the value.
Note that VALUE must have a signed type! */
#undef sign_extend
#define sign_extend(value,num_bits) \
(((value) << (sizeof(__typeof__(value)) * 8 - (num_bits))) >> \
(sizeof(__typeof__(value)) * 8 - (num_bits)))
/* Add a statement to the current irsb. */
static __inline__ void
stmt(IRStmt *st)
{
addStmtToIRSB(irsb, st);
}
/* Allocate a new temporary of the given type. */
static __inline__ IRTemp
newTemp(IRType type)
{
vassert(isPlausibleIRType(type));
return newIRTemp(irsb->tyenv, type);
}
/* Create an expression node for a temporary */
static __inline__ IRExpr *
mkexpr(IRTemp tmp)
{
return IRExpr_RdTmp(tmp);
}
/* Generate an expression node for an address. */
static __inline__ IRExpr *
mkaddr_expr(Addr64 addr)
{
return IRExpr_Const(IRConst_U64(addr));
}
/* Add a statement that assigns to a temporary */
static __inline__ void
assign(IRTemp dst, IRExpr *expr)
{
stmt(IRStmt_WrTmp(dst, expr));
}
/* Write an address into the guest_IA */
static __inline__ void
put_IA(IRExpr *address)
{
stmt(IRStmt_Put(S390X_GUEST_OFFSET(guest_IA), address));
}
/* Create a temporary of the given type and assign the expression to it */
static __inline__ IRTemp
mktemp(IRType type, IRExpr *expr)
{
IRTemp temp = newTemp(type);
assign(temp, expr);
return temp;
}
/* Create a unary expression */
static __inline__ IRExpr *
unop(IROp kind, IRExpr *op)
{
return IRExpr_Unop(kind, op);
}
/* Create a binary expression */
static __inline__ IRExpr *
binop(IROp kind, IRExpr *op1, IRExpr *op2)
{
return IRExpr_Binop(kind, op1, op2);
}
/* Create a ternary expression */
static __inline__ IRExpr *
triop(IROp kind, IRExpr *op1, IRExpr *op2, IRExpr *op3)
{
return IRExpr_Triop(kind, op1, op2, op3);
}
/* Create a quaternary expression */
static __inline__ IRExpr *
qop(IROp kind, IRExpr *op1, IRExpr *op2, IRExpr *op3, IRExpr *op4)
{
return IRExpr_Qop(kind, op1, op2, op3, op4);
}
/* Create an expression node for an 8-bit integer constant */
static __inline__ IRExpr *
mkU8(UInt value)
{
vassert(value < 256);
return IRExpr_Const(IRConst_U8((UChar)value));
}
/* Create an expression node for a 16-bit integer constant */
static __inline__ IRExpr *
mkU16(UInt value)
{
vassert(value < 65536);
return IRExpr_Const(IRConst_U16((UShort)value));
}
/* Create an expression node for a 32-bit integer constant */
static __inline__ IRExpr *
mkU32(UInt value)
{
return IRExpr_Const(IRConst_U32(value));
}
/* Create an expression node for a 64-bit integer constant */
static __inline__ IRExpr *
mkU64(ULong value)
{
return IRExpr_Const(IRConst_U64(value));
}
/* Create an expression node for a 32-bit floating point constant
whose value is given by a bit pattern. */
static __inline__ IRExpr *
mkF32i(UInt value)
{
return IRExpr_Const(IRConst_F32i(value));
}
/* Create an expression node for a 32-bit floating point constant
whose value is given by a bit pattern. */
static __inline__ IRExpr *
mkF64i(ULong value)
{
return IRExpr_Const(IRConst_F64i(value));
}
/* Little helper function for my sanity. ITE = if-then-else */
static IRExpr *
mkite(IRExpr *condition, IRExpr *iftrue, IRExpr *iffalse)
{
vassert(typeOfIRExpr(irsb->tyenv, condition) == Ity_I1);
return IRExpr_ITE(condition, iftrue, iffalse);
}
/* Add a statement that stores DATA at ADDR. This is a big-endian machine. */
static void __inline__
store(IRExpr *addr, IRExpr *data)
{
stmt(IRStmt_Store(Iend_BE, addr, data));
}
/* Create an expression that loads a TYPE sized value from ADDR.
This is a big-endian machine. */
static __inline__ IRExpr *
load(IRType type, IRExpr *addr)
{
return IRExpr_Load(Iend_BE, type, addr);
}
/* Function call */
static void
call_function(IRExpr *callee_address)
{
put_IA(callee_address);
dis_res->whatNext = Dis_StopHere;
dis_res->jk_StopHere = Ijk_Call;
}
/* Function call with known target. */
static void
call_function_and_chase(Addr64 callee_address)
{
if (resteer_fn(resteer_data, callee_address)) {
dis_res->whatNext = Dis_ResteerU;
dis_res->continueAt = callee_address;
} else {
put_IA(mkaddr_expr(callee_address));
dis_res->whatNext = Dis_StopHere;
dis_res->jk_StopHere = Ijk_Call;
}
}
/* Function return sequence */
static void
return_from_function(IRExpr *return_address)
{
put_IA(return_address);
dis_res->whatNext = Dis_StopHere;
dis_res->jk_StopHere = Ijk_Ret;
}
/* A conditional branch whose target is not known at instrumentation time.
if (condition) goto computed_target;
Needs to be represented as:
if (! condition) goto next_instruction;
goto computed_target;
*/
static void
if_condition_goto_computed(IRExpr *condition, IRExpr *target)
{
vassert(typeOfIRExpr(irsb->tyenv, condition) == Ity_I1);
condition = unop(Iop_Not1, condition);
stmt(IRStmt_Exit(condition, Ijk_Boring, IRConst_U64(guest_IA_next_instr),
S390X_GUEST_OFFSET(guest_IA)));
put_IA(target);
dis_res->whatNext = Dis_StopHere;
dis_res->jk_StopHere = Ijk_Boring;
}
/* A conditional branch whose target is known at instrumentation time. */
static void
if_condition_goto(IRExpr *condition, Addr64 target)
{
vassert(typeOfIRExpr(irsb->tyenv, condition) == Ity_I1);
stmt(IRStmt_Exit(condition, Ijk_Boring, IRConst_U64(target),
S390X_GUEST_OFFSET(guest_IA)));
put_IA(mkaddr_expr(guest_IA_next_instr));
dis_res->whatNext = Dis_StopHere;
dis_res->jk_StopHere = Ijk_Boring;
}
/* An unconditional branch. Target may or may not be known at instrumentation
time. */
static void
always_goto(IRExpr *target)
{
put_IA(target);
dis_res->whatNext = Dis_StopHere;
dis_res->jk_StopHere = Ijk_Boring;
}
/* An unconditional branch to a known target. */
static void
always_goto_and_chase(Addr64 target)
{
if (resteer_fn(resteer_data, target)) {
/* Follow into the target */
dis_res->whatNext = Dis_ResteerU;
dis_res->continueAt = target;
} else {
put_IA(mkaddr_expr(target));
dis_res->whatNext = Dis_StopHere;
dis_res->jk_StopHere = Ijk_Boring;
}
}
/* A system call */
static void
system_call(IRExpr *sysno)
{
/* Store the system call number in the pseudo register. */
stmt(IRStmt_Put(S390X_GUEST_OFFSET(guest_SYSNO), sysno));
/* Store the current IA into guest_IP_AT_SYSCALL. libvex_ir.h says so. */
stmt(IRStmt_Put(S390X_GUEST_OFFSET(guest_IP_AT_SYSCALL),
mkU64(guest_IA_curr_instr)));
put_IA(mkaddr_expr(guest_IA_next_instr));
/* It's important that all ArchRegs carry their up-to-date value
at this point. So we declare an end-of-block here, which
forces any TempRegs caching ArchRegs to be flushed. */
dis_res->whatNext = Dis_StopHere;
dis_res->jk_StopHere = Ijk_Sys_syscall;
}
/* A side exit that branches back to the current insn if CONDITION is
true. Does not set DisResult. */
static void
iterate_if(IRExpr *condition)
{
vassert(typeOfIRExpr(irsb->tyenv, condition) == Ity_I1);
stmt(IRStmt_Exit(condition, Ijk_Boring, IRConst_U64(guest_IA_curr_instr),
S390X_GUEST_OFFSET(guest_IA)));
}
/* A side exit that branches back to the current insn.
Does not set DisResult. */
static __inline__ void
iterate(void)
{
iterate_if(IRExpr_Const(IRConst_U1(True)));
}
/* A side exit that branches back to the insn immediately following the
current insn if CONDITION is true. Does not set DisResult. */
static void
next_insn_if(IRExpr *condition)
{
vassert(typeOfIRExpr(irsb->tyenv, condition) == Ity_I1);
stmt(IRStmt_Exit(condition, Ijk_Boring, IRConst_U64(guest_IA_next_instr),
S390X_GUEST_OFFSET(guest_IA)));
}
/* Convenience function to restart the current insn */
static void
restart_if(IRExpr *condition)
{
vassert(typeOfIRExpr(irsb->tyenv, condition) == Ity_I1);
stmt(IRStmt_Exit(condition, Ijk_TInval, IRConst_U64(guest_IA_curr_instr),
S390X_GUEST_OFFSET(guest_IA)));
}
/* Convenience function to yield to thread scheduler */
static void
yield_if(IRExpr *condition)
{
stmt(IRStmt_Exit(condition, Ijk_Yield, IRConst_U64(guest_IA_next_instr),
S390X_GUEST_OFFSET(guest_IA)));
}
static __inline__ IRExpr *get_fpr_dw0(UInt);
static __inline__ void put_fpr_dw0(UInt, IRExpr *);
static __inline__ IRExpr *get_dpr_dw0(UInt);
static __inline__ void put_dpr_dw0(UInt, IRExpr *);
/* Read a floating point register pair and combine their contents into a
128-bit value */
static IRExpr *
get_fpr_pair(UInt archreg)
{
IRExpr *high = get_fpr_dw0(archreg);
IRExpr *low = get_fpr_dw0(archreg + 2);
return binop(Iop_F64HLtoF128, high, low);
}
/* Write a 128-bit floating point value into a register pair. */
static void
put_fpr_pair(UInt archreg, IRExpr *expr)
{
IRExpr *high = unop(Iop_F128HItoF64, expr);
IRExpr *low = unop(Iop_F128LOtoF64, expr);
put_fpr_dw0(archreg, high);
put_fpr_dw0(archreg + 2, low);
}
/* Read a floating point register pair cointaining DFP value
and combine their contents into a 128-bit value */
static IRExpr *
get_dpr_pair(UInt archreg)
{
IRExpr *high = get_dpr_dw0(archreg);
IRExpr *low = get_dpr_dw0(archreg + 2);
return binop(Iop_D64HLtoD128, high, low);
}
/* Write a 128-bit decimal floating point value into a register pair. */
static void
put_dpr_pair(UInt archreg, IRExpr *expr)
{
IRExpr *high = unop(Iop_D128HItoD64, expr);
IRExpr *low = unop(Iop_D128LOtoD64, expr);
put_dpr_dw0(archreg, high);
put_dpr_dw0(archreg + 2, low);
}
/* Terminate the current IRSB with an emulation failure. */
static void
emulation_failure(VexEmNote fail_kind)
{
stmt(IRStmt_Put(S390X_GUEST_OFFSET(guest_EMNOTE), mkU32(fail_kind)));
dis_res->whatNext = Dis_StopHere;
dis_res->jk_StopHere = Ijk_EmFail;
}
/* Terminate the current IRSB with an emulation warning. */
static void
emulation_warning(VexEmNote warn_kind)
{
stmt(IRStmt_Put(S390X_GUEST_OFFSET(guest_EMNOTE), mkU32(warn_kind)));
dis_res->whatNext = Dis_StopHere;
dis_res->jk_StopHere = Ijk_EmWarn;
}
/*------------------------------------------------------------*/
/*--- IR Debugging aids. ---*/
/*------------------------------------------------------------*/
#if 0
static ULong
s390_do_print(HChar *text, ULong value)
{
vex_printf("%s %llu\n", text, value);
return 0;
}
static void
s390_print(HChar *text, IRExpr *value)
{
IRDirty *d;
d = unsafeIRDirty_0_N(0 /* regparms */, "s390_do_print", &s390_do_print,
mkIRExprVec_2(mkU64((ULong)text), value));
stmt(IRStmt_Dirty(d));
}
#endif
/*------------------------------------------------------------*/
/*--- Build the flags thunk. ---*/
/*------------------------------------------------------------*/
/* Completely fill the flags thunk. We're always filling all fields.
Apparently, that is better for redundant PUT elimination. */
static void
s390_cc_thunk_fill(IRExpr *op, IRExpr *dep1, IRExpr *dep2, IRExpr *ndep)
{
UInt op_off, dep1_off, dep2_off, ndep_off;
op_off = S390X_GUEST_OFFSET(guest_CC_OP);
dep1_off = S390X_GUEST_OFFSET(guest_CC_DEP1);
dep2_off = S390X_GUEST_OFFSET(guest_CC_DEP2);
ndep_off = S390X_GUEST_OFFSET(guest_CC_NDEP);
stmt(IRStmt_Put(op_off, op));
stmt(IRStmt_Put(dep1_off, dep1));
stmt(IRStmt_Put(dep2_off, dep2));
stmt(IRStmt_Put(ndep_off, ndep));
}
/* Create an expression for V and widen the result to 64 bit. */
static IRExpr *
s390_cc_widen(IRTemp v, Bool sign_extend)
{
IRExpr *expr;
expr = mkexpr(v);
switch (typeOfIRTemp(irsb->tyenv, v)) {
case Ity_I64:
break;
case Ity_I32:
expr = unop(sign_extend ? Iop_32Sto64 : Iop_32Uto64, expr);
break;
case Ity_I16:
expr = unop(sign_extend ? Iop_16Sto64 : Iop_16Uto64, expr);
break;
case Ity_I8:
expr = unop(sign_extend ? Iop_8Sto64 : Iop_8Uto64, expr);
break;
default:
vpanic("s390_cc_widen");
}
return expr;
}
static void
s390_cc_thunk_put1(UInt opc, IRTemp d1, Bool sign_extend)
{
IRExpr *op, *dep1, *dep2, *ndep;
op = mkU64(opc);
dep1 = s390_cc_widen(d1, sign_extend);
dep2 = mkU64(0);
ndep = mkU64(0);
s390_cc_thunk_fill(op, dep1, dep2, ndep);
}
static void
s390_cc_thunk_put2(UInt opc, IRTemp d1, IRTemp d2, Bool sign_extend)
{
IRExpr *op, *dep1, *dep2, *ndep;
op = mkU64(opc);
dep1 = s390_cc_widen(d1, sign_extend);
dep2 = s390_cc_widen(d2, sign_extend);
ndep = mkU64(0);
s390_cc_thunk_fill(op, dep1, dep2, ndep);
}
/* memcheck believes that the NDEP field in the flags thunk is always
defined. But for some flag computations (e.g. add with carry) that is
just not true. We therefore need to convey to memcheck that the value
of the ndep field does matter and therefore we make the DEP2 field
depend on it:
DEP2 = original_DEP2 ^ NDEP
In s390_calculate_cc we exploit that (a^b)^b == a
I.e. we xor the DEP2 value with the NDEP value to recover the
original_DEP2 value. */
static void
s390_cc_thunk_put3(UInt opc, IRTemp d1, IRTemp d2, IRTemp nd, Bool sign_extend)
{
IRExpr *op, *dep1, *dep2, *ndep, *dep2x;
op = mkU64(opc);
dep1 = s390_cc_widen(d1, sign_extend);
dep2 = s390_cc_widen(d2, sign_extend);
ndep = s390_cc_widen(nd, sign_extend);
dep2x = binop(Iop_Xor64, dep2, ndep);
s390_cc_thunk_fill(op, dep1, dep2x, ndep);
}
/* Write one floating point value into the flags thunk */
static void
s390_cc_thunk_put1f(UInt opc, IRTemp d1)
{
IRExpr *op, *dep1, *dep2, *ndep;
/* Make the CC_DEP1 slot appear completely defined.
Otherwise, assigning a 32-bit value will cause memcheck
to trigger an undefinedness error.
*/
if (sizeofIRType(typeOfIRTemp(irsb->tyenv, d1)) == 4) {
UInt dep1_off = S390X_GUEST_OFFSET(guest_CC_DEP1);
stmt(IRStmt_Put(dep1_off, mkU64(0)));
}
op = mkU64(opc);
dep1 = mkexpr(d1);
dep2 = mkU64(0);
ndep = mkU64(0);
s390_cc_thunk_fill(op, dep1, dep2, ndep);
}
/* Write a floating point value and an integer into the flags thunk. The
integer value is zero-extended first. */
static void
s390_cc_thunk_putFZ(UInt opc, IRTemp d1, IRTemp d2)
{
IRExpr *op, *dep1, *dep2, *ndep;
/* Make the CC_DEP1 slot appear completely defined.
Otherwise, assigning a 32-bit value will cause memcheck
to trigger an undefinedness error.
*/
if (sizeofIRType(typeOfIRTemp(irsb->tyenv, d1)) == 4) {
UInt dep1_off = S390X_GUEST_OFFSET(guest_CC_DEP1);
stmt(IRStmt_Put(dep1_off, mkU64(0)));
}
op = mkU64(opc);
dep1 = mkexpr(d1);
dep2 = s390_cc_widen(d2, False);
ndep = mkU64(0);
s390_cc_thunk_fill(op, dep1, dep2, ndep);
}
/* Write a 128-bit floating point value into the flags thunk. This is
done by splitting the value into two 64-bits values. */
static void
s390_cc_thunk_put1f128(UInt opc, IRTemp d1)
{
IRExpr *op, *hi, *lo, *ndep;
op = mkU64(opc);
hi = unop(Iop_F128HItoF64, mkexpr(d1));
lo = unop(Iop_F128LOtoF64, mkexpr(d1));
ndep = mkU64(0);
s390_cc_thunk_fill(op, hi, lo, ndep);
}
/* Write a 128-bit floating point value and an integer into the flags thunk.
The integer value is zero-extended first. */
static void
s390_cc_thunk_put1f128Z(UInt opc, IRTemp d1, IRTemp nd)
{
IRExpr *op, *hi, *lo, *lox, *ndep;
op = mkU64(opc);
hi = unop(Iop_F128HItoF64, mkexpr(d1));
lo = unop(Iop_ReinterpF64asI64, unop(Iop_F128LOtoF64, mkexpr(d1)));
ndep = s390_cc_widen(nd, False);
lox = binop(Iop_Xor64, lo, ndep); /* convey dependency */
s390_cc_thunk_fill(op, hi, lox, ndep);
}
/* Write a 128-bit decimal floating point value into the flags thunk.
This is done by splitting the value into two 64-bits values. */
static void
s390_cc_thunk_put1d128(UInt opc, IRTemp d1)
{
IRExpr *op, *hi, *lo, *ndep;
op = mkU64(opc);
hi = unop(Iop_D128HItoD64, mkexpr(d1));
lo = unop(Iop_D128LOtoD64, mkexpr(d1));
ndep = mkU64(0);
s390_cc_thunk_fill(op, hi, lo, ndep);
}
/* Write a 128-bit decimal floating point value and an integer into the flags
thunk. The integer value is zero-extended first. */
static void
s390_cc_thunk_put1d128Z(UInt opc, IRTemp d1, IRTemp nd)
{
IRExpr *op, *hi, *lo, *lox, *ndep;
op = mkU64(opc);
hi = unop(Iop_D128HItoD64, mkexpr(d1));
lo = unop(Iop_ReinterpD64asI64, unop(Iop_D128LOtoD64, mkexpr(d1)));
ndep = s390_cc_widen(nd, False);
lox = binop(Iop_Xor64, lo, ndep); /* convey dependency */
s390_cc_thunk_fill(op, hi, lox, ndep);
}
static void
s390_cc_set(UInt val)
{
s390_cc_thunk_fill(mkU64(S390_CC_OP_SET),
mkU64(val), mkU64(0), mkU64(0));
}
/* Build IR to calculate the condition code from flags thunk.
Returns an expression of type Ity_I32 */
static IRExpr *
s390_call_calculate_cc(void)
{
IRExpr **args, *call, *op, *dep1, *dep2, *ndep;
op = IRExpr_Get(S390X_GUEST_OFFSET(guest_CC_OP), Ity_I64);
dep1 = IRExpr_Get(S390X_GUEST_OFFSET(guest_CC_DEP1), Ity_I64);
dep2 = IRExpr_Get(S390X_GUEST_OFFSET(guest_CC_DEP2), Ity_I64);
ndep = IRExpr_Get(S390X_GUEST_OFFSET(guest_CC_NDEP), Ity_I64);
args = mkIRExprVec_4(op, dep1, dep2, ndep);
call = mkIRExprCCall(Ity_I32, 0 /*regparm*/,
"s390_calculate_cc", &s390_calculate_cc, args);
/* Exclude OP and NDEP from definedness checking. We're only
interested in DEP1 and DEP2. */
call->Iex.CCall.cee->mcx_mask = (1<<0) | (1<<3);
return call;
}
/* Build IR to calculate the internal condition code for a "compare and branch"
insn. Returns an expression of type Ity_I32 */
static IRExpr *
s390_call_calculate_icc(UInt m, UInt opc, IRTemp op1, IRTemp op2)
{
IRExpr **args, *call, *op, *dep1, *dep2, *mask;
switch (opc) {
case S390_CC_OP_SIGNED_COMPARE:
dep1 = s390_cc_widen(op1, True);
dep2 = s390_cc_widen(op2, True);
break;
case S390_CC_OP_UNSIGNED_COMPARE:
dep1 = s390_cc_widen(op1, False);
dep2 = s390_cc_widen(op2, False);
break;
default:
vpanic("s390_call_calculate_icc");
}
mask = mkU64(m);
op = mkU64(opc);
args = mkIRExprVec_5(mask, op, dep1, dep2, mkU64(0) /* unused */);
call = mkIRExprCCall(Ity_I32, 0 /*regparm*/,
"s390_calculate_cond", &s390_calculate_cond, args);
/* Exclude the requested condition, OP and NDEP from definedness
checking. We're only interested in DEP1 and DEP2. */
call->Iex.CCall.cee->mcx_mask = (1<<0) | (1<<1) | (1<<4);
return call;
}
/* Build IR to calculate the condition code from flags thunk.
Returns an expression of type Ity_I32 */
static IRExpr *
s390_call_calculate_cond(UInt m)
{
IRExpr **args, *call, *op, *dep1, *dep2, *ndep, *mask;
mask = mkU64(m);
op = IRExpr_Get(S390X_GUEST_OFFSET(guest_CC_OP), Ity_I64);
dep1 = IRExpr_Get(S390X_GUEST_OFFSET(guest_CC_DEP1), Ity_I64);
dep2 = IRExpr_Get(S390X_GUEST_OFFSET(guest_CC_DEP2), Ity_I64);
ndep = IRExpr_Get(S390X_GUEST_OFFSET(guest_CC_NDEP), Ity_I64);
args = mkIRExprVec_5(mask, op, dep1, dep2, ndep);
call = mkIRExprCCall(Ity_I32, 0 /*regparm*/,
"s390_calculate_cond", &s390_calculate_cond, args);
/* Exclude the requested condition, OP and NDEP from definedness
checking. We're only interested in DEP1 and DEP2. */
call->Iex.CCall.cee->mcx_mask = (1<<0) | (1<<1) | (1<<4);
return call;
}
#define s390_cc_thunk_putZ(op,dep1) s390_cc_thunk_put1(op,dep1,False)
#define s390_cc_thunk_putS(op,dep1) s390_cc_thunk_put1(op,dep1,True)
#define s390_cc_thunk_putF(op,dep1) s390_cc_thunk_put1f(op,dep1)
#define s390_cc_thunk_putZZ(op,dep1,dep2) s390_cc_thunk_put2(op,dep1,dep2,False)
#define s390_cc_thunk_putSS(op,dep1,dep2) s390_cc_thunk_put2(op,dep1,dep2,True)
#define s390_cc_thunk_putFF(op,dep1,dep2) s390_cc_thunk_put2f(op,dep1,dep2)
#define s390_cc_thunk_putZZZ(op,dep1,dep2,ndep) \
s390_cc_thunk_put3(op,dep1,dep2,ndep,False)
#define s390_cc_thunk_putSSS(op,dep1,dep2,ndep) \
s390_cc_thunk_put3(op,dep1,dep2,ndep,True)
/*------------------------------------------------------------*/
/*--- Guest register access ---*/
/*------------------------------------------------------------*/
/*------------------------------------------------------------*/
/*--- ar registers ---*/
/*------------------------------------------------------------*/
/* Return the guest state offset of a ar register. */
static UInt
ar_offset(UInt archreg)
{
static const UInt offset[16] = {
S390X_GUEST_OFFSET(guest_a0),
S390X_GUEST_OFFSET(guest_a1),
S390X_GUEST_OFFSET(guest_a2),
S390X_GUEST_OFFSET(guest_a3),
S390X_GUEST_OFFSET(guest_a4),
S390X_GUEST_OFFSET(guest_a5),
S390X_GUEST_OFFSET(guest_a6),
S390X_GUEST_OFFSET(guest_a7),
S390X_GUEST_OFFSET(guest_a8),
S390X_GUEST_OFFSET(guest_a9),
S390X_GUEST_OFFSET(guest_a10),
S390X_GUEST_OFFSET(guest_a11),
S390X_GUEST_OFFSET(guest_a12),
S390X_GUEST_OFFSET(guest_a13),
S390X_GUEST_OFFSET(guest_a14),
S390X_GUEST_OFFSET(guest_a15),
};
vassert(archreg < 16);
return offset[archreg];
}
/* Return the guest state offset of word #0 of a ar register. */
static __inline__ UInt
ar_w0_offset(UInt archreg)
{
return ar_offset(archreg) + 0;
}
/* Write word #0 of a ar to the guest state. */
static __inline__ void
put_ar_w0(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I32);
stmt(IRStmt_Put(ar_w0_offset(archreg), expr));
}
/* Read word #0 of a ar register. */
static __inline__ IRExpr *
get_ar_w0(UInt archreg)
{
return IRExpr_Get(ar_w0_offset(archreg), Ity_I32);
}
/*------------------------------------------------------------*/
/*--- fpr registers ---*/
/*------------------------------------------------------------*/
/* Return the guest state offset of a fpr register. */
static UInt
fpr_offset(UInt archreg)
{
static const UInt offset[16] = {
S390X_GUEST_OFFSET(guest_f0),
S390X_GUEST_OFFSET(guest_f1),
S390X_GUEST_OFFSET(guest_f2),
S390X_GUEST_OFFSET(guest_f3),
S390X_GUEST_OFFSET(guest_f4),
S390X_GUEST_OFFSET(guest_f5),
S390X_GUEST_OFFSET(guest_f6),
S390X_GUEST_OFFSET(guest_f7),
S390X_GUEST_OFFSET(guest_f8),
S390X_GUEST_OFFSET(guest_f9),
S390X_GUEST_OFFSET(guest_f10),
S390X_GUEST_OFFSET(guest_f11),
S390X_GUEST_OFFSET(guest_f12),
S390X_GUEST_OFFSET(guest_f13),
S390X_GUEST_OFFSET(guest_f14),
S390X_GUEST_OFFSET(guest_f15),
};
vassert(archreg < 16);
return offset[archreg];
}
/* Return the guest state offset of word #0 of a fpr register. */
static __inline__ UInt
fpr_w0_offset(UInt archreg)
{
return fpr_offset(archreg) + 0;
}
/* Write word #0 of a fpr to the guest state. */
static __inline__ void
put_fpr_w0(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_F32);
stmt(IRStmt_Put(fpr_w0_offset(archreg), expr));
}
/* Read word #0 of a fpr register. */
static __inline__ IRExpr *
get_fpr_w0(UInt archreg)
{
return IRExpr_Get(fpr_w0_offset(archreg), Ity_F32);
}
/* Return the guest state offset of double word #0 of a fpr register. */
static __inline__ UInt
fpr_dw0_offset(UInt archreg)
{
return fpr_offset(archreg) + 0;
}
/* Write double word #0 of a fpr to the guest state. */
static __inline__ void
put_fpr_dw0(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_F64);
stmt(IRStmt_Put(fpr_dw0_offset(archreg), expr));
}
/* Read double word #0 of a fpr register. */
static __inline__ IRExpr *
get_fpr_dw0(UInt archreg)
{
return IRExpr_Get(fpr_dw0_offset(archreg), Ity_F64);
}
/* Write word #0 of a dpr to the guest state. */
static __inline__ void
put_dpr_w0(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_D32);
stmt(IRStmt_Put(fpr_w0_offset(archreg), expr));
}
/* Read word #0 of a dpr register. */
static __inline__ IRExpr *
get_dpr_w0(UInt archreg)
{
return IRExpr_Get(fpr_w0_offset(archreg), Ity_D32);
}
/* Write double word #0 of a fpr containg DFP value to the guest state. */
static __inline__ void
put_dpr_dw0(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_D64);
stmt(IRStmt_Put(fpr_dw0_offset(archreg), expr));
}
/* Read double word #0 of a fpr register containing DFP value. */
static __inline__ IRExpr *
get_dpr_dw0(UInt archreg)
{
return IRExpr_Get(fpr_dw0_offset(archreg), Ity_D64);
}
/*------------------------------------------------------------*/
/*--- gpr registers ---*/
/*------------------------------------------------------------*/
/* Return the guest state offset of a gpr register. */
static UInt
gpr_offset(UInt archreg)
{
static const UInt offset[16] = {
S390X_GUEST_OFFSET(guest_r0),
S390X_GUEST_OFFSET(guest_r1),
S390X_GUEST_OFFSET(guest_r2),
S390X_GUEST_OFFSET(guest_r3),
S390X_GUEST_OFFSET(guest_r4),
S390X_GUEST_OFFSET(guest_r5),
S390X_GUEST_OFFSET(guest_r6),
S390X_GUEST_OFFSET(guest_r7),
S390X_GUEST_OFFSET(guest_r8),
S390X_GUEST_OFFSET(guest_r9),
S390X_GUEST_OFFSET(guest_r10),
S390X_GUEST_OFFSET(guest_r11),
S390X_GUEST_OFFSET(guest_r12),
S390X_GUEST_OFFSET(guest_r13),
S390X_GUEST_OFFSET(guest_r14),
S390X_GUEST_OFFSET(guest_r15),
};
vassert(archreg < 16);
return offset[archreg];
}
/* Return the guest state offset of word #0 of a gpr register. */
static __inline__ UInt
gpr_w0_offset(UInt archreg)
{
return gpr_offset(archreg) + 0;
}
/* Write word #0 of a gpr to the guest state. */
static __inline__ void
put_gpr_w0(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I32);
stmt(IRStmt_Put(gpr_w0_offset(archreg), expr));
}
/* Read word #0 of a gpr register. */
static __inline__ IRExpr *
get_gpr_w0(UInt archreg)
{
return IRExpr_Get(gpr_w0_offset(archreg), Ity_I32);
}
/* Return the guest state offset of double word #0 of a gpr register. */
static __inline__ UInt
gpr_dw0_offset(UInt archreg)
{
return gpr_offset(archreg) + 0;
}
/* Write double word #0 of a gpr to the guest state. */
static __inline__ void
put_gpr_dw0(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I64);
stmt(IRStmt_Put(gpr_dw0_offset(archreg), expr));
}
/* Read double word #0 of a gpr register. */
static __inline__ IRExpr *
get_gpr_dw0(UInt archreg)
{
return IRExpr_Get(gpr_dw0_offset(archreg), Ity_I64);
}
/* Return the guest state offset of half word #1 of a gpr register. */
static __inline__ UInt
gpr_hw1_offset(UInt archreg)
{
return gpr_offset(archreg) + 2;
}
/* Write half word #1 of a gpr to the guest state. */
static __inline__ void
put_gpr_hw1(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I16);
stmt(IRStmt_Put(gpr_hw1_offset(archreg), expr));
}
/* Read half word #1 of a gpr register. */
static __inline__ IRExpr *
get_gpr_hw1(UInt archreg)
{
return IRExpr_Get(gpr_hw1_offset(archreg), Ity_I16);
}
/* Return the guest state offset of byte #6 of a gpr register. */
static __inline__ UInt
gpr_b6_offset(UInt archreg)
{
return gpr_offset(archreg) + 6;
}
/* Write byte #6 of a gpr to the guest state. */
static __inline__ void
put_gpr_b6(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I8);
stmt(IRStmt_Put(gpr_b6_offset(archreg), expr));
}
/* Read byte #6 of a gpr register. */
static __inline__ IRExpr *
get_gpr_b6(UInt archreg)
{
return IRExpr_Get(gpr_b6_offset(archreg), Ity_I8);
}
/* Return the guest state offset of byte #3 of a gpr register. */
static __inline__ UInt
gpr_b3_offset(UInt archreg)
{
return gpr_offset(archreg) + 3;
}
/* Write byte #3 of a gpr to the guest state. */
static __inline__ void
put_gpr_b3(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I8);
stmt(IRStmt_Put(gpr_b3_offset(archreg), expr));
}
/* Read byte #3 of a gpr register. */
static __inline__ IRExpr *
get_gpr_b3(UInt archreg)
{
return IRExpr_Get(gpr_b3_offset(archreg), Ity_I8);
}
/* Return the guest state offset of byte #0 of a gpr register. */
static __inline__ UInt
gpr_b0_offset(UInt archreg)
{
return gpr_offset(archreg) + 0;
}
/* Write byte #0 of a gpr to the guest state. */
static __inline__ void
put_gpr_b0(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I8);
stmt(IRStmt_Put(gpr_b0_offset(archreg), expr));
}
/* Read byte #0 of a gpr register. */
static __inline__ IRExpr *
get_gpr_b0(UInt archreg)
{
return IRExpr_Get(gpr_b0_offset(archreg), Ity_I8);
}
/* Return the guest state offset of word #1 of a gpr register. */
static __inline__ UInt
gpr_w1_offset(UInt archreg)
{
return gpr_offset(archreg) + 4;
}
/* Write word #1 of a gpr to the guest state. */
static __inline__ void
put_gpr_w1(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I32);
stmt(IRStmt_Put(gpr_w1_offset(archreg), expr));
}
/* Read word #1 of a gpr register. */
static __inline__ IRExpr *
get_gpr_w1(UInt archreg)
{
return IRExpr_Get(gpr_w1_offset(archreg), Ity_I32);
}
/* Return the guest state offset of half word #3 of a gpr register. */
static __inline__ UInt
gpr_hw3_offset(UInt archreg)
{
return gpr_offset(archreg) + 6;
}
/* Write half word #3 of a gpr to the guest state. */
static __inline__ void
put_gpr_hw3(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I16);
stmt(IRStmt_Put(gpr_hw3_offset(archreg), expr));
}
/* Read half word #3 of a gpr register. */
static __inline__ IRExpr *
get_gpr_hw3(UInt archreg)
{
return IRExpr_Get(gpr_hw3_offset(archreg), Ity_I16);
}
/* Return the guest state offset of byte #7 of a gpr register. */
static __inline__ UInt
gpr_b7_offset(UInt archreg)
{
return gpr_offset(archreg) + 7;
}
/* Write byte #7 of a gpr to the guest state. */
static __inline__ void
put_gpr_b7(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I8);
stmt(IRStmt_Put(gpr_b7_offset(archreg), expr));
}
/* Read byte #7 of a gpr register. */
static __inline__ IRExpr *
get_gpr_b7(UInt archreg)
{
return IRExpr_Get(gpr_b7_offset(archreg), Ity_I8);
}
/* Return the guest state offset of half word #0 of a gpr register. */
static __inline__ UInt
gpr_hw0_offset(UInt archreg)
{
return gpr_offset(archreg) + 0;
}
/* Write half word #0 of a gpr to the guest state. */
static __inline__ void
put_gpr_hw0(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I16);
stmt(IRStmt_Put(gpr_hw0_offset(archreg), expr));
}
/* Read half word #0 of a gpr register. */
static __inline__ IRExpr *
get_gpr_hw0(UInt archreg)
{
return IRExpr_Get(gpr_hw0_offset(archreg), Ity_I16);
}
/* Return the guest state offset of byte #4 of a gpr register. */
static __inline__ UInt
gpr_b4_offset(UInt archreg)
{
return gpr_offset(archreg) + 4;
}
/* Write byte #4 of a gpr to the guest state. */
static __inline__ void
put_gpr_b4(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I8);
stmt(IRStmt_Put(gpr_b4_offset(archreg), expr));
}
/* Read byte #4 of a gpr register. */
static __inline__ IRExpr *
get_gpr_b4(UInt archreg)
{
return IRExpr_Get(gpr_b4_offset(archreg), Ity_I8);
}
/* Return the guest state offset of byte #1 of a gpr register. */
static __inline__ UInt
gpr_b1_offset(UInt archreg)
{
return gpr_offset(archreg) + 1;
}
/* Write byte #1 of a gpr to the guest state. */
static __inline__ void
put_gpr_b1(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I8);
stmt(IRStmt_Put(gpr_b1_offset(archreg), expr));
}
/* Read byte #1 of a gpr register. */
static __inline__ IRExpr *
get_gpr_b1(UInt archreg)
{
return IRExpr_Get(gpr_b1_offset(archreg), Ity_I8);
}
/* Return the guest state offset of half word #2 of a gpr register. */
static __inline__ UInt
gpr_hw2_offset(UInt archreg)
{
return gpr_offset(archreg) + 4;
}
/* Write half word #2 of a gpr to the guest state. */
static __inline__ void
put_gpr_hw2(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I16);
stmt(IRStmt_Put(gpr_hw2_offset(archreg), expr));
}
/* Read half word #2 of a gpr register. */
static __inline__ IRExpr *
get_gpr_hw2(UInt archreg)
{
return IRExpr_Get(gpr_hw2_offset(archreg), Ity_I16);
}
/* Return the guest state offset of byte #5 of a gpr register. */
static __inline__ UInt
gpr_b5_offset(UInt archreg)
{
return gpr_offset(archreg) + 5;
}
/* Write byte #5 of a gpr to the guest state. */
static __inline__ void
put_gpr_b5(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I8);
stmt(IRStmt_Put(gpr_b5_offset(archreg), expr));
}
/* Read byte #5 of a gpr register. */
static __inline__ IRExpr *
get_gpr_b5(UInt archreg)
{
return IRExpr_Get(gpr_b5_offset(archreg), Ity_I8);
}
/* Return the guest state offset of byte #2 of a gpr register. */
static __inline__ UInt
gpr_b2_offset(UInt archreg)
{
return gpr_offset(archreg) + 2;
}
/* Write byte #2 of a gpr to the guest state. */
static __inline__ void
put_gpr_b2(UInt archreg, IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I8);
stmt(IRStmt_Put(gpr_b2_offset(archreg), expr));
}
/* Read byte #2 of a gpr register. */
static __inline__ IRExpr *
get_gpr_b2(UInt archreg)
{
return IRExpr_Get(gpr_b2_offset(archreg), Ity_I8);
}
/* Return the guest state offset of the counter register. */
static UInt
counter_offset(void)
{
return S390X_GUEST_OFFSET(guest_counter);
}
/* Return the guest state offset of double word #0 of the counter register. */
static __inline__ UInt
counter_dw0_offset(void)
{
return counter_offset() + 0;
}
/* Write double word #0 of the counter to the guest state. */
static __inline__ void
put_counter_dw0(IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I64);
stmt(IRStmt_Put(counter_dw0_offset(), expr));
}
/* Read double word #0 of the counter register. */
static __inline__ IRExpr *
get_counter_dw0(void)
{
return IRExpr_Get(counter_dw0_offset(), Ity_I64);
}
/* Return the guest state offset of word #0 of the counter register. */
static __inline__ UInt
counter_w0_offset(void)
{
return counter_offset() + 0;
}
/* Return the guest state offset of word #1 of the counter register. */
static __inline__ UInt
counter_w1_offset(void)
{
return counter_offset() + 4;
}
/* Write word #0 of the counter to the guest state. */
static __inline__ void
put_counter_w0(IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I32);
stmt(IRStmt_Put(counter_w0_offset(), expr));
}
/* Read word #0 of the counter register. */
static __inline__ IRExpr *
get_counter_w0(void)
{
return IRExpr_Get(counter_w0_offset(), Ity_I32);
}
/* Write word #1 of the counter to the guest state. */
static __inline__ void
put_counter_w1(IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I32);
stmt(IRStmt_Put(counter_w1_offset(), expr));
}
/* Read word #1 of the counter register. */
static __inline__ IRExpr *
get_counter_w1(void)
{
return IRExpr_Get(counter_w1_offset(), Ity_I32);
}
/* Return the guest state offset of the fpc register. */
static UInt
fpc_offset(void)
{
return S390X_GUEST_OFFSET(guest_fpc);
}
/* Return the guest state offset of word #0 of the fpc register. */
static __inline__ UInt
fpc_w0_offset(void)
{
return fpc_offset() + 0;
}
/* Write word #0 of the fpc to the guest state. */
static __inline__ void
put_fpc_w0(IRExpr *expr)
{
vassert(typeOfIRExpr(irsb->tyenv, expr) == Ity_I32);
stmt(IRStmt_Put(fpc_w0_offset(), expr));
}
/* Read word #0 of the fpc register. */
static __inline__ IRExpr *
get_fpc_w0(void)
{
return IRExpr_Get(fpc_w0_offset(), Ity_I32);
}
/*------------------------------------------------------------*/
/*--- Rounding modes ---*/
/*------------------------------------------------------------*/
/* Extract the bfp rounding mode from the guest FPC reg and encode it as an
IRRoundingMode:
rounding mode | s390 | IR
-------------------------
to nearest | 00 | 00
to zero | 01 | 11
to +infinity | 10 | 10
to -infinity | 11 | 01
So: IR = (4 - s390) & 3
*/
static IRExpr *
get_bfp_rounding_mode_from_fpc(void)
{
IRTemp fpc_bits = newTemp(Ity_I32);
/* For z196 and later the bfp rounding mode is stored in bits [29:31].
Prior to that bits [30:31] contained the bfp rounding mode with
bit 29 being unused and having a value of 0. So we can always
extract the least significant 3 bits. */
assign(fpc_bits, binop(Iop_And32, get_fpc_w0(), mkU32(7)));
/* fixs390:
if (! s390_host_has_fpext && rounding_mode > 3) {
emulation warning @ runtime and
set fpc to round nearest
}
*/
/* For now silently adjust an unsupported rounding mode to "nearest" */
IRExpr *rm_s390 = mkite(binop(Iop_CmpLE32S, mkexpr(fpc_bits), mkU32(3)),
mkexpr(fpc_bits),
mkU32(S390_FPC_BFP_ROUND_NEAREST_EVEN));
// rm_IR = (4 - rm_s390) & 3;
return binop(Iop_And32, binop(Iop_Sub32, mkU32(4), rm_s390), mkU32(3));
}
/* Encode the s390 rounding mode as it appears in the m3 field of certain
instructions to VEX's IRRoundingMode. Rounding modes that cannot be
represented in VEX are converted to Irrm_NEAREST. The rationale is, that
Irrm_NEAREST refers to IEEE 754's roundTiesToEven which the standard
considers the default rounding mode (4.3.3). */
static IRTemp
encode_bfp_rounding_mode(UChar mode)
{
IRExpr *rm;
switch (mode) {
case S390_BFP_ROUND_PER_FPC:
rm = get_bfp_rounding_mode_from_fpc();
break;
case S390_BFP_ROUND_NEAREST_AWAY: /* not supported */
case S390_BFP_ROUND_PREPARE_SHORT: /* not supported */
case S390_BFP_ROUND_NEAREST_EVEN: rm = mkU32(Irrm_NEAREST); break;
case S390_BFP_ROUND_ZERO: rm = mkU32(Irrm_ZERO); break;
case S390_BFP_ROUND_POSINF: rm = mkU32(Irrm_PosINF); break;
case S390_BFP_ROUND_NEGINF: rm = mkU32(Irrm_NegINF); break;
default:
vpanic("encode_bfp_rounding_mode");
}
return mktemp(Ity_I32, rm);
}
/* Extract the DFP rounding mode from the guest FPC reg and encode it as an
IRRoundingMode:
rounding mode | s390 | IR
------------------------------------------------
to nearest, ties to even | 000 | 000
to zero | 001 | 011
to +infinity | 010 | 010
to -infinity | 011 | 001
to nearest, ties away from 0 | 100 | 100
to nearest, ties toward 0 | 101 | 111
to away from 0 | 110 | 110
to prepare for shorter precision | 111 | 101
So: IR = (s390 ^ ((s390 << 1) & 2))
*/
static IRExpr *
get_dfp_rounding_mode_from_fpc(void)
{
IRTemp fpc_bits = newTemp(Ity_I32);
/* The dfp rounding mode is stored in bits [25:27].
extract the bits at 25:27 and right shift 4 times. */
assign(fpc_bits, binop(Iop_Shr32,
binop(Iop_And32, get_fpc_w0(), mkU32(0x70)),
mkU8(4)));
IRExpr *rm_s390 = mkexpr(fpc_bits);
// rm_IR = (rm_s390 ^ ((rm_s390 << 1) & 2));
return binop(Iop_Xor32, rm_s390,
binop( Iop_And32,
binop(Iop_Shl32, rm_s390, mkU8(1)),
mkU32(2)));
}
/* Encode the s390 rounding mode as it appears in the m3 field of certain
instructions to VEX's IRRoundingMode. */
static IRTemp
encode_dfp_rounding_mode(UChar mode)
{
IRExpr *rm;
switch (mode) {
case S390_DFP_ROUND_PER_FPC_0:
case S390_DFP_ROUND_PER_FPC_2:
rm = get_dfp_rounding_mode_from_fpc(); break;
case S390_DFP_ROUND_NEAREST_EVEN_4:
case S390_DFP_ROUND_NEAREST_EVEN_8:
rm = mkU32(Irrm_NEAREST); break;
case S390_DFP_ROUND_NEAREST_TIE_AWAY_0_1:
case S390_DFP_ROUND_NEAREST_TIE_AWAY_0_12:
rm = mkU32(Irrm_NEAREST_TIE_AWAY_0); break;
case S390_DFP_ROUND_PREPARE_SHORT_3:
case S390_DFP_ROUND_PREPARE_SHORT_15:
rm = mkU32(Irrm_PREPARE_SHORTER); break;
case S390_DFP_ROUND_ZERO_5:
case S390_DFP_ROUND_ZERO_9:
rm = mkU32(Irrm_ZERO ); break;
case S390_DFP_ROUND_POSINF_6:
case S390_DFP_ROUND_POSINF_10:
rm = mkU32(Irrm_PosINF); break;
case S390_DFP_ROUND_NEGINF_7:
case S390_DFP_ROUND_NEGINF_11:
rm = mkU32(Irrm_NegINF); break;
case S390_DFP_ROUND_NEAREST_TIE_TOWARD_0:
rm = mkU32(Irrm_NEAREST_TIE_TOWARD_0); break;
case S390_DFP_ROUND_AWAY_0:
rm = mkU32(Irrm_AWAY_FROM_ZERO); break;
default:
vpanic("encode_dfp_rounding_mode");
}
return mktemp(Ity_I32, rm);
}
/*------------------------------------------------------------*/
/*--- Condition code helpers ---*/
/*------------------------------------------------------------*/
/* The result of a Iop_CmpFxx operation is a condition code. It is
encoded using the values defined in type IRCmpFxxResult.
Before we can store the condition code into the guest state (or do
anything else with it for that matter) we need to convert it to
the encoding that s390 uses. This is what this function does.
s390 VEX b6 b2 b0 cc.1 cc.0
0 0x40 EQ 1 0 0 0 0
1 0x01 LT 0 0 1 0 1
2 0x00 GT 0 0 0 1 0
3 0x45 Unordered 1 1 1 1 1
The following bits from the VEX encoding are interesting:
b0, b2, b6 with b0 being the LSB. We observe:
cc.0 = b0;
cc.1 = b2 | (~b0 & ~b6)
with cc being the s390 condition code.
*/
static IRExpr *
convert_vex_bfpcc_to_s390(IRTemp vex_cc)
{
IRTemp cc0 = newTemp(Ity_I32);
IRTemp cc1 = newTemp(Ity_I32);
IRTemp b0 = newTemp(Ity_I32);
IRTemp b2 = newTemp(Ity_I32);
IRTemp b6 = newTemp(Ity_I32);
assign(b0, binop(Iop_And32, mkexpr(vex_cc), mkU32(1)));
assign(b2, binop(Iop_And32, binop(Iop_Shr32, mkexpr(vex_cc), mkU8(2)),
mkU32(1)));
assign(b6, binop(Iop_And32, binop(Iop_Shr32, mkexpr(vex_cc), mkU8(6)),
mkU32(1)));
assign(cc0, mkexpr(b0));
assign(cc1, binop(Iop_Or32, mkexpr(b2),
binop(Iop_And32,
binop(Iop_Sub32, mkU32(1), mkexpr(b0)), /* ~b0 */
binop(Iop_Sub32, mkU32(1), mkexpr(b6)) /* ~b6 */
)));
return binop(Iop_Or32, mkexpr(cc0), binop(Iop_Shl32, mkexpr(cc1), mkU8(1)));
}
/* The result of a Iop_CmpDxx operation is a condition code. It is
encoded using the values defined in type IRCmpDxxResult.
Before we can store the condition code into the guest state (or do
anything else with it for that matter) we need to convert it to
the encoding that s390 uses. This is what this function does. */
static IRExpr *
convert_vex_dfpcc_to_s390(IRTemp vex_cc)
{
/* The VEX encodings for IRCmpDxxResult and IRCmpFxxResult are the
same. currently. */
return convert_vex_bfpcc_to_s390(vex_cc);
}
/*------------------------------------------------------------*/
/*--- Build IR for formats ---*/
/*------------------------------------------------------------*/
static void
s390_format_I(const HChar *(*irgen)(UChar i),
UChar i)
{
const HChar *mnm = irgen(i);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC2(MNM, UINT), mnm, i);
}
static void
s390_format_E(const HChar *(*irgen)(void))
{
const HChar *mnm = irgen();
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC1(MNM), mnm);
}
static void
s390_format_RI(const HChar *(*irgen)(UChar r1, UShort i2),
UChar r1, UShort i2)
{
irgen(r1, i2);
}
static void
s390_format_RI_RU(const HChar *(*irgen)(UChar r1, UShort i2),
UChar r1, UShort i2)
{
const HChar *mnm = irgen(r1, i2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, GPR, UINT), mnm, r1, i2);
}
static void
s390_format_RI_RI(const HChar *(*irgen)(UChar r1, UShort i2),
UChar r1, UShort i2)
{
const HChar *mnm = irgen(r1, i2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, GPR, INT), mnm, r1, (Int)(Short)i2);
}
static void
s390_format_RI_RP(const HChar *(*irgen)(UChar r1, UShort i2),
UChar r1, UShort i2)
{
const HChar *mnm = irgen(r1, i2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, GPR, PCREL), mnm, r1, (Int)(Short)i2);
}
static void
s390_format_RIE_RRP(const HChar *(*irgen)(UChar r1, UChar r3, UShort i2),
UChar r1, UChar r3, UShort i2)
{
const HChar *mnm = irgen(r1, r3, i2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC4(MNM, GPR, GPR, PCREL), mnm, r1, r3, (Int)(Short)i2);
}
static void
s390_format_RIE_RRI0(const HChar *(*irgen)(UChar r1, UChar r3, UShort i2),
UChar r1, UChar r3, UShort i2)
{
const HChar *mnm = irgen(r1, r3, i2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC4(MNM, GPR, GPR, INT), mnm, r1, r3, (Int)(Short)i2);
}
static void
s390_format_RIE_RRUUU(const HChar *(*irgen)(UChar r1, UChar r2, UChar i3,
UChar i4, UChar i5),
UChar r1, UChar r2, UChar i3, UChar i4, UChar i5)
{
const HChar *mnm = irgen(r1, r2, i3, i4, i5);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC6(MNM, GPR, GPR, UINT, UINT, UINT), mnm, r1, r2, i3, i4,
i5);
}
static void
s390_format_RIE_RRPU(const HChar *(*irgen)(UChar r1, UChar r2, UShort i4,
UChar m3),
UChar r1, UChar r2, UShort i4, UChar m3)
{
const HChar *mnm = irgen(r1, r2, i4, m3);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC5(XMNM, GPR, GPR, CABM, PCREL), S390_XMNM_CAB, mnm, m3, r1,
r2, m3, (Int)(Short)i4);
}
static void
s390_format_RIE_RUPU(const HChar *(*irgen)(UChar r1, UChar m3, UShort i4,
UChar i2),
UChar r1, UChar m3, UShort i4, UChar i2)
{
const HChar *mnm = irgen(r1, m3, i4, i2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC5(XMNM, GPR, UINT, CABM, PCREL), S390_XMNM_CAB, mnm, m3,
r1, i2, m3, (Int)(Short)i4);
}
static void
s390_format_RIE_RUPI(const HChar *(*irgen)(UChar r1, UChar m3, UShort i4,
UChar i2),
UChar r1, UChar m3, UShort i4, UChar i2)
{
const HChar *mnm = irgen(r1, m3, i4, i2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC5(XMNM, GPR, INT, CABM, PCREL), S390_XMNM_CAB, mnm, m3, r1,
(Int)(Char)i2, m3, (Int)(Short)i4);
}
static void
s390_format_RIL(const HChar *(*irgen)(UChar r1, UInt i2),
UChar r1, UInt i2)
{
irgen(r1, i2);
}
static void
s390_format_RIL_RU(const HChar *(*irgen)(UChar r1, UInt i2),
UChar r1, UInt i2)
{
const HChar *mnm = irgen(r1, i2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, GPR, UINT), mnm, r1, i2);
}
static void
s390_format_RIL_RI(const HChar *(*irgen)(UChar r1, UInt i2),
UChar r1, UInt i2)
{
const HChar *mnm = irgen(r1, i2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, GPR, INT), mnm, r1, i2);
}
static void
s390_format_RIL_RP(const HChar *(*irgen)(UChar r1, UInt i2),
UChar r1, UInt i2)
{
const HChar *mnm = irgen(r1, i2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, GPR, PCREL), mnm, r1, i2);
}
static void
s390_format_RIL_UP(const HChar *(*irgen)(void),
UChar r1, UInt i2)
{
const HChar *mnm = irgen();
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, UINT, PCREL), mnm, r1, i2);
}
static void
s390_format_RIS_RURDI(const HChar *(*irgen)(UChar r1, UChar m3, UChar i2,
IRTemp op4addr),
UChar r1, UChar m3, UChar b4, UShort d4, UChar i2)
{
const HChar *mnm;
IRTemp op4addr = newTemp(Ity_I64);
assign(op4addr, binop(Iop_Add64, mkU64(d4), b4 != 0 ? get_gpr_dw0(b4) :
mkU64(0)));
mnm = irgen(r1, m3, i2, op4addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC5(XMNM, GPR, INT, CABM, UDXB), S390_XMNM_CAB, mnm, m3, r1,
(Int)(Char)i2, m3, d4, 0, b4);
}
static void
s390_format_RIS_RURDU(const HChar *(*irgen)(UChar r1, UChar m3, UChar i2,
IRTemp op4addr),
UChar r1, UChar m3, UChar b4, UShort d4, UChar i2)
{
const HChar *mnm;
IRTemp op4addr = newTemp(Ity_I64);
assign(op4addr, binop(Iop_Add64, mkU64(d4), b4 != 0 ? get_gpr_dw0(b4) :
mkU64(0)));
mnm = irgen(r1, m3, i2, op4addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC5(XMNM, GPR, UINT, CABM, UDXB), S390_XMNM_CAB, mnm, m3, r1,
i2, m3, d4, 0, b4);
}
static void
s390_format_RR(const HChar *(*irgen)(UChar r1, UChar r2),
UChar r1, UChar r2)
{
irgen(r1, r2);
}
static void
s390_format_RR_RR(const HChar *(*irgen)(UChar r1, UChar r2),
UChar r1, UChar r2)
{
const HChar *mnm = irgen(r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, GPR, GPR), mnm, r1, r2);
}
static void
s390_format_RR_FF(const HChar *(*irgen)(UChar r1, UChar r2),
UChar r1, UChar r2)
{
const HChar *mnm = irgen(r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, FPR, FPR), mnm, r1, r2);
}
static void
s390_format_RRE(const HChar *(*irgen)(UChar r1, UChar r2),
UChar r1, UChar r2)
{
irgen(r1, r2);
}
static void
s390_format_RRE_RR(const HChar *(*irgen)(UChar r1, UChar r2),
UChar r1, UChar r2)
{
const HChar *mnm = irgen(r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, GPR, GPR), mnm, r1, r2);
}
static void
s390_format_RRE_FF(const HChar *(*irgen)(UChar r1, UChar r2),
UChar r1, UChar r2)
{
const HChar *mnm = irgen(r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, FPR, FPR), mnm, r1, r2);
}
static void
s390_format_RRE_RF(const HChar *(*irgen)(UChar, UChar),
UChar r1, UChar r2)
{
const HChar *mnm = irgen(r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, GPR, FPR), mnm, r1, r2);
}
static void
s390_format_RRE_FR(const HChar *(*irgen)(UChar r1, UChar r2),
UChar r1, UChar r2)
{
const HChar *mnm = irgen(r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, FPR, GPR), mnm, r1, r2);
}
static void
s390_format_RRE_R0(const HChar *(*irgen)(UChar r1),
UChar r1)
{
const HChar *mnm = irgen(r1);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC2(MNM, GPR), mnm, r1);
}
static void
s390_format_RRE_F0(const HChar *(*irgen)(UChar r1),
UChar r1)
{
const HChar *mnm = irgen(r1);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC2(MNM, FPR), mnm, r1);
}
static void
s390_format_RRF_M0RERE(const HChar *(*irgen)(UChar m3, UChar r1, UChar r2),
UChar m3, UChar r1, UChar r2)
{
const HChar *mnm = irgen(m3, r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC4(MNM, GPR, GPR, UINT), mnm, r1, r2, m3);
}
static void
s390_format_RRF_F0FF(const HChar *(*irgen)(UChar, UChar, UChar),
UChar r1, UChar r3, UChar r2)
{
const HChar *mnm = irgen(r1, r3, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC4(MNM, FPR, FPR, FPR), mnm, r1, r3, r2);
}
static void
s390_format_RRF_F0FR(const HChar *(*irgen)(UChar, UChar, UChar),
UChar r3, UChar r1, UChar r2)
{
const HChar *mnm = irgen(r3, r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC4(MNM, FPR, FPR, GPR), mnm, r1, r3, r2);
}
static void
s390_format_RRF_UUFF(const HChar *(*irgen)(UChar m3, UChar m4, UChar r1,
UChar r2),
UChar m3, UChar m4, UChar r1, UChar r2)
{
const HChar *mnm = irgen(m3, m4, r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC5(MNM, FPR, UINT, FPR, UINT), mnm, r1, m3, r2, m4);
}
static void
s390_format_RRF_0UFF(const HChar *(*irgen)(UChar m4, UChar r1, UChar r2),
UChar m4, UChar r1, UChar r2)
{
const HChar *mnm = irgen(m4, r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC4(MNM, FPR, FPR, UINT), mnm, r1, r2, m4);
}
static void
s390_format_RRF_UUFR(const HChar *(*irgen)(UChar m3, UChar m4, UChar r1,
UChar r2),
UChar m3, UChar m4, UChar r1, UChar r2)
{
const HChar *mnm = irgen(m3, m4, r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC5(MNM, FPR, UINT, GPR, UINT), mnm, r1, m3, r2, m4);
}
static void
s390_format_RRF_UURF(const HChar *(*irgen)(UChar m3, UChar m4, UChar r1,
UChar r2),
UChar m3, UChar m4, UChar r1, UChar r2)
{
const HChar *mnm = irgen(m3, m4, r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC5(MNM, GPR, UINT, FPR, UINT), mnm, r1, m3, r2, m4);
}
static void
s390_format_RRF_U0RR(const HChar *(*irgen)(UChar m3, UChar r1, UChar r2),
UChar m3, UChar r1, UChar r2, Int xmnm_kind)
{
irgen(m3, r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(XMNM, GPR, GPR), xmnm_kind, m3, r1, r2);
}
static void
s390_format_RRF_F0FF2(const HChar *(*irgen)(UChar, UChar, UChar),
UChar r3, UChar r1, UChar r2)
{
const HChar *mnm = irgen(r3, r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC4(MNM, FPR, FPR, FPR), mnm, r1, r3, r2);
}
static void
s390_format_RRF_FFRU(const HChar *(*irgen)(UChar, UChar, UChar, UChar),
UChar r3, UChar m4, UChar r1, UChar r2)
{
const HChar *mnm = irgen(r3, m4, r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC5(MNM, FPR, FPR, GPR, UINT), mnm, r1, r3, r2, m4);
}
static void
s390_format_RRF_FUFF(const HChar *(*irgen)(UChar, UChar, UChar, UChar),
UChar r3, UChar m4, UChar r1, UChar r2)
{
const HChar *mnm = irgen(r3, m4, r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC5(MNM, FPR, FPR, FPR, UINT), mnm, r1, r3, r2, m4);
}
static void
s390_format_RRF_FUFF2(const HChar *(*irgen)(UChar, UChar, UChar, UChar),
UChar r3, UChar m4, UChar r1, UChar r2)
{
const HChar *mnm = irgen(r3, m4, r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC5(MNM, FPR, FPR, FPR, UINT), mnm, r1, r2, r3, m4);
}
static void
s390_format_RRF_R0RR2(const HChar *(*irgen)(UChar r3, UChar r1, UChar r2),
UChar r3, UChar r1, UChar r2)
{
const HChar *mnm = irgen(r3, r1, r2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC4(MNM, GPR, GPR, GPR), mnm, r1, r2, r3);
}
static void
s390_format_RRS(const HChar *(*irgen)(UChar r1, UChar r2, UChar m3,
IRTemp op4addr),
UChar r1, UChar r2, UChar b4, UShort d4, UChar m3)
{
const HChar *mnm;
IRTemp op4addr = newTemp(Ity_I64);
assign(op4addr, binop(Iop_Add64, mkU64(d4), b4 != 0 ? get_gpr_dw0(b4) :
mkU64(0)));
mnm = irgen(r1, r2, m3, op4addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC5(XMNM, GPR, GPR, CABM, UDXB), S390_XMNM_CAB, mnm, m3, r1,
r2, m3, d4, 0, b4);
}
static void
s390_format_RS_R0RD(const HChar *(*irgen)(UChar r1, IRTemp op2addr),
UChar r1, UChar b2, UShort d2)
{
const HChar *mnm;
IRTemp op2addr = newTemp(Ity_I64);
assign(op2addr, binop(Iop_Add64, mkU64(d2), b2 != 0 ? get_gpr_dw0(b2) :
mkU64(0)));
mnm = irgen(r1, op2addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, GPR, UDXB), mnm, r1, d2, 0, b2);
}
static void
s390_format_RS_RRRD(const HChar *(*irgen)(UChar r1, UChar r3, IRTemp op2addr),
UChar r1, UChar r3, UChar b2, UShort d2)
{
const HChar *mnm;
IRTemp op2addr = newTemp(Ity_I64);
assign(op2addr, binop(Iop_Add64, mkU64(d2), b2 != 0 ? get_gpr_dw0(b2) :
mkU64(0)));
mnm = irgen(r1, r3, op2addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC4(MNM, GPR, GPR, UDXB), mnm, r1, r3, d2, 0, b2);
}
static void
s390_format_RS_RURD(const HChar *(*irgen)(UChar r1, UChar r3, IRTemp op2addr),
UChar r1, UChar r3, UChar b2, UShort d2)
{
const HChar *mnm;
IRTemp op2addr = newTemp(Ity_I64);
assign(op2addr, binop(Iop_Add64, mkU64(d2), b2 != 0 ? get_gpr_dw0(b2) :
mkU64(0)));
mnm = irgen(r1, r3, op2addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC4(MNM, GPR, UINT, UDXB), mnm, r1, r3, d2, 0, b2);
}
static void
s390_format_RS_AARD(const HChar *(*irgen)(UChar, UChar, IRTemp),
UChar r1, UChar r3, UChar b2, UShort d2)
{
const HChar *mnm;
IRTemp op2addr = newTemp(Ity_I64);
assign(op2addr, binop(Iop_Add64, mkU64(d2), b2 != 0 ? get_gpr_dw0(b2) :
mkU64(0)));
mnm = irgen(r1, r3, op2addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC4(MNM, AR, AR, UDXB), mnm, r1, r3, d2, 0, b2);
}
static void
s390_format_RSI_RRP(const HChar *(*irgen)(UChar r1, UChar r3, UShort i2),
UChar r1, UChar r3, UShort i2)
{
const HChar *mnm = irgen(r1, r3, i2);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC4(MNM, GPR, GPR, PCREL), mnm, r1, r3, (Int)(Short)i2);
}
static void
s390_format_RSY_RRRD(const HChar *(*irgen)(UChar r1, UChar r3, IRTemp op2addr),
UChar r1, UChar r3, UChar b2, UShort dl2, UChar dh2)
{
const HChar *mnm;
IRTemp op2addr = newTemp(Ity_I64);
IRTemp d2 = newTemp(Ity_I64);
assign(d2, mkU64(((ULong)(Long)(Char)dh2 << 12) | ((ULong)dl2)));
assign(op2addr, binop(Iop_Add64, mkexpr(d2), b2 != 0 ? get_gpr_dw0(b2) :
mkU64(0)));
mnm = irgen(r1, r3, op2addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC4(MNM, GPR, GPR, SDXB), mnm, r1, r3, dh2, dl2, 0, b2);
}
static void
s390_format_RSY_AARD(const HChar *(*irgen)(UChar, UChar, IRTemp),
UChar r1, UChar r3, UChar b2, UShort dl2, UChar dh2)
{
const HChar *mnm;
IRTemp op2addr = newTemp(Ity_I64);
IRTemp d2 = newTemp(Ity_I64);
assign(d2, mkU64(((ULong)(Long)(Char)dh2 << 12) | ((ULong)dl2)));
assign(op2addr, binop(Iop_Add64, mkexpr(d2), b2 != 0 ? get_gpr_dw0(b2) :
mkU64(0)));
mnm = irgen(r1, r3, op2addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC4(MNM, AR, AR, SDXB), mnm, r1, r3, dh2, dl2, 0, b2);
}
static void
s390_format_RSY_RURD(const HChar *(*irgen)(UChar r1, UChar r3, IRTemp op2addr),
UChar r1, UChar r3, UChar b2, UShort dl2, UChar dh2)
{
const HChar *mnm;
IRTemp op2addr = newTemp(Ity_I64);
IRTemp d2 = newTemp(Ity_I64);
assign(d2, mkU64(((ULong)(Long)(Char)dh2 << 12) | ((ULong)dl2)));
assign(op2addr, binop(Iop_Add64, mkexpr(d2), b2 != 0 ? get_gpr_dw0(b2) :
mkU64(0)));
mnm = irgen(r1, r3, op2addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC4(MNM, GPR, UINT, SDXB), mnm, r1, r3, dh2, dl2, 0, b2);
}
static void
s390_format_RSY_RDRM(const HChar *(*irgen)(UChar r1, IRTemp op2addr),
UChar r1, UChar m3, UChar b2, UShort dl2, UChar dh2,
Int xmnm_kind)
{
IRTemp op2addr = newTemp(Ity_I64);
IRTemp d2 = newTemp(Ity_I64);
next_insn_if(binop(Iop_CmpEQ32, s390_call_calculate_cond(m3), mkU32(0)));
assign(d2, mkU64(((ULong)(Long)(Char)dh2 << 12) | ((ULong)dl2)));
assign(op2addr, binop(Iop_Add64, mkexpr(d2), b2 != 0 ? get_gpr_dw0(b2) :
mkU64(0)));
irgen(r1, op2addr);
vassert(dis_res->whatNext == Dis_Continue);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(XMNM, GPR, SDXB), xmnm_kind, m3, r1, dh2, dl2, 0, b2);
}
static void
s390_format_RX(const HChar *(*irgen)(UChar r1, UChar x2, UChar b2, UShort d2,
IRTemp op2addr),
UChar r1, UChar x2, UChar b2, UShort d2)
{
IRTemp op2addr = newTemp(Ity_I64);
assign(op2addr, binop(Iop_Add64, binop(Iop_Add64, mkU64(d2),
b2 != 0 ? get_gpr_dw0(b2) : mkU64(0)), x2 != 0 ? get_gpr_dw0(x2) :
mkU64(0)));
irgen(r1, x2, b2, d2, op2addr);
}
static void
s390_format_RX_RRRD(const HChar *(*irgen)(UChar r1, IRTemp op2addr),
UChar r1, UChar x2, UChar b2, UShort d2)
{
const HChar *mnm;
IRTemp op2addr = newTemp(Ity_I64);
assign(op2addr, binop(Iop_Add64, binop(Iop_Add64, mkU64(d2),
b2 != 0 ? get_gpr_dw0(b2) : mkU64(0)), x2 != 0 ? get_gpr_dw0(x2) :
mkU64(0)));
mnm = irgen(r1, op2addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, GPR, UDXB), mnm, r1, d2, x2, b2);
}
static void
s390_format_RX_FRRD(const HChar *(*irgen)(UChar r1, IRTemp op2addr),
UChar r1, UChar x2, UChar b2, UShort d2)
{
const HChar *mnm;
IRTemp op2addr = newTemp(Ity_I64);
assign(op2addr, binop(Iop_Add64, binop(Iop_Add64, mkU64(d2),
b2 != 0 ? get_gpr_dw0(b2) : mkU64(0)), x2 != 0 ? get_gpr_dw0(x2) :
mkU64(0)));
mnm = irgen(r1, op2addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, FPR, UDXB), mnm, r1, d2, x2, b2);
}
static void
s390_format_RXE_FRRD(const HChar *(*irgen)(UChar r1, IRTemp op2addr),
UChar r1, UChar x2, UChar b2, UShort d2)
{
const HChar *mnm;
IRTemp op2addr = newTemp(Ity_I64);
assign(op2addr, binop(Iop_Add64, binop(Iop_Add64, mkU64(d2),
b2 != 0 ? get_gpr_dw0(b2) : mkU64(0)), x2 != 0 ? get_gpr_dw0(x2) :
mkU64(0)));
mnm = irgen(r1, op2addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, FPR, UDXB), mnm, r1, d2, x2, b2);
}
static void
s390_format_RXF_FRRDF(const HChar *(*irgen)(UChar, IRTemp, UChar),
UChar r3, UChar x2, UChar b2, UShort d2, UChar r1)
{
const HChar *mnm;
IRTemp op2addr = newTemp(Ity_I64);
assign(op2addr, binop(Iop_Add64, binop(Iop_Add64, mkU64(d2),
b2 != 0 ? get_gpr_dw0(b2) : mkU64(0)), x2 != 0 ? get_gpr_dw0(x2) :
mkU64(0)));
mnm = irgen(r3, op2addr, r1);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC4(MNM, FPR, FPR, UDXB), mnm, r1, r3, d2, x2, b2);
}
static void
s390_format_RXY_RRRD(const HChar *(*irgen)(UChar r1, IRTemp op2addr),
UChar r1, UChar x2, UChar b2, UShort dl2, UChar dh2)
{
const HChar *mnm;
IRTemp op2addr = newTemp(Ity_I64);
IRTemp d2 = newTemp(Ity_I64);
assign(d2, mkU64(((ULong)(Long)(Char)dh2 << 12) | ((ULong)dl2)));
assign(op2addr, binop(Iop_Add64, binop(Iop_Add64, mkexpr(d2),
b2 != 0 ? get_gpr_dw0(b2) : mkU64(0)), x2 != 0 ? get_gpr_dw0(x2) :
mkU64(0)));
mnm = irgen(r1, op2addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, GPR, SDXB), mnm, r1, dh2, dl2, x2, b2);
}
static void
s390_format_RXY_FRRD(const HChar *(*irgen)(UChar r1, IRTemp op2addr),
UChar r1, UChar x2, UChar b2, UShort dl2, UChar dh2)
{
const HChar *mnm;
IRTemp op2addr = newTemp(Ity_I64);
IRTemp d2 = newTemp(Ity_I64);
assign(d2, mkU64(((ULong)(Long)(Char)dh2 << 12) | ((ULong)dl2)));
assign(op2addr, binop(Iop_Add64, binop(Iop_Add64, mkexpr(d2),
b2 != 0 ? get_gpr_dw0(b2) : mkU64(0)), x2 != 0 ? get_gpr_dw0(x2) :
mkU64(0)));
mnm = irgen(r1, op2addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, FPR, SDXB), mnm, r1, dh2, dl2, x2, b2);
}
static void
s390_format_RXY_URRD(const HChar *(*irgen)(void),
UChar r1, UChar x2, UChar b2, UShort dl2, UChar dh2)
{
const HChar *mnm;
IRTemp op2addr = newTemp(Ity_I64);
IRTemp d2 = newTemp(Ity_I64);
assign(d2, mkU64(((ULong)(Long)(Char)dh2 << 12) | ((ULong)dl2)));
assign(op2addr, binop(Iop_Add64, binop(Iop_Add64, mkexpr(d2),
b2 != 0 ? get_gpr_dw0(b2) : mkU64(0)), x2 != 0 ? get_gpr_dw0(x2) :
mkU64(0)));
mnm = irgen();
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, UINT, SDXB), mnm, r1, dh2, dl2, x2, b2);
}
static void
s390_format_S_RD(const HChar *(*irgen)(IRTemp op2addr),
UChar b2, UShort d2)
{
const HChar *mnm;
IRTemp op2addr = newTemp(Ity_I64);
assign(op2addr, binop(Iop_Add64, mkU64(d2), b2 != 0 ? get_gpr_dw0(b2) :
mkU64(0)));
mnm = irgen(op2addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC2(MNM, UDXB), mnm, d2, 0, b2);
}
static void
s390_format_SI_URD(const HChar *(*irgen)(UChar i2, IRTemp op1addr),
UChar i2, UChar b1, UShort d1)
{
const HChar *mnm;
IRTemp op1addr = newTemp(Ity_I64);
assign(op1addr, binop(Iop_Add64, mkU64(d1), b1 != 0 ? get_gpr_dw0(b1) :
mkU64(0)));
mnm = irgen(i2, op1addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, UDXB, UINT), mnm, d1, 0, b1, i2);
}
static void
s390_format_SIY_URD(const HChar *(*irgen)(UChar i2, IRTemp op1addr),
UChar i2, UChar b1, UShort dl1, UChar dh1)
{
const HChar *mnm;
IRTemp op1addr = newTemp(Ity_I64);
IRTemp d1 = newTemp(Ity_I64);
assign(d1, mkU64(((ULong)(Long)(Char)dh1 << 12) | ((ULong)dl1)));
assign(op1addr, binop(Iop_Add64, mkexpr(d1), b1 != 0 ? get_gpr_dw0(b1) :
mkU64(0)));
mnm = irgen(i2, op1addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, SDXB, UINT), mnm, dh1, dl1, 0, b1, i2);
}
static void
s390_format_SIY_IRD(const HChar *(*irgen)(UChar i2, IRTemp op1addr),
UChar i2, UChar b1, UShort dl1, UChar dh1)
{
const HChar *mnm;
IRTemp op1addr = newTemp(Ity_I64);
IRTemp d1 = newTemp(Ity_I64);
assign(d1, mkU64(((ULong)(Long)(Char)dh1 << 12) | ((ULong)dl1)));
assign(op1addr, binop(Iop_Add64, mkexpr(d1), b1 != 0 ? get_gpr_dw0(b1) :
mkU64(0)));
mnm = irgen(i2, op1addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, SDXB, INT), mnm, dh1, dl1, 0, b1, (Int)(Char)i2);
}
static void
s390_format_SS_L0RDRD(const HChar *(*irgen)(UChar, IRTemp, IRTemp),
UChar l, UChar b1, UShort d1, UChar b2, UShort d2)
{
const HChar *mnm;
IRTemp op1addr = newTemp(Ity_I64);
IRTemp op2addr = newTemp(Ity_I64);
assign(op1addr, binop(Iop_Add64, mkU64(d1), b1 != 0 ? get_gpr_dw0(b1) :
mkU64(0)));
assign(op2addr, binop(Iop_Add64, mkU64(d2), b2 != 0 ? get_gpr_dw0(b2) :
mkU64(0)));
mnm = irgen(l, op1addr, op2addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, UDLB, UDXB), mnm, d1, l, b1, d2, 0, b2);
}
static void
s390_format_SIL_RDI(const HChar *(*irgen)(UShort i2, IRTemp op1addr),
UChar b1, UShort d1, UShort i2)
{
const HChar *mnm;
IRTemp op1addr = newTemp(Ity_I64);
assign(op1addr, binop(Iop_Add64, mkU64(d1), b1 != 0 ? get_gpr_dw0(b1) :
mkU64(0)));
mnm = irgen(i2, op1addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, UDXB, INT), mnm, d1, 0, b1, (Int)(Short)i2);
}
static void
s390_format_SIL_RDU(const HChar *(*irgen)(UShort i2, IRTemp op1addr),
UChar b1, UShort d1, UShort i2)
{
const HChar *mnm;
IRTemp op1addr = newTemp(Ity_I64);
assign(op1addr, binop(Iop_Add64, mkU64(d1), b1 != 0 ? get_gpr_dw0(b1) :
mkU64(0)));
mnm = irgen(i2, op1addr);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, UDXB, UINT), mnm, d1, 0, b1, i2);
}
/*------------------------------------------------------------*/
/*--- Build IR for opcodes ---*/
/*------------------------------------------------------------*/
static const HChar *
s390_irgen_AR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, get_gpr_w1(r2));
assign(result, binop(Iop_Add32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_32, op1, op2);
put_gpr_w1(r1, mkexpr(result));
return "ar";
}
static const HChar *
s390_irgen_AGR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_dw0(r2));
assign(result, binop(Iop_Add64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_64, op1, op2);
put_gpr_dw0(r1, mkexpr(result));
return "agr";
}
static const HChar *
s390_irgen_AGFR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_32Sto64, get_gpr_w1(r2)));
assign(result, binop(Iop_Add64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_64, op1, op2);
put_gpr_dw0(r1, mkexpr(result));
return "agfr";
}
static const HChar *
s390_irgen_ARK(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
assign(op3, get_gpr_w1(r3));
assign(result, binop(Iop_Add32, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_32, op2, op3);
put_gpr_w1(r1, mkexpr(result));
return "ark";
}
static const HChar *
s390_irgen_AGRK(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
IRTemp op3 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
assign(op3, get_gpr_dw0(r3));
assign(result, binop(Iop_Add64, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_64, op2, op3);
put_gpr_dw0(r1, mkexpr(result));
return "agrk";
}
static const HChar *
s390_irgen_A(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_Add32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_32, op1, op2);
put_gpr_w1(r1, mkexpr(result));
return "a";
}
static const HChar *
s390_irgen_AY(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_Add32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_32, op1, op2);
put_gpr_w1(r1, mkexpr(result));
return "ay";
}
static const HChar *
s390_irgen_AG(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, load(Ity_I64, mkexpr(op2addr)));
assign(result, binop(Iop_Add64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_64, op1, op2);
put_gpr_dw0(r1, mkexpr(result));
return "ag";
}
static const HChar *
s390_irgen_AGF(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_32Sto64, load(Ity_I32, mkexpr(op2addr))));
assign(result, binop(Iop_Add64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_64, op1, op2);
put_gpr_dw0(r1, mkexpr(result));
return "agf";
}
static const HChar *
s390_irgen_AFI(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
Int op2;
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
op2 = (Int)i2;
assign(result, binop(Iop_Add32, mkexpr(op1), mkU32((UInt)op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_32, op1, mktemp(Ity_I32,
mkU32((UInt)op2)));
put_gpr_w1(r1, mkexpr(result));
return "afi";
}
static const HChar *
s390_irgen_AGFI(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I64);
Long op2;
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
op2 = (Long)(Int)i2;
assign(result, binop(Iop_Add64, mkexpr(op1), mkU64((ULong)op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_64, op1, mktemp(Ity_I64,
mkU64((ULong)op2)));
put_gpr_dw0(r1, mkexpr(result));
return "agfi";
}
static const HChar *
s390_irgen_AHIK(UChar r1, UChar r3, UShort i2)
{
Int op2;
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
op2 = (Int)(Short)i2;
assign(op3, get_gpr_w1(r3));
assign(result, binop(Iop_Add32, mkU32((UInt)op2), mkexpr(op3)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_32, mktemp(Ity_I32, mkU32((UInt)
op2)), op3);
put_gpr_w1(r1, mkexpr(result));
return "ahik";
}
static const HChar *
s390_irgen_AGHIK(UChar r1, UChar r3, UShort i2)
{
Long op2;
IRTemp op3 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
op2 = (Long)(Short)i2;
assign(op3, get_gpr_dw0(r3));
assign(result, binop(Iop_Add64, mkU64((ULong)op2), mkexpr(op3)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_64, mktemp(Ity_I64, mkU64((ULong)
op2)), op3);
put_gpr_dw0(r1, mkexpr(result));
return "aghik";
}
static const HChar *
s390_irgen_ASI(UChar i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I32);
Int op2;
IRTemp result = newTemp(Ity_I32);
assign(op1, load(Ity_I32, mkexpr(op1addr)));
op2 = (Int)(Char)i2;
assign(result, binop(Iop_Add32, mkexpr(op1), mkU32((UInt)op2)));
store(mkexpr(op1addr), mkexpr(result));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_32, op1, mktemp(Ity_I32,
mkU32((UInt)op2)));
return "asi";
}
static const HChar *
s390_irgen_AGSI(UChar i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I64);
Long op2;
IRTemp result = newTemp(Ity_I64);
assign(op1, load(Ity_I64, mkexpr(op1addr)));
op2 = (Long)(Char)i2;
assign(result, binop(Iop_Add64, mkexpr(op1), mkU64((ULong)op2)));
store(mkexpr(op1addr), mkexpr(result));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_64, op1, mktemp(Ity_I64,
mkU64((ULong)op2)));
return "agsi";
}
static const HChar *
s390_irgen_AH(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, unop(Iop_16Sto32, load(Ity_I16, mkexpr(op2addr))));
assign(result, binop(Iop_Add32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_32, op1, op2);
put_gpr_w1(r1, mkexpr(result));
return "ah";
}
static const HChar *
s390_irgen_AHY(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, unop(Iop_16Sto32, load(Ity_I16, mkexpr(op2addr))));
assign(result, binop(Iop_Add32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_32, op1, op2);
put_gpr_w1(r1, mkexpr(result));
return "ahy";
}
static const HChar *
s390_irgen_AHI(UChar r1, UShort i2)
{
IRTemp op1 = newTemp(Ity_I32);
Int op2;
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
op2 = (Int)(Short)i2;
assign(result, binop(Iop_Add32, mkexpr(op1), mkU32((UInt)op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_32, op1, mktemp(Ity_I32,
mkU32((UInt)op2)));
put_gpr_w1(r1, mkexpr(result));
return "ahi";
}
static const HChar *
s390_irgen_AGHI(UChar r1, UShort i2)
{
IRTemp op1 = newTemp(Ity_I64);
Long op2;
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
op2 = (Long)(Short)i2;
assign(result, binop(Iop_Add64, mkexpr(op1), mkU64((ULong)op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_64, op1, mktemp(Ity_I64,
mkU64((ULong)op2)));
put_gpr_dw0(r1, mkexpr(result));
return "aghi";
}
static const HChar *
s390_irgen_AHHHR(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w0(r2));
assign(op3, get_gpr_w0(r3));
assign(result, binop(Iop_Add32, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_32, op2, op3);
put_gpr_w0(r1, mkexpr(result));
return "ahhhr";
}
static const HChar *
s390_irgen_AHHLR(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w0(r2));
assign(op3, get_gpr_w1(r3));
assign(result, binop(Iop_Add32, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_32, op2, op3);
put_gpr_w0(r1, mkexpr(result));
return "ahhlr";
}
static const HChar *
s390_irgen_AIH(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
Int op2;
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w0(r1));
op2 = (Int)i2;
assign(result, binop(Iop_Add32, mkexpr(op1), mkU32((UInt)op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_32, op1, mktemp(Ity_I32,
mkU32((UInt)op2)));
put_gpr_w0(r1, mkexpr(result));
return "aih";
}
static const HChar *
s390_irgen_ALR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, get_gpr_w1(r2));
assign(result, binop(Iop_Add32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_32, op1, op2);
put_gpr_w1(r1, mkexpr(result));
return "alr";
}
static const HChar *
s390_irgen_ALGR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_dw0(r2));
assign(result, binop(Iop_Add64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_64, op1, op2);
put_gpr_dw0(r1, mkexpr(result));
return "algr";
}
static const HChar *
s390_irgen_ALGFR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_32Uto64, get_gpr_w1(r2)));
assign(result, binop(Iop_Add64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_64, op1, op2);
put_gpr_dw0(r1, mkexpr(result));
return "algfr";
}
static const HChar *
s390_irgen_ALRK(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
assign(op3, get_gpr_w1(r3));
assign(result, binop(Iop_Add32, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_32, op2, op3);
put_gpr_w1(r1, mkexpr(result));
return "alrk";
}
static const HChar *
s390_irgen_ALGRK(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
IRTemp op3 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
assign(op3, get_gpr_dw0(r3));
assign(result, binop(Iop_Add64, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_64, op2, op3);
put_gpr_dw0(r1, mkexpr(result));
return "algrk";
}
static const HChar *
s390_irgen_AL(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_Add32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_32, op1, op2);
put_gpr_w1(r1, mkexpr(result));
return "al";
}
static const HChar *
s390_irgen_ALY(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_Add32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_32, op1, op2);
put_gpr_w1(r1, mkexpr(result));
return "aly";
}
static const HChar *
s390_irgen_ALG(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, load(Ity_I64, mkexpr(op2addr)));
assign(result, binop(Iop_Add64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_64, op1, op2);
put_gpr_dw0(r1, mkexpr(result));
return "alg";
}
static const HChar *
s390_irgen_ALGF(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_32Uto64, load(Ity_I32, mkexpr(op2addr))));
assign(result, binop(Iop_Add64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_64, op1, op2);
put_gpr_dw0(r1, mkexpr(result));
return "algf";
}
static const HChar *
s390_irgen_ALFI(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
UInt op2;
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
op2 = i2;
assign(result, binop(Iop_Add32, mkexpr(op1), mkU32(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_32, op1, mktemp(Ity_I32,
mkU32(op2)));
put_gpr_w1(r1, mkexpr(result));
return "alfi";
}
static const HChar *
s390_irgen_ALGFI(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I64);
ULong op2;
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
op2 = (ULong)i2;
assign(result, binop(Iop_Add64, mkexpr(op1), mkU64(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_64, op1, mktemp(Ity_I64,
mkU64(op2)));
put_gpr_dw0(r1, mkexpr(result));
return "algfi";
}
static const HChar *
s390_irgen_ALHHHR(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w0(r2));
assign(op3, get_gpr_w0(r3));
assign(result, binop(Iop_Add32, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_32, op2, op3);
put_gpr_w0(r1, mkexpr(result));
return "alhhhr";
}
static const HChar *
s390_irgen_ALHHLR(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w0(r2));
assign(op3, get_gpr_w1(r3));
assign(result, binop(Iop_Add32, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_32, op2, op3);
put_gpr_w0(r1, mkexpr(result));
return "alhhlr";
}
static const HChar *
s390_irgen_ALCR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
IRTemp carry_in = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, get_gpr_w1(r2));
assign(carry_in, binop(Iop_Shr32, s390_call_calculate_cc(), mkU8(1)));
assign(result, binop(Iop_Add32, binop(Iop_Add32, mkexpr(op1), mkexpr(op2)),
mkexpr(carry_in)));
s390_cc_thunk_putZZZ(S390_CC_OP_UNSIGNED_ADDC_32, op1, op2, carry_in);
put_gpr_w1(r1, mkexpr(result));
return "alcr";
}
static const HChar *
s390_irgen_ALCGR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
IRTemp carry_in = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_dw0(r2));
assign(carry_in, unop(Iop_32Uto64, binop(Iop_Shr32, s390_call_calculate_cc(),
mkU8(1))));
assign(result, binop(Iop_Add64, binop(Iop_Add64, mkexpr(op1), mkexpr(op2)),
mkexpr(carry_in)));
s390_cc_thunk_putZZZ(S390_CC_OP_UNSIGNED_ADDC_64, op1, op2, carry_in);
put_gpr_dw0(r1, mkexpr(result));
return "alcgr";
}
static const HChar *
s390_irgen_ALC(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
IRTemp carry_in = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(carry_in, binop(Iop_Shr32, s390_call_calculate_cc(), mkU8(1)));
assign(result, binop(Iop_Add32, binop(Iop_Add32, mkexpr(op1), mkexpr(op2)),
mkexpr(carry_in)));
s390_cc_thunk_putZZZ(S390_CC_OP_UNSIGNED_ADDC_32, op1, op2, carry_in);
put_gpr_w1(r1, mkexpr(result));
return "alc";
}
static const HChar *
s390_irgen_ALCG(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
IRTemp carry_in = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, load(Ity_I64, mkexpr(op2addr)));
assign(carry_in, unop(Iop_32Uto64, binop(Iop_Shr32, s390_call_calculate_cc(),
mkU8(1))));
assign(result, binop(Iop_Add64, binop(Iop_Add64, mkexpr(op1), mkexpr(op2)),
mkexpr(carry_in)));
s390_cc_thunk_putZZZ(S390_CC_OP_UNSIGNED_ADDC_64, op1, op2, carry_in);
put_gpr_dw0(r1, mkexpr(result));
return "alcg";
}
static const HChar *
s390_irgen_ALSI(UChar i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I32);
UInt op2;
IRTemp result = newTemp(Ity_I32);
assign(op1, load(Ity_I32, mkexpr(op1addr)));
op2 = (UInt)(Int)(Char)i2;
assign(result, binop(Iop_Add32, mkexpr(op1), mkU32(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_32, op1, mktemp(Ity_I32,
mkU32(op2)));
store(mkexpr(op1addr), mkexpr(result));
return "alsi";
}
static const HChar *
s390_irgen_ALGSI(UChar i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I64);
ULong op2;
IRTemp result = newTemp(Ity_I64);
assign(op1, load(Ity_I64, mkexpr(op1addr)));
op2 = (ULong)(Long)(Char)i2;
assign(result, binop(Iop_Add64, mkexpr(op1), mkU64(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_64, op1, mktemp(Ity_I64,
mkU64(op2)));
store(mkexpr(op1addr), mkexpr(result));
return "algsi";
}
static const HChar *
s390_irgen_ALHSIK(UChar r1, UChar r3, UShort i2)
{
UInt op2;
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
op2 = (UInt)(Int)(Short)i2;
assign(op3, get_gpr_w1(r3));
assign(result, binop(Iop_Add32, mkU32(op2), mkexpr(op3)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_32, mktemp(Ity_I32, mkU32(op2)),
op3);
put_gpr_w1(r1, mkexpr(result));
return "alhsik";
}
static const HChar *
s390_irgen_ALGHSIK(UChar r1, UChar r3, UShort i2)
{
ULong op2;
IRTemp op3 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
op2 = (ULong)(Long)(Short)i2;
assign(op3, get_gpr_dw0(r3));
assign(result, binop(Iop_Add64, mkU64(op2), mkexpr(op3)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_64, mktemp(Ity_I64, mkU64(op2)),
op3);
put_gpr_dw0(r1, mkexpr(result));
return "alghsik";
}
static const HChar *
s390_irgen_ALSIH(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
UInt op2;
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w0(r1));
op2 = i2;
assign(result, binop(Iop_Add32, mkexpr(op1), mkU32(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_32, op1, mktemp(Ity_I32,
mkU32(op2)));
put_gpr_w0(r1, mkexpr(result));
return "alsih";
}
static const HChar *
s390_irgen_ALSIHN(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
UInt op2;
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w0(r1));
op2 = i2;
assign(result, binop(Iop_Add32, mkexpr(op1), mkU32(op2)));
put_gpr_w0(r1, mkexpr(result));
return "alsihn";
}
static const HChar *
s390_irgen_NR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, get_gpr_w1(r2));
assign(result, binop(Iop_And32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w1(r1, mkexpr(result));
return "nr";
}
static const HChar *
s390_irgen_NGR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_dw0(r2));
assign(result, binop(Iop_And64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_dw0(r1, mkexpr(result));
return "ngr";
}
static const HChar *
s390_irgen_NRK(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
assign(op3, get_gpr_w1(r3));
assign(result, binop(Iop_And32, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w1(r1, mkexpr(result));
return "nrk";
}
static const HChar *
s390_irgen_NGRK(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
IRTemp op3 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
assign(op3, get_gpr_dw0(r3));
assign(result, binop(Iop_And64, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_dw0(r1, mkexpr(result));
return "ngrk";
}
static const HChar *
s390_irgen_N(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_And32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w1(r1, mkexpr(result));
return "n";
}
static const HChar *
s390_irgen_NY(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_And32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w1(r1, mkexpr(result));
return "ny";
}
static const HChar *
s390_irgen_NG(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, load(Ity_I64, mkexpr(op2addr)));
assign(result, binop(Iop_And64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_dw0(r1, mkexpr(result));
return "ng";
}
static const HChar *
s390_irgen_NI(UChar i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I8);
UChar op2;
IRTemp result = newTemp(Ity_I8);
assign(op1, load(Ity_I8, mkexpr(op1addr)));
op2 = i2;
assign(result, binop(Iop_And8, mkexpr(op1), mkU8(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
store(mkexpr(op1addr), mkexpr(result));
return "ni";
}
static const HChar *
s390_irgen_NIY(UChar i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I8);
UChar op2;
IRTemp result = newTemp(Ity_I8);
assign(op1, load(Ity_I8, mkexpr(op1addr)));
op2 = i2;
assign(result, binop(Iop_And8, mkexpr(op1), mkU8(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
store(mkexpr(op1addr), mkexpr(result));
return "niy";
}
static const HChar *
s390_irgen_NIHF(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
UInt op2;
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w0(r1));
op2 = i2;
assign(result, binop(Iop_And32, mkexpr(op1), mkU32(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w0(r1, mkexpr(result));
return "nihf";
}
static const HChar *
s390_irgen_NIHH(UChar r1, UShort i2)
{
IRTemp op1 = newTemp(Ity_I16);
UShort op2;
IRTemp result = newTemp(Ity_I16);
assign(op1, get_gpr_hw0(r1));
op2 = i2;
assign(result, binop(Iop_And16, mkexpr(op1), mkU16(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_hw0(r1, mkexpr(result));
return "nihh";
}
static const HChar *
s390_irgen_NIHL(UChar r1, UShort i2)
{
IRTemp op1 = newTemp(Ity_I16);
UShort op2;
IRTemp result = newTemp(Ity_I16);
assign(op1, get_gpr_hw1(r1));
op2 = i2;
assign(result, binop(Iop_And16, mkexpr(op1), mkU16(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_hw1(r1, mkexpr(result));
return "nihl";
}
static const HChar *
s390_irgen_NILF(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
UInt op2;
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
op2 = i2;
assign(result, binop(Iop_And32, mkexpr(op1), mkU32(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w1(r1, mkexpr(result));
return "nilf";
}
static const HChar *
s390_irgen_NILH(UChar r1, UShort i2)
{
IRTemp op1 = newTemp(Ity_I16);
UShort op2;
IRTemp result = newTemp(Ity_I16);
assign(op1, get_gpr_hw2(r1));
op2 = i2;
assign(result, binop(Iop_And16, mkexpr(op1), mkU16(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_hw2(r1, mkexpr(result));
return "nilh";
}
static const HChar *
s390_irgen_NILL(UChar r1, UShort i2)
{
IRTemp op1 = newTemp(Ity_I16);
UShort op2;
IRTemp result = newTemp(Ity_I16);
assign(op1, get_gpr_hw3(r1));
op2 = i2;
assign(result, binop(Iop_And16, mkexpr(op1), mkU16(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_hw3(r1, mkexpr(result));
return "nill";
}
static const HChar *
s390_irgen_BASR(UChar r1, UChar r2)
{
IRTemp target = newTemp(Ity_I64);
if (r2 == 0) {
put_gpr_dw0(r1, mkU64(guest_IA_curr_instr + 2ULL));
} else {
if (r1 != r2) {
put_gpr_dw0(r1, mkU64(guest_IA_curr_instr + 2ULL));
call_function(get_gpr_dw0(r2));
} else {
assign(target, get_gpr_dw0(r2));
put_gpr_dw0(r1, mkU64(guest_IA_curr_instr + 2ULL));
call_function(mkexpr(target));
}
}
return "basr";
}
static const HChar *
s390_irgen_BAS(UChar r1, IRTemp op2addr)
{
IRTemp target = newTemp(Ity_I64);
put_gpr_dw0(r1, mkU64(guest_IA_curr_instr + 4ULL));
assign(target, mkexpr(op2addr));
call_function(mkexpr(target));
return "bas";
}
static const HChar *
s390_irgen_BCR(UChar r1, UChar r2)
{
IRTemp cond = newTemp(Ity_I32);
if (r2 == 0 && (r1 >= 14)) { /* serialization */
stmt(IRStmt_MBE(Imbe_Fence));
}
if ((r2 == 0) || (r1 == 0)) {
} else {
if (r1 == 15) {
return_from_function(get_gpr_dw0(r2));
} else {
assign(cond, s390_call_calculate_cond(r1));
if_condition_goto_computed(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
get_gpr_dw0(r2));
}
}
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC2(XMNM, GPR), S390_XMNM_BCR, r1, r2);
return "bcr";
}
static const HChar *
s390_irgen_BC(UChar r1, UChar x2, UChar b2, UShort d2, IRTemp op2addr)
{
IRTemp cond = newTemp(Ity_I32);
if (r1 == 0) {
} else {
if (r1 == 15) {
always_goto(mkexpr(op2addr));
} else {
assign(cond, s390_call_calculate_cond(r1));
if_condition_goto_computed(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
mkexpr(op2addr));
}
}
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC2(XMNM, UDXB), S390_XMNM_BC, r1, d2, x2, b2);
return "bc";
}
static const HChar *
s390_irgen_BCTR(UChar r1, UChar r2)
{
put_gpr_w1(r1, binop(Iop_Sub32, get_gpr_w1(r1), mkU32(1)));
if (r2 != 0) {
if_condition_goto_computed(binop(Iop_CmpNE32, get_gpr_w1(r1), mkU32(0)),
get_gpr_dw0(r2));
}
return "bctr";
}
static const HChar *
s390_irgen_BCTGR(UChar r1, UChar r2)
{
put_gpr_dw0(r1, binop(Iop_Sub64, get_gpr_dw0(r1), mkU64(1)));
if (r2 != 0) {
if_condition_goto_computed(binop(Iop_CmpNE64, get_gpr_dw0(r1), mkU64(0)),
get_gpr_dw0(r2));
}
return "bctgr";
}
static const HChar *
s390_irgen_BCT(UChar r1, IRTemp op2addr)
{
put_gpr_w1(r1, binop(Iop_Sub32, get_gpr_w1(r1), mkU32(1)));
if_condition_goto_computed(binop(Iop_CmpNE32, get_gpr_w1(r1), mkU32(0)),
mkexpr(op2addr));
return "bct";
}
static const HChar *
s390_irgen_BCTG(UChar r1, IRTemp op2addr)
{
put_gpr_dw0(r1, binop(Iop_Sub64, get_gpr_dw0(r1), mkU64(1)));
if_condition_goto_computed(binop(Iop_CmpNE64, get_gpr_dw0(r1), mkU64(0)),
mkexpr(op2addr));
return "bctg";
}
static const HChar *
s390_irgen_BXH(UChar r1, UChar r3, IRTemp op2addr)
{
IRTemp value = newTemp(Ity_I32);
assign(value, get_gpr_w1(r3 | 1));
put_gpr_w1(r1, binop(Iop_Add32, get_gpr_w1(r1), get_gpr_w1(r3)));
if_condition_goto_computed(binop(Iop_CmpLT32S, mkexpr(value),
get_gpr_w1(r1)), mkexpr(op2addr));
return "bxh";
}
static const HChar *
s390_irgen_BXHG(UChar r1, UChar r3, IRTemp op2addr)
{
IRTemp value = newTemp(Ity_I64);
assign(value, get_gpr_dw0(r3 | 1));
put_gpr_dw0(r1, binop(Iop_Add64, get_gpr_dw0(r1), get_gpr_dw0(r3)));
if_condition_goto_computed(binop(Iop_CmpLT64S, mkexpr(value),
get_gpr_dw0(r1)), mkexpr(op2addr));
return "bxhg";
}
static const HChar *
s390_irgen_BXLE(UChar r1, UChar r3, IRTemp op2addr)
{
IRTemp value = newTemp(Ity_I32);
assign(value, get_gpr_w1(r3 | 1));
put_gpr_w1(r1, binop(Iop_Add32, get_gpr_w1(r1), get_gpr_w1(r3)));
if_condition_goto_computed(binop(Iop_CmpLE32S, get_gpr_w1(r1),
mkexpr(value)), mkexpr(op2addr));
return "bxle";
}
static const HChar *
s390_irgen_BXLEG(UChar r1, UChar r3, IRTemp op2addr)
{
IRTemp value = newTemp(Ity_I64);
assign(value, get_gpr_dw0(r3 | 1));
put_gpr_dw0(r1, binop(Iop_Add64, get_gpr_dw0(r1), get_gpr_dw0(r3)));
if_condition_goto_computed(binop(Iop_CmpLE64S, get_gpr_dw0(r1),
mkexpr(value)), mkexpr(op2addr));
return "bxleg";
}
static const HChar *
s390_irgen_BRAS(UChar r1, UShort i2)
{
put_gpr_dw0(r1, mkU64(guest_IA_curr_instr + 4ULL));
call_function_and_chase(guest_IA_curr_instr + ((ULong)(Long)(Short)i2 << 1));
return "bras";
}
static const HChar *
s390_irgen_BRASL(UChar r1, UInt i2)
{
put_gpr_dw0(r1, mkU64(guest_IA_curr_instr + 6ULL));
call_function_and_chase(guest_IA_curr_instr + ((ULong)(Long)(Int)i2 << 1));
return "brasl";
}
static const HChar *
s390_irgen_BRC(UChar r1, UShort i2)
{
IRTemp cond = newTemp(Ity_I32);
if (r1 == 0) {
} else {
if (r1 == 15) {
always_goto_and_chase(
guest_IA_curr_instr + ((ULong)(Long)(Short)i2 << 1));
} else {
assign(cond, s390_call_calculate_cond(r1));
if_condition_goto(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
guest_IA_curr_instr + ((ULong)(Long)(Short)i2 << 1));
}
}
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC2(XMNM, PCREL), S390_XMNM_BRC, r1, (Int)(Short)i2);
return "brc";
}
static const HChar *
s390_irgen_BRCL(UChar r1, UInt i2)
{
IRTemp cond = newTemp(Ity_I32);
if (r1 == 0) {
} else {
if (r1 == 15) {
always_goto_and_chase(guest_IA_curr_instr + ((ULong)(Long)(Int)i2 << 1));
} else {
assign(cond, s390_call_calculate_cond(r1));
if_condition_goto(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
guest_IA_curr_instr + ((ULong)(Long)(Int)i2 << 1));
}
}
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC2(XMNM, PCREL), S390_XMNM_BRCL, r1, i2);
return "brcl";
}
static const HChar *
s390_irgen_BRCT(UChar r1, UShort i2)
{
put_gpr_w1(r1, binop(Iop_Sub32, get_gpr_w1(r1), mkU32(1)));
if_condition_goto(binop(Iop_CmpNE32, get_gpr_w1(r1), mkU32(0)),
guest_IA_curr_instr + ((ULong)(Long)(Short)i2 << 1));
return "brct";
}
static const HChar *
s390_irgen_BRCTG(UChar r1, UShort i2)
{
put_gpr_dw0(r1, binop(Iop_Sub64, get_gpr_dw0(r1), mkU64(1)));
if_condition_goto(binop(Iop_CmpNE64, get_gpr_dw0(r1), mkU64(0)),
guest_IA_curr_instr + ((ULong)(Long)(Short)i2 << 1));
return "brctg";
}
static const HChar *
s390_irgen_BRXH(UChar r1, UChar r3, UShort i2)
{
IRTemp value = newTemp(Ity_I32);
assign(value, get_gpr_w1(r3 | 1));
put_gpr_w1(r1, binop(Iop_Add32, get_gpr_w1(r1), get_gpr_w1(r3)));
if_condition_goto(binop(Iop_CmpLT32S, mkexpr(value), get_gpr_w1(r1)),
guest_IA_curr_instr + ((ULong)(Long)(Short)i2 << 1));
return "brxh";
}
static const HChar *
s390_irgen_BRXHG(UChar r1, UChar r3, UShort i2)
{
IRTemp value = newTemp(Ity_I64);
assign(value, get_gpr_dw0(r3 | 1));
put_gpr_dw0(r1, binop(Iop_Add64, get_gpr_dw0(r1), get_gpr_dw0(r3)));
if_condition_goto(binop(Iop_CmpLT64S, mkexpr(value), get_gpr_dw0(r1)),
guest_IA_curr_instr + ((ULong)(Long)(Short)i2 << 1));
return "brxhg";
}
static const HChar *
s390_irgen_BRXLE(UChar r1, UChar r3, UShort i2)
{
IRTemp value = newTemp(Ity_I32);
assign(value, get_gpr_w1(r3 | 1));
put_gpr_w1(r1, binop(Iop_Add32, get_gpr_w1(r1), get_gpr_w1(r3)));
if_condition_goto(binop(Iop_CmpLE32S, get_gpr_w1(r1), mkexpr(value)),
guest_IA_curr_instr + ((ULong)(Long)(Short)i2 << 1));
return "brxle";
}
static const HChar *
s390_irgen_BRXLG(UChar r1, UChar r3, UShort i2)
{
IRTemp value = newTemp(Ity_I64);
assign(value, get_gpr_dw0(r3 | 1));
put_gpr_dw0(r1, binop(Iop_Add64, get_gpr_dw0(r1), get_gpr_dw0(r3)));
if_condition_goto(binop(Iop_CmpLE64S, get_gpr_dw0(r1), mkexpr(value)),
guest_IA_curr_instr + ((ULong)(Long)(Short)i2 << 1));
return "brxlg";
}
static const HChar *
s390_irgen_CR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, get_gpr_w1(r2));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "cr";
}
static const HChar *
s390_irgen_CGR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_dw0(r2));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "cgr";
}
static const HChar *
s390_irgen_CGFR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_32Sto64, get_gpr_w1(r2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "cgfr";
}
static const HChar *
s390_irgen_C(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "c";
}
static const HChar *
s390_irgen_CY(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "cy";
}
static const HChar *
s390_irgen_CG(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, load(Ity_I64, mkexpr(op2addr)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "cg";
}
static const HChar *
s390_irgen_CGF(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_32Sto64, load(Ity_I32, mkexpr(op2addr))));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "cgf";
}
static const HChar *
s390_irgen_CFI(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
Int op2;
assign(op1, get_gpr_w1(r1));
op2 = (Int)i2;
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, mktemp(Ity_I32,
mkU32((UInt)op2)));
return "cfi";
}
static const HChar *
s390_irgen_CGFI(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I64);
Long op2;
assign(op1, get_gpr_dw0(r1));
op2 = (Long)(Int)i2;
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, mktemp(Ity_I64,
mkU64((ULong)op2)));
return "cgfi";
}
static const HChar *
s390_irgen_CRL(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkU64(guest_IA_curr_instr + ((ULong)(Long)(Int)
i2 << 1))));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "crl";
}
static const HChar *
s390_irgen_CGRL(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, load(Ity_I64, mkU64(guest_IA_curr_instr + ((ULong)(Long)(Int)
i2 << 1))));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "cgrl";
}
static const HChar *
s390_irgen_CGFRL(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_32Sto64, load(Ity_I32, mkU64(guest_IA_curr_instr +
((ULong)(Long)(Int)i2 << 1)))));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "cgfrl";
}
static const HChar *
s390_irgen_CRB(UChar r1, UChar r2, UChar m3, IRTemp op4addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp cond = newTemp(Ity_I32);
if (m3 == 0) {
} else {
if (m3 == 14) {
always_goto(mkexpr(op4addr));
} else {
assign(op1, get_gpr_w1(r1));
assign(op2, get_gpr_w1(r2));
assign(cond, s390_call_calculate_icc(m3, S390_CC_OP_SIGNED_COMPARE,
op1, op2));
if_condition_goto_computed(binop(Iop_CmpNE32, mkexpr(cond),
mkU32(0)), mkexpr(op4addr));
}
}
return "crb";
}
static const HChar *
s390_irgen_CGRB(UChar r1, UChar r2, UChar m3, IRTemp op4addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp cond = newTemp(Ity_I32);
if (m3 == 0) {
} else {
if (m3 == 14) {
always_goto(mkexpr(op4addr));
} else {
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_dw0(r2));
assign(cond, s390_call_calculate_icc(m3, S390_CC_OP_SIGNED_COMPARE,
op1, op2));
if_condition_goto_computed(binop(Iop_CmpNE32, mkexpr(cond),
mkU32(0)), mkexpr(op4addr));
}
}
return "cgrb";
}
static const HChar *
s390_irgen_CRJ(UChar r1, UChar r2, UShort i4, UChar m3)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp cond = newTemp(Ity_I32);
if (m3 == 0) {
} else {
if (m3 == 14) {
always_goto_and_chase(
guest_IA_curr_instr + ((ULong)(Long)(Short)i4 << 1));
} else {
assign(op1, get_gpr_w1(r1));
assign(op2, get_gpr_w1(r2));
assign(cond, s390_call_calculate_icc(m3, S390_CC_OP_SIGNED_COMPARE,
op1, op2));
if_condition_goto(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
guest_IA_curr_instr + ((ULong)(Long)(Short)i4 << 1));
}
}
return "crj";
}
static const HChar *
s390_irgen_CGRJ(UChar r1, UChar r2, UShort i4, UChar m3)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp cond = newTemp(Ity_I32);
if (m3 == 0) {
} else {
if (m3 == 14) {
always_goto_and_chase(
guest_IA_curr_instr + ((ULong)(Long)(Short)i4 << 1));
} else {
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_dw0(r2));
assign(cond, s390_call_calculate_icc(m3, S390_CC_OP_SIGNED_COMPARE,
op1, op2));
if_condition_goto(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
guest_IA_curr_instr + ((ULong)(Long)(Short)i4 << 1));
}
}
return "cgrj";
}
static const HChar *
s390_irgen_CIB(UChar r1, UChar m3, UChar i2, IRTemp op4addr)
{
IRTemp op1 = newTemp(Ity_I32);
Int op2;
IRTemp cond = newTemp(Ity_I32);
if (m3 == 0) {
} else {
if (m3 == 14) {
always_goto(mkexpr(op4addr));
} else {
assign(op1, get_gpr_w1(r1));
op2 = (Int)(Char)i2;
assign(cond, s390_call_calculate_icc(m3, S390_CC_OP_SIGNED_COMPARE, op1,
mktemp(Ity_I32, mkU32((UInt)op2))));
if_condition_goto_computed(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
mkexpr(op4addr));
}
}
return "cib";
}
static const HChar *
s390_irgen_CGIB(UChar r1, UChar m3, UChar i2, IRTemp op4addr)
{
IRTemp op1 = newTemp(Ity_I64);
Long op2;
IRTemp cond = newTemp(Ity_I32);
if (m3 == 0) {
} else {
if (m3 == 14) {
always_goto(mkexpr(op4addr));
} else {
assign(op1, get_gpr_dw0(r1));
op2 = (Long)(Char)i2;
assign(cond, s390_call_calculate_icc(m3, S390_CC_OP_SIGNED_COMPARE, op1,
mktemp(Ity_I64, mkU64((ULong)op2))));
if_condition_goto_computed(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
mkexpr(op4addr));
}
}
return "cgib";
}
static const HChar *
s390_irgen_CIJ(UChar r1, UChar m3, UShort i4, UChar i2)
{
IRTemp op1 = newTemp(Ity_I32);
Int op2;
IRTemp cond = newTemp(Ity_I32);
if (m3 == 0) {
} else {
if (m3 == 14) {
always_goto_and_chase(guest_IA_curr_instr + ((ULong)(Long)(Short)i4 << 1));
} else {
assign(op1, get_gpr_w1(r1));
op2 = (Int)(Char)i2;
assign(cond, s390_call_calculate_icc(m3, S390_CC_OP_SIGNED_COMPARE, op1,
mktemp(Ity_I32, mkU32((UInt)op2))));
if_condition_goto(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
guest_IA_curr_instr + ((ULong)(Long)(Short)i4 << 1));
}
}
return "cij";
}
static const HChar *
s390_irgen_CGIJ(UChar r1, UChar m3, UShort i4, UChar i2)
{
IRTemp op1 = newTemp(Ity_I64);
Long op2;
IRTemp cond = newTemp(Ity_I32);
if (m3 == 0) {
} else {
if (m3 == 14) {
always_goto_and_chase(guest_IA_curr_instr + ((ULong)(Long)(Short)i4 << 1));
} else {
assign(op1, get_gpr_dw0(r1));
op2 = (Long)(Char)i2;
assign(cond, s390_call_calculate_icc(m3, S390_CC_OP_SIGNED_COMPARE, op1,
mktemp(Ity_I64, mkU64((ULong)op2))));
if_condition_goto(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
guest_IA_curr_instr + ((ULong)(Long)(Short)i4 << 1));
}
}
return "cgij";
}
static const HChar *
s390_irgen_CH(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, unop(Iop_16Sto32, load(Ity_I16, mkexpr(op2addr))));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "ch";
}
static const HChar *
s390_irgen_CHY(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, unop(Iop_16Sto32, load(Ity_I16, mkexpr(op2addr))));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "chy";
}
static const HChar *
s390_irgen_CGH(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_16Sto64, load(Ity_I16, mkexpr(op2addr))));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "cgh";
}
static const HChar *
s390_irgen_CHI(UChar r1, UShort i2)
{
IRTemp op1 = newTemp(Ity_I32);
Int op2;
assign(op1, get_gpr_w1(r1));
op2 = (Int)(Short)i2;
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, mktemp(Ity_I32,
mkU32((UInt)op2)));
return "chi";
}
static const HChar *
s390_irgen_CGHI(UChar r1, UShort i2)
{
IRTemp op1 = newTemp(Ity_I64);
Long op2;
assign(op1, get_gpr_dw0(r1));
op2 = (Long)(Short)i2;
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, mktemp(Ity_I64,
mkU64((ULong)op2)));
return "cghi";
}
static const HChar *
s390_irgen_CHHSI(UShort i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I16);
Short op2;
assign(op1, load(Ity_I16, mkexpr(op1addr)));
op2 = (Short)i2;
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, mktemp(Ity_I16,
mkU16((UShort)op2)));
return "chhsi";
}
static const HChar *
s390_irgen_CHSI(UShort i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I32);
Int op2;
assign(op1, load(Ity_I32, mkexpr(op1addr)));
op2 = (Int)(Short)i2;
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, mktemp(Ity_I32,
mkU32((UInt)op2)));
return "chsi";
}
static const HChar *
s390_irgen_CGHSI(UShort i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I64);
Long op2;
assign(op1, load(Ity_I64, mkexpr(op1addr)));
op2 = (Long)(Short)i2;
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, mktemp(Ity_I64,
mkU64((ULong)op2)));
return "cghsi";
}
static const HChar *
s390_irgen_CHRL(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, unop(Iop_16Sto32, load(Ity_I16, mkU64(guest_IA_curr_instr +
((ULong)(Long)(Int)i2 << 1)))));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "chrl";
}
static const HChar *
s390_irgen_CGHRL(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_16Sto64, load(Ity_I16, mkU64(guest_IA_curr_instr +
((ULong)(Long)(Int)i2 << 1)))));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "cghrl";
}
static const HChar *
s390_irgen_CHHR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w0(r1));
assign(op2, get_gpr_w0(r2));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "chhr";
}
static const HChar *
s390_irgen_CHLR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w0(r1));
assign(op2, get_gpr_w1(r2));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "chlr";
}
static const HChar *
s390_irgen_CHF(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w0(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, op2);
return "chf";
}
static const HChar *
s390_irgen_CIH(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
Int op2;
assign(op1, get_gpr_w0(r1));
op2 = (Int)i2;
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_COMPARE, op1, mktemp(Ity_I32,
mkU32((UInt)op2)));
return "cih";
}
static const HChar *
s390_irgen_CLR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, get_gpr_w1(r2));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "clr";
}
static const HChar *
s390_irgen_CLGR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_dw0(r2));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "clgr";
}
static const HChar *
s390_irgen_CLGFR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_32Uto64, get_gpr_w1(r2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "clgfr";
}
static const HChar *
s390_irgen_CL(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "cl";
}
static const HChar *
s390_irgen_CLY(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "cly";
}
static const HChar *
s390_irgen_CLG(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, load(Ity_I64, mkexpr(op2addr)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "clg";
}
static const HChar *
s390_irgen_CLGF(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_32Uto64, load(Ity_I32, mkexpr(op2addr))));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "clgf";
}
static const HChar *
s390_irgen_CLFI(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
UInt op2;
assign(op1, get_gpr_w1(r1));
op2 = i2;
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, mktemp(Ity_I32,
mkU32(op2)));
return "clfi";
}
static const HChar *
s390_irgen_CLGFI(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I64);
ULong op2;
assign(op1, get_gpr_dw0(r1));
op2 = (ULong)i2;
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, mktemp(Ity_I64,
mkU64(op2)));
return "clgfi";
}
static const HChar *
s390_irgen_CLI(UChar i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I8);
UChar op2;
assign(op1, load(Ity_I8, mkexpr(op1addr)));
op2 = i2;
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, mktemp(Ity_I8,
mkU8(op2)));
return "cli";
}
static const HChar *
s390_irgen_CLIY(UChar i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I8);
UChar op2;
assign(op1, load(Ity_I8, mkexpr(op1addr)));
op2 = i2;
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, mktemp(Ity_I8,
mkU8(op2)));
return "cliy";
}
static const HChar *
s390_irgen_CLFHSI(UShort i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I32);
UInt op2;
assign(op1, load(Ity_I32, mkexpr(op1addr)));
op2 = (UInt)i2;
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, mktemp(Ity_I32,
mkU32(op2)));
return "clfhsi";
}
static const HChar *
s390_irgen_CLGHSI(UShort i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I64);
ULong op2;
assign(op1, load(Ity_I64, mkexpr(op1addr)));
op2 = (ULong)i2;
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, mktemp(Ity_I64,
mkU64(op2)));
return "clghsi";
}
static const HChar *
s390_irgen_CLHHSI(UShort i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I16);
UShort op2;
assign(op1, load(Ity_I16, mkexpr(op1addr)));
op2 = i2;
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, mktemp(Ity_I16,
mkU16(op2)));
return "clhhsi";
}
static const HChar *
s390_irgen_CLRL(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkU64(guest_IA_curr_instr + ((ULong)(Long)(Int)
i2 << 1))));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "clrl";
}
static const HChar *
s390_irgen_CLGRL(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, load(Ity_I64, mkU64(guest_IA_curr_instr + ((ULong)(Long)(Int)
i2 << 1))));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "clgrl";
}
static const HChar *
s390_irgen_CLGFRL(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_32Uto64, load(Ity_I32, mkU64(guest_IA_curr_instr +
((ULong)(Long)(Int)i2 << 1)))));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "clgfrl";
}
static const HChar *
s390_irgen_CLHRL(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, unop(Iop_16Uto32, load(Ity_I16, mkU64(guest_IA_curr_instr +
((ULong)(Long)(Int)i2 << 1)))));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "clhrl";
}
static const HChar *
s390_irgen_CLGHRL(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_16Uto64, load(Ity_I16, mkU64(guest_IA_curr_instr +
((ULong)(Long)(Int)i2 << 1)))));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "clghrl";
}
static const HChar *
s390_irgen_CLRB(UChar r1, UChar r2, UChar m3, IRTemp op4addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp cond = newTemp(Ity_I32);
if (m3 == 0) {
} else {
if (m3 == 14) {
always_goto(mkexpr(op4addr));
} else {
assign(op1, get_gpr_w1(r1));
assign(op2, get_gpr_w1(r2));
assign(cond, s390_call_calculate_icc(m3, S390_CC_OP_UNSIGNED_COMPARE,
op1, op2));
if_condition_goto_computed(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
mkexpr(op4addr));
}
}
return "clrb";
}
static const HChar *
s390_irgen_CLGRB(UChar r1, UChar r2, UChar m3, IRTemp op4addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp cond = newTemp(Ity_I32);
if (m3 == 0) {
} else {
if (m3 == 14) {
always_goto(mkexpr(op4addr));
} else {
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_dw0(r2));
assign(cond, s390_call_calculate_icc(m3, S390_CC_OP_UNSIGNED_COMPARE,
op1, op2));
if_condition_goto_computed(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
mkexpr(op4addr));
}
}
return "clgrb";
}
static const HChar *
s390_irgen_CLRJ(UChar r1, UChar r2, UShort i4, UChar m3)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp cond = newTemp(Ity_I32);
if (m3 == 0) {
} else {
if (m3 == 14) {
always_goto_and_chase(guest_IA_curr_instr + ((ULong)(Long)(Short)i4 << 1));
} else {
assign(op1, get_gpr_w1(r1));
assign(op2, get_gpr_w1(r2));
assign(cond, s390_call_calculate_icc(m3, S390_CC_OP_UNSIGNED_COMPARE,
op1, op2));
if_condition_goto(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
guest_IA_curr_instr + ((ULong)(Long)(Short)i4 << 1));
}
}
return "clrj";
}
static const HChar *
s390_irgen_CLGRJ(UChar r1, UChar r2, UShort i4, UChar m3)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp cond = newTemp(Ity_I32);
if (m3 == 0) {
} else {
if (m3 == 14) {
always_goto_and_chase(guest_IA_curr_instr + ((ULong)(Long)(Short)i4 << 1));
} else {
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_dw0(r2));
assign(cond, s390_call_calculate_icc(m3, S390_CC_OP_UNSIGNED_COMPARE,
op1, op2));
if_condition_goto(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
guest_IA_curr_instr + ((ULong)(Long)(Short)i4 << 1));
}
}
return "clgrj";
}
static const HChar *
s390_irgen_CLIB(UChar r1, UChar m3, UChar i2, IRTemp op4addr)
{
IRTemp op1 = newTemp(Ity_I32);
UInt op2;
IRTemp cond = newTemp(Ity_I32);
if (m3 == 0) {
} else {
if (m3 == 14) {
always_goto(mkexpr(op4addr));
} else {
assign(op1, get_gpr_w1(r1));
op2 = (UInt)i2;
assign(cond, s390_call_calculate_icc(m3, S390_CC_OP_UNSIGNED_COMPARE, op1,
mktemp(Ity_I32, mkU32(op2))));
if_condition_goto_computed(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
mkexpr(op4addr));
}
}
return "clib";
}
static const HChar *
s390_irgen_CLGIB(UChar r1, UChar m3, UChar i2, IRTemp op4addr)
{
IRTemp op1 = newTemp(Ity_I64);
ULong op2;
IRTemp cond = newTemp(Ity_I32);
if (m3 == 0) {
} else {
if (m3 == 14) {
always_goto(mkexpr(op4addr));
} else {
assign(op1, get_gpr_dw0(r1));
op2 = (ULong)i2;
assign(cond, s390_call_calculate_icc(m3, S390_CC_OP_UNSIGNED_COMPARE, op1,
mktemp(Ity_I64, mkU64(op2))));
if_condition_goto_computed(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
mkexpr(op4addr));
}
}
return "clgib";
}
static const HChar *
s390_irgen_CLIJ(UChar r1, UChar m3, UShort i4, UChar i2)
{
IRTemp op1 = newTemp(Ity_I32);
UInt op2;
IRTemp cond = newTemp(Ity_I32);
if (m3 == 0) {
} else {
if (m3 == 14) {
always_goto_and_chase(guest_IA_curr_instr + ((ULong)(Long)(Short)i4 << 1));
} else {
assign(op1, get_gpr_w1(r1));
op2 = (UInt)i2;
assign(cond, s390_call_calculate_icc(m3, S390_CC_OP_UNSIGNED_COMPARE, op1,
mktemp(Ity_I32, mkU32(op2))));
if_condition_goto(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
guest_IA_curr_instr + ((ULong)(Long)(Short)i4 << 1));
}
}
return "clij";
}
static const HChar *
s390_irgen_CLGIJ(UChar r1, UChar m3, UShort i4, UChar i2)
{
IRTemp op1 = newTemp(Ity_I64);
ULong op2;
IRTemp cond = newTemp(Ity_I32);
if (m3 == 0) {
} else {
if (m3 == 14) {
always_goto_and_chase(guest_IA_curr_instr + ((ULong)(Long)(Short)i4 << 1));
} else {
assign(op1, get_gpr_dw0(r1));
op2 = (ULong)i2;
assign(cond, s390_call_calculate_icc(m3, S390_CC_OP_UNSIGNED_COMPARE, op1,
mktemp(Ity_I64, mkU64(op2))));
if_condition_goto(binop(Iop_CmpNE32, mkexpr(cond), mkU32(0)),
guest_IA_curr_instr + ((ULong)(Long)(Short)i4 << 1));
}
}
return "clgij";
}
static const HChar *
s390_irgen_CLM(UChar r1, UChar r3, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp b0 = newTemp(Ity_I32);
IRTemp b1 = newTemp(Ity_I32);
IRTemp b2 = newTemp(Ity_I32);
IRTemp b3 = newTemp(Ity_I32);
IRTemp c0 = newTemp(Ity_I32);
IRTemp c1 = newTemp(Ity_I32);
IRTemp c2 = newTemp(Ity_I32);
IRTemp c3 = newTemp(Ity_I32);
UChar n;
n = 0;
if ((r3 & 8) != 0) {
assign(b0, unop(Iop_8Uto32, get_gpr_b4(r1)));
assign(c0, unop(Iop_8Uto32, load(Ity_I8, mkexpr(op2addr))));
n = n + 1;
} else {
assign(b0, mkU32(0));
assign(c0, mkU32(0));
}
if ((r3 & 4) != 0) {
assign(b1, unop(Iop_8Uto32, get_gpr_b5(r1)));
assign(c1, unop(Iop_8Uto32, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr),
mkU64(n)))));
n = n + 1;
} else {
assign(b1, mkU32(0));
assign(c1, mkU32(0));
}
if ((r3 & 2) != 0) {
assign(b2, unop(Iop_8Uto32, get_gpr_b6(r1)));
assign(c2, unop(Iop_8Uto32, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr),
mkU64(n)))));
n = n + 1;
} else {
assign(b2, mkU32(0));
assign(c2, mkU32(0));
}
if ((r3 & 1) != 0) {
assign(b3, unop(Iop_8Uto32, get_gpr_b7(r1)));
assign(c3, unop(Iop_8Uto32, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr),
mkU64(n)))));
n = n + 1;
} else {
assign(b3, mkU32(0));
assign(c3, mkU32(0));
}
assign(op1, binop(Iop_Or32, binop(Iop_Or32, binop(Iop_Or32, binop(Iop_Shl32,
mkexpr(b0), mkU8(24)), binop(Iop_Shl32, mkexpr(b1), mkU8(16))),
binop(Iop_Shl32, mkexpr(b2), mkU8(8))), mkexpr(b3)));
assign(op2, binop(Iop_Or32, binop(Iop_Or32, binop(Iop_Or32, binop(Iop_Shl32,
mkexpr(c0), mkU8(24)), binop(Iop_Shl32, mkexpr(c1), mkU8(16))),
binop(Iop_Shl32, mkexpr(c2), mkU8(8))), mkexpr(c3)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "clm";
}
static const HChar *
s390_irgen_CLMY(UChar r1, UChar r3, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp b0 = newTemp(Ity_I32);
IRTemp b1 = newTemp(Ity_I32);
IRTemp b2 = newTemp(Ity_I32);
IRTemp b3 = newTemp(Ity_I32);
IRTemp c0 = newTemp(Ity_I32);
IRTemp c1 = newTemp(Ity_I32);
IRTemp c2 = newTemp(Ity_I32);
IRTemp c3 = newTemp(Ity_I32);
UChar n;
n = 0;
if ((r3 & 8) != 0) {
assign(b0, unop(Iop_8Uto32, get_gpr_b4(r1)));
assign(c0, unop(Iop_8Uto32, load(Ity_I8, mkexpr(op2addr))));
n = n + 1;
} else {
assign(b0, mkU32(0));
assign(c0, mkU32(0));
}
if ((r3 & 4) != 0) {
assign(b1, unop(Iop_8Uto32, get_gpr_b5(r1)));
assign(c1, unop(Iop_8Uto32, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr),
mkU64(n)))));
n = n + 1;
} else {
assign(b1, mkU32(0));
assign(c1, mkU32(0));
}
if ((r3 & 2) != 0) {
assign(b2, unop(Iop_8Uto32, get_gpr_b6(r1)));
assign(c2, unop(Iop_8Uto32, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr),
mkU64(n)))));
n = n + 1;
} else {
assign(b2, mkU32(0));
assign(c2, mkU32(0));
}
if ((r3 & 1) != 0) {
assign(b3, unop(Iop_8Uto32, get_gpr_b7(r1)));
assign(c3, unop(Iop_8Uto32, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr),
mkU64(n)))));
n = n + 1;
} else {
assign(b3, mkU32(0));
assign(c3, mkU32(0));
}
assign(op1, binop(Iop_Or32, binop(Iop_Or32, binop(Iop_Or32, binop(Iop_Shl32,
mkexpr(b0), mkU8(24)), binop(Iop_Shl32, mkexpr(b1), mkU8(16))),
binop(Iop_Shl32, mkexpr(b2), mkU8(8))), mkexpr(b3)));
assign(op2, binop(Iop_Or32, binop(Iop_Or32, binop(Iop_Or32, binop(Iop_Shl32,
mkexpr(c0), mkU8(24)), binop(Iop_Shl32, mkexpr(c1), mkU8(16))),
binop(Iop_Shl32, mkexpr(c2), mkU8(8))), mkexpr(c3)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "clmy";
}
static const HChar *
s390_irgen_CLMH(UChar r1, UChar r3, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp b0 = newTemp(Ity_I32);
IRTemp b1 = newTemp(Ity_I32);
IRTemp b2 = newTemp(Ity_I32);
IRTemp b3 = newTemp(Ity_I32);
IRTemp c0 = newTemp(Ity_I32);
IRTemp c1 = newTemp(Ity_I32);
IRTemp c2 = newTemp(Ity_I32);
IRTemp c3 = newTemp(Ity_I32);
UChar n;
n = 0;
if ((r3 & 8) != 0) {
assign(b0, unop(Iop_8Uto32, get_gpr_b0(r1)));
assign(c0, unop(Iop_8Uto32, load(Ity_I8, mkexpr(op2addr))));
n = n + 1;
} else {
assign(b0, mkU32(0));
assign(c0, mkU32(0));
}
if ((r3 & 4) != 0) {
assign(b1, unop(Iop_8Uto32, get_gpr_b1(r1)));
assign(c1, unop(Iop_8Uto32, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr),
mkU64(n)))));
n = n + 1;
} else {
assign(b1, mkU32(0));
assign(c1, mkU32(0));
}
if ((r3 & 2) != 0) {
assign(b2, unop(Iop_8Uto32, get_gpr_b2(r1)));
assign(c2, unop(Iop_8Uto32, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr),
mkU64(n)))));
n = n + 1;
} else {
assign(b2, mkU32(0));
assign(c2, mkU32(0));
}
if ((r3 & 1) != 0) {
assign(b3, unop(Iop_8Uto32, get_gpr_b3(r1)));
assign(c3, unop(Iop_8Uto32, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr),
mkU64(n)))));
n = n + 1;
} else {
assign(b3, mkU32(0));
assign(c3, mkU32(0));
}
assign(op1, binop(Iop_Or32, binop(Iop_Or32, binop(Iop_Or32, binop(Iop_Shl32,
mkexpr(b0), mkU8(24)), binop(Iop_Shl32, mkexpr(b1), mkU8(16))),
binop(Iop_Shl32, mkexpr(b2), mkU8(8))), mkexpr(b3)));
assign(op2, binop(Iop_Or32, binop(Iop_Or32, binop(Iop_Or32, binop(Iop_Shl32,
mkexpr(c0), mkU8(24)), binop(Iop_Shl32, mkexpr(c1), mkU8(16))),
binop(Iop_Shl32, mkexpr(c2), mkU8(8))), mkexpr(c3)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "clmh";
}
static const HChar *
s390_irgen_CLHHR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w0(r1));
assign(op2, get_gpr_w0(r2));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "clhhr";
}
static const HChar *
s390_irgen_CLHLR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w0(r1));
assign(op2, get_gpr_w1(r2));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "clhlr";
}
static const HChar *
s390_irgen_CLHF(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
assign(op1, get_gpr_w0(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, op2);
return "clhf";
}
static const HChar *
s390_irgen_CLIH(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
UInt op2;
assign(op1, get_gpr_w0(r1));
op2 = i2;
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_COMPARE, op1, mktemp(Ity_I32,
mkU32(op2)));
return "clih";
}
static const HChar *
s390_irgen_CPYA(UChar r1, UChar r2)
{
put_ar_w0(r1, get_ar_w0(r2));
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, AR, AR), "cpya", r1, r2);
return "cpya";
}
static const HChar *
s390_irgen_XR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
if (r1 == r2) {
assign(result, mkU32(0));
} else {
assign(op1, get_gpr_w1(r1));
assign(op2, get_gpr_w1(r2));
assign(result, binop(Iop_Xor32, mkexpr(op1), mkexpr(op2)));
}
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w1(r1, mkexpr(result));
return "xr";
}
static const HChar *
s390_irgen_XGR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
if (r1 == r2) {
assign(result, mkU64(0));
} else {
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_dw0(r2));
assign(result, binop(Iop_Xor64, mkexpr(op1), mkexpr(op2)));
}
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_dw0(r1, mkexpr(result));
return "xgr";
}
static const HChar *
s390_irgen_XRK(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
assign(op3, get_gpr_w1(r3));
assign(result, binop(Iop_Xor32, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w1(r1, mkexpr(result));
return "xrk";
}
static const HChar *
s390_irgen_XGRK(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
IRTemp op3 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
assign(op3, get_gpr_dw0(r3));
assign(result, binop(Iop_Xor64, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_dw0(r1, mkexpr(result));
return "xgrk";
}
static const HChar *
s390_irgen_X(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_Xor32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w1(r1, mkexpr(result));
return "x";
}
static const HChar *
s390_irgen_XY(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_Xor32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w1(r1, mkexpr(result));
return "xy";
}
static const HChar *
s390_irgen_XG(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, load(Ity_I64, mkexpr(op2addr)));
assign(result, binop(Iop_Xor64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_dw0(r1, mkexpr(result));
return "xg";
}
static const HChar *
s390_irgen_XI(UChar i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I8);
UChar op2;
IRTemp result = newTemp(Ity_I8);
assign(op1, load(Ity_I8, mkexpr(op1addr)));
op2 = i2;
assign(result, binop(Iop_Xor8, mkexpr(op1), mkU8(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
store(mkexpr(op1addr), mkexpr(result));
return "xi";
}
static const HChar *
s390_irgen_XIY(UChar i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I8);
UChar op2;
IRTemp result = newTemp(Ity_I8);
assign(op1, load(Ity_I8, mkexpr(op1addr)));
op2 = i2;
assign(result, binop(Iop_Xor8, mkexpr(op1), mkU8(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
store(mkexpr(op1addr), mkexpr(result));
return "xiy";
}
static const HChar *
s390_irgen_XIHF(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
UInt op2;
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w0(r1));
op2 = i2;
assign(result, binop(Iop_Xor32, mkexpr(op1), mkU32(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w0(r1, mkexpr(result));
return "xihf";
}
static const HChar *
s390_irgen_XILF(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
UInt op2;
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
op2 = i2;
assign(result, binop(Iop_Xor32, mkexpr(op1), mkU32(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w1(r1, mkexpr(result));
return "xilf";
}
static const HChar *
s390_irgen_EAR(UChar r1, UChar r2)
{
put_gpr_w1(r1, get_ar_w0(r2));
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, GPR, AR), "ear", r1, r2);
return "ear";
}
static const HChar *
s390_irgen_IC(UChar r1, IRTemp op2addr)
{
put_gpr_b7(r1, load(Ity_I8, mkexpr(op2addr)));
return "ic";
}
static const HChar *
s390_irgen_ICY(UChar r1, IRTemp op2addr)
{
put_gpr_b7(r1, load(Ity_I8, mkexpr(op2addr)));
return "icy";
}
static const HChar *
s390_irgen_ICM(UChar r1, UChar r3, IRTemp op2addr)
{
UChar n;
IRTemp result = newTemp(Ity_I32);
UInt mask;
n = 0;
mask = (UInt)r3;
if ((mask & 8) != 0) {
put_gpr_b4(r1, load(Ity_I8, mkexpr(op2addr)));
n = n + 1;
}
if ((mask & 4) != 0) {
put_gpr_b5(r1, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr), mkU64(n))));
n = n + 1;
}
if ((mask & 2) != 0) {
put_gpr_b6(r1, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr), mkU64(n))));
n = n + 1;
}
if ((mask & 1) != 0) {
put_gpr_b7(r1, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr), mkU64(n))));
n = n + 1;
}
assign(result, get_gpr_w1(r1));
s390_cc_thunk_putZZ(S390_CC_OP_INSERT_CHAR_MASK_32, result, mktemp(Ity_I32,
mkU32(mask)));
return "icm";
}
static const HChar *
s390_irgen_ICMY(UChar r1, UChar r3, IRTemp op2addr)
{
UChar n;
IRTemp result = newTemp(Ity_I32);
UInt mask;
n = 0;
mask = (UInt)r3;
if ((mask & 8) != 0) {
put_gpr_b4(r1, load(Ity_I8, mkexpr(op2addr)));
n = n + 1;
}
if ((mask & 4) != 0) {
put_gpr_b5(r1, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr), mkU64(n))));
n = n + 1;
}
if ((mask & 2) != 0) {
put_gpr_b6(r1, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr), mkU64(n))));
n = n + 1;
}
if ((mask & 1) != 0) {
put_gpr_b7(r1, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr), mkU64(n))));
n = n + 1;
}
assign(result, get_gpr_w1(r1));
s390_cc_thunk_putZZ(S390_CC_OP_INSERT_CHAR_MASK_32, result, mktemp(Ity_I32,
mkU32(mask)));
return "icmy";
}
static const HChar *
s390_irgen_ICMH(UChar r1, UChar r3, IRTemp op2addr)
{
UChar n;
IRTemp result = newTemp(Ity_I32);
UInt mask;
n = 0;
mask = (UInt)r3;
if ((mask & 8) != 0) {
put_gpr_b0(r1, load(Ity_I8, mkexpr(op2addr)));
n = n + 1;
}
if ((mask & 4) != 0) {
put_gpr_b1(r1, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr), mkU64(n))));
n = n + 1;
}
if ((mask & 2) != 0) {
put_gpr_b2(r1, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr), mkU64(n))));
n = n + 1;
}
if ((mask & 1) != 0) {
put_gpr_b3(r1, load(Ity_I8, binop(Iop_Add64, mkexpr(op2addr), mkU64(n))));
n = n + 1;
}
assign(result, get_gpr_w0(r1));
s390_cc_thunk_putZZ(S390_CC_OP_INSERT_CHAR_MASK_32, result, mktemp(Ity_I32,
mkU32(mask)));
return "icmh";
}
static const HChar *
s390_irgen_IIHF(UChar r1, UInt i2)
{
put_gpr_w0(r1, mkU32(i2));
return "iihf";
}
static const HChar *
s390_irgen_IIHH(UChar r1, UShort i2)
{
put_gpr_hw0(r1, mkU16(i2));
return "iihh";
}
static const HChar *
s390_irgen_IIHL(UChar r1, UShort i2)
{
put_gpr_hw1(r1, mkU16(i2));
return "iihl";
}
static const HChar *
s390_irgen_IILF(UChar r1, UInt i2)
{
put_gpr_w1(r1, mkU32(i2));
return "iilf";
}
static const HChar *
s390_irgen_IILH(UChar r1, UShort i2)
{
put_gpr_hw2(r1, mkU16(i2));
return "iilh";
}
static const HChar *
s390_irgen_IILL(UChar r1, UShort i2)
{
put_gpr_hw3(r1, mkU16(i2));
return "iill";
}
static const HChar *
s390_irgen_LR(UChar r1, UChar r2)
{
put_gpr_w1(r1, get_gpr_w1(r2));
return "lr";
}
static const HChar *
s390_irgen_LGR(UChar r1, UChar r2)
{
put_gpr_dw0(r1, get_gpr_dw0(r2));
return "lgr";
}
static const HChar *
s390_irgen_LGFR(UChar r1, UChar r2)
{
put_gpr_dw0(r1, unop(Iop_32Sto64, get_gpr_w1(r2)));
return "lgfr";
}
static const HChar *
s390_irgen_L(UChar r1, IRTemp op2addr)
{
put_gpr_w1(r1, load(Ity_I32, mkexpr(op2addr)));
return "l";
}
static const HChar *
s390_irgen_LY(UChar r1, IRTemp op2addr)
{
put_gpr_w1(r1, load(Ity_I32, mkexpr(op2addr)));
return "ly";
}
static const HChar *
s390_irgen_LG(UChar r1, IRTemp op2addr)
{
put_gpr_dw0(r1, load(Ity_I64, mkexpr(op2addr)));
return "lg";
}
static const HChar *
s390_irgen_LGF(UChar r1, IRTemp op2addr)
{
put_gpr_dw0(r1, unop(Iop_32Sto64, load(Ity_I32, mkexpr(op2addr))));
return "lgf";
}
static const HChar *
s390_irgen_LGFI(UChar r1, UInt i2)
{
put_gpr_dw0(r1, mkU64((ULong)(Long)(Int)i2));
return "lgfi";
}
static const HChar *
s390_irgen_LRL(UChar r1, UInt i2)
{
put_gpr_w1(r1, load(Ity_I32, mkU64(guest_IA_curr_instr + ((ULong)(Long)(Int)
i2 << 1))));
return "lrl";
}
static const HChar *
s390_irgen_LGRL(UChar r1, UInt i2)
{
put_gpr_dw0(r1, load(Ity_I64, mkU64(guest_IA_curr_instr + ((ULong)(Long)(Int)
i2 << 1))));
return "lgrl";
}
static const HChar *
s390_irgen_LGFRL(UChar r1, UInt i2)
{
put_gpr_dw0(r1, unop(Iop_32Sto64, load(Ity_I32, mkU64(guest_IA_curr_instr +
((ULong)(Long)(Int)i2 << 1)))));
return "lgfrl";
}
static const HChar *
s390_irgen_LA(UChar r1, IRTemp op2addr)
{
put_gpr_dw0(r1, mkexpr(op2addr));
return "la";
}
static const HChar *
s390_irgen_LAY(UChar r1, IRTemp op2addr)
{
put_gpr_dw0(r1, mkexpr(op2addr));
return "lay";
}
static const HChar *
s390_irgen_LAE(UChar r1, IRTemp op2addr)
{
put_gpr_dw0(r1, mkexpr(op2addr));
return "lae";
}
static const HChar *
s390_irgen_LAEY(UChar r1, IRTemp op2addr)
{
put_gpr_dw0(r1, mkexpr(op2addr));
return "laey";
}
static const HChar *
s390_irgen_LARL(UChar r1, UInt i2)
{
put_gpr_dw0(r1, mkU64(guest_IA_curr_instr + ((ULong)(Long)(Int)i2 << 1)));
return "larl";
}
/* The IR representation of LAA and friends is an approximation of what
happens natively. Essentially a loop containing a compare-and-swap is
constructed which will iterate until the CAS succeeds. As a consequence,
instrumenters may see more memory accesses than happen natively. See also
discussion here: https://bugs.kde.org/show_bug.cgi?id=306035 */
static void
s390_irgen_load_and_add32(UChar r1, UChar r3, IRTemp op2addr, Bool is_signed)
{
IRCAS *cas;
IRTemp old_mem = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(op3, get_gpr_w1(r3));
assign(result, binop(Iop_Add32, mkexpr(op2), mkexpr(op3)));
/* Place the addition of second operand and third operand at the
second-operand location everytime */
cas = mkIRCAS(IRTemp_INVALID, old_mem,
Iend_BE, mkexpr(op2addr),
NULL, mkexpr(op2), /* expected value */
NULL, mkexpr(result) /* new value */);
stmt(IRStmt_CAS(cas));
/* Set CC according to 32-bit addition */
if (is_signed) {
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_32, op2, op3);
} else {
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_32, op2, op3);
}
/* If old_mem contains the expected value, then the CAS succeeded.
Otherwise, it did not */
yield_if(binop(Iop_CmpNE32, mkexpr(old_mem), mkexpr(op2)));
put_gpr_w1(r1, mkexpr(old_mem));
}
static void
s390_irgen_load_and_add64(UChar r1, UChar r3, IRTemp op2addr, Bool is_signed)
{
IRCAS *cas;
IRTemp old_mem = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp op3 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op2, load(Ity_I64, mkexpr(op2addr)));
assign(op3, get_gpr_dw0(r3));
assign(result, binop(Iop_Add64, mkexpr(op2), mkexpr(op3)));
/* Place the addition of second operand and third operand at the
second-operand location everytime */
cas = mkIRCAS(IRTemp_INVALID, old_mem,
Iend_BE, mkexpr(op2addr),
NULL, mkexpr(op2), /* expected value */
NULL, mkexpr(result) /* new value */);
stmt(IRStmt_CAS(cas));
/* Set CC according to 64-bit addition */
if (is_signed) {
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_ADD_64, op2, op3);
} else {
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_ADD_64, op2, op3);
}
/* If old_mem contains the expected value, then the CAS succeeded.
Otherwise, it did not */
yield_if(binop(Iop_CmpNE64, mkexpr(old_mem), mkexpr(op2)));
put_gpr_dw0(r1, mkexpr(old_mem));
}
static void
s390_irgen_load_and_bitwise32(UChar r1, UChar r3, IRTemp op2addr, IROp op)
{
IRCAS *cas;
IRTemp old_mem = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(op3, get_gpr_w1(r3));
assign(result, binop(op, mkexpr(op2), mkexpr(op3)));
/* Place the addition of second operand and third operand at the
second-operand location everytime */
cas = mkIRCAS(IRTemp_INVALID, old_mem,
Iend_BE, mkexpr(op2addr),
NULL, mkexpr(op2), /* expected value */
NULL, mkexpr(result) /* new value */);
stmt(IRStmt_CAS(cas));
/* Set CC according to bitwise operation */
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
/* If old_mem contains the expected value, then the CAS succeeded.
Otherwise, it did not */
yield_if(binop(Iop_CmpNE32, mkexpr(old_mem), mkexpr(op2)));
put_gpr_w1(r1, mkexpr(old_mem));
}
static void
s390_irgen_load_and_bitwise64(UChar r1, UChar r3, IRTemp op2addr, IROp op)
{
IRCAS *cas;
IRTemp old_mem = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp op3 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op2, load(Ity_I64, mkexpr(op2addr)));
assign(op3, get_gpr_dw0(r3));
assign(result, binop(op, mkexpr(op2), mkexpr(op3)));
/* Place the addition of second operand and third operand at the
second-operand location everytime */
cas = mkIRCAS(IRTemp_INVALID, old_mem,
Iend_BE, mkexpr(op2addr),
NULL, mkexpr(op2), /* expected value */
NULL, mkexpr(result) /* new value */);
stmt(IRStmt_CAS(cas));
/* Set CC according to bitwise operation */
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
/* If old_mem contains the expected value, then the CAS succeeded.
Otherwise, it did not */
yield_if(binop(Iop_CmpNE64, mkexpr(old_mem), mkexpr(op2)));
put_gpr_dw0(r1, mkexpr(old_mem));
}
static const HChar *
s390_irgen_LAA(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_load_and_add32(r1, r3, op2addr, True /* is_signed */);
return "laa";
}
static const HChar *
s390_irgen_LAAG(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_load_and_add64(r1, r3, op2addr, True /* is_signed */);
return "laag";
}
static const HChar *
s390_irgen_LAAL(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_load_and_add32(r1, r3, op2addr, False /* is_signed */);
return "laal";
}
static const HChar *
s390_irgen_LAALG(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_load_and_add64(r1, r3, op2addr, False /* is_signed */);
return "laalg";
}
static const HChar *
s390_irgen_LAN(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_load_and_bitwise32(r1, r3, op2addr, Iop_And32);
return "lan";
}
static const HChar *
s390_irgen_LANG(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_load_and_bitwise64(r1, r3, op2addr, Iop_And64);
return "lang";
}
static const HChar *
s390_irgen_LAX(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_load_and_bitwise32(r1, r3, op2addr, Iop_Xor32);
return "lax";
}
static const HChar *
s390_irgen_LAXG(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_load_and_bitwise64(r1, r3, op2addr, Iop_Xor64);
return "laxg";
}
static const HChar *
s390_irgen_LAO(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_load_and_bitwise32(r1, r3, op2addr, Iop_Or32);
return "lao";
}
static const HChar *
s390_irgen_LAOG(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_load_and_bitwise64(r1, r3, op2addr, Iop_Or64);
return "laog";
}
static const HChar *
s390_irgen_LTR(UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
put_gpr_w1(r1, mkexpr(op2));
s390_cc_thunk_putS(S390_CC_OP_LOAD_AND_TEST, op2);
return "ltr";
}
static const HChar *
s390_irgen_LTGR(UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
put_gpr_dw0(r1, mkexpr(op2));
s390_cc_thunk_putS(S390_CC_OP_LOAD_AND_TEST, op2);
return "ltgr";
}
static const HChar *
s390_irgen_LTGFR(UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
assign(op2, unop(Iop_32Sto64, get_gpr_w1(r2)));
put_gpr_dw0(r1, mkexpr(op2));
s390_cc_thunk_putS(S390_CC_OP_LOAD_AND_TEST, op2);
return "ltgfr";
}
static const HChar *
s390_irgen_LT(UChar r1, IRTemp op2addr)
{
IRTemp op2 = newTemp(Ity_I32);
assign(op2, load(Ity_I32, mkexpr(op2addr)));
put_gpr_w1(r1, mkexpr(op2));
s390_cc_thunk_putS(S390_CC_OP_LOAD_AND_TEST, op2);
return "lt";
}
static const HChar *
s390_irgen_LTG(UChar r1, IRTemp op2addr)
{
IRTemp op2 = newTemp(Ity_I64);
assign(op2, load(Ity_I64, mkexpr(op2addr)));
put_gpr_dw0(r1, mkexpr(op2));
s390_cc_thunk_putS(S390_CC_OP_LOAD_AND_TEST, op2);
return "ltg";
}
static const HChar *
s390_irgen_LTGF(UChar r1, IRTemp op2addr)
{
IRTemp op2 = newTemp(Ity_I64);
assign(op2, unop(Iop_32Sto64, load(Ity_I32, mkexpr(op2addr))));
put_gpr_dw0(r1, mkexpr(op2));
s390_cc_thunk_putS(S390_CC_OP_LOAD_AND_TEST, op2);
return "ltgf";
}
static const HChar *
s390_irgen_LBR(UChar r1, UChar r2)
{
put_gpr_w1(r1, unop(Iop_8Sto32, get_gpr_b7(r2)));
return "lbr";
}
static const HChar *
s390_irgen_LGBR(UChar r1, UChar r2)
{
put_gpr_dw0(r1, unop(Iop_8Sto64, get_gpr_b7(r2)));
return "lgbr";
}
static const HChar *
s390_irgen_LB(UChar r1, IRTemp op2addr)
{
put_gpr_w1(r1, unop(Iop_8Sto32, load(Ity_I8, mkexpr(op2addr))));
return "lb";
}
static const HChar *
s390_irgen_LGB(UChar r1, IRTemp op2addr)
{
put_gpr_dw0(r1, unop(Iop_8Sto64, load(Ity_I8, mkexpr(op2addr))));
return "lgb";
}
static const HChar *
s390_irgen_LBH(UChar r1, IRTemp op2addr)
{
put_gpr_w0(r1, unop(Iop_8Sto32, load(Ity_I8, mkexpr(op2addr))));
return "lbh";
}
static const HChar *
s390_irgen_LCR(UChar r1, UChar r2)
{
Int op1;
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
op1 = 0;
assign(op2, get_gpr_w1(r2));
assign(result, binop(Iop_Sub32, mkU32((UInt)op1), mkexpr(op2)));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_SUB_32, mktemp(Ity_I32, mkU32((UInt)
op1)), op2);
return "lcr";
}
static const HChar *
s390_irgen_LCGR(UChar r1, UChar r2)
{
Long op1;
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
op1 = 0ULL;
assign(op2, get_gpr_dw0(r2));
assign(result, binop(Iop_Sub64, mkU64((ULong)op1), mkexpr(op2)));
put_gpr_dw0(r1, mkexpr(result));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_SUB_64, mktemp(Ity_I64, mkU64((ULong)
op1)), op2);
return "lcgr";
}
static const HChar *
s390_irgen_LCGFR(UChar r1, UChar r2)
{
Long op1;
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
op1 = 0ULL;
assign(op2, unop(Iop_32Sto64, get_gpr_w1(r2)));
assign(result, binop(Iop_Sub64, mkU64((ULong)op1), mkexpr(op2)));
put_gpr_dw0(r1, mkexpr(result));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_SUB_64, mktemp(Ity_I64, mkU64((ULong)
op1)), op2);
return "lcgfr";
}
static const HChar *
s390_irgen_LHR(UChar r1, UChar r2)
{
put_gpr_w1(r1, unop(Iop_16Sto32, get_gpr_hw3(r2)));
return "lhr";
}
static const HChar *
s390_irgen_LGHR(UChar r1, UChar r2)
{
put_gpr_dw0(r1, unop(Iop_16Sto64, get_gpr_hw3(r2)));
return "lghr";
}
static const HChar *
s390_irgen_LH(UChar r1, IRTemp op2addr)
{
put_gpr_w1(r1, unop(Iop_16Sto32, load(Ity_I16, mkexpr(op2addr))));
return "lh";
}
static const HChar *
s390_irgen_LHY(UChar r1, IRTemp op2addr)
{
put_gpr_w1(r1, unop(Iop_16Sto32, load(Ity_I16, mkexpr(op2addr))));
return "lhy";
}
static const HChar *
s390_irgen_LGH(UChar r1, IRTemp op2addr)
{
put_gpr_dw0(r1, unop(Iop_16Sto64, load(Ity_I16, mkexpr(op2addr))));
return "lgh";
}
static const HChar *
s390_irgen_LHI(UChar r1, UShort i2)
{
put_gpr_w1(r1, mkU32((UInt)(Int)(Short)i2));
return "lhi";
}
static const HChar *
s390_irgen_LGHI(UChar r1, UShort i2)
{
put_gpr_dw0(r1, mkU64((ULong)(Long)(Short)i2));
return "lghi";
}
static const HChar *
s390_irgen_LHRL(UChar r1, UInt i2)
{
put_gpr_w1(r1, unop(Iop_16Sto32, load(Ity_I16, mkU64(guest_IA_curr_instr +
((ULong)(Long)(Int)i2 << 1)))));
return "lhrl";
}
static const HChar *
s390_irgen_LGHRL(UChar r1, UInt i2)
{
put_gpr_dw0(r1, unop(Iop_16Sto64, load(Ity_I16, mkU64(guest_IA_curr_instr +
((ULong)(Long)(Int)i2 << 1)))));
return "lghrl";
}
static const HChar *
s390_irgen_LHH(UChar r1, IRTemp op2addr)
{
put_gpr_w0(r1, unop(Iop_16Sto32, load(Ity_I16, mkexpr(op2addr))));
return "lhh";
}
static const HChar *
s390_irgen_LFH(UChar r1, IRTemp op2addr)
{
put_gpr_w0(r1, load(Ity_I32, mkexpr(op2addr)));
return "lfh";
}
static const HChar *
s390_irgen_LLGFR(UChar r1, UChar r2)
{
put_gpr_dw0(r1, unop(Iop_32Uto64, get_gpr_w1(r2)));
return "llgfr";
}
static const HChar *
s390_irgen_LLGF(UChar r1, IRTemp op2addr)
{
put_gpr_dw0(r1, unop(Iop_32Uto64, load(Ity_I32, mkexpr(op2addr))));
return "llgf";
}
static const HChar *
s390_irgen_LLGFRL(UChar r1, UInt i2)
{
put_gpr_dw0(r1, unop(Iop_32Uto64, load(Ity_I32, mkU64(guest_IA_curr_instr +
((ULong)(Long)(Int)i2 << 1)))));
return "llgfrl";
}
static const HChar *
s390_irgen_LLCR(UChar r1, UChar r2)
{
put_gpr_w1(r1, unop(Iop_8Uto32, get_gpr_b7(r2)));
return "llcr";
}
static const HChar *
s390_irgen_LLGCR(UChar r1, UChar r2)
{
put_gpr_dw0(r1, unop(Iop_8Uto64, get_gpr_b7(r2)));
return "llgcr";
}
static const HChar *
s390_irgen_LLC(UChar r1, IRTemp op2addr)
{
put_gpr_w1(r1, unop(Iop_8Uto32, load(Ity_I8, mkexpr(op2addr))));
return "llc";
}
static const HChar *
s390_irgen_LLGC(UChar r1, IRTemp op2addr)
{
put_gpr_dw0(r1, unop(Iop_8Uto64, load(Ity_I8, mkexpr(op2addr))));
return "llgc";
}
static const HChar *
s390_irgen_LLCH(UChar r1, IRTemp op2addr)
{
put_gpr_w0(r1, unop(Iop_8Uto32, load(Ity_I8, mkexpr(op2addr))));
return "llch";
}
static const HChar *
s390_irgen_LLHR(UChar r1, UChar r2)
{
put_gpr_w1(r1, unop(Iop_16Uto32, get_gpr_hw3(r2)));
return "llhr";
}
static const HChar *
s390_irgen_LLGHR(UChar r1, UChar r2)
{
put_gpr_dw0(r1, unop(Iop_16Uto64, get_gpr_hw3(r2)));
return "llghr";
}
static const HChar *
s390_irgen_LLH(UChar r1, IRTemp op2addr)
{
put_gpr_w1(r1, unop(Iop_16Uto32, load(Ity_I16, mkexpr(op2addr))));
return "llh";
}
static const HChar *
s390_irgen_LLGH(UChar r1, IRTemp op2addr)
{
put_gpr_dw0(r1, unop(Iop_16Uto64, load(Ity_I16, mkexpr(op2addr))));
return "llgh";
}
static const HChar *
s390_irgen_LLHRL(UChar r1, UInt i2)
{
put_gpr_w1(r1, unop(Iop_16Uto32, load(Ity_I16, mkU64(guest_IA_curr_instr +
((ULong)(Long)(Int)i2 << 1)))));
return "llhrl";
}
static const HChar *
s390_irgen_LLGHRL(UChar r1, UInt i2)
{
put_gpr_dw0(r1, unop(Iop_16Uto64, load(Ity_I16, mkU64(guest_IA_curr_instr +
((ULong)(Long)(Int)i2 << 1)))));
return "llghrl";
}
static const HChar *
s390_irgen_LLHH(UChar r1, IRTemp op2addr)
{
put_gpr_w0(r1, unop(Iop_16Uto32, load(Ity_I16, mkexpr(op2addr))));
return "llhh";
}
static const HChar *
s390_irgen_LLIHF(UChar r1, UInt i2)
{
put_gpr_dw0(r1, mkU64(((ULong)i2) << 32));
return "llihf";
}
static const HChar *
s390_irgen_LLIHH(UChar r1, UShort i2)
{
put_gpr_dw0(r1, mkU64(((ULong)i2) << 48));
return "llihh";
}
static const HChar *
s390_irgen_LLIHL(UChar r1, UShort i2)
{
put_gpr_dw0(r1, mkU64(((ULong)i2) << 32));
return "llihl";
}
static const HChar *
s390_irgen_LLILF(UChar r1, UInt i2)
{
put_gpr_dw0(r1, mkU64(i2));
return "llilf";
}
static const HChar *
s390_irgen_LLILH(UChar r1, UShort i2)
{
put_gpr_dw0(r1, mkU64(((ULong)i2) << 16));
return "llilh";
}
static const HChar *
s390_irgen_LLILL(UChar r1, UShort i2)
{
put_gpr_dw0(r1, mkU64(i2));
return "llill";
}
static const HChar *
s390_irgen_LLGTR(UChar r1, UChar r2)
{
put_gpr_dw0(r1, unop(Iop_32Uto64, binop(Iop_And32, get_gpr_w1(r2),
mkU32(2147483647))));
return "llgtr";
}
static const HChar *
s390_irgen_LLGT(UChar r1, IRTemp op2addr)
{
put_gpr_dw0(r1, unop(Iop_32Uto64, binop(Iop_And32, load(Ity_I32,
mkexpr(op2addr)), mkU32(2147483647))));
return "llgt";
}
static const HChar *
s390_irgen_LNR(UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
assign(result, mkite(binop(Iop_CmpLE32S, mkexpr(op2), mkU32(0)), mkexpr(op2),
binop(Iop_Sub32, mkU32(0), mkexpr(op2))));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_putS(S390_CC_OP_BITWISE, result);
return "lnr";
}
static const HChar *
s390_irgen_LNGR(UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
assign(result, mkite(binop(Iop_CmpLE64S, mkexpr(op2), mkU64(0)), mkexpr(op2),
binop(Iop_Sub64, mkU64(0), mkexpr(op2))));
put_gpr_dw0(r1, mkexpr(result));
s390_cc_thunk_putS(S390_CC_OP_BITWISE, result);
return "lngr";
}
static const HChar *
s390_irgen_LNGFR(UChar r1, UChar r2 __attribute__((unused)))
{
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op2, unop(Iop_32Sto64, get_gpr_w1(r1)));
assign(result, mkite(binop(Iop_CmpLE64S, mkexpr(op2), mkU64(0)), mkexpr(op2),
binop(Iop_Sub64, mkU64(0), mkexpr(op2))));
put_gpr_dw0(r1, mkexpr(result));
s390_cc_thunk_putS(S390_CC_OP_BITWISE, result);
return "lngfr";
}
static const HChar *
s390_irgen_LOCR(UChar m3, UChar r1, UChar r2)
{
next_insn_if(binop(Iop_CmpEQ32, s390_call_calculate_cond(m3), mkU32(0)));
put_gpr_w1(r1, get_gpr_w1(r2));
return "locr";
}
static const HChar *
s390_irgen_LOCGR(UChar m3, UChar r1, UChar r2)
{
next_insn_if(binop(Iop_CmpEQ32, s390_call_calculate_cond(m3), mkU32(0)));
put_gpr_dw0(r1, get_gpr_dw0(r2));
return "locgr";
}
static const HChar *
s390_irgen_LOC(UChar r1, IRTemp op2addr)
{
/* condition is checked in format handler */
put_gpr_w1(r1, load(Ity_I32, mkexpr(op2addr)));
return "loc";
}
static const HChar *
s390_irgen_LOCG(UChar r1, IRTemp op2addr)
{
/* condition is checked in format handler */
put_gpr_dw0(r1, load(Ity_I64, mkexpr(op2addr)));
return "locg";
}
static const HChar *
s390_irgen_LPQ(UChar r1, IRTemp op2addr)
{
put_gpr_dw0(r1, load(Ity_I64, mkexpr(op2addr)));
put_gpr_dw0(r1 + 1, load(Ity_I64, binop(Iop_Add64, mkexpr(op2addr), mkU64(8))
));
return "lpq";
}
static const HChar *
s390_irgen_LPR(UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
assign(result, mkite(binop(Iop_CmpLT32S, mkexpr(op2), mkU32(0)),
binop(Iop_Sub32, mkU32(0), mkexpr(op2)), mkexpr(op2)));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_putS(S390_CC_OP_LOAD_POSITIVE_32, op2);
return "lpr";
}
static const HChar *
s390_irgen_LPGR(UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
assign(result, mkite(binop(Iop_CmpLT64S, mkexpr(op2), mkU64(0)),
binop(Iop_Sub64, mkU64(0), mkexpr(op2)), mkexpr(op2)));
put_gpr_dw0(r1, mkexpr(result));
s390_cc_thunk_putS(S390_CC_OP_LOAD_POSITIVE_64, op2);
return "lpgr";
}
static const HChar *
s390_irgen_LPGFR(UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op2, unop(Iop_32Sto64, get_gpr_w1(r2)));
assign(result, mkite(binop(Iop_CmpLT64S, mkexpr(op2), mkU64(0)),
binop(Iop_Sub64, mkU64(0), mkexpr(op2)), mkexpr(op2)));
put_gpr_dw0(r1, mkexpr(result));
s390_cc_thunk_putS(S390_CC_OP_LOAD_POSITIVE_64, op2);
return "lpgfr";
}
static const HChar *
s390_irgen_LRVR(UChar r1, UChar r2)
{
IRTemp b0 = newTemp(Ity_I8);
IRTemp b1 = newTemp(Ity_I8);
IRTemp b2 = newTemp(Ity_I8);
IRTemp b3 = newTemp(Ity_I8);
assign(b3, get_gpr_b7(r2));
assign(b2, get_gpr_b6(r2));
assign(b1, get_gpr_b5(r2));
assign(b0, get_gpr_b4(r2));
put_gpr_b4(r1, mkexpr(b3));
put_gpr_b5(r1, mkexpr(b2));
put_gpr_b6(r1, mkexpr(b1));
put_gpr_b7(r1, mkexpr(b0));
return "lrvr";
}
static const HChar *
s390_irgen_LRVGR(UChar r1, UChar r2)
{
IRTemp b0 = newTemp(Ity_I8);
IRTemp b1 = newTemp(Ity_I8);
IRTemp b2 = newTemp(Ity_I8);
IRTemp b3 = newTemp(Ity_I8);
IRTemp b4 = newTemp(Ity_I8);
IRTemp b5 = newTemp(Ity_I8);
IRTemp b6 = newTemp(Ity_I8);
IRTemp b7 = newTemp(Ity_I8);
assign(b7, get_gpr_b7(r2));
assign(b6, get_gpr_b6(r2));
assign(b5, get_gpr_b5(r2));
assign(b4, get_gpr_b4(r2));
assign(b3, get_gpr_b3(r2));
assign(b2, get_gpr_b2(r2));
assign(b1, get_gpr_b1(r2));
assign(b0, get_gpr_b0(r2));
put_gpr_b0(r1, mkexpr(b7));
put_gpr_b1(r1, mkexpr(b6));
put_gpr_b2(r1, mkexpr(b5));
put_gpr_b3(r1, mkexpr(b4));
put_gpr_b4(r1, mkexpr(b3));
put_gpr_b5(r1, mkexpr(b2));
put_gpr_b6(r1, mkexpr(b1));
put_gpr_b7(r1, mkexpr(b0));
return "lrvgr";
}
static const HChar *
s390_irgen_LRVH(UChar r1, IRTemp op2addr)
{
IRTemp op2 = newTemp(Ity_I16);
assign(op2, load(Ity_I16, mkexpr(op2addr)));
put_gpr_b6(r1, unop(Iop_16to8, mkexpr(op2)));
put_gpr_b7(r1, unop(Iop_16HIto8, mkexpr(op2)));
return "lrvh";
}
static const HChar *
s390_irgen_LRV(UChar r1, IRTemp op2addr)
{
IRTemp op2 = newTemp(Ity_I32);
assign(op2, load(Ity_I32, mkexpr(op2addr)));
put_gpr_b4(r1, unop(Iop_32to8, binop(Iop_And32, mkexpr(op2), mkU32(255))));
put_gpr_b5(r1, unop(Iop_32to8, binop(Iop_And32, binop(Iop_Shr32, mkexpr(op2),
mkU8(8)), mkU32(255))));
put_gpr_b6(r1, unop(Iop_32to8, binop(Iop_And32, binop(Iop_Shr32, mkexpr(op2),
mkU8(16)), mkU32(255))));
put_gpr_b7(r1, unop(Iop_32to8, binop(Iop_And32, binop(Iop_Shr32, mkexpr(op2),
mkU8(24)), mkU32(255))));
return "lrv";
}
static const HChar *
s390_irgen_LRVG(UChar r1, IRTemp op2addr)
{
IRTemp op2 = newTemp(Ity_I64);
assign(op2, load(Ity_I64, mkexpr(op2addr)));
put_gpr_b0(r1, unop(Iop_64to8, binop(Iop_And64, mkexpr(op2), mkU64(255))));
put_gpr_b1(r1, unop(Iop_64to8, binop(Iop_And64, binop(Iop_Shr64, mkexpr(op2),
mkU8(8)), mkU64(255))));
put_gpr_b2(r1, unop(Iop_64to8, binop(Iop_And64, binop(Iop_Shr64, mkexpr(op2),
mkU8(16)), mkU64(255))));
put_gpr_b3(r1, unop(Iop_64to8, binop(Iop_And64, binop(Iop_Shr64, mkexpr(op2),
mkU8(24)), mkU64(255))));
put_gpr_b4(r1, unop(Iop_64to8, binop(Iop_And64, binop(Iop_Shr64, mkexpr(op2),
mkU8(32)), mkU64(255))));
put_gpr_b5(r1, unop(Iop_64to8, binop(Iop_And64, binop(Iop_Shr64, mkexpr(op2),
mkU8(40)), mkU64(255))));
put_gpr_b6(r1, unop(Iop_64to8, binop(Iop_And64, binop(Iop_Shr64, mkexpr(op2),
mkU8(48)), mkU64(255))));
put_gpr_b7(r1, unop(Iop_64to8, binop(Iop_And64, binop(Iop_Shr64, mkexpr(op2),
mkU8(56)), mkU64(255))));
return "lrvg";
}
static const HChar *
s390_irgen_MVHHI(UShort i2, IRTemp op1addr)
{
store(mkexpr(op1addr), mkU16(i2));
return "mvhhi";
}
static const HChar *
s390_irgen_MVHI(UShort i2, IRTemp op1addr)
{
store(mkexpr(op1addr), mkU32((UInt)(Int)(Short)i2));
return "mvhi";
}
static const HChar *
s390_irgen_MVGHI(UShort i2, IRTemp op1addr)
{
store(mkexpr(op1addr), mkU64((ULong)(Long)(Short)i2));
return "mvghi";
}
static const HChar *
s390_irgen_MVI(UChar i2, IRTemp op1addr)
{
store(mkexpr(op1addr), mkU8(i2));
return "mvi";
}
static const HChar *
s390_irgen_MVIY(UChar i2, IRTemp op1addr)
{
store(mkexpr(op1addr), mkU8(i2));
return "mviy";
}
static const HChar *
s390_irgen_MR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_w1(r1 + 1));
assign(op2, get_gpr_w1(r2));
assign(result, binop(Iop_MullS32, mkexpr(op1), mkexpr(op2)));
put_gpr_w1(r1, unop(Iop_64HIto32, mkexpr(result)));
put_gpr_w1(r1 + 1, unop(Iop_64to32, mkexpr(result)));
return "mr";
}
static const HChar *
s390_irgen_M(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_w1(r1 + 1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_MullS32, mkexpr(op1), mkexpr(op2)));
put_gpr_w1(r1, unop(Iop_64HIto32, mkexpr(result)));
put_gpr_w1(r1 + 1, unop(Iop_64to32, mkexpr(result)));
return "m";
}
static const HChar *
s390_irgen_MFY(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_w1(r1 + 1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_MullS32, mkexpr(op1), mkexpr(op2)));
put_gpr_w1(r1, unop(Iop_64HIto32, mkexpr(result)));
put_gpr_w1(r1 + 1, unop(Iop_64to32, mkexpr(result)));
return "mfy";
}
static const HChar *
s390_irgen_MH(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I16);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I16, mkexpr(op2addr)));
assign(result, binop(Iop_MullS32, mkexpr(op1), unop(Iop_16Sto32, mkexpr(op2))
));
put_gpr_w1(r1, unop(Iop_64to32, mkexpr(result)));
return "mh";
}
static const HChar *
s390_irgen_MHY(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I16);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I16, mkexpr(op2addr)));
assign(result, binop(Iop_MullS32, mkexpr(op1), unop(Iop_16Sto32, mkexpr(op2))
));
put_gpr_w1(r1, unop(Iop_64to32, mkexpr(result)));
return "mhy";
}
static const HChar *
s390_irgen_MHI(UChar r1, UShort i2)
{
IRTemp op1 = newTemp(Ity_I32);
Short op2;
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_w1(r1));
op2 = (Short)i2;
assign(result, binop(Iop_MullS32, mkexpr(op1), unop(Iop_16Sto32,
mkU16((UShort)op2))));
put_gpr_w1(r1, unop(Iop_64to32, mkexpr(result)));
return "mhi";
}
static const HChar *
s390_irgen_MGHI(UChar r1, UShort i2)
{
IRTemp op1 = newTemp(Ity_I64);
Short op2;
IRTemp result = newTemp(Ity_I128);
assign(op1, get_gpr_dw0(r1));
op2 = (Short)i2;
assign(result, binop(Iop_MullS64, mkexpr(op1), unop(Iop_16Sto64,
mkU16((UShort)op2))));
put_gpr_dw0(r1, unop(Iop_128to64, mkexpr(result)));
return "mghi";
}
static const HChar *
s390_irgen_MLR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_w1(r1 + 1));
assign(op2, get_gpr_w1(r2));
assign(result, binop(Iop_MullU32, mkexpr(op1), mkexpr(op2)));
put_gpr_w1(r1, unop(Iop_64HIto32, mkexpr(result)));
put_gpr_w1(r1 + 1, unop(Iop_64to32, mkexpr(result)));
return "mlr";
}
static const HChar *
s390_irgen_MLGR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I128);
assign(op1, get_gpr_dw0(r1 + 1));
assign(op2, get_gpr_dw0(r2));
assign(result, binop(Iop_MullU64, mkexpr(op1), mkexpr(op2)));
put_gpr_dw0(r1, unop(Iop_128HIto64, mkexpr(result)));
put_gpr_dw0(r1 + 1, unop(Iop_128to64, mkexpr(result)));
return "mlgr";
}
static const HChar *
s390_irgen_ML(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_w1(r1 + 1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_MullU32, mkexpr(op1), mkexpr(op2)));
put_gpr_w1(r1, unop(Iop_64HIto32, mkexpr(result)));
put_gpr_w1(r1 + 1, unop(Iop_64to32, mkexpr(result)));
return "ml";
}
static const HChar *
s390_irgen_MLG(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I128);
assign(op1, get_gpr_dw0(r1 + 1));
assign(op2, load(Ity_I64, mkexpr(op2addr)));
assign(result, binop(Iop_MullU64, mkexpr(op1), mkexpr(op2)));
put_gpr_dw0(r1, unop(Iop_128HIto64, mkexpr(result)));
put_gpr_dw0(r1 + 1, unop(Iop_128to64, mkexpr(result)));
return "mlg";
}
static const HChar *
s390_irgen_MSR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_w1(r1));
assign(op2, get_gpr_w1(r2));
assign(result, binop(Iop_MullS32, mkexpr(op1), mkexpr(op2)));
put_gpr_w1(r1, unop(Iop_64to32, mkexpr(result)));
return "msr";
}
static const HChar *
s390_irgen_MSGR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I128);
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_dw0(r2));
assign(result, binop(Iop_MullS64, mkexpr(op1), mkexpr(op2)));
put_gpr_dw0(r1, unop(Iop_128to64, mkexpr(result)));
return "msgr";
}
static const HChar *
s390_irgen_MSGFR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I128);
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_w1(r2));
assign(result, binop(Iop_MullS64, mkexpr(op1), unop(Iop_32Sto64, mkexpr(op2))
));
put_gpr_dw0(r1, unop(Iop_128to64, mkexpr(result)));
return "msgfr";
}
static const HChar *
s390_irgen_MS(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_MullS32, mkexpr(op1), mkexpr(op2)));
put_gpr_w1(r1, unop(Iop_64to32, mkexpr(result)));
return "ms";
}
static const HChar *
s390_irgen_MSY(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_MullS32, mkexpr(op1), mkexpr(op2)));
put_gpr_w1(r1, unop(Iop_64to32, mkexpr(result)));
return "msy";
}
static const HChar *
s390_irgen_MSG(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I128);
assign(op1, get_gpr_dw0(r1));
assign(op2, load(Ity_I64, mkexpr(op2addr)));
assign(result, binop(Iop_MullS64, mkexpr(op1), mkexpr(op2)));
put_gpr_dw0(r1, unop(Iop_128to64, mkexpr(result)));
return "msg";
}
static const HChar *
s390_irgen_MSGF(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I128);
assign(op1, get_gpr_dw0(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_MullS64, mkexpr(op1), unop(Iop_32Sto64, mkexpr(op2))
));
put_gpr_dw0(r1, unop(Iop_128to64, mkexpr(result)));
return "msgf";
}
static const HChar *
s390_irgen_MSFI(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
Int op2;
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_w1(r1));
op2 = (Int)i2;
assign(result, binop(Iop_MullS32, mkexpr(op1), mkU32((UInt)op2)));
put_gpr_w1(r1, unop(Iop_64to32, mkexpr(result)));
return "msfi";
}
static const HChar *
s390_irgen_MSGFI(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I64);
Int op2;
IRTemp result = newTemp(Ity_I128);
assign(op1, get_gpr_dw0(r1));
op2 = (Int)i2;
assign(result, binop(Iop_MullS64, mkexpr(op1), unop(Iop_32Sto64, mkU32((UInt)
op2))));
put_gpr_dw0(r1, unop(Iop_128to64, mkexpr(result)));
return "msgfi";
}
static const HChar *
s390_irgen_OR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, get_gpr_w1(r2));
assign(result, binop(Iop_Or32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w1(r1, mkexpr(result));
return "or";
}
static const HChar *
s390_irgen_OGR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_dw0(r2));
assign(result, binop(Iop_Or64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_dw0(r1, mkexpr(result));
return "ogr";
}
static const HChar *
s390_irgen_ORK(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
assign(op3, get_gpr_w1(r3));
assign(result, binop(Iop_Or32, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w1(r1, mkexpr(result));
return "ork";
}
static const HChar *
s390_irgen_OGRK(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
IRTemp op3 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
assign(op3, get_gpr_dw0(r3));
assign(result, binop(Iop_Or64, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_dw0(r1, mkexpr(result));
return "ogrk";
}
static const HChar *
s390_irgen_O(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_Or32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w1(r1, mkexpr(result));
return "o";
}
static const HChar *
s390_irgen_OY(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_Or32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w1(r1, mkexpr(result));
return "oy";
}
static const HChar *
s390_irgen_OG(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, load(Ity_I64, mkexpr(op2addr)));
assign(result, binop(Iop_Or64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_dw0(r1, mkexpr(result));
return "og";
}
static const HChar *
s390_irgen_OI(UChar i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I8);
UChar op2;
IRTemp result = newTemp(Ity_I8);
assign(op1, load(Ity_I8, mkexpr(op1addr)));
op2 = i2;
assign(result, binop(Iop_Or8, mkexpr(op1), mkU8(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
store(mkexpr(op1addr), mkexpr(result));
return "oi";
}
static const HChar *
s390_irgen_OIY(UChar i2, IRTemp op1addr)
{
IRTemp op1 = newTemp(Ity_I8);
UChar op2;
IRTemp result = newTemp(Ity_I8);
assign(op1, load(Ity_I8, mkexpr(op1addr)));
op2 = i2;
assign(result, binop(Iop_Or8, mkexpr(op1), mkU8(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
store(mkexpr(op1addr), mkexpr(result));
return "oiy";
}
static const HChar *
s390_irgen_OIHF(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
UInt op2;
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w0(r1));
op2 = i2;
assign(result, binop(Iop_Or32, mkexpr(op1), mkU32(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w0(r1, mkexpr(result));
return "oihf";
}
static const HChar *
s390_irgen_OIHH(UChar r1, UShort i2)
{
IRTemp op1 = newTemp(Ity_I16);
UShort op2;
IRTemp result = newTemp(Ity_I16);
assign(op1, get_gpr_hw0(r1));
op2 = i2;
assign(result, binop(Iop_Or16, mkexpr(op1), mkU16(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_hw0(r1, mkexpr(result));
return "oihh";
}
static const HChar *
s390_irgen_OIHL(UChar r1, UShort i2)
{
IRTemp op1 = newTemp(Ity_I16);
UShort op2;
IRTemp result = newTemp(Ity_I16);
assign(op1, get_gpr_hw1(r1));
op2 = i2;
assign(result, binop(Iop_Or16, mkexpr(op1), mkU16(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_hw1(r1, mkexpr(result));
return "oihl";
}
static const HChar *
s390_irgen_OILF(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
UInt op2;
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
op2 = i2;
assign(result, binop(Iop_Or32, mkexpr(op1), mkU32(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_w1(r1, mkexpr(result));
return "oilf";
}
static const HChar *
s390_irgen_OILH(UChar r1, UShort i2)
{
IRTemp op1 = newTemp(Ity_I16);
UShort op2;
IRTemp result = newTemp(Ity_I16);
assign(op1, get_gpr_hw2(r1));
op2 = i2;
assign(result, binop(Iop_Or16, mkexpr(op1), mkU16(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_hw2(r1, mkexpr(result));
return "oilh";
}
static const HChar *
s390_irgen_OILL(UChar r1, UShort i2)
{
IRTemp op1 = newTemp(Ity_I16);
UShort op2;
IRTemp result = newTemp(Ity_I16);
assign(op1, get_gpr_hw3(r1));
op2 = i2;
assign(result, binop(Iop_Or16, mkexpr(op1), mkU16(op2)));
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
put_gpr_hw3(r1, mkexpr(result));
return "oill";
}
static const HChar *
s390_irgen_PFD(void)
{
return "pfd";
}
static const HChar *
s390_irgen_PFDRL(void)
{
return "pfdrl";
}
static IRExpr *
get_rounding_mode_from_gr0(void)
{
IRTemp rm_bits = newTemp(Ity_I32);
IRExpr *s390rm;
IRExpr *irrm;
vassert(s390_host_has_pfpo);
/* The dfp/bfp rounding mode is stored in bits [60:63] of GR 0
when PFPO insn is called. So, extract the bits at [60:63] */
assign(rm_bits, binop(Iop_And32, get_gpr_w1(0), mkU32(0xf)));
s390rm = mkexpr(rm_bits);
irrm = mkite(binop(Iop_CmpEQ32, s390rm, mkU32(0x1)),
mkexpr(encode_bfp_rounding_mode( S390_BFP_ROUND_PER_FPC)),
mkite(binop(Iop_CmpEQ32, s390rm, mkU32(0x8)),
mkexpr(encode_dfp_rounding_mode(S390_DFP_ROUND_NEAREST_EVEN_8)),
mkite(binop(Iop_CmpEQ32, s390rm, mkU32(0x9)),
mkexpr(encode_dfp_rounding_mode(S390_DFP_ROUND_ZERO_9)),
mkite(binop(Iop_CmpEQ32, s390rm, mkU32(0xa)),
mkexpr(encode_dfp_rounding_mode(S390_DFP_ROUND_POSINF_10)),
mkite(binop(Iop_CmpEQ32, s390rm, mkU32(0xb)),
mkexpr(encode_dfp_rounding_mode(S390_DFP_ROUND_NEGINF_11)),
mkite(binop(Iop_CmpEQ32, s390rm, mkU32(0xc)),
mkexpr(encode_dfp_rounding_mode(
S390_DFP_ROUND_NEAREST_TIE_AWAY_0_12)),
mkite(binop(Iop_CmpEQ32, s390rm, mkU32(0xd)),
mkexpr(encode_dfp_rounding_mode(
S390_DFP_ROUND_NEAREST_TIE_TOWARD_0)),
mkite(binop(Iop_CmpEQ32, s390rm, mkU32(0xe)),
mkexpr(encode_dfp_rounding_mode(
S390_DFP_ROUND_AWAY_0)),
mkite(binop(Iop_CmpEQ32, s390rm, mkU32(0xf)),
mkexpr(encode_dfp_rounding_mode(
S390_DFP_ROUND_PREPARE_SHORT_15)),
/* if rounding mode is 0 or invalid (2-7)
set S390_DFP_ROUND_PER_FPC_0 */
mkexpr(encode_dfp_rounding_mode(
S390_DFP_ROUND_PER_FPC_0)))))))))));
return irrm;
}
static IRExpr *
s390_call_pfpo_helper(IRExpr *gr0)
{
IRExpr **args, *call;
args = mkIRExprVec_1(gr0);
call = mkIRExprCCall(Ity_I32, 0 /*regparm*/,
"s390_do_pfpo", &s390_do_pfpo, args);
/* Nothing is excluded from definedness checking. */
call->Iex.CCall.cee->mcx_mask = 0;
return call;
}
static const HChar *
s390_irgen_PFPO(void)
{
IRTemp gr0 = newTemp(Ity_I32); /* word 1 [32:63] of GR 0 */
IRTemp test_bit = newTemp(Ity_I32); /* bit 32 of GR 0 - test validity */
IRTemp fn = newTemp(Ity_I32); /* [33:55] of GR 0 - function code */
IRTemp ef = newTemp(Ity_I32); /* Emulation Failure */
IRTemp src1 = newTemp(Ity_F32);
IRTemp dst1 = newTemp(Ity_D32);
IRTemp src2 = newTemp(Ity_F32);
IRTemp dst2 = newTemp(Ity_D64);
IRTemp src3 = newTemp(Ity_F32);
IRTemp dst3 = newTemp(Ity_D128);
IRTemp src4 = newTemp(Ity_F64);
IRTemp dst4 = newTemp(Ity_D32);
IRTemp src5 = newTemp(Ity_F64);
IRTemp dst5 = newTemp(Ity_D64);
IRTemp src6 = newTemp(Ity_F64);
IRTemp dst6 = newTemp(Ity_D128);
IRTemp src7 = newTemp(Ity_F128);
IRTemp dst7 = newTemp(Ity_D32);
IRTemp src8 = newTemp(Ity_F128);
IRTemp dst8 = newTemp(Ity_D64);
IRTemp src9 = newTemp(Ity_F128);
IRTemp dst9 = newTemp(Ity_D128);
IRTemp src10 = newTemp(Ity_D32);
IRTemp dst10 = newTemp(Ity_F32);
IRTemp src11 = newTemp(Ity_D32);
IRTemp dst11 = newTemp(Ity_F64);
IRTemp src12 = newTemp(Ity_D32);
IRTemp dst12 = newTemp(Ity_F128);
IRTemp src13 = newTemp(Ity_D64);
IRTemp dst13 = newTemp(Ity_F32);
IRTemp src14 = newTemp(Ity_D64);
IRTemp dst14 = newTemp(Ity_F64);
IRTemp src15 = newTemp(Ity_D64);
IRTemp dst15 = newTemp(Ity_F128);
IRTemp src16 = newTemp(Ity_D128);
IRTemp dst16 = newTemp(Ity_F32);
IRTemp src17 = newTemp(Ity_D128);
IRTemp dst17 = newTemp(Ity_F64);
IRTemp src18 = newTemp(Ity_D128);
IRTemp dst18 = newTemp(Ity_F128);
IRExpr *irrm;
vassert(s390_host_has_pfpo);
assign(gr0, get_gpr_w1(0));
/* get function code */
assign(fn, binop(Iop_And32, binop(Iop_Shr32, mkexpr(gr0), mkU8(8)),
mkU32(0x7fffff)));
/* get validity test bit */
assign(test_bit, binop(Iop_And32, binop(Iop_Shr32, mkexpr(gr0), mkU8(31)),
mkU32(0x1)));
irrm = get_rounding_mode_from_gr0();
/* test_bit is 1 */
assign(src1, get_fpr_w0(4)); /* get source from FPR 4,6 */
s390_cc_thunk_putFZ(S390_CC_OP_PFPO_64, src1, gr0);
/* Return code set in GR1 is usually 0. Non-zero value is set only
when exceptions are raised. See Programming Notes point 5 in the
instrcution description of pfpo in POP. Since valgrind does not
model exception, it might be safe to just set 0 to GR 1. */
put_gpr_w1(1, mkU32(0x0));
next_insn_if(binop(Iop_CmpEQ32, mkexpr(test_bit), mkU32(0x1)));
/* Check validity of function code in GR 0 */
assign(ef, s390_call_pfpo_helper(unop(Iop_32Uto64, mkexpr(gr0))));
/* fixs390: Function emulation_failure can be used if it takes argument as
IRExpr * instead of VexEmNote. */
stmt(IRStmt_Put(S390X_GUEST_OFFSET(guest_EMNOTE), mkexpr(ef)));
dis_res->whatNext = Dis_StopHere;
dis_res->jk_StopHere = Ijk_EmFail;
stmt(
IRStmt_Exit(
binop(Iop_CmpNE32, mkexpr(ef), mkU32(EmNote_NONE)),
Ijk_EmFail,
IRConst_U64(guest_IA_next_instr),
S390X_GUEST_OFFSET(guest_IA)
)
);
/* F32 -> D32 */
/* get source from FPR 4,6 - already set in src1 */
assign(dst1, binop(Iop_F32toD32, irrm, mkexpr(src1)));
put_dpr_w0(0, mkexpr(dst1)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_putFZ(S390_CC_OP_PFPO_32, src1, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_F32_TO_D32)));
/* F32 -> D64 */
assign(src2, get_fpr_w0(4)); /* get source from FPR 4,6 */
assign(dst2, binop(Iop_F32toD64, irrm, mkexpr(src2)));
put_dpr_dw0(0, mkexpr(dst2)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_putFZ(S390_CC_OP_PFPO_32, src2, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_F32_TO_D64)));
/* F32 -> D128 */
assign(src3, get_fpr_w0(4)); /* get source from FPR 4,6 */
assign(dst3, binop(Iop_F32toD128, irrm, mkexpr(src3)));
put_dpr_pair(0, mkexpr(dst3)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_putFZ(S390_CC_OP_PFPO_32, src3, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_F32_TO_D128)));
/* F64 -> D32 */
assign(src4, get_fpr_dw0(4)); /* get source from FPR 4,6 */
assign(dst4, binop(Iop_F64toD32, irrm, mkexpr(src4)));
put_dpr_w0(0, mkexpr(dst4)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_putFZ(S390_CC_OP_PFPO_64, src4, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_F64_TO_D32)));
/* F64 -> D64 */
assign(src5, get_fpr_dw0(4)); /* get source from FPR 4,6 */
assign(dst5, binop(Iop_F64toD64, irrm, mkexpr(src5)));
put_dpr_dw0(0, mkexpr(dst5)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_putFZ(S390_CC_OP_PFPO_64, src5, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_F64_TO_D64)));
/* F64 -> D128 */
assign(src6, get_fpr_dw0(4)); /* get source from FPR 4,6 */
assign(dst6, binop(Iop_F64toD128, irrm, mkexpr(src6)));
put_dpr_pair(0, mkexpr(dst6)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_putFZ(S390_CC_OP_PFPO_64, src6, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_F64_TO_D128)));
/* F128 -> D32 */
assign(src7, get_fpr_pair(4)); /* get source from FPR 4,6 */
assign(dst7, binop(Iop_F128toD32, irrm, mkexpr(src7)));
put_dpr_w0(0, mkexpr(dst7)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_put1f128Z(S390_CC_OP_PFPO_128, src7, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_F128_TO_D32)));
/* F128 -> D64 */
assign(src8, get_fpr_pair(4)); /* get source from FPR 4,6 */
assign(dst8, binop(Iop_F128toD64, irrm, mkexpr(src8)));
put_dpr_dw0(0, mkexpr(dst8)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_put1f128Z(S390_CC_OP_PFPO_128, src8, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_F128_TO_D64)));
/* F128 -> D128 */
assign(src9, get_fpr_pair(4)); /* get source from FPR 4,6 */
assign(dst9, binop(Iop_F128toD128, irrm, mkexpr(src9)));
put_dpr_pair(0, mkexpr(dst9)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_put1f128Z(S390_CC_OP_PFPO_128, src9, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_F128_TO_D128)));
/* D32 -> F32 */
assign(src10, get_dpr_w0(4)); /* get source from FPR 4,6 */
assign(dst10, binop(Iop_D32toF32, irrm, mkexpr(src10)));
put_fpr_w0(0, mkexpr(dst10)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_putFZ(S390_CC_OP_PFPO_32, src10, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_D32_TO_F32)));
/* D32 -> F64 */
assign(src11, get_dpr_w0(4)); /* get source from FPR 4,6 */
assign(dst11, binop(Iop_D32toF64, irrm, mkexpr(src11)));
put_fpr_dw0(0, mkexpr(dst11)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_putFZ(S390_CC_OP_PFPO_32, src11, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_D32_TO_F64)));
/* D32 -> F128 */
assign(src12, get_dpr_w0(4)); /* get source from FPR 4,6 */
assign(dst12, binop(Iop_D32toF128, irrm, mkexpr(src12)));
put_fpr_pair(0, mkexpr(dst12)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_putFZ(S390_CC_OP_PFPO_32, src12, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_D32_TO_F128)));
/* D64 -> F32 */
assign(src13, get_dpr_dw0(4)); /* get source from FPR 4,6 */
assign(dst13, binop(Iop_D64toF32, irrm, mkexpr(src13)));
put_fpr_w0(0, mkexpr(dst13)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_putFZ(S390_CC_OP_PFPO_64, src13, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_D64_TO_F32)));
/* D64 -> F64 */
assign(src14, get_dpr_dw0(4)); /* get source from FPR 4,6 */
assign(dst14, binop(Iop_D64toF64, irrm, mkexpr(src14)));
put_fpr_dw0(0, mkexpr(dst14)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_putFZ(S390_CC_OP_PFPO_64, src14, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_D64_TO_F64)));
/* D64 -> F128 */
assign(src15, get_dpr_dw0(4)); /* get source from FPR 4,6 */
assign(dst15, binop(Iop_D64toF128, irrm, mkexpr(src15)));
put_fpr_pair(0, mkexpr(dst15)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_putFZ(S390_CC_OP_PFPO_64, src15, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_D64_TO_F128)));
/* D128 -> F32 */
assign(src16, get_dpr_pair(4)); /* get source from FPR 4,6 */
assign(dst16, binop(Iop_D128toF32, irrm, mkexpr(src16)));
put_fpr_w0(0, mkexpr(dst16)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_put1d128Z(S390_CC_OP_PFPO_128, src16, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_D128_TO_F32)));
/* D128 -> F64 */
assign(src17, get_dpr_pair(4)); /* get source from FPR 4,6 */
assign(dst17, binop(Iop_D128toF64, irrm, mkexpr(src17)));
put_fpr_dw0(0, mkexpr(dst17)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_put1d128Z(S390_CC_OP_PFPO_128, src17, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_D128_TO_F64)));
/* D128 -> F128 */
assign(src18, get_dpr_pair(4)); /* get source from FPR 4,6 */
assign(dst18, binop(Iop_D128toF128, irrm, mkexpr(src18)));
put_fpr_pair(0, mkexpr(dst18)); /* put the result in FPR 0,2 */
put_gpr_w1(1, mkU32(0x0));
s390_cc_thunk_put1d128Z(S390_CC_OP_PFPO_128, src18, gr0);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(fn), mkU32(S390_PFPO_D128_TO_F128)));
return "pfpo";
}
static const HChar *
s390_irgen_RLL(UChar r1, UChar r3, IRTemp op2addr)
{
IRTemp amount = newTemp(Ity_I64);
IRTemp op = newTemp(Ity_I32);
assign(amount, binop(Iop_And64, mkexpr(op2addr), mkU64(31)));
assign(op, get_gpr_w1(r3));
put_gpr_w1(r1, binop(Iop_Or32, binop(Iop_Shl32, mkexpr(op), unop(Iop_64to8,
mkexpr(amount))), binop(Iop_Shr32, mkexpr(op), unop(Iop_64to8,
binop(Iop_Sub64, mkU64(32), mkexpr(amount))))));
return "rll";
}
static const HChar *
s390_irgen_RLLG(UChar r1, UChar r3, IRTemp op2addr)
{
IRTemp amount = newTemp(Ity_I64);
IRTemp op = newTemp(Ity_I64);
assign(amount, binop(Iop_And64, mkexpr(op2addr), mkU64(63)));
assign(op, get_gpr_dw0(r3));
put_gpr_dw0(r1, binop(Iop_Or64, binop(Iop_Shl64, mkexpr(op), unop(Iop_64to8,
mkexpr(amount))), binop(Iop_Shr64, mkexpr(op), unop(Iop_64to8,
binop(Iop_Sub64, mkU64(64), mkexpr(amount))))));
return "rllg";
}
static const HChar *
s390_irgen_RNSBG(UChar r1, UChar r2, UChar i3, UChar i4, UChar i5)
{
UChar from;
UChar to;
UChar rot;
UChar t_bit;
ULong mask;
ULong maskc;
IRTemp result = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
from = i3 & 63;
to = i4 & 63;
rot = i5 & 63;
t_bit = i3 & 128;
assign(op2, rot == 0 ? get_gpr_dw0(r2) : binop(Iop_Or64, binop(Iop_Shl64,
get_gpr_dw0(r2), mkU8(rot)), binop(Iop_Shr64, get_gpr_dw0(r2),
mkU8(64 - rot))));
if (from <= to) {
mask = ~0ULL;
mask = (mask >> from) & (mask << (63 - to));
maskc = ~mask;
} else {
maskc = ~0ULL;
maskc = (maskc >> (to + 1)) & (maskc << (64 - from));
mask = ~maskc;
}
assign(result, binop(Iop_And64, binop(Iop_And64, get_gpr_dw0(r1), mkexpr(op2)
), mkU64(mask)));
if (t_bit == 0) {
put_gpr_dw0(r1, binop(Iop_Or64, binop(Iop_And64, get_gpr_dw0(r1),
mkU64(maskc)), mkexpr(result)));
}
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
return "rnsbg";
}
static const HChar *
s390_irgen_RXSBG(UChar r1, UChar r2, UChar i3, UChar i4, UChar i5)
{
UChar from;
UChar to;
UChar rot;
UChar t_bit;
ULong mask;
ULong maskc;
IRTemp result = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
from = i3 & 63;
to = i4 & 63;
rot = i5 & 63;
t_bit = i3 & 128;
assign(op2, rot == 0 ? get_gpr_dw0(r2) : binop(Iop_Or64, binop(Iop_Shl64,
get_gpr_dw0(r2), mkU8(rot)), binop(Iop_Shr64, get_gpr_dw0(r2),
mkU8(64 - rot))));
if (from <= to) {
mask = ~0ULL;
mask = (mask >> from) & (mask << (63 - to));
maskc = ~mask;
} else {
maskc = ~0ULL;
maskc = (maskc >> (to + 1)) & (maskc << (64 - from));
mask = ~maskc;
}
assign(result, binop(Iop_And64, binop(Iop_Xor64, get_gpr_dw0(r1), mkexpr(op2)
), mkU64(mask)));
if (t_bit == 0) {
put_gpr_dw0(r1, binop(Iop_Or64, binop(Iop_And64, get_gpr_dw0(r1),
mkU64(maskc)), mkexpr(result)));
}
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
return "rxsbg";
}
static const HChar *
s390_irgen_ROSBG(UChar r1, UChar r2, UChar i3, UChar i4, UChar i5)
{
UChar from;
UChar to;
UChar rot;
UChar t_bit;
ULong mask;
ULong maskc;
IRTemp result = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
from = i3 & 63;
to = i4 & 63;
rot = i5 & 63;
t_bit = i3 & 128;
assign(op2, rot == 0 ? get_gpr_dw0(r2) : binop(Iop_Or64, binop(Iop_Shl64,
get_gpr_dw0(r2), mkU8(rot)), binop(Iop_Shr64, get_gpr_dw0(r2),
mkU8(64 - rot))));
if (from <= to) {
mask = ~0ULL;
mask = (mask >> from) & (mask << (63 - to));
maskc = ~mask;
} else {
maskc = ~0ULL;
maskc = (maskc >> (to + 1)) & (maskc << (64 - from));
mask = ~maskc;
}
assign(result, binop(Iop_And64, binop(Iop_Or64, get_gpr_dw0(r1), mkexpr(op2)
), mkU64(mask)));
if (t_bit == 0) {
put_gpr_dw0(r1, binop(Iop_Or64, binop(Iop_And64, get_gpr_dw0(r1),
mkU64(maskc)), mkexpr(result)));
}
s390_cc_thunk_putZ(S390_CC_OP_BITWISE, result);
return "rosbg";
}
static const HChar *
s390_irgen_RISBG(UChar r1, UChar r2, UChar i3, UChar i4, UChar i5)
{
UChar from;
UChar to;
UChar rot;
UChar z_bit;
ULong mask;
ULong maskc;
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
from = i3 & 63;
to = i4 & 63;
rot = i5 & 63;
z_bit = i4 & 128;
assign(op2, rot == 0 ? get_gpr_dw0(r2) : binop(Iop_Or64, binop(Iop_Shl64,
get_gpr_dw0(r2), mkU8(rot)), binop(Iop_Shr64, get_gpr_dw0(r2),
mkU8(64 - rot))));
if (from <= to) {
mask = ~0ULL;
mask = (mask >> from) & (mask << (63 - to));
maskc = ~mask;
} else {
maskc = ~0ULL;
maskc = (maskc >> (to + 1)) & (maskc << (64 - from));
mask = ~maskc;
}
if (z_bit == 0) {
put_gpr_dw0(r1, binop(Iop_Or64, binop(Iop_And64, get_gpr_dw0(r1),
mkU64(maskc)), binop(Iop_And64, mkexpr(op2), mkU64(mask))));
} else {
put_gpr_dw0(r1, binop(Iop_And64, mkexpr(op2), mkU64(mask)));
}
assign(result, get_gpr_dw0(r1));
s390_cc_thunk_putS(S390_CC_OP_LOAD_AND_TEST, result);
return "risbg";
}
static const HChar *
s390_irgen_SAR(UChar r1, UChar r2)
{
put_ar_w0(r1, get_gpr_w1(r2));
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, AR, GPR), "sar", r1, r2);
return "sar";
}
static const HChar *
s390_irgen_SLDA(UChar r1, IRTemp op2addr)
{
IRTemp p1 = newTemp(Ity_I64);
IRTemp p2 = newTemp(Ity_I64);
IRTemp op = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
ULong sign_mask;
IRTemp shift_amount = newTemp(Ity_I64);
assign(p1, unop(Iop_32Uto64, get_gpr_w1(r1)));
assign(p2, unop(Iop_32Uto64, get_gpr_w1(r1 + 1)));
assign(op, binop(Iop_Or64, binop(Iop_Shl64, mkexpr(p1), mkU8(32)), mkexpr(p2)
));
sign_mask = 1ULL << 63;
assign(shift_amount, binop(Iop_And64, mkexpr(op2addr), mkU64(63)));
assign(result, binop(Iop_Or64, binop(Iop_And64, binop(Iop_Shl64, mkexpr(op),
unop(Iop_64to8, mkexpr(shift_amount))), mkU64(~sign_mask)),
binop(Iop_And64, mkexpr(op), mkU64(sign_mask))));
put_gpr_w1(r1, unop(Iop_64HIto32, mkexpr(result)));
put_gpr_w1(r1 + 1, unop(Iop_64to32, mkexpr(result)));
s390_cc_thunk_putZZ(S390_CC_OP_SHIFT_LEFT_64, op, shift_amount);
return "slda";
}
static const HChar *
s390_irgen_SLDL(UChar r1, IRTemp op2addr)
{
IRTemp p1 = newTemp(Ity_I64);
IRTemp p2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(p1, unop(Iop_32Uto64, get_gpr_w1(r1)));
assign(p2, unop(Iop_32Uto64, get_gpr_w1(r1 + 1)));
assign(result, binop(Iop_Shl64, binop(Iop_Or64, binop(Iop_Shl64, mkexpr(p1),
mkU8(32)), mkexpr(p2)), unop(Iop_64to8, binop(Iop_And64,
mkexpr(op2addr), mkU64(63)))));
put_gpr_w1(r1, unop(Iop_64HIto32, mkexpr(result)));
put_gpr_w1(r1 + 1, unop(Iop_64to32, mkexpr(result)));
return "sldl";
}
static const HChar *
s390_irgen_SLA(UChar r1, IRTemp op2addr)
{
IRTemp uop = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
UInt sign_mask;
IRTemp shift_amount = newTemp(Ity_I64);
IRTemp op = newTemp(Ity_I32);
assign(op, get_gpr_w1(r1));
assign(uop, get_gpr_w1(r1));
sign_mask = 2147483648U;
assign(shift_amount, binop(Iop_And64, mkexpr(op2addr), mkU64(63)));
assign(result, binop(Iop_Or32, binop(Iop_And32, binop(Iop_Shl32, mkexpr(uop),
unop(Iop_64to8, mkexpr(shift_amount))), mkU32(~sign_mask)),
binop(Iop_And32, mkexpr(uop), mkU32(sign_mask))));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_putZZ(S390_CC_OP_SHIFT_LEFT_32, op, shift_amount);
return "sla";
}
static const HChar *
s390_irgen_SLAK(UChar r1, UChar r3, IRTemp op2addr)
{
IRTemp uop = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
UInt sign_mask;
IRTemp shift_amount = newTemp(Ity_I64);
IRTemp op = newTemp(Ity_I32);
assign(op, get_gpr_w1(r3));
assign(uop, get_gpr_w1(r3));
sign_mask = 2147483648U;
assign(shift_amount, binop(Iop_And64, mkexpr(op2addr), mkU64(63)));
assign(result, binop(Iop_Or32, binop(Iop_And32, binop(Iop_Shl32, mkexpr(uop),
unop(Iop_64to8, mkexpr(shift_amount))), mkU32(~sign_mask)),
binop(Iop_And32, mkexpr(uop), mkU32(sign_mask))));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_putZZ(S390_CC_OP_SHIFT_LEFT_32, op, shift_amount);
return "slak";
}
static const HChar *
s390_irgen_SLAG(UChar r1, UChar r3, IRTemp op2addr)
{
IRTemp uop = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
ULong sign_mask;
IRTemp shift_amount = newTemp(Ity_I64);
IRTemp op = newTemp(Ity_I64);
assign(op, get_gpr_dw0(r3));
assign(uop, get_gpr_dw0(r3));
sign_mask = 9223372036854775808ULL;
assign(shift_amount, binop(Iop_And64, mkexpr(op2addr), mkU64(63)));
assign(result, binop(Iop_Or64, binop(Iop_And64, binop(Iop_Shl64, mkexpr(uop),
unop(Iop_64to8, mkexpr(shift_amount))), mkU64(~sign_mask)),
binop(Iop_And64, mkexpr(uop), mkU64(sign_mask))));
put_gpr_dw0(r1, mkexpr(result));
s390_cc_thunk_putZZ(S390_CC_OP_SHIFT_LEFT_64, op, shift_amount);
return "slag";
}
static const HChar *
s390_irgen_SLL(UChar r1, IRTemp op2addr)
{
put_gpr_w1(r1, binop(Iop_Shl32, get_gpr_w1(r1), unop(Iop_64to8,
binop(Iop_And64, mkexpr(op2addr), mkU64(63)))));
return "sll";
}
static const HChar *
s390_irgen_SLLK(UChar r1, UChar r3, IRTemp op2addr)
{
put_gpr_w1(r1, binop(Iop_Shl32, get_gpr_w1(r3), unop(Iop_64to8,
binop(Iop_And64, mkexpr(op2addr), mkU64(63)))));
return "sllk";
}
static const HChar *
s390_irgen_SLLG(UChar r1, UChar r3, IRTemp op2addr)
{
put_gpr_dw0(r1, binop(Iop_Shl64, get_gpr_dw0(r3), unop(Iop_64to8,
binop(Iop_And64, mkexpr(op2addr), mkU64(63)))));
return "sllg";
}
static const HChar *
s390_irgen_SRDA(UChar r1, IRTemp op2addr)
{
IRTemp p1 = newTemp(Ity_I64);
IRTemp p2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(p1, unop(Iop_32Uto64, get_gpr_w1(r1)));
assign(p2, unop(Iop_32Uto64, get_gpr_w1(r1 + 1)));
assign(result, binop(Iop_Sar64, binop(Iop_Or64, binop(Iop_Shl64, mkexpr(p1),
mkU8(32)), mkexpr(p2)), unop(Iop_64to8, binop(Iop_And64,
mkexpr(op2addr), mkU64(63)))));
put_gpr_w1(r1, unop(Iop_64HIto32, mkexpr(result)));
put_gpr_w1(r1 + 1, unop(Iop_64to32, mkexpr(result)));
s390_cc_thunk_putS(S390_CC_OP_LOAD_AND_TEST, result);
return "srda";
}
static const HChar *
s390_irgen_SRDL(UChar r1, IRTemp op2addr)
{
IRTemp p1 = newTemp(Ity_I64);
IRTemp p2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(p1, unop(Iop_32Uto64, get_gpr_w1(r1)));
assign(p2, unop(Iop_32Uto64, get_gpr_w1(r1 + 1)));
assign(result, binop(Iop_Shr64, binop(Iop_Or64, binop(Iop_Shl64, mkexpr(p1),
mkU8(32)), mkexpr(p2)), unop(Iop_64to8, binop(Iop_And64,
mkexpr(op2addr), mkU64(63)))));
put_gpr_w1(r1, unop(Iop_64HIto32, mkexpr(result)));
put_gpr_w1(r1 + 1, unop(Iop_64to32, mkexpr(result)));
return "srdl";
}
static const HChar *
s390_irgen_SRA(UChar r1, IRTemp op2addr)
{
IRTemp result = newTemp(Ity_I32);
IRTemp op = newTemp(Ity_I32);
assign(op, get_gpr_w1(r1));
assign(result, binop(Iop_Sar32, mkexpr(op), unop(Iop_64to8, binop(Iop_And64,
mkexpr(op2addr), mkU64(63)))));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_putS(S390_CC_OP_LOAD_AND_TEST, result);
return "sra";
}
static const HChar *
s390_irgen_SRAK(UChar r1, UChar r3, IRTemp op2addr)
{
IRTemp result = newTemp(Ity_I32);
IRTemp op = newTemp(Ity_I32);
assign(op, get_gpr_w1(r3));
assign(result, binop(Iop_Sar32, mkexpr(op), unop(Iop_64to8, binop(Iop_And64,
mkexpr(op2addr), mkU64(63)))));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_putS(S390_CC_OP_LOAD_AND_TEST, result);
return "srak";
}
static const HChar *
s390_irgen_SRAG(UChar r1, UChar r3, IRTemp op2addr)
{
IRTemp result = newTemp(Ity_I64);
IRTemp op = newTemp(Ity_I64);
assign(op, get_gpr_dw0(r3));
assign(result, binop(Iop_Sar64, mkexpr(op), unop(Iop_64to8, binop(Iop_And64,
mkexpr(op2addr), mkU64(63)))));
put_gpr_dw0(r1, mkexpr(result));
s390_cc_thunk_putS(S390_CC_OP_LOAD_AND_TEST, result);
return "srag";
}
static const HChar *
s390_irgen_SRL(UChar r1, IRTemp op2addr)
{
IRTemp op = newTemp(Ity_I32);
assign(op, get_gpr_w1(r1));
put_gpr_w1(r1, binop(Iop_Shr32, mkexpr(op), unop(Iop_64to8, binop(Iop_And64,
mkexpr(op2addr), mkU64(63)))));
return "srl";
}
static const HChar *
s390_irgen_SRLK(UChar r1, UChar r3, IRTemp op2addr)
{
IRTemp op = newTemp(Ity_I32);
assign(op, get_gpr_w1(r3));
put_gpr_w1(r1, binop(Iop_Shr32, mkexpr(op), unop(Iop_64to8, binop(Iop_And64,
mkexpr(op2addr), mkU64(63)))));
return "srlk";
}
static const HChar *
s390_irgen_SRLG(UChar r1, UChar r3, IRTemp op2addr)
{
IRTemp op = newTemp(Ity_I64);
assign(op, get_gpr_dw0(r3));
put_gpr_dw0(r1, binop(Iop_Shr64, mkexpr(op), unop(Iop_64to8, binop(Iop_And64,
mkexpr(op2addr), mkU64(63)))));
return "srlg";
}
static const HChar *
s390_irgen_ST(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_gpr_w1(r1));
return "st";
}
static const HChar *
s390_irgen_STY(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_gpr_w1(r1));
return "sty";
}
static const HChar *
s390_irgen_STG(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_gpr_dw0(r1));
return "stg";
}
static const HChar *
s390_irgen_STRL(UChar r1, UInt i2)
{
store(mkU64(guest_IA_curr_instr + ((ULong)(Long)(Int)i2 << 1)),
get_gpr_w1(r1));
return "strl";
}
static const HChar *
s390_irgen_STGRL(UChar r1, UInt i2)
{
store(mkU64(guest_IA_curr_instr + ((ULong)(Long)(Int)i2 << 1)),
get_gpr_dw0(r1));
return "stgrl";
}
static const HChar *
s390_irgen_STC(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_gpr_b7(r1));
return "stc";
}
static const HChar *
s390_irgen_STCY(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_gpr_b7(r1));
return "stcy";
}
static const HChar *
s390_irgen_STCH(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_gpr_b3(r1));
return "stch";
}
static const HChar *
s390_irgen_STCM(UChar r1, UChar r3, IRTemp op2addr)
{
UChar mask;
UChar n;
mask = (UChar)r3;
n = 0;
if ((mask & 8) != 0) {
store(mkexpr(op2addr), get_gpr_b4(r1));
n = n + 1;
}
if ((mask & 4) != 0) {
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(n)), get_gpr_b5(r1));
n = n + 1;
}
if ((mask & 2) != 0) {
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(n)), get_gpr_b6(r1));
n = n + 1;
}
if ((mask & 1) != 0) {
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(n)), get_gpr_b7(r1));
}
return "stcm";
}
static const HChar *
s390_irgen_STCMY(UChar r1, UChar r3, IRTemp op2addr)
{
UChar mask;
UChar n;
mask = (UChar)r3;
n = 0;
if ((mask & 8) != 0) {
store(mkexpr(op2addr), get_gpr_b4(r1));
n = n + 1;
}
if ((mask & 4) != 0) {
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(n)), get_gpr_b5(r1));
n = n + 1;
}
if ((mask & 2) != 0) {
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(n)), get_gpr_b6(r1));
n = n + 1;
}
if ((mask & 1) != 0) {
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(n)), get_gpr_b7(r1));
}
return "stcmy";
}
static const HChar *
s390_irgen_STCMH(UChar r1, UChar r3, IRTemp op2addr)
{
UChar mask;
UChar n;
mask = (UChar)r3;
n = 0;
if ((mask & 8) != 0) {
store(mkexpr(op2addr), get_gpr_b0(r1));
n = n + 1;
}
if ((mask & 4) != 0) {
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(n)), get_gpr_b1(r1));
n = n + 1;
}
if ((mask & 2) != 0) {
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(n)), get_gpr_b2(r1));
n = n + 1;
}
if ((mask & 1) != 0) {
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(n)), get_gpr_b3(r1));
}
return "stcmh";
}
static const HChar *
s390_irgen_STH(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_gpr_hw3(r1));
return "sth";
}
static const HChar *
s390_irgen_STHY(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_gpr_hw3(r1));
return "sthy";
}
static const HChar *
s390_irgen_STHRL(UChar r1, UInt i2)
{
store(mkU64(guest_IA_curr_instr + ((ULong)(Long)(Int)i2 << 1)),
get_gpr_hw3(r1));
return "sthrl";
}
static const HChar *
s390_irgen_STHH(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_gpr_hw1(r1));
return "sthh";
}
static const HChar *
s390_irgen_STFH(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_gpr_w0(r1));
return "stfh";
}
static const HChar *
s390_irgen_STOC(UChar r1, IRTemp op2addr)
{
/* condition is checked in format handler */
store(mkexpr(op2addr), get_gpr_w1(r1));
return "stoc";
}
static const HChar *
s390_irgen_STOCG(UChar r1, IRTemp op2addr)
{
/* condition is checked in format handler */
store(mkexpr(op2addr), get_gpr_dw0(r1));
return "stocg";
}
static const HChar *
s390_irgen_STPQ(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_gpr_dw0(r1));
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(8)), get_gpr_dw0(r1 + 1));
return "stpq";
}
static const HChar *
s390_irgen_STRVH(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_gpr_b7(r1));
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(1)), get_gpr_b6(r1));
return "strvh";
}
static const HChar *
s390_irgen_STRV(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_gpr_b7(r1));
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(1)), get_gpr_b6(r1));
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(2)), get_gpr_b5(r1));
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(3)), get_gpr_b4(r1));
return "strv";
}
static const HChar *
s390_irgen_STRVG(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_gpr_b7(r1));
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(1)), get_gpr_b6(r1));
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(2)), get_gpr_b5(r1));
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(3)), get_gpr_b4(r1));
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(4)), get_gpr_b3(r1));
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(5)), get_gpr_b2(r1));
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(6)), get_gpr_b1(r1));
store(binop(Iop_Add64, mkexpr(op2addr), mkU64(7)), get_gpr_b0(r1));
return "strvg";
}
static const HChar *
s390_irgen_SR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, get_gpr_w1(r2));
assign(result, binop(Iop_Sub32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_SUB_32, op1, op2);
put_gpr_w1(r1, mkexpr(result));
return "sr";
}
static const HChar *
s390_irgen_SGR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_dw0(r2));
assign(result, binop(Iop_Sub64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_SUB_64, op1, op2);
put_gpr_dw0(r1, mkexpr(result));
return "sgr";
}
static const HChar *
s390_irgen_SGFR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_32Sto64, get_gpr_w1(r2)));
assign(result, binop(Iop_Sub64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_SUB_64, op1, op2);
put_gpr_dw0(r1, mkexpr(result));
return "sgfr";
}
static const HChar *
s390_irgen_SRK(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
assign(op3, get_gpr_w1(r3));
assign(result, binop(Iop_Sub32, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_SUB_32, op2, op3);
put_gpr_w1(r1, mkexpr(result));
return "srk";
}
static const HChar *
s390_irgen_SGRK(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
IRTemp op3 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
assign(op3, get_gpr_dw0(r3));
assign(result, binop(Iop_Sub64, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_SUB_64, op2, op3);
put_gpr_dw0(r1, mkexpr(result));
return "sgrk";
}
static const HChar *
s390_irgen_S(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_Sub32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_SUB_32, op1, op2);
put_gpr_w1(r1, mkexpr(result));
return "s";
}
static const HChar *
s390_irgen_SY(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_Sub32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_SUB_32, op1, op2);
put_gpr_w1(r1, mkexpr(result));
return "sy";
}
static const HChar *
s390_irgen_SG(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, load(Ity_I64, mkexpr(op2addr)));
assign(result, binop(Iop_Sub64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_SUB_64, op1, op2);
put_gpr_dw0(r1, mkexpr(result));
return "sg";
}
static const HChar *
s390_irgen_SGF(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_32Sto64, load(Ity_I32, mkexpr(op2addr))));
assign(result, binop(Iop_Sub64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_SUB_64, op1, op2);
put_gpr_dw0(r1, mkexpr(result));
return "sgf";
}
static const HChar *
s390_irgen_SH(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, unop(Iop_16Sto32, load(Ity_I16, mkexpr(op2addr))));
assign(result, binop(Iop_Sub32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_SUB_32, op1, op2);
put_gpr_w1(r1, mkexpr(result));
return "sh";
}
static const HChar *
s390_irgen_SHY(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, unop(Iop_16Sto32, load(Ity_I16, mkexpr(op2addr))));
assign(result, binop(Iop_Sub32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_SUB_32, op1, op2);
put_gpr_w1(r1, mkexpr(result));
return "shy";
}
static const HChar *
s390_irgen_SHHHR(UChar r3 __attribute__((unused)), UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w0(r1));
assign(op3, get_gpr_w0(r2));
assign(result, binop(Iop_Sub32, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_SUB_32, op2, op3);
put_gpr_w0(r1, mkexpr(result));
return "shhhr";
}
static const HChar *
s390_irgen_SHHLR(UChar r3 __attribute__((unused)), UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w0(r1));
assign(op3, get_gpr_w1(r2));
assign(result, binop(Iop_Sub32, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putSS(S390_CC_OP_SIGNED_SUB_32, op2, op3);
put_gpr_w0(r1, mkexpr(result));
return "shhlr";
}
static const HChar *
s390_irgen_SLR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, get_gpr_w1(r2));
assign(result, binop(Iop_Sub32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_SUB_32, op1, op2);
put_gpr_w1(r1, mkexpr(result));
return "slr";
}
static const HChar *
s390_irgen_SLGR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_dw0(r2));
assign(result, binop(Iop_Sub64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_SUB_64, op1, op2);
put_gpr_dw0(r1, mkexpr(result));
return "slgr";
}
static const HChar *
s390_irgen_SLGFR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_32Uto64, get_gpr_w1(r2)));
assign(result, binop(Iop_Sub64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_SUB_64, op1, op2);
put_gpr_dw0(r1, mkexpr(result));
return "slgfr";
}
static const HChar *
s390_irgen_SLRK(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
assign(op3, get_gpr_w1(r3));
assign(result, binop(Iop_Sub32, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_SUB_32, op2, op3);
put_gpr_w1(r1, mkexpr(result));
return "slrk";
}
static const HChar *
s390_irgen_SLGRK(UChar r3, UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
IRTemp op3 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
assign(op3, get_gpr_dw0(r3));
assign(result, binop(Iop_Sub64, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_SUB_64, op2, op3);
put_gpr_dw0(r1, mkexpr(result));
return "slgrk";
}
static const HChar *
s390_irgen_SL(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_Sub32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_SUB_32, op1, op2);
put_gpr_w1(r1, mkexpr(result));
return "sl";
}
static const HChar *
s390_irgen_SLY(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(result, binop(Iop_Sub32, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_SUB_32, op1, op2);
put_gpr_w1(r1, mkexpr(result));
return "sly";
}
static const HChar *
s390_irgen_SLG(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, load(Ity_I64, mkexpr(op2addr)));
assign(result, binop(Iop_Sub64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_SUB_64, op1, op2);
put_gpr_dw0(r1, mkexpr(result));
return "slg";
}
static const HChar *
s390_irgen_SLGF(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, unop(Iop_32Uto64, load(Ity_I32, mkexpr(op2addr))));
assign(result, binop(Iop_Sub64, mkexpr(op1), mkexpr(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_SUB_64, op1, op2);
put_gpr_dw0(r1, mkexpr(result));
return "slgf";
}
static const HChar *
s390_irgen_SLFI(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I32);
UInt op2;
IRTemp result = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
op2 = i2;
assign(result, binop(Iop_Sub32, mkexpr(op1), mkU32(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_SUB_32, op1, mktemp(Ity_I32,
mkU32(op2)));
put_gpr_w1(r1, mkexpr(result));
return "slfi";
}
static const HChar *
s390_irgen_SLGFI(UChar r1, UInt i2)
{
IRTemp op1 = newTemp(Ity_I64);
ULong op2;
IRTemp result = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
op2 = (ULong)i2;
assign(result, binop(Iop_Sub64, mkexpr(op1), mkU64(op2)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_SUB_64, op1, mktemp(Ity_I64,
mkU64(op2)));
put_gpr_dw0(r1, mkexpr(result));
return "slgfi";
}
static const HChar *
s390_irgen_SLHHHR(UChar r3 __attribute__((unused)), UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w0(r1));
assign(op3, get_gpr_w0(r2));
assign(result, binop(Iop_Sub32, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_SUB_32, op2, op3);
put_gpr_w0(r1, mkexpr(result));
return "slhhhr";
}
static const HChar *
s390_irgen_SLHHLR(UChar r3 __attribute__((unused)), UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
assign(op2, get_gpr_w0(r1));
assign(op3, get_gpr_w1(r2));
assign(result, binop(Iop_Sub32, mkexpr(op2), mkexpr(op3)));
s390_cc_thunk_putZZ(S390_CC_OP_UNSIGNED_SUB_32, op2, op3);
put_gpr_w0(r1, mkexpr(result));
return "slhhlr";
}
static const HChar *
s390_irgen_SLBR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
IRTemp borrow_in = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, get_gpr_w1(r2));
assign(borrow_in, binop(Iop_Sub32, mkU32(1), binop(Iop_Shr32,
s390_call_calculate_cc(), mkU8(1))));
assign(result, binop(Iop_Sub32, binop(Iop_Sub32, mkexpr(op1), mkexpr(op2)),
mkexpr(borrow_in)));
s390_cc_thunk_putZZZ(S390_CC_OP_UNSIGNED_SUBB_32, op1, op2, borrow_in);
put_gpr_w1(r1, mkexpr(result));
return "slbr";
}
static const HChar *
s390_irgen_SLBGR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
IRTemp borrow_in = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, get_gpr_dw0(r2));
assign(borrow_in, unop(Iop_32Uto64, binop(Iop_Sub32, mkU32(1),
binop(Iop_Shr32, s390_call_calculate_cc(), mkU8(1)))));
assign(result, binop(Iop_Sub64, binop(Iop_Sub64, mkexpr(op1), mkexpr(op2)),
mkexpr(borrow_in)));
s390_cc_thunk_putZZZ(S390_CC_OP_UNSIGNED_SUBB_64, op1, op2, borrow_in);
put_gpr_dw0(r1, mkexpr(result));
return "slbgr";
}
static const HChar *
s390_irgen_SLB(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I32);
IRTemp op2 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
IRTemp borrow_in = newTemp(Ity_I32);
assign(op1, get_gpr_w1(r1));
assign(op2, load(Ity_I32, mkexpr(op2addr)));
assign(borrow_in, binop(Iop_Sub32, mkU32(1), binop(Iop_Shr32,
s390_call_calculate_cc(), mkU8(1))));
assign(result, binop(Iop_Sub32, binop(Iop_Sub32, mkexpr(op1), mkexpr(op2)),
mkexpr(borrow_in)));
s390_cc_thunk_putZZZ(S390_CC_OP_UNSIGNED_SUBB_32, op1, op2, borrow_in);
put_gpr_w1(r1, mkexpr(result));
return "slb";
}
static const HChar *
s390_irgen_SLBG(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
IRTemp borrow_in = newTemp(Ity_I64);
assign(op1, get_gpr_dw0(r1));
assign(op2, load(Ity_I64, mkexpr(op2addr)));
assign(borrow_in, unop(Iop_32Uto64, binop(Iop_Sub32, mkU32(1),
binop(Iop_Shr32, s390_call_calculate_cc(), mkU8(1)))));
assign(result, binop(Iop_Sub64, binop(Iop_Sub64, mkexpr(op1), mkexpr(op2)),
mkexpr(borrow_in)));
s390_cc_thunk_putZZZ(S390_CC_OP_UNSIGNED_SUBB_64, op1, op2, borrow_in);
put_gpr_dw0(r1, mkexpr(result));
return "slbg";
}
static const HChar *
s390_irgen_SVC(UChar i)
{
IRTemp sysno = newTemp(Ity_I64);
if (i != 0) {
assign(sysno, mkU64(i));
} else {
assign(sysno, unop(Iop_32Uto64, get_gpr_w1(1)));
}
system_call(mkexpr(sysno));
return "svc";
}
static const HChar *
s390_irgen_TM(UChar i2, IRTemp op1addr)
{
UChar mask;
IRTemp value = newTemp(Ity_I8);
mask = i2;
assign(value, load(Ity_I8, mkexpr(op1addr)));
s390_cc_thunk_putZZ(S390_CC_OP_TEST_UNDER_MASK_8, value, mktemp(Ity_I8,
mkU8(mask)));
return "tm";
}
static const HChar *
s390_irgen_TMY(UChar i2, IRTemp op1addr)
{
UChar mask;
IRTemp value = newTemp(Ity_I8);
mask = i2;
assign(value, load(Ity_I8, mkexpr(op1addr)));
s390_cc_thunk_putZZ(S390_CC_OP_TEST_UNDER_MASK_8, value, mktemp(Ity_I8,
mkU8(mask)));
return "tmy";
}
static const HChar *
s390_irgen_TMHH(UChar r1, UShort i2)
{
UShort mask;
IRTemp value = newTemp(Ity_I16);
mask = i2;
assign(value, get_gpr_hw0(r1));
s390_cc_thunk_putZZ(S390_CC_OP_TEST_UNDER_MASK_16, value, mktemp(Ity_I16,
mkU16(mask)));
return "tmhh";
}
static const HChar *
s390_irgen_TMHL(UChar r1, UShort i2)
{
UShort mask;
IRTemp value = newTemp(Ity_I16);
mask = i2;
assign(value, get_gpr_hw1(r1));
s390_cc_thunk_putZZ(S390_CC_OP_TEST_UNDER_MASK_16, value, mktemp(Ity_I16,
mkU16(mask)));
return "tmhl";
}
static const HChar *
s390_irgen_TMLH(UChar r1, UShort i2)
{
UShort mask;
IRTemp value = newTemp(Ity_I16);
mask = i2;
assign(value, get_gpr_hw2(r1));
s390_cc_thunk_putZZ(S390_CC_OP_TEST_UNDER_MASK_16, value, mktemp(Ity_I16,
mkU16(mask)));
return "tmlh";
}
static const HChar *
s390_irgen_TMLL(UChar r1, UShort i2)
{
UShort mask;
IRTemp value = newTemp(Ity_I16);
mask = i2;
assign(value, get_gpr_hw3(r1));
s390_cc_thunk_putZZ(S390_CC_OP_TEST_UNDER_MASK_16, value, mktemp(Ity_I16,
mkU16(mask)));
return "tmll";
}
static const HChar *
s390_irgen_EFPC(UChar r1)
{
put_gpr_w1(r1, get_fpc_w0());
return "efpc";
}
static const HChar *
s390_irgen_LER(UChar r1, UChar r2)
{
put_fpr_w0(r1, get_fpr_w0(r2));
return "ler";
}
static const HChar *
s390_irgen_LDR(UChar r1, UChar r2)
{
put_fpr_dw0(r1, get_fpr_dw0(r2));
return "ldr";
}
static const HChar *
s390_irgen_LXR(UChar r1, UChar r2)
{
put_fpr_dw0(r1, get_fpr_dw0(r2));
put_fpr_dw0(r1 + 2, get_fpr_dw0(r2 + 2));
return "lxr";
}
static const HChar *
s390_irgen_LE(UChar r1, IRTemp op2addr)
{
put_fpr_w0(r1, load(Ity_F32, mkexpr(op2addr)));
return "le";
}
static const HChar *
s390_irgen_LD(UChar r1, IRTemp op2addr)
{
put_fpr_dw0(r1, load(Ity_F64, mkexpr(op2addr)));
return "ld";
}
static const HChar *
s390_irgen_LEY(UChar r1, IRTemp op2addr)
{
put_fpr_w0(r1, load(Ity_F32, mkexpr(op2addr)));
return "ley";
}
static const HChar *
s390_irgen_LDY(UChar r1, IRTemp op2addr)
{
put_fpr_dw0(r1, load(Ity_F64, mkexpr(op2addr)));
return "ldy";
}
static const HChar *
s390_irgen_LFPC(IRTemp op2addr)
{
put_fpc_w0(load(Ity_I32, mkexpr(op2addr)));
return "lfpc";
}
static const HChar *
s390_irgen_LZER(UChar r1)
{
put_fpr_w0(r1, mkF32i(0x0));
return "lzer";
}
static const HChar *
s390_irgen_LZDR(UChar r1)
{
put_fpr_dw0(r1, mkF64i(0x0));
return "lzdr";
}
static const HChar *
s390_irgen_LZXR(UChar r1)
{
put_fpr_dw0(r1, mkF64i(0x0));
put_fpr_dw0(r1 + 2, mkF64i(0x0));
return "lzxr";
}
static const HChar *
s390_irgen_SRNM(IRTemp op2addr)
{
UInt input_mask, fpc_mask;
input_mask = 3;
fpc_mask = s390_host_has_fpext ? 7 : 3;
put_fpc_w0(binop(Iop_Or32,
binop(Iop_And32, get_fpc_w0(), mkU32(~fpc_mask)),
binop(Iop_And32, unop(Iop_64to32, mkexpr(op2addr)),
mkU32(input_mask))));
return "srnm";
}
static const HChar *
s390_irgen_SRNMB(IRTemp op2addr)
{
UInt input_mask, fpc_mask;
input_mask = 7;
fpc_mask = 7;
put_fpc_w0(binop(Iop_Or32,
binop(Iop_And32, get_fpc_w0(), mkU32(~fpc_mask)),
binop(Iop_And32, unop(Iop_64to32, mkexpr(op2addr)),
mkU32(input_mask))));
return "srnmb";
}
static void
s390_irgen_srnmb_wrapper(UChar b2, UShort d2)
{
if (b2 == 0) { /* This is the typical case */
if (d2 > 3) {
if (s390_host_has_fpext && d2 == 7) {
/* ok */
} else {
emulation_warning(EmWarn_S390X_invalid_rounding);
d2 = S390_FPC_BFP_ROUND_NEAREST_EVEN;
}
}
}
s390_format_S_RD(s390_irgen_SRNMB, b2, d2);
}
/* Wrapper to validate the parameter as in SRNMB is not required, as all
the 8 values in op2addr[61:63] correspond to a valid DFP rounding mode */
static const HChar *
s390_irgen_SRNMT(IRTemp op2addr)
{
UInt input_mask, fpc_mask;
input_mask = 7;
fpc_mask = 0x70;
/* fpc[25:27] <- op2addr[61:63]
fpc = (fpc & ~(0x70)) | ((op2addr & 7) << 4) */
put_fpc_w0(binop(Iop_Or32, binop(Iop_And32, get_fpc_w0(), mkU32(~fpc_mask)),
binop(Iop_Shl32, binop(Iop_And32,
unop(Iop_64to32, mkexpr(op2addr)),
mkU32(input_mask)), mkU8(4))));
return "srnmt";
}
static const HChar *
s390_irgen_SFPC(UChar r1)
{
put_fpc_w0(get_gpr_w1(r1));
return "sfpc";
}
static const HChar *
s390_irgen_STE(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_fpr_w0(r1));
return "ste";
}
static const HChar *
s390_irgen_STD(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_fpr_dw0(r1));
return "std";
}
static const HChar *
s390_irgen_STEY(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_fpr_w0(r1));
return "stey";
}
static const HChar *
s390_irgen_STDY(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), get_fpr_dw0(r1));
return "stdy";
}
static const HChar *
s390_irgen_STFPC(IRTemp op2addr)
{
store(mkexpr(op2addr), get_fpc_w0());
return "stfpc";
}
static const HChar *
s390_irgen_AEBR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_F32);
IRTemp op2 = newTemp(Ity_F32);
IRTemp result = newTemp(Ity_F32);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_w0(r1));
assign(op2, get_fpr_w0(r2));
assign(result, triop(Iop_AddF32, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
s390_cc_thunk_putF(S390_CC_OP_BFP_RESULT_32, result);
put_fpr_w0(r1, mkexpr(result));
return "aebr";
}
static const HChar *
s390_irgen_ADBR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_F64);
IRTemp op2 = newTemp(Ity_F64);
IRTemp result = newTemp(Ity_F64);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_dw0(r1));
assign(op2, get_fpr_dw0(r2));
assign(result, triop(Iop_AddF64, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
s390_cc_thunk_putF(S390_CC_OP_BFP_RESULT_64, result);
put_fpr_dw0(r1, mkexpr(result));
return "adbr";
}
static const HChar *
s390_irgen_AEB(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_F32);
IRTemp op2 = newTemp(Ity_F32);
IRTemp result = newTemp(Ity_F32);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_w0(r1));
assign(op2, load(Ity_F32, mkexpr(op2addr)));
assign(result, triop(Iop_AddF32, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
s390_cc_thunk_putF(S390_CC_OP_BFP_RESULT_32, result);
put_fpr_w0(r1, mkexpr(result));
return "aeb";
}
static const HChar *
s390_irgen_ADB(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_F64);
IRTemp op2 = newTemp(Ity_F64);
IRTemp result = newTemp(Ity_F64);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_dw0(r1));
assign(op2, load(Ity_F64, mkexpr(op2addr)));
assign(result, triop(Iop_AddF64, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
s390_cc_thunk_putF(S390_CC_OP_BFP_RESULT_64, result);
put_fpr_dw0(r1, mkexpr(result));
return "adb";
}
static const HChar *
s390_irgen_CEFBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
if (! s390_host_has_fpext && m3 != S390_BFP_ROUND_PER_FPC) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m3 = S390_BFP_ROUND_PER_FPC;
}
IRTemp op2 = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
put_fpr_w0(r1, binop(Iop_I32StoF32, mkexpr(encode_bfp_rounding_mode(m3)),
mkexpr(op2)));
return "cefbr";
}
static const HChar *
s390_irgen_CDFBR(UChar m3 __attribute__((unused)),
UChar m4 __attribute__((unused)), UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
put_fpr_dw0(r1, unop(Iop_I32StoF64, mkexpr(op2)));
return "cdfbr";
}
static const HChar *
s390_irgen_CEGBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
if (! s390_host_has_fpext && m3 != S390_BFP_ROUND_PER_FPC) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m3 = S390_BFP_ROUND_PER_FPC;
}
IRTemp op2 = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
put_fpr_w0(r1, binop(Iop_I64StoF32, mkexpr(encode_bfp_rounding_mode(m3)),
mkexpr(op2)));
return "cegbr";
}
static const HChar *
s390_irgen_CDGBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
if (! s390_host_has_fpext && m3 != S390_BFP_ROUND_PER_FPC) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m3 = S390_BFP_ROUND_PER_FPC;
}
IRTemp op2 = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
put_fpr_dw0(r1, binop(Iop_I64StoF64, mkexpr(encode_bfp_rounding_mode(m3)),
mkexpr(op2)));
return "cdgbr";
}
static const HChar *
s390_irgen_CELFBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op2 = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
put_fpr_w0(r1, binop(Iop_I32UtoF32, mkexpr(encode_bfp_rounding_mode(m3)),
mkexpr(op2)));
}
return "celfbr";
}
static const HChar *
s390_irgen_CDLFBR(UChar m3 __attribute__((unused)),
UChar m4 __attribute__((unused)), UChar r1, UChar r2)
{
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op2 = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
put_fpr_dw0(r1, unop(Iop_I32UtoF64, mkexpr(op2)));
}
return "cdlfbr";
}
static const HChar *
s390_irgen_CELGBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op2 = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
put_fpr_w0(r1, binop(Iop_I64UtoF32, mkexpr(encode_bfp_rounding_mode(m3)),
mkexpr(op2)));
}
return "celgbr";
}
static const HChar *
s390_irgen_CDLGBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op2 = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
put_fpr_dw0(r1, binop(Iop_I64UtoF64,
mkexpr(encode_bfp_rounding_mode(m3)),
mkexpr(op2)));
}
return "cdlgbr";
}
static const HChar *
s390_irgen_CLFEBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op = newTemp(Ity_F32);
IRTemp result = newTemp(Ity_I32);
IRTemp rounding_mode = encode_bfp_rounding_mode(m3);
assign(op, get_fpr_w0(r2));
assign(result, binop(Iop_F32toI32U, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_putFZ(S390_CC_OP_BFP_32_TO_UINT_32, op, rounding_mode);
}
return "clfebr";
}
static const HChar *
s390_irgen_CLFDBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op = newTemp(Ity_F64);
IRTemp result = newTemp(Ity_I32);
IRTemp rounding_mode = encode_bfp_rounding_mode(m3);
assign(op, get_fpr_dw0(r2));
assign(result, binop(Iop_F64toI32U, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_putFZ(S390_CC_OP_BFP_64_TO_UINT_32, op, rounding_mode);
}
return "clfdbr";
}
static const HChar *
s390_irgen_CLGEBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op = newTemp(Ity_F32);
IRTemp result = newTemp(Ity_I64);
IRTemp rounding_mode = encode_bfp_rounding_mode(m3);
assign(op, get_fpr_w0(r2));
assign(result, binop(Iop_F32toI64U, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_dw0(r1, mkexpr(result));
s390_cc_thunk_putFZ(S390_CC_OP_BFP_32_TO_UINT_64, op, rounding_mode);
}
return "clgebr";
}
static const HChar *
s390_irgen_CLGDBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op = newTemp(Ity_F64);
IRTemp result = newTemp(Ity_I64);
IRTemp rounding_mode = encode_bfp_rounding_mode(m3);
assign(op, get_fpr_dw0(r2));
assign(result, binop(Iop_F64toI64U, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_dw0(r1, mkexpr(result));
s390_cc_thunk_putFZ(S390_CC_OP_BFP_64_TO_UINT_64, op, rounding_mode);
}
return "clgdbr";
}
static const HChar *
s390_irgen_CFEBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
IRTemp op = newTemp(Ity_F32);
IRTemp result = newTemp(Ity_I32);
IRTemp rounding_mode = encode_bfp_rounding_mode(m3);
assign(op, get_fpr_w0(r2));
assign(result, binop(Iop_F32toI32S, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_putFZ(S390_CC_OP_BFP_32_TO_INT_32, op, rounding_mode);
return "cfebr";
}
static const HChar *
s390_irgen_CFDBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
IRTemp op = newTemp(Ity_F64);
IRTemp result = newTemp(Ity_I32);
IRTemp rounding_mode = encode_bfp_rounding_mode(m3);
assign(op, get_fpr_dw0(r2));
assign(result, binop(Iop_F64toI32S, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_putFZ(S390_CC_OP_BFP_64_TO_INT_32, op, rounding_mode);
return "cfdbr";
}
static const HChar *
s390_irgen_CGEBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
IRTemp op = newTemp(Ity_F32);
IRTemp result = newTemp(Ity_I64);
IRTemp rounding_mode = encode_bfp_rounding_mode(m3);
assign(op, get_fpr_w0(r2));
assign(result, binop(Iop_F32toI64S, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_dw0(r1, mkexpr(result));
s390_cc_thunk_putFZ(S390_CC_OP_BFP_32_TO_INT_64, op, rounding_mode);
return "cgebr";
}
static const HChar *
s390_irgen_CGDBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
IRTemp op = newTemp(Ity_F64);
IRTemp result = newTemp(Ity_I64);
IRTemp rounding_mode = encode_bfp_rounding_mode(m3);
assign(op, get_fpr_dw0(r2));
assign(result, binop(Iop_F64toI64S, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_dw0(r1, mkexpr(result));
s390_cc_thunk_putFZ(S390_CC_OP_BFP_64_TO_INT_64, op, rounding_mode);
return "cgdbr";
}
static const HChar *
s390_irgen_DEBR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_F32);
IRTemp op2 = newTemp(Ity_F32);
IRTemp result = newTemp(Ity_F32);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_w0(r1));
assign(op2, get_fpr_w0(r2));
assign(result, triop(Iop_DivF32, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_fpr_w0(r1, mkexpr(result));
return "debr";
}
static const HChar *
s390_irgen_DDBR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_F64);
IRTemp op2 = newTemp(Ity_F64);
IRTemp result = newTemp(Ity_F64);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_dw0(r1));
assign(op2, get_fpr_dw0(r2));
assign(result, triop(Iop_DivF64, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_fpr_dw0(r1, mkexpr(result));
return "ddbr";
}
static const HChar *
s390_irgen_DEB(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_F32);
IRTemp op2 = newTemp(Ity_F32);
IRTemp result = newTemp(Ity_F32);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_w0(r1));
assign(op2, load(Ity_F32, mkexpr(op2addr)));
assign(result, triop(Iop_DivF32, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_fpr_w0(r1, mkexpr(result));
return "deb";
}
static const HChar *
s390_irgen_DDB(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_F64);
IRTemp op2 = newTemp(Ity_F64);
IRTemp result = newTemp(Ity_F64);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_dw0(r1));
assign(op2, load(Ity_F64, mkexpr(op2addr)));
assign(result, triop(Iop_DivF64, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_fpr_dw0(r1, mkexpr(result));
return "ddb";
}
static const HChar *
s390_irgen_LTEBR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F32);
assign(result, get_fpr_w0(r2));
put_fpr_w0(r1, mkexpr(result));
s390_cc_thunk_putF(S390_CC_OP_BFP_RESULT_32, result);
return "ltebr";
}
static const HChar *
s390_irgen_LTDBR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F64);
assign(result, get_fpr_dw0(r2));
put_fpr_dw0(r1, mkexpr(result));
s390_cc_thunk_putF(S390_CC_OP_BFP_RESULT_64, result);
return "ltdbr";
}
static const HChar *
s390_irgen_LCEBR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F32);
assign(result, unop(Iop_NegF32, get_fpr_w0(r2)));
put_fpr_w0(r1, mkexpr(result));
s390_cc_thunk_putF(S390_CC_OP_BFP_RESULT_32, result);
return "lcebr";
}
static const HChar *
s390_irgen_LCDBR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F64);
assign(result, unop(Iop_NegF64, get_fpr_dw0(r2)));
put_fpr_dw0(r1, mkexpr(result));
s390_cc_thunk_putF(S390_CC_OP_BFP_RESULT_64, result);
return "lcdbr";
}
static const HChar *
s390_irgen_LDEBR(UChar r1, UChar r2)
{
IRTemp op = newTemp(Ity_F32);
assign(op, get_fpr_w0(r2));
put_fpr_dw0(r1, unop(Iop_F32toF64, mkexpr(op)));
return "ldebr";
}
static const HChar *
s390_irgen_LDEB(UChar r1, IRTemp op2addr)
{
IRTemp op = newTemp(Ity_F32);
assign(op, load(Ity_F32, mkexpr(op2addr)));
put_fpr_dw0(r1, unop(Iop_F32toF64, mkexpr(op)));
return "ldeb";
}
static const HChar *
s390_irgen_LEDBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
if (! s390_host_has_fpext && m3 != S390_BFP_ROUND_PER_FPC) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m3 = S390_BFP_ROUND_PER_FPC;
}
IRTemp op = newTemp(Ity_F64);
assign(op, get_fpr_dw0(r2));
put_fpr_w0(r1, binop(Iop_F64toF32, mkexpr(encode_bfp_rounding_mode(m3)),
mkexpr(op)));
return "ledbr";
}
static const HChar *
s390_irgen_MEEBR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_F32);
IRTemp op2 = newTemp(Ity_F32);
IRTemp result = newTemp(Ity_F32);
IRRoundingMode rounding_mode =
encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_w0(r1));
assign(op2, get_fpr_w0(r2));
assign(result, triop(Iop_MulF32, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_fpr_w0(r1, mkexpr(result));
return "meebr";
}
static const HChar *
s390_irgen_MDBR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_F64);
IRTemp op2 = newTemp(Ity_F64);
IRTemp result = newTemp(Ity_F64);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_dw0(r1));
assign(op2, get_fpr_dw0(r2));
assign(result, triop(Iop_MulF64, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_fpr_dw0(r1, mkexpr(result));
return "mdbr";
}
static const HChar *
s390_irgen_MEEB(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_F32);
IRTemp op2 = newTemp(Ity_F32);
IRTemp result = newTemp(Ity_F32);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_w0(r1));
assign(op2, load(Ity_F32, mkexpr(op2addr)));
assign(result, triop(Iop_MulF32, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_fpr_w0(r1, mkexpr(result));
return "meeb";
}
static const HChar *
s390_irgen_MDB(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_F64);
IRTemp op2 = newTemp(Ity_F64);
IRTemp result = newTemp(Ity_F64);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_dw0(r1));
assign(op2, load(Ity_F64, mkexpr(op2addr)));
assign(result, triop(Iop_MulF64, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_fpr_dw0(r1, mkexpr(result));
return "mdb";
}
static const HChar *
s390_irgen_SEBR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_F32);
IRTemp op2 = newTemp(Ity_F32);
IRTemp result = newTemp(Ity_F32);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_w0(r1));
assign(op2, get_fpr_w0(r2));
assign(result, triop(Iop_SubF32, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
s390_cc_thunk_putF(S390_CC_OP_BFP_RESULT_32, result);
put_fpr_w0(r1, mkexpr(result));
return "sebr";
}
static const HChar *
s390_irgen_SDBR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_F64);
IRTemp op2 = newTemp(Ity_F64);
IRTemp result = newTemp(Ity_F64);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_dw0(r1));
assign(op2, get_fpr_dw0(r2));
assign(result, triop(Iop_SubF64, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
s390_cc_thunk_putF(S390_CC_OP_BFP_RESULT_64, result);
put_fpr_dw0(r1, mkexpr(result));
return "sdbr";
}
static const HChar *
s390_irgen_SEB(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_F32);
IRTemp op2 = newTemp(Ity_F32);
IRTemp result = newTemp(Ity_F32);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_w0(r1));
assign(op2, load(Ity_F32, mkexpr(op2addr)));
assign(result, triop(Iop_SubF32, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
s390_cc_thunk_putF(S390_CC_OP_BFP_RESULT_32, result);
put_fpr_w0(r1, mkexpr(result));
return "seb";
}
static const HChar *
s390_irgen_SDB(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_F64);
IRTemp op2 = newTemp(Ity_F64);
IRTemp result = newTemp(Ity_F64);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_dw0(r1));
assign(op2, load(Ity_F64, mkexpr(op2addr)));
assign(result, triop(Iop_SubF64, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
s390_cc_thunk_putF(S390_CC_OP_BFP_RESULT_64, result);
put_fpr_dw0(r1, mkexpr(result));
return "sdb";
}
static const HChar *
s390_irgen_ADTRA(UChar r3, UChar m4, UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_D64);
IRTemp op2 = newTemp(Ity_D64);
IRTemp result = newTemp(Ity_D64);
IRTemp rounding_mode;
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext && m4 != S390_DFP_ROUND_PER_FPC_0) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m4 = S390_DFP_ROUND_PER_FPC_0;
}
rounding_mode = encode_dfp_rounding_mode(m4);
assign(op1, get_dpr_dw0(r2));
assign(op2, get_dpr_dw0(r3));
assign(result, triop(Iop_AddD64, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
s390_cc_thunk_putF(S390_CC_OP_DFP_RESULT_64, result);
put_dpr_dw0(r1, mkexpr(result));
return (m4 == 0) ? "adtr" : "adtra";
}
static const HChar *
s390_irgen_AXTRA(UChar r3, UChar m4, UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_D128);
IRTemp op2 = newTemp(Ity_D128);
IRTemp result = newTemp(Ity_D128);
IRTemp rounding_mode;
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext && m4 != S390_DFP_ROUND_PER_FPC_0) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m4 = S390_DFP_ROUND_PER_FPC_0;
}
rounding_mode = encode_dfp_rounding_mode(m4);
assign(op1, get_dpr_pair(r2));
assign(op2, get_dpr_pair(r3));
assign(result, triop(Iop_AddD128, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_dpr_pair(r1, mkexpr(result));
s390_cc_thunk_put1d128(S390_CC_OP_DFP_RESULT_128, result);
return (m4 == 0) ? "axtr" : "axtra";
}
static const HChar *
s390_irgen_CDTR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_D64);
IRTemp op2 = newTemp(Ity_D64);
IRTemp cc_vex = newTemp(Ity_I32);
IRTemp cc_s390 = newTemp(Ity_I32);
assign(op1, get_dpr_dw0(r1));
assign(op2, get_dpr_dw0(r2));
assign(cc_vex, binop(Iop_CmpD64, mkexpr(op1), mkexpr(op2)));
assign(cc_s390, convert_vex_dfpcc_to_s390(cc_vex));
s390_cc_thunk_put1(S390_CC_OP_SET, cc_s390, False);
return "cdtr";
}
static const HChar *
s390_irgen_CXTR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_D128);
IRTemp op2 = newTemp(Ity_D128);
IRTemp cc_vex = newTemp(Ity_I32);
IRTemp cc_s390 = newTemp(Ity_I32);
assign(op1, get_dpr_pair(r1));
assign(op2, get_dpr_pair(r2));
assign(cc_vex, binop(Iop_CmpD128, mkexpr(op1), mkexpr(op2)));
assign(cc_s390, convert_vex_dfpcc_to_s390(cc_vex));
s390_cc_thunk_put1(S390_CC_OP_SET, cc_s390, False);
return "cxtr";
}
static const HChar *
s390_irgen_CDFTR(UChar m3 __attribute__((unused)),
UChar m4 __attribute__((unused)), UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op2 = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
put_dpr_dw0(r1, unop(Iop_I32StoD64, mkexpr(op2)));
}
return "cdftr";
}
static const HChar *
s390_irgen_CXFTR(UChar m3 __attribute__((unused)),
UChar m4 __attribute__((unused)), UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op2 = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
put_dpr_pair(r1, unop(Iop_I32StoD128, mkexpr(op2)));
}
return "cxftr";
}
static const HChar *
s390_irgen_CDGTRA(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext && m3 != S390_DFP_ROUND_PER_FPC_0) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m3 = S390_DFP_ROUND_PER_FPC_0;
}
assign(op2, get_gpr_dw0(r2));
put_dpr_dw0(r1, binop(Iop_I64StoD64, mkexpr(encode_dfp_rounding_mode(m3)),
mkexpr(op2)));
return (m3 == 0) ? "cdgtr" : "cdgtra";
}
static const HChar *
s390_irgen_CXGTR(UChar m3 __attribute__((unused)),
UChar m4 __attribute__((unused)), UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
vassert(s390_host_has_dfp);
/* No emulation warning here about an non-zero m3 on hosts without
floating point extension facility. No rounding is performed */
assign(op2, get_gpr_dw0(r2));
put_dpr_pair(r1, unop(Iop_I64StoD128, mkexpr(op2)));
return "cxgtr";
}
static const HChar *
s390_irgen_CDLFTR(UChar m3 __attribute__((unused)),
UChar m4 __attribute__((unused)), UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op2 = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
put_dpr_dw0(r1, unop(Iop_I32UtoD64, mkexpr(op2)));
}
return "cdlftr";
}
static const HChar *
s390_irgen_CXLFTR(UChar m3 __attribute__((unused)),
UChar m4 __attribute__((unused)), UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op2 = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
put_dpr_pair(r1, unop(Iop_I32UtoD128, mkexpr(op2)));
}
return "cxlftr";
}
static const HChar *
s390_irgen_CDLGTR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op2 = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
put_dpr_dw0(r1, binop(Iop_I64UtoD64,
mkexpr(encode_dfp_rounding_mode(m3)),
mkexpr(op2)));
}
return "cdlgtr";
}
static const HChar *
s390_irgen_CXLGTR(UChar m3 __attribute__((unused)),
UChar m4 __attribute__((unused)), UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op2 = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
put_dpr_pair(r1, unop(Iop_I64UtoD128, mkexpr(op2)));
}
return "cxlgtr";
}
static const HChar *
s390_irgen_CFDTR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op = newTemp(Ity_D64);
IRTemp result = newTemp(Ity_I32);
IRTemp rounding_mode = encode_dfp_rounding_mode(m3);
assign(op, get_dpr_dw0(r2));
assign(result, binop(Iop_D64toI32S, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_putFZ(S390_CC_OP_DFP_64_TO_INT_32, op, rounding_mode);
}
return "cfdtr";
}
static const HChar *
s390_irgen_CFXTR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op = newTemp(Ity_D128);
IRTemp result = newTemp(Ity_I32);
IRTemp rounding_mode = encode_dfp_rounding_mode(m3);
assign(op, get_dpr_pair(r2));
assign(result, binop(Iop_D128toI32S, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_put1d128Z(S390_CC_OP_DFP_128_TO_INT_32, op, rounding_mode);
}
return "cfxtr";
}
static const HChar *
s390_irgen_CGDTR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
IRTemp op = newTemp(Ity_D64);
IRTemp rounding_mode = encode_dfp_rounding_mode(m3);
vassert(s390_host_has_dfp);
/* If fpext is not installed and m3 is in 1:7,
rounding mode performed is unpredictable */
if (! s390_host_has_fpext && m3 > 0 && m3 < 8) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m3 = S390_DFP_ROUND_PER_FPC_0;
}
assign(op, get_dpr_dw0(r2));
put_gpr_dw0(r1, binop(Iop_D64toI64S, mkexpr(rounding_mode), mkexpr(op)));
s390_cc_thunk_putFZ(S390_CC_OP_DFP_64_TO_INT_64, op, rounding_mode);
return "cgdtr";
}
static const HChar *
s390_irgen_CGXTR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
IRTemp op = newTemp(Ity_D128);
IRTemp rounding_mode = encode_dfp_rounding_mode(m3);
vassert(s390_host_has_dfp);
/* If fpext is not installed and m3 is in 1:7,
rounding mode performed is unpredictable */
if (! s390_host_has_fpext && m3 > 0 && m3 < 8) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m3 = S390_DFP_ROUND_PER_FPC_0;
}
assign(op, get_dpr_pair(r2));
put_gpr_dw0(r1, binop(Iop_D128toI64S, mkexpr(rounding_mode), mkexpr(op)));
s390_cc_thunk_put1d128Z(S390_CC_OP_DFP_128_TO_INT_64, op, rounding_mode);
return "cgxtr";
}
static const HChar *
s390_irgen_CEDTR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_D64);
IRTemp op2 = newTemp(Ity_D64);
IRTemp cc_vex = newTemp(Ity_I32);
IRTemp cc_s390 = newTemp(Ity_I32);
vassert(s390_host_has_dfp);
assign(op1, get_dpr_dw0(r1));
assign(op2, get_dpr_dw0(r2));
assign(cc_vex, binop(Iop_CmpExpD64, mkexpr(op1), mkexpr(op2)));
assign(cc_s390, convert_vex_dfpcc_to_s390(cc_vex));
s390_cc_thunk_put1(S390_CC_OP_SET, cc_s390, False);
return "cedtr";
}
static const HChar *
s390_irgen_CEXTR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_D128);
IRTemp op2 = newTemp(Ity_D128);
IRTemp cc_vex = newTemp(Ity_I32);
IRTemp cc_s390 = newTemp(Ity_I32);
vassert(s390_host_has_dfp);
assign(op1, get_dpr_pair(r1));
assign(op2, get_dpr_pair(r2));
assign(cc_vex, binop(Iop_CmpExpD128, mkexpr(op1), mkexpr(op2)));
assign(cc_s390, convert_vex_dfpcc_to_s390(cc_vex));
s390_cc_thunk_put1(S390_CC_OP_SET, cc_s390, False);
return "cextr";
}
static const HChar *
s390_irgen_CLFDTR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op = newTemp(Ity_D64);
IRTemp result = newTemp(Ity_I32);
IRTemp rounding_mode = encode_dfp_rounding_mode(m3);
assign(op, get_dpr_dw0(r2));
assign(result, binop(Iop_D64toI32U, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_putFZ(S390_CC_OP_DFP_64_TO_UINT_32, op, rounding_mode);
}
return "clfdtr";
}
static const HChar *
s390_irgen_CLFXTR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op = newTemp(Ity_D128);
IRTemp result = newTemp(Ity_I32);
IRTemp rounding_mode = encode_dfp_rounding_mode(m3);
assign(op, get_dpr_pair(r2));
assign(result, binop(Iop_D128toI32U, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_put1d128Z(S390_CC_OP_DFP_128_TO_UINT_32, op, rounding_mode);
}
return "clfxtr";
}
static const HChar *
s390_irgen_CLGDTR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op = newTemp(Ity_D64);
IRTemp result = newTemp(Ity_I64);
IRTemp rounding_mode = encode_dfp_rounding_mode(m3);
assign(op, get_dpr_dw0(r2));
assign(result, binop(Iop_D64toI64U, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_dw0(r1, mkexpr(result));
s390_cc_thunk_putFZ(S390_CC_OP_DFP_64_TO_UINT_64, op, rounding_mode);
}
return "clgdtr";
}
static const HChar *
s390_irgen_CLGXTR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op = newTemp(Ity_D128);
IRTemp result = newTemp(Ity_I64);
IRTemp rounding_mode = encode_dfp_rounding_mode(m3);
assign(op, get_dpr_pair(r2));
assign(result, binop(Iop_D128toI64U, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_dw0(r1, mkexpr(result));
s390_cc_thunk_put1d128Z(S390_CC_OP_DFP_128_TO_UINT_64, op,
rounding_mode);
}
return "clgxtr";
}
static const HChar *
s390_irgen_DDTRA(UChar r3, UChar m4, UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_D64);
IRTemp op2 = newTemp(Ity_D64);
IRTemp result = newTemp(Ity_D64);
IRTemp rounding_mode;
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext && m4 != S390_DFP_ROUND_PER_FPC_0) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m4 = S390_DFP_ROUND_PER_FPC_0;
}
rounding_mode = encode_dfp_rounding_mode(m4);
assign(op1, get_dpr_dw0(r2));
assign(op2, get_dpr_dw0(r3));
assign(result, triop(Iop_DivD64, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_dpr_dw0(r1, mkexpr(result));
return (m4 == 0) ? "ddtr" : "ddtra";
}
static const HChar *
s390_irgen_DXTRA(UChar r3, UChar m4, UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_D128);
IRTemp op2 = newTemp(Ity_D128);
IRTemp result = newTemp(Ity_D128);
IRTemp rounding_mode;
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext && m4 != S390_DFP_ROUND_PER_FPC_0) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m4 = S390_DFP_ROUND_PER_FPC_0;
}
rounding_mode = encode_dfp_rounding_mode(m4);
assign(op1, get_dpr_pair(r2));
assign(op2, get_dpr_pair(r3));
assign(result, triop(Iop_DivD128, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_dpr_pair(r1, mkexpr(result));
return (m4 == 0) ? "dxtr" : "dxtra";
}
static const HChar *
s390_irgen_EEDTR(UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
put_gpr_dw0(r1, unop(Iop_ExtractExpD64, get_dpr_dw0(r2)));
return "eedtr";
}
static const HChar *
s390_irgen_EEXTR(UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
put_gpr_dw0(r1, unop(Iop_ExtractExpD128, get_dpr_pair(r2)));
return "eextr";
}
static const HChar *
s390_irgen_ESDTR(UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
put_gpr_dw0(r1, unop(Iop_ExtractSigD64, get_dpr_dw0(r2)));
return "esdtr";
}
static const HChar *
s390_irgen_ESXTR(UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
put_gpr_dw0(r1, unop(Iop_ExtractSigD128, get_dpr_pair(r2)));
return "esxtr";
}
static const HChar *
s390_irgen_IEDTR(UChar r3, UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_D64);
IRTemp result = newTemp(Ity_D64);
vassert(s390_host_has_dfp);
assign(op1, get_gpr_dw0(r2));
assign(op2, get_dpr_dw0(r3));
assign(result, binop(Iop_InsertExpD64, mkexpr(op1), mkexpr(op2)));
put_dpr_dw0(r1, mkexpr(result));
return "iedtr";
}
static const HChar *
s390_irgen_IEXTR(UChar r3, UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp op2 = newTemp(Ity_D128);
IRTemp result = newTemp(Ity_D128);
vassert(s390_host_has_dfp);
assign(op1, get_gpr_dw0(r2));
assign(op2, get_dpr_pair(r3));
assign(result, binop(Iop_InsertExpD128, mkexpr(op1), mkexpr(op2)));
put_dpr_pair(r1, mkexpr(result));
return "iextr";
}
static const HChar *
s390_irgen_LDETR(UChar m4 __attribute__((unused)), UChar r1, UChar r2)
{
IRTemp op = newTemp(Ity_D32);
vassert(s390_host_has_dfp);
assign(op, get_dpr_w0(r2));
put_dpr_dw0(r1, unop(Iop_D32toD64, mkexpr(op)));
return "ldetr";
}
static const HChar *
s390_irgen_LXDTR(UChar m4 __attribute__((unused)), UChar r1, UChar r2)
{
IRTemp op = newTemp(Ity_D64);
assign(op, get_dpr_dw0(r2));
put_dpr_pair(r1, unop(Iop_D64toD128, mkexpr(op)));
return "lxdtr";
}
static const HChar *
s390_irgen_LDXTR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
/* If fpext is not installed and m3 is in 1:7,
rounding mode performed is unpredictable */
if (! s390_host_has_fpext && m3 > 0 && m3 < 8) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m3 = S390_DFP_ROUND_PER_FPC_0;
}
IRTemp result = newTemp(Ity_D64);
assign(result, binop(Iop_D128toD64, mkexpr(encode_dfp_rounding_mode(m3)),
get_dpr_pair(r2)));
put_dpr_dw0(r1, mkexpr(result));
return "ldxtr";
}
static const HChar *
s390_irgen_LEDTR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
vassert(s390_host_has_dfp);
/* If fpext is not installed and m3 is in 1:7,
rounding mode performed is unpredictable */
if (! s390_host_has_fpext && m3 > 0 && m3 < 8) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m3 = S390_DFP_ROUND_PER_FPC_0;
}
IRTemp op = newTemp(Ity_D64);
assign(op, get_dpr_dw0(r2));
put_dpr_w0(r1, binop(Iop_D64toD32, mkexpr(encode_dfp_rounding_mode(m3)),
mkexpr(op)));
return "ledtr";
}
static const HChar *
s390_irgen_LTDTR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_D64);
assign(result, get_dpr_dw0(r2));
put_dpr_dw0(r1, mkexpr(result));
s390_cc_thunk_putF(S390_CC_OP_DFP_RESULT_64, result);
return "ltdtr";
}
static const HChar *
s390_irgen_LTXTR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_D128);
assign(result, get_dpr_pair(r2));
put_dpr_pair(r1, mkexpr(result));
s390_cc_thunk_put1d128(S390_CC_OP_DFP_RESULT_128, result);
return "ltxtr";
}
static const HChar *
s390_irgen_MDTRA(UChar r3, UChar m4, UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_D64);
IRTemp op2 = newTemp(Ity_D64);
IRTemp result = newTemp(Ity_D64);
IRTemp rounding_mode;
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext && m4 != S390_DFP_ROUND_PER_FPC_0) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m4 = S390_DFP_ROUND_PER_FPC_0;
}
rounding_mode = encode_dfp_rounding_mode(m4);
assign(op1, get_dpr_dw0(r2));
assign(op2, get_dpr_dw0(r3));
assign(result, triop(Iop_MulD64, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_dpr_dw0(r1, mkexpr(result));
return (m4 == 0) ? "mdtr" : "mdtra";
}
static const HChar *
s390_irgen_MXTRA(UChar r3, UChar m4, UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_D128);
IRTemp op2 = newTemp(Ity_D128);
IRTemp result = newTemp(Ity_D128);
IRTemp rounding_mode;
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext && m4 != S390_DFP_ROUND_PER_FPC_0) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m4 = S390_DFP_ROUND_PER_FPC_0;
}
rounding_mode = encode_dfp_rounding_mode(m4);
assign(op1, get_dpr_pair(r2));
assign(op2, get_dpr_pair(r3));
assign(result, triop(Iop_MulD128, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_dpr_pair(r1, mkexpr(result));
return (m4 == 0) ? "mxtr" : "mxtra";
}
static const HChar *
s390_irgen_QADTR(UChar r3, UChar m4, UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_D64);
IRTemp op2 = newTemp(Ity_D64);
IRTemp result = newTemp(Ity_D64);
IRTemp rounding_mode;
vassert(s390_host_has_dfp);
/* If fpext is not installed and m4 is in 1:7,
rounding mode performed is unpredictable */
if (! s390_host_has_fpext && m4 > 0 && m4 < 8) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m4 = S390_DFP_ROUND_PER_FPC_0;
}
rounding_mode = encode_dfp_rounding_mode(m4);
assign(op1, get_dpr_dw0(r2));
assign(op2, get_dpr_dw0(r3));
assign(result, triop(Iop_QuantizeD64, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_dpr_dw0(r1, mkexpr(result));
return "qadtr";
}
static const HChar *
s390_irgen_QAXTR(UChar r3, UChar m4, UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_D128);
IRTemp op2 = newTemp(Ity_D128);
IRTemp result = newTemp(Ity_D128);
IRTemp rounding_mode;
vassert(s390_host_has_dfp);
/* If fpext is not installed and m4 is in 1:7,
rounding mode performed is unpredictable */
if (! s390_host_has_fpext && m4 > 0 && m4 < 8) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m4 = S390_DFP_ROUND_PER_FPC_0;
}
rounding_mode = encode_dfp_rounding_mode(m4);
assign(op1, get_dpr_pair(r2));
assign(op2, get_dpr_pair(r3));
assign(result, triop(Iop_QuantizeD128, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_dpr_pair(r1, mkexpr(result));
return "qaxtr";
}
static const HChar *
s390_irgen_RRDTR(UChar r3, UChar m4, UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I8);
IRTemp op2 = newTemp(Ity_D64);
IRTemp result = newTemp(Ity_D64);
IRTemp rounding_mode;
vassert(s390_host_has_dfp);
/* If fpext is not installed and m4 is in 1:7,
rounding mode performed is unpredictable */
if (! s390_host_has_fpext && m4 > 0 && m4 < 8) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m4 = S390_DFP_ROUND_PER_FPC_0;
}
rounding_mode = encode_dfp_rounding_mode(m4);
assign(op1, get_gpr_b7(r2));
assign(op2, get_dpr_dw0(r3));
assign(result, triop(Iop_SignificanceRoundD64, mkexpr(rounding_mode),
mkexpr(op1), mkexpr(op2)));
put_dpr_dw0(r1, mkexpr(result));
return "rrdtr";
}
static const HChar *
s390_irgen_RRXTR(UChar r3, UChar m4, UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_I8);
IRTemp op2 = newTemp(Ity_D128);
IRTemp result = newTemp(Ity_D128);
IRTemp rounding_mode;
vassert(s390_host_has_dfp);
/* If fpext is not installed and m4 is in 1:7,
rounding mode performed is unpredictable */
if (! s390_host_has_fpext && m4 > 0 && m4 < 8) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m4 = S390_DFP_ROUND_PER_FPC_0;
}
rounding_mode = encode_dfp_rounding_mode(m4);
assign(op1, get_gpr_b7(r2));
assign(op2, get_dpr_pair(r3));
assign(result, triop(Iop_SignificanceRoundD128, mkexpr(rounding_mode),
mkexpr(op1), mkexpr(op2)));
put_dpr_pair(r1, mkexpr(result));
return "rrxtr";
}
static const HChar *
s390_irgen_SDTRA(UChar r3, UChar m4, UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_D64);
IRTemp op2 = newTemp(Ity_D64);
IRTemp result = newTemp(Ity_D64);
IRTemp rounding_mode;
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext && m4 != S390_DFP_ROUND_PER_FPC_0) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m4 = S390_DFP_ROUND_PER_FPC_0;
}
rounding_mode = encode_dfp_rounding_mode(m4);
assign(op1, get_dpr_dw0(r2));
assign(op2, get_dpr_dw0(r3));
assign(result, triop(Iop_SubD64, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
s390_cc_thunk_putF(S390_CC_OP_DFP_RESULT_64, result);
put_dpr_dw0(r1, mkexpr(result));
return (m4 == 0) ? "sdtr" : "sdtra";
}
static const HChar *
s390_irgen_SXTRA(UChar r3, UChar m4, UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_D128);
IRTemp op2 = newTemp(Ity_D128);
IRTemp result = newTemp(Ity_D128);
IRTemp rounding_mode;
vassert(s390_host_has_dfp);
if (! s390_host_has_fpext && m4 != S390_DFP_ROUND_PER_FPC_0) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m4 = S390_DFP_ROUND_PER_FPC_0;
}
rounding_mode = encode_dfp_rounding_mode(m4);
assign(op1, get_dpr_pair(r2));
assign(op2, get_dpr_pair(r3));
assign(result, triop(Iop_SubD128, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_dpr_pair(r1, mkexpr(result));
s390_cc_thunk_put1d128(S390_CC_OP_DFP_RESULT_128, result);
return (m4 == 0) ? "sxtr" : "sxtra";
}
static const HChar *
s390_irgen_SLDT(UChar r3, IRTemp op2addr, UChar r1)
{
IRTemp op = newTemp(Ity_D64);
vassert(s390_host_has_dfp);
assign(op, get_dpr_dw0(r3));
put_dpr_dw0(r1, binop(Iop_ShlD64, mkexpr(op), unop(Iop_64to8,
binop(Iop_And64, mkexpr(op2addr), mkU64(63)))));
return "sldt";
}
static const HChar *
s390_irgen_SLXT(UChar r3, IRTemp op2addr, UChar r1)
{
IRTemp op = newTemp(Ity_D128);
vassert(s390_host_has_dfp);
assign(op, get_dpr_pair(r3));
put_dpr_pair(r1, binop(Iop_ShlD128, mkexpr(op), unop(Iop_64to8,
binop(Iop_And64, mkexpr(op2addr), mkU64(63)))));
return "slxt";
}
static const HChar *
s390_irgen_SRDT(UChar r3, IRTemp op2addr, UChar r1)
{
IRTemp op = newTemp(Ity_D64);
vassert(s390_host_has_dfp);
assign(op, get_dpr_dw0(r3));
put_dpr_dw0(r1, binop(Iop_ShrD64, mkexpr(op), unop(Iop_64to8,
binop(Iop_And64, mkexpr(op2addr), mkU64(63)))));
return "srdt";
}
static const HChar *
s390_irgen_SRXT(UChar r3, IRTemp op2addr, UChar r1)
{
IRTemp op = newTemp(Ity_D128);
vassert(s390_host_has_dfp);
assign(op, get_dpr_pair(r3));
put_dpr_pair(r1, binop(Iop_ShrD128, mkexpr(op), unop(Iop_64to8,
binop(Iop_And64, mkexpr(op2addr), mkU64(63)))));
return "srxt";
}
static const HChar *
s390_irgen_TDCET(UChar r1, IRTemp op2addr)
{
IRTemp value = newTemp(Ity_D32);
vassert(s390_host_has_dfp);
assign(value, get_dpr_w0(r1));
s390_cc_thunk_putFZ(S390_CC_OP_DFP_TDC_32, value, op2addr);
return "tdcet";
}
static const HChar *
s390_irgen_TDCDT(UChar r1, IRTemp op2addr)
{
IRTemp value = newTemp(Ity_D64);
vassert(s390_host_has_dfp);
assign(value, get_dpr_dw0(r1));
s390_cc_thunk_putFZ(S390_CC_OP_DFP_TDC_64, value, op2addr);
return "tdcdt";
}
static const HChar *
s390_irgen_TDCXT(UChar r1, IRTemp op2addr)
{
IRTemp value = newTemp(Ity_D128);
vassert(s390_host_has_dfp);
assign(value, get_dpr_pair(r1));
s390_cc_thunk_put1d128Z(S390_CC_OP_DFP_TDC_128, value, op2addr);
return "tdcxt";
}
static const HChar *
s390_irgen_TDGET(UChar r1, IRTemp op2addr)
{
IRTemp value = newTemp(Ity_D32);
vassert(s390_host_has_dfp);
assign(value, get_dpr_w0(r1));
s390_cc_thunk_putFZ(S390_CC_OP_DFP_TDG_32, value, op2addr);
return "tdget";
}
static const HChar *
s390_irgen_TDGDT(UChar r1, IRTemp op2addr)
{
IRTemp value = newTemp(Ity_D64);
vassert(s390_host_has_dfp);
assign(value, get_dpr_dw0(r1));
s390_cc_thunk_putFZ(S390_CC_OP_DFP_TDG_64, value, op2addr);
return "tdgdt";
}
static const HChar *
s390_irgen_TDGXT(UChar r1, IRTemp op2addr)
{
IRTemp value = newTemp(Ity_D128);
vassert(s390_host_has_dfp);
assign(value, get_dpr_pair(r1));
s390_cc_thunk_put1d128Z(S390_CC_OP_DFP_TDG_128, value, op2addr);
return "tdgxt";
}
static const HChar *
s390_irgen_CLC(UChar length, IRTemp start1, IRTemp start2)
{
IRTemp len = newTemp(Ity_I64);
assign(len, mkU64(length));
s390_irgen_CLC_EX(len, start1, start2);
return "clc";
}
static const HChar *
s390_irgen_CLCL(UChar r1, UChar r2)
{
IRTemp addr1 = newTemp(Ity_I64);
IRTemp addr2 = newTemp(Ity_I64);
IRTemp addr1_load = newTemp(Ity_I64);
IRTemp addr2_load = newTemp(Ity_I64);
IRTemp len1 = newTemp(Ity_I32);
IRTemp len2 = newTemp(Ity_I32);
IRTemp r1p1 = newTemp(Ity_I32); /* contents of r1 + 1 */
IRTemp r2p1 = newTemp(Ity_I32); /* contents of r2 + 1 */
IRTemp single1 = newTemp(Ity_I8);
IRTemp single2 = newTemp(Ity_I8);
IRTemp pad = newTemp(Ity_I8);
assign(addr1, get_gpr_dw0(r1));
assign(r1p1, get_gpr_w1(r1 + 1));
assign(len1, binop(Iop_And32, mkexpr(r1p1), mkU32(0x00ffffff)));
assign(addr2, get_gpr_dw0(r2));
assign(r2p1, get_gpr_w1(r2 + 1));
assign(len2, binop(Iop_And32, mkexpr(r2p1), mkU32(0x00ffffff)));
assign(pad, get_gpr_b4(r2 + 1));
/* len1 == 0 and len2 == 0? Exit */
s390_cc_set(0);
next_insn_if(binop(Iop_CmpEQ32, binop(Iop_Or32, mkexpr(len1),
mkexpr(len2)), mkU32(0)));
/* Because mkite evaluates both the then-clause and the else-clause
we cannot load directly from addr1 here. If len1 is 0, then adddr1
may be NULL and loading from there would segfault. So we provide a
valid dummy address in that case. Loading from there does no harm and
the value will be discarded at runtime. */
assign(addr1_load,
mkite(binop(Iop_CmpEQ32, mkexpr(len1), mkU32(0)),
mkU64(guest_IA_curr_instr), mkexpr(addr1)));
assign(single1,
mkite(binop(Iop_CmpEQ32, mkexpr(len1), mkU32(0)),
mkexpr(pad), load(Ity_I8, mkexpr(addr1_load))));
assign(addr2_load,
mkite(binop(Iop_CmpEQ32, mkexpr(len2), mkU32(0)),
mkU64(guest_IA_curr_instr), mkexpr(addr2)));
assign(single2,
mkite(binop(Iop_CmpEQ32, mkexpr(len2), mkU32(0)),
mkexpr(pad), load(Ity_I8, mkexpr(addr2_load))));
s390_cc_thunk_put2(S390_CC_OP_UNSIGNED_COMPARE, single1, single2, False);
/* Fields differ ? */
next_insn_if(binop(Iop_CmpNE8, mkexpr(single1), mkexpr(single2)));
/* Update len1 and addr1, unless len1 == 0. */
put_gpr_dw0(r1,
mkite(binop(Iop_CmpEQ32, mkexpr(len1), mkU32(0)),
mkexpr(addr1),
binop(Iop_Add64, mkexpr(addr1), mkU64(1))));
/* When updating len1 we must not modify bits (r1+1)[0:39] */
put_gpr_w1(r1 + 1,
mkite(binop(Iop_CmpEQ32, mkexpr(len1), mkU32(0)),
binop(Iop_And32, mkexpr(r1p1), mkU32(0xFF000000u)),
binop(Iop_Sub32, mkexpr(r1p1), mkU32(1))));
/* Update len2 and addr2, unless len2 == 0. */
put_gpr_dw0(r2,
mkite(binop(Iop_CmpEQ32, mkexpr(len2), mkU32(0)),
mkexpr(addr2),
binop(Iop_Add64, mkexpr(addr2), mkU64(1))));
/* When updating len2 we must not modify bits (r2+1)[0:39] */
put_gpr_w1(r2 + 1,
mkite(binop(Iop_CmpEQ32, mkexpr(len2), mkU32(0)),
binop(Iop_And32, mkexpr(r2p1), mkU32(0xFF000000u)),
binop(Iop_Sub32, mkexpr(r2p1), mkU32(1))));
iterate();
return "clcl";
}
static const HChar *
s390_irgen_CLCLE(UChar r1, UChar r3, IRTemp pad2)
{
IRTemp addr1, addr3, addr1_load, addr3_load, len1, len3, single1, single3;
addr1 = newTemp(Ity_I64);
addr3 = newTemp(Ity_I64);
addr1_load = newTemp(Ity_I64);
addr3_load = newTemp(Ity_I64);
len1 = newTemp(Ity_I64);
len3 = newTemp(Ity_I64);
single1 = newTemp(Ity_I8);
single3 = newTemp(Ity_I8);
assign(addr1, get_gpr_dw0(r1));
assign(len1, get_gpr_dw0(r1 + 1));
assign(addr3, get_gpr_dw0(r3));
assign(len3, get_gpr_dw0(r3 + 1));
/* len1 == 0 and len3 == 0? Exit */
s390_cc_set(0);
next_insn_if(binop(Iop_CmpEQ64,binop(Iop_Or64, mkexpr(len1),
mkexpr(len3)), mkU64(0)));
/* A mux requires both ways to be possible. This is a way to prevent clcle
from reading from addr1 if it should read from the pad. Since the pad
has no address, just read from the instruction, we discard that anyway */
assign(addr1_load,
mkite(binop(Iop_CmpEQ64, mkexpr(len1), mkU64(0)),
mkU64(guest_IA_curr_instr), mkexpr(addr1)));
/* same for addr3 */
assign(addr3_load,
mkite(binop(Iop_CmpEQ64, mkexpr(len3), mkU64(0)),
mkU64(guest_IA_curr_instr), mkexpr(addr3)));
assign(single1,
mkite(binop(Iop_CmpEQ64, mkexpr(len1), mkU64(0)),
unop(Iop_64to8, mkexpr(pad2)),
load(Ity_I8, mkexpr(addr1_load))));
assign(single3,
mkite(binop(Iop_CmpEQ64, mkexpr(len3), mkU64(0)),
unop(Iop_64to8, mkexpr(pad2)),
load(Ity_I8, mkexpr(addr3_load))));
s390_cc_thunk_put2(S390_CC_OP_UNSIGNED_COMPARE, single1, single3, False);
/* Both fields differ ? */
next_insn_if(binop(Iop_CmpNE8, mkexpr(single1), mkexpr(single3)));
/* If a length in 0 we must not change this length and the address */
put_gpr_dw0(r1,
mkite(binop(Iop_CmpEQ64, mkexpr(len1), mkU64(0)),
mkexpr(addr1),
binop(Iop_Add64, mkexpr(addr1), mkU64(1))));
put_gpr_dw0(r1 + 1,
mkite(binop(Iop_CmpEQ64, mkexpr(len1), mkU64(0)),
mkU64(0), binop(Iop_Sub64, mkexpr(len1), mkU64(1))));
put_gpr_dw0(r3,
mkite(binop(Iop_CmpEQ64, mkexpr(len3), mkU64(0)),
mkexpr(addr3),
binop(Iop_Add64, mkexpr(addr3), mkU64(1))));
put_gpr_dw0(r3 + 1,
mkite(binop(Iop_CmpEQ64, mkexpr(len3), mkU64(0)),
mkU64(0), binop(Iop_Sub64, mkexpr(len3), mkU64(1))));
iterate();
return "clcle";
}
static void
s390_irgen_XC_EX(IRTemp length, IRTemp start1, IRTemp start2)
{
s390_irgen_xonc(Iop_Xor8, length, start1, start2);
}
static void
s390_irgen_NC_EX(IRTemp length, IRTemp start1, IRTemp start2)
{
s390_irgen_xonc(Iop_And8, length, start1, start2);
}
static void
s390_irgen_OC_EX(IRTemp length, IRTemp start1, IRTemp start2)
{
s390_irgen_xonc(Iop_Or8, length, start1, start2);
}
static void
s390_irgen_CLC_EX(IRTemp length, IRTemp start1, IRTemp start2)
{
IRTemp current1 = newTemp(Ity_I8);
IRTemp current2 = newTemp(Ity_I8);
IRTemp counter = newTemp(Ity_I64);
assign(counter, get_counter_dw0());
put_counter_dw0(mkU64(0));
assign(current1, load(Ity_I8, binop(Iop_Add64, mkexpr(start1),
mkexpr(counter))));
assign(current2, load(Ity_I8, binop(Iop_Add64, mkexpr(start2),
mkexpr(counter))));
s390_cc_thunk_put2(S390_CC_OP_UNSIGNED_COMPARE, current1, current2,
False);
/* Both fields differ ? */
next_insn_if(binop(Iop_CmpNE8, mkexpr(current1), mkexpr(current2)));
/* Check for end of field */
put_counter_dw0(binop(Iop_Add64, mkexpr(counter), mkU64(1)));
iterate_if(binop(Iop_CmpNE64, mkexpr(counter), mkexpr(length)));
put_counter_dw0(mkU64(0));
}
static void
s390_irgen_MVC_EX(IRTemp length, IRTemp start1, IRTemp start2)
{
IRTemp counter = newTemp(Ity_I64);
assign(counter, get_counter_dw0());
store(binop(Iop_Add64, mkexpr(start1), mkexpr(counter)),
load(Ity_I8, binop(Iop_Add64, mkexpr(start2), mkexpr(counter))));
/* Check for end of field */
put_counter_dw0(binop(Iop_Add64, mkexpr(counter), mkU64(1)));
iterate_if(binop(Iop_CmpNE64, mkexpr(counter), mkexpr(length)));
put_counter_dw0(mkU64(0));
}
static void
s390_irgen_TR_EX(IRTemp length, IRTemp start1, IRTemp start2)
{
IRTemp op = newTemp(Ity_I8);
IRTemp op1 = newTemp(Ity_I8);
IRTemp result = newTemp(Ity_I64);
IRTemp counter = newTemp(Ity_I64);
assign(counter, get_counter_dw0());
assign(op, load(Ity_I8, binop(Iop_Add64, mkexpr(start1), mkexpr(counter))));
assign(result, binop(Iop_Add64, unop(Iop_8Uto64, mkexpr(op)), mkexpr(start2)));
assign(op1, load(Ity_I8, mkexpr(result)));
store(binop(Iop_Add64, mkexpr(start1), mkexpr(counter)), mkexpr(op1));
put_counter_dw0(binop(Iop_Add64, mkexpr(counter), mkU64(1)));
iterate_if(binop(Iop_CmpNE64, mkexpr(counter), mkexpr(length)));
put_counter_dw0(mkU64(0));
}
static void
s390_irgen_EX_SS(UChar r, IRTemp addr2,
void (*irgen)(IRTemp length, IRTemp start1, IRTemp start2),
UInt lensize)
{
struct SS {
unsigned int op : 8;
unsigned int l : 8;
unsigned int b1 : 4;
unsigned int d1 : 12;
unsigned int b2 : 4;
unsigned int d2 : 12;
};
union {
struct SS dec;
unsigned long bytes;
} ss;
IRTemp cond;
IRDirty *d;
IRTemp torun;
IRTemp start1 = newTemp(Ity_I64);
IRTemp start2 = newTemp(Ity_I64);
IRTemp len = newTemp(lensize == 64 ? Ity_I64 : Ity_I32);
cond = newTemp(Ity_I1);
torun = newTemp(Ity_I64);
assign(torun, load(Ity_I64, mkexpr(addr2)));
/* Start with a check that the saved code is still correct */
assign(cond, binop(Iop_CmpNE64, mkexpr(torun), mkU64(last_execute_target)));
/* If not, save the new value */
d = unsafeIRDirty_0_N (0, "s390x_dirtyhelper_EX", &s390x_dirtyhelper_EX,
mkIRExprVec_1(mkexpr(torun)));
d->guard = mkexpr(cond);
stmt(IRStmt_Dirty(d));
/* and restart */
stmt(IRStmt_Put(S390X_GUEST_OFFSET(guest_TISTART),
mkU64(guest_IA_curr_instr)));
stmt(IRStmt_Put(S390X_GUEST_OFFSET(guest_TILEN), mkU64(4)));
restart_if(mkexpr(cond));
ss.bytes = last_execute_target;
assign(start1, binop(Iop_Add64, mkU64(ss.dec.d1),
ss.dec.b1 != 0 ? get_gpr_dw0(ss.dec.b1) : mkU64(0)));
assign(start2, binop(Iop_Add64, mkU64(ss.dec.d2),
ss.dec.b2 != 0 ? get_gpr_dw0(ss.dec.b2) : mkU64(0)));
assign(len, unop(lensize == 64 ? Iop_8Uto64 : Iop_8Uto32, binop(Iop_Or8,
r != 0 ? get_gpr_b7(r): mkU8(0), mkU8(ss.dec.l))));
irgen(len, start1, start2);
last_execute_target = 0;
}
static const HChar *
s390_irgen_EX(UChar r1, IRTemp addr2)
{
switch(last_execute_target & 0xff00000000000000ULL) {
case 0:
{
/* no code information yet */
IRDirty *d;
/* so safe the code... */
d = unsafeIRDirty_0_N (0, "s390x_dirtyhelper_EX", &s390x_dirtyhelper_EX,
mkIRExprVec_1(load(Ity_I64, mkexpr(addr2))));
stmt(IRStmt_Dirty(d));
/* and restart */
stmt(IRStmt_Put(S390X_GUEST_OFFSET(guest_TISTART),
mkU64(guest_IA_curr_instr)));
stmt(IRStmt_Put(S390X_GUEST_OFFSET(guest_TILEN), mkU64(4)));
restart_if(IRExpr_Const(IRConst_U1(True)));
/* we know that this will be invalidated */
put_IA(mkaddr_expr(guest_IA_next_instr));
dis_res->whatNext = Dis_StopHere;
dis_res->jk_StopHere = Ijk_TInval;
break;
}
case 0xd200000000000000ULL:
/* special case MVC */
s390_irgen_EX_SS(r1, addr2, s390_irgen_MVC_EX, 64);
return "ex@mvc";
case 0xd500000000000000ULL:
/* special case CLC */
s390_irgen_EX_SS(r1, addr2, s390_irgen_CLC_EX, 64);
return "ex@clc";
case 0xd700000000000000ULL:
/* special case XC */
s390_irgen_EX_SS(r1, addr2, s390_irgen_XC_EX, 32);
return "ex@xc";
case 0xd600000000000000ULL:
/* special case OC */
s390_irgen_EX_SS(r1, addr2, s390_irgen_OC_EX, 32);
return "ex@oc";
case 0xd400000000000000ULL:
/* special case NC */
s390_irgen_EX_SS(r1, addr2, s390_irgen_NC_EX, 32);
return "ex@nc";
case 0xdc00000000000000ULL:
/* special case TR */
s390_irgen_EX_SS(r1, addr2, s390_irgen_TR_EX, 64);
return "ex@tr";
default:
{
/* everything else will get a self checking prefix that also checks the
register content */
IRDirty *d;
UChar *bytes;
IRTemp cond;
IRTemp orperand;
IRTemp torun;
cond = newTemp(Ity_I1);
orperand = newTemp(Ity_I64);
torun = newTemp(Ity_I64);
if (r1 == 0)
assign(orperand, mkU64(0));
else
assign(orperand, unop(Iop_8Uto64,get_gpr_b7(r1)));
/* This code is going to be translated */
assign(torun, binop(Iop_Or64, load(Ity_I64, mkexpr(addr2)),
binop(Iop_Shl64, mkexpr(orperand), mkU8(48))));
/* Start with a check that saved code is still correct */
assign(cond, binop(Iop_CmpNE64, mkexpr(torun),
mkU64(last_execute_target)));
/* If not, save the new value */
d = unsafeIRDirty_0_N (0, "s390x_dirtyhelper_EX", &s390x_dirtyhelper_EX,
mkIRExprVec_1(mkexpr(torun)));
d->guard = mkexpr(cond);
stmt(IRStmt_Dirty(d));
/* and restart */
stmt(IRStmt_Put(S390X_GUEST_OFFSET(guest_TISTART), mkU64(guest_IA_curr_instr)));
stmt(IRStmt_Put(S390X_GUEST_OFFSET(guest_TILEN), mkU64(4)));
restart_if(mkexpr(cond));
/* Now comes the actual translation */
bytes = (UChar *) &last_execute_target;
s390_decode_and_irgen(bytes, ((((bytes[0] >> 6) + 1) >> 1) + 1) << 1,
dis_res);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
vex_printf(" which was executed by\n");
/* dont make useless translations in the next execute */
last_execute_target = 0;
}
}
return "ex";
}
static const HChar *
s390_irgen_EXRL(UChar r1, UInt offset)
{
IRTemp addr = newTemp(Ity_I64);
/* we might save one round trip because we know the target */
if (!last_execute_target)
last_execute_target = *(ULong *)(HWord)
(guest_IA_curr_instr + offset * 2UL);
assign(addr, mkU64(guest_IA_curr_instr + offset * 2UL));
s390_irgen_EX(r1, addr);
return "exrl";
}
static const HChar *
s390_irgen_IPM(UChar r1)
{
// As long as we dont support SPM, lets just assume 0 as program mask
put_gpr_b4(r1, unop(Iop_32to8, binop(Iop_Or32, mkU32(0 /* program mask */),
binop(Iop_Shl32, s390_call_calculate_cc(), mkU8(4)))));
return "ipm";
}
static const HChar *
s390_irgen_SRST(UChar r1, UChar r2)
{
IRTemp address = newTemp(Ity_I64);
IRTemp next = newTemp(Ity_I64);
IRTemp delim = newTemp(Ity_I8);
IRTemp counter = newTemp(Ity_I64);
IRTemp byte = newTemp(Ity_I8);
assign(address, get_gpr_dw0(r2));
assign(next, get_gpr_dw0(r1));
assign(counter, get_counter_dw0());
put_counter_dw0(mkU64(0));
// start = next? CC=2 and out r1 and r2 unchanged
s390_cc_set(2);
put_gpr_dw0(r2, binop(Iop_Sub64, mkexpr(address), mkexpr(counter)));
next_insn_if(binop(Iop_CmpEQ64, mkexpr(address), mkexpr(next)));
assign(byte, load(Ity_I8, mkexpr(address)));
assign(delim, get_gpr_b7(0));
// byte = delim? CC=1, R1=address
s390_cc_set(1);
put_gpr_dw0(r1, mkexpr(address));
next_insn_if(binop(Iop_CmpEQ8, mkexpr(delim), mkexpr(byte)));
// else: all equal, no end yet, loop
put_counter_dw0(binop(Iop_Add64, mkexpr(counter), mkU64(1)));
put_gpr_dw0(r1, mkexpr(next));
put_gpr_dw0(r2, binop(Iop_Add64, mkexpr(address), mkU64(1)));
iterate();
return "srst";
}
static const HChar *
s390_irgen_CLST(UChar r1, UChar r2)
{
IRTemp address1 = newTemp(Ity_I64);
IRTemp address2 = newTemp(Ity_I64);
IRTemp end = newTemp(Ity_I8);
IRTemp counter = newTemp(Ity_I64);
IRTemp byte1 = newTemp(Ity_I8);
IRTemp byte2 = newTemp(Ity_I8);
assign(address1, get_gpr_dw0(r1));
assign(address2, get_gpr_dw0(r2));
assign(end, get_gpr_b7(0));
assign(counter, get_counter_dw0());
put_counter_dw0(mkU64(0));
assign(byte1, load(Ity_I8, mkexpr(address1)));
assign(byte2, load(Ity_I8, mkexpr(address2)));
// end in both? all equal, reset r1 and r2 to start values
s390_cc_set(0);
put_gpr_dw0(r1, binop(Iop_Sub64, mkexpr(address1), mkexpr(counter)));
put_gpr_dw0(r2, binop(Iop_Sub64, mkexpr(address2), mkexpr(counter)));
next_insn_if(binop(Iop_CmpEQ8, mkU8(0),
binop(Iop_Or8,
binop(Iop_Xor8, mkexpr(byte1), mkexpr(end)),
binop(Iop_Xor8, mkexpr(byte2), mkexpr(end)))));
put_gpr_dw0(r1, mkexpr(address1));
put_gpr_dw0(r2, mkexpr(address2));
// End found in string1
s390_cc_set(1);
next_insn_if(binop(Iop_CmpEQ8, mkexpr(end), mkexpr(byte1)));
// End found in string2
s390_cc_set(2);
next_insn_if(binop(Iop_CmpEQ8, mkexpr(end), mkexpr(byte2)));
// string1 < string2
s390_cc_set(1);
next_insn_if(binop(Iop_CmpLT32U, unop(Iop_8Uto32, mkexpr(byte1)),
unop(Iop_8Uto32, mkexpr(byte2))));
// string2 < string1
s390_cc_set(2);
next_insn_if(binop(Iop_CmpLT32U, unop(Iop_8Uto32, mkexpr(byte2)),
unop(Iop_8Uto32, mkexpr(byte1))));
// else: all equal, no end yet, loop
put_counter_dw0(binop(Iop_Add64, mkexpr(counter), mkU64(1)));
put_gpr_dw0(r1, binop(Iop_Add64, get_gpr_dw0(r1), mkU64(1)));
put_gpr_dw0(r2, binop(Iop_Add64, get_gpr_dw0(r2), mkU64(1)));
iterate();
return "clst";
}
static void
s390_irgen_load_multiple_32bit(UChar r1, UChar r3, IRTemp op2addr)
{
UChar reg;
IRTemp addr = newTemp(Ity_I64);
assign(addr, mkexpr(op2addr));
reg = r1;
do {
IRTemp old = addr;
reg %= 16;
put_gpr_w1(reg, load(Ity_I32, mkexpr(addr)));
addr = newTemp(Ity_I64);
assign(addr, binop(Iop_Add64, mkexpr(old), mkU64(4)));
reg++;
} while (reg != (r3 + 1));
}
static const HChar *
s390_irgen_LM(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_load_multiple_32bit(r1, r3, op2addr);
return "lm";
}
static const HChar *
s390_irgen_LMY(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_load_multiple_32bit(r1, r3, op2addr);
return "lmy";
}
static const HChar *
s390_irgen_LMH(UChar r1, UChar r3, IRTemp op2addr)
{
UChar reg;
IRTemp addr = newTemp(Ity_I64);
assign(addr, mkexpr(op2addr));
reg = r1;
do {
IRTemp old = addr;
reg %= 16;
put_gpr_w0(reg, load(Ity_I32, mkexpr(addr)));
addr = newTemp(Ity_I64);
assign(addr, binop(Iop_Add64, mkexpr(old), mkU64(4)));
reg++;
} while (reg != (r3 + 1));
return "lmh";
}
static const HChar *
s390_irgen_LMG(UChar r1, UChar r3, IRTemp op2addr)
{
UChar reg;
IRTemp addr = newTemp(Ity_I64);
assign(addr, mkexpr(op2addr));
reg = r1;
do {
IRTemp old = addr;
reg %= 16;
put_gpr_dw0(reg, load(Ity_I64, mkexpr(addr)));
addr = newTemp(Ity_I64);
assign(addr, binop(Iop_Add64, mkexpr(old), mkU64(8)));
reg++;
} while (reg != (r3 + 1));
return "lmg";
}
static void
s390_irgen_store_multiple_32bit(UChar r1, UChar r3, IRTemp op2addr)
{
UChar reg;
IRTemp addr = newTemp(Ity_I64);
assign(addr, mkexpr(op2addr));
reg = r1;
do {
IRTemp old = addr;
reg %= 16;
store(mkexpr(addr), get_gpr_w1(reg));
addr = newTemp(Ity_I64);
assign(addr, binop(Iop_Add64, mkexpr(old), mkU64(4)));
reg++;
} while( reg != (r3 + 1));
}
static const HChar *
s390_irgen_STM(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_store_multiple_32bit(r1, r3, op2addr);
return "stm";
}
static const HChar *
s390_irgen_STMY(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_store_multiple_32bit(r1, r3, op2addr);
return "stmy";
}
static const HChar *
s390_irgen_STMH(UChar r1, UChar r3, IRTemp op2addr)
{
UChar reg;
IRTemp addr = newTemp(Ity_I64);
assign(addr, mkexpr(op2addr));
reg = r1;
do {
IRTemp old = addr;
reg %= 16;
store(mkexpr(addr), get_gpr_w0(reg));
addr = newTemp(Ity_I64);
assign(addr, binop(Iop_Add64, mkexpr(old), mkU64(4)));
reg++;
} while( reg != (r3 + 1));
return "stmh";
}
static const HChar *
s390_irgen_STMG(UChar r1, UChar r3, IRTemp op2addr)
{
UChar reg;
IRTemp addr = newTemp(Ity_I64);
assign(addr, mkexpr(op2addr));
reg = r1;
do {
IRTemp old = addr;
reg %= 16;
store(mkexpr(addr), get_gpr_dw0(reg));
addr = newTemp(Ity_I64);
assign(addr, binop(Iop_Add64, mkexpr(old), mkU64(8)));
reg++;
} while( reg != (r3 + 1));
return "stmg";
}
static void
s390_irgen_xonc(IROp op, IRTemp length, IRTemp start1, IRTemp start2)
{
IRTemp old1 = newTemp(Ity_I8);
IRTemp old2 = newTemp(Ity_I8);
IRTemp new1 = newTemp(Ity_I8);
IRTemp counter = newTemp(Ity_I32);
IRTemp addr1 = newTemp(Ity_I64);
assign(counter, get_counter_w0());
assign(addr1, binop(Iop_Add64, mkexpr(start1),
unop(Iop_32Uto64, mkexpr(counter))));
assign(old1, load(Ity_I8, mkexpr(addr1)));
assign(old2, load(Ity_I8, binop(Iop_Add64, mkexpr(start2),
unop(Iop_32Uto64,mkexpr(counter)))));
assign(new1, binop(op, mkexpr(old1), mkexpr(old2)));
/* Special case: xc is used to zero memory */
if (op == Iop_Xor8) {
store(mkexpr(addr1),
mkite(binop(Iop_CmpEQ64, mkexpr(start1), mkexpr(start2)),
mkU8(0), mkexpr(new1)));
} else
store(mkexpr(addr1), mkexpr(new1));
put_counter_w1(binop(Iop_Or32, unop(Iop_8Uto32, mkexpr(new1)),
get_counter_w1()));
/* Check for end of field */
put_counter_w0(binop(Iop_Add32, mkexpr(counter), mkU32(1)));
iterate_if(binop(Iop_CmpNE32, mkexpr(counter), mkexpr(length)));
s390_cc_thunk_put1(S390_CC_OP_BITWISE, mktemp(Ity_I32, get_counter_w1()),
False);
put_counter_dw0(mkU64(0));
}
static const HChar *
s390_irgen_XC(UChar length, IRTemp start1, IRTemp start2)
{
IRTemp len = newTemp(Ity_I32);
assign(len, mkU32(length));
s390_irgen_xonc(Iop_Xor8, len, start1, start2);
return "xc";
}
static void
s390_irgen_XC_sameloc(UChar length, UChar b, UShort d)
{
IRTemp counter = newTemp(Ity_I32);
IRTemp start = newTemp(Ity_I64);
IRTemp addr = newTemp(Ity_I64);
assign(start,
binop(Iop_Add64, mkU64(d), b != 0 ? get_gpr_dw0(b) : mkU64(0)));
if (length < 8) {
UInt i;
for (i = 0; i <= length; ++i) {
store(binop(Iop_Add64, mkexpr(start), mkU64(i)), mkU8(0));
}
} else {
assign(counter, get_counter_w0());
assign(addr, binop(Iop_Add64, mkexpr(start),
unop(Iop_32Uto64, mkexpr(counter))));
store(mkexpr(addr), mkU8(0));
/* Check for end of field */
put_counter_w0(binop(Iop_Add32, mkexpr(counter), mkU32(1)));
iterate_if(binop(Iop_CmpNE32, mkexpr(counter), mkU32(length)));
/* Reset counter */
put_counter_dw0(mkU64(0));
}
s390_cc_thunk_put1(S390_CC_OP_BITWISE, mktemp(Ity_I32, mkU32(0)), False);
if (UNLIKELY(vex_traceflags & VEX_TRACE_FE))
s390_disasm(ENC3(MNM, UDLB, UDXB), "xc", d, length, b, d, 0, b);
}
static const HChar *
s390_irgen_NC(UChar length, IRTemp start1, IRTemp start2)
{
IRTemp len = newTemp(Ity_I32);
assign(len, mkU32(length));
s390_irgen_xonc(Iop_And8, len, start1, start2);
return "nc";
}
static const HChar *
s390_irgen_OC(UChar length, IRTemp start1, IRTemp start2)
{
IRTemp len = newTemp(Ity_I32);
assign(len, mkU32(length));
s390_irgen_xonc(Iop_Or8, len, start1, start2);
return "oc";
}
static const HChar *
s390_irgen_MVC(UChar length, IRTemp start1, IRTemp start2)
{
IRTemp len = newTemp(Ity_I64);
assign(len, mkU64(length));
s390_irgen_MVC_EX(len, start1, start2);
return "mvc";
}
static const HChar *
s390_irgen_MVCL(UChar r1, UChar r2)
{
IRTemp addr1 = newTemp(Ity_I64);
IRTemp addr2 = newTemp(Ity_I64);
IRTemp addr2_load = newTemp(Ity_I64);
IRTemp r1p1 = newTemp(Ity_I32); /* contents of r1 + 1 */
IRTemp r2p1 = newTemp(Ity_I32); /* contents of r2 + 1 */
IRTemp len1 = newTemp(Ity_I32);
IRTemp len2 = newTemp(Ity_I32);
IRTemp pad = newTemp(Ity_I8);
IRTemp single = newTemp(Ity_I8);
assign(addr1, get_gpr_dw0(r1));
assign(r1p1, get_gpr_w1(r1 + 1));
assign(len1, binop(Iop_And32, mkexpr(r1p1), mkU32(0x00ffffff)));
assign(addr2, get_gpr_dw0(r2));
assign(r2p1, get_gpr_w1(r2 + 1));
assign(len2, binop(Iop_And32, mkexpr(r2p1), mkU32(0x00ffffff)));
assign(pad, get_gpr_b4(r2 + 1));
/* len1 == 0 ? */
s390_cc_thunk_put2(S390_CC_OP_UNSIGNED_COMPARE, len1, len2, False);
next_insn_if(binop(Iop_CmpEQ32, mkexpr(len1), mkU32(0)));
/* Check for destructive overlap:
addr1 > addr2 && addr2 + len1 > addr1 && (addr2 + len2) > addr1 */
s390_cc_set(3);
IRTemp cond1 = newTemp(Ity_I32);
assign(cond1, unop(Iop_1Uto32,
binop(Iop_CmpLT64U, mkexpr(addr2), mkexpr(addr1))));
IRTemp cond2 = newTemp(Ity_I32);
assign(cond2, unop(Iop_1Uto32,
binop(Iop_CmpLT64U, mkexpr(addr1),
binop(Iop_Add64, mkexpr(addr2),
unop(Iop_32Uto64, mkexpr(len1))))));
IRTemp cond3 = newTemp(Ity_I32);
assign(cond3, unop(Iop_1Uto32,
binop(Iop_CmpLT64U,
mkexpr(addr1),
binop(Iop_Add64, mkexpr(addr2),
unop(Iop_32Uto64, mkexpr(len2))))));
next_insn_if(binop(Iop_CmpEQ32,
binop(Iop_And32,
binop(Iop_And32, mkexpr(cond1), mkexpr(cond2)),
mkexpr(cond3)),
mkU32(1)));
/* See s390_irgen_CLCL for explanation why we cannot load directly
and need two steps. */
assign(addr2_load,
mkite(binop(Iop_CmpEQ32, mkexpr(len2), mkU32(0)),
mkU64(guest_IA_curr_instr), mkexpr(addr2)));
assign(single,
mkite(binop(Iop_CmpEQ32, mkexpr(len2), mkU32(0)),
mkexpr(pad), load(Ity_I8, mkexpr(addr2_load))));
store(mkexpr(addr1), mkexpr(single));
/* Update addr1 and len1 */
put_gpr_dw0(r1, binop(Iop_Add64, mkexpr(addr1), mkU64(1)));
put_gpr_w1(r1 + 1, binop(Iop_Sub32, mkexpr(r1p1), mkU32(1)));
/* Update addr2 and len2 */
put_gpr_dw0(r2,
mkite(binop(Iop_CmpEQ32, mkexpr(len2), mkU32(0)),
mkexpr(addr2),
binop(Iop_Add64, mkexpr(addr2), mkU64(1))));
/* When updating len2 we must not modify bits (r2+1)[0:39] */
put_gpr_w1(r2 + 1,
mkite(binop(Iop_CmpEQ32, mkexpr(len2), mkU32(0)),
binop(Iop_And32, mkexpr(r2p1), mkU32(0xFF000000u)),
binop(Iop_Sub32, mkexpr(r2p1), mkU32(1))));
s390_cc_thunk_put2(S390_CC_OP_UNSIGNED_COMPARE, len1, len2, False);
iterate_if(binop(Iop_CmpNE32, mkexpr(len1), mkU32(1)));
return "mvcl";
}
static const HChar *
s390_irgen_MVCLE(UChar r1, UChar r3, IRTemp pad2)
{
IRTemp addr1, addr3, addr3_load, len1, len3, single;
addr1 = newTemp(Ity_I64);
addr3 = newTemp(Ity_I64);
addr3_load = newTemp(Ity_I64);
len1 = newTemp(Ity_I64);
len3 = newTemp(Ity_I64);
single = newTemp(Ity_I8);
assign(addr1, get_gpr_dw0(r1));
assign(len1, get_gpr_dw0(r1 + 1));
assign(addr3, get_gpr_dw0(r3));
assign(len3, get_gpr_dw0(r3 + 1));
// len1 == 0 ?
s390_cc_thunk_put2(S390_CC_OP_UNSIGNED_COMPARE, len1, len3, False);
next_insn_if(binop(Iop_CmpEQ64,mkexpr(len1), mkU64(0)));
/* This is a hack to prevent mvcle from reading from addr3 if it
should read from the pad. Since the pad has no address, just
read from the instruction, we discard that anyway */
assign(addr3_load,
mkite(binop(Iop_CmpEQ64, mkexpr(len3), mkU64(0)),
mkU64(guest_IA_curr_instr), mkexpr(addr3)));
assign(single,
mkite(binop(Iop_CmpEQ64, mkexpr(len3), mkU64(0)),
unop(Iop_64to8, mkexpr(pad2)),
load(Ity_I8, mkexpr(addr3_load))));
store(mkexpr(addr1), mkexpr(single));
put_gpr_dw0(r1, binop(Iop_Add64, mkexpr(addr1), mkU64(1)));
put_gpr_dw0(r1 + 1, binop(Iop_Sub64, mkexpr(len1), mkU64(1)));
put_gpr_dw0(r3,
mkite(binop(Iop_CmpEQ64, mkexpr(len3), mkU64(0)),
mkexpr(addr3),
binop(Iop_Add64, mkexpr(addr3), mkU64(1))));
put_gpr_dw0(r3 + 1,
mkite(binop(Iop_CmpEQ64, mkexpr(len3), mkU64(0)),
mkU64(0), binop(Iop_Sub64, mkexpr(len3), mkU64(1))));
s390_cc_thunk_put2(S390_CC_OP_UNSIGNED_COMPARE, len1, len3, False);
iterate_if(binop(Iop_CmpNE64, mkexpr(len1), mkU64(1)));
return "mvcle";
}
static const HChar *
s390_irgen_MVST(UChar r1, UChar r2)
{
IRTemp addr1 = newTemp(Ity_I64);
IRTemp addr2 = newTemp(Ity_I64);
IRTemp end = newTemp(Ity_I8);
IRTemp byte = newTemp(Ity_I8);
IRTemp counter = newTemp(Ity_I64);
assign(addr1, get_gpr_dw0(r1));
assign(addr2, get_gpr_dw0(r2));
assign(counter, get_counter_dw0());
assign(end, get_gpr_b7(0));
assign(byte, load(Ity_I8, binop(Iop_Add64, mkexpr(addr2),mkexpr(counter))));
store(binop(Iop_Add64,mkexpr(addr1),mkexpr(counter)), mkexpr(byte));
// We use unlimited as cpu-determined number
put_counter_dw0(binop(Iop_Add64, mkexpr(counter), mkU64(1)));
iterate_if(binop(Iop_CmpNE8, mkexpr(end), mkexpr(byte)));
// and always set cc=1 at the end + update r1
s390_cc_set(1);
put_gpr_dw0(r1, binop(Iop_Add64, mkexpr(addr1), mkexpr(counter)));
put_counter_dw0(mkU64(0));
return "mvst";
}
static void
s390_irgen_divide_64to32(IROp op, UChar r1, IRTemp op2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
assign(op1, binop(Iop_32HLto64,
get_gpr_w1(r1), // high 32 bits
get_gpr_w1(r1 + 1))); // low 32 bits
assign(result, binop(op, mkexpr(op1), mkexpr(op2)));
put_gpr_w1(r1, unop(Iop_64HIto32, mkexpr(result))); // remainder
put_gpr_w1(r1 + 1, unop(Iop_64to32, mkexpr(result))); // quotient
}
static void
s390_irgen_divide_128to64(IROp op, UChar r1, IRTemp op2)
{
IRTemp op1 = newTemp(Ity_I128);
IRTemp result = newTemp(Ity_I128);
assign(op1, binop(Iop_64HLto128,
get_gpr_dw0(r1), // high 64 bits
get_gpr_dw0(r1 + 1))); // low 64 bits
assign(result, binop(op, mkexpr(op1), mkexpr(op2)));
put_gpr_dw0(r1, unop(Iop_128HIto64, mkexpr(result))); // remainder
put_gpr_dw0(r1 + 1, unop(Iop_128to64, mkexpr(result))); // quotient
}
static void
s390_irgen_divide_64to64(IROp op, UChar r1, IRTemp op2)
{
IRTemp op1 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I128);
assign(op1, get_gpr_dw0(r1 + 1));
assign(result, binop(op, mkexpr(op1), mkexpr(op2)));
put_gpr_dw0(r1, unop(Iop_128HIto64, mkexpr(result))); // remainder
put_gpr_dw0(r1 + 1, unop(Iop_128to64, mkexpr(result))); // quotient
}
static const HChar *
s390_irgen_DR(UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
s390_irgen_divide_64to32(Iop_DivModS64to32, r1, op2);
return "dr";
}
static const HChar *
s390_irgen_D(UChar r1, IRTemp op2addr)
{
IRTemp op2 = newTemp(Ity_I32);
assign(op2, load(Ity_I32, mkexpr(op2addr)));
s390_irgen_divide_64to32(Iop_DivModS64to32, r1, op2);
return "d";
}
static const HChar *
s390_irgen_DLR(UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
s390_irgen_divide_64to32(Iop_DivModU64to32, r1, op2);
return "dlr";
}
static const HChar *
s390_irgen_DL(UChar r1, IRTemp op2addr)
{
IRTemp op2 = newTemp(Ity_I32);
assign(op2, load(Ity_I32, mkexpr(op2addr)));
s390_irgen_divide_64to32(Iop_DivModU64to32, r1, op2);
return "dl";
}
static const HChar *
s390_irgen_DLG(UChar r1, IRTemp op2addr)
{
IRTemp op2 = newTemp(Ity_I64);
assign(op2, load(Ity_I64, mkexpr(op2addr)));
s390_irgen_divide_128to64(Iop_DivModU128to64, r1, op2);
return "dlg";
}
static const HChar *
s390_irgen_DLGR(UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
s390_irgen_divide_128to64(Iop_DivModU128to64, r1, op2);
return "dlgr";
}
static const HChar *
s390_irgen_DSGR(UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
s390_irgen_divide_64to64(Iop_DivModS64to64, r1, op2);
return "dsgr";
}
static const HChar *
s390_irgen_DSG(UChar r1, IRTemp op2addr)
{
IRTemp op2 = newTemp(Ity_I64);
assign(op2, load(Ity_I64, mkexpr(op2addr)));
s390_irgen_divide_64to64(Iop_DivModS64to64, r1, op2);
return "dsg";
}
static const HChar *
s390_irgen_DSGFR(UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
assign(op2, unop(Iop_32Sto64, get_gpr_w1(r2)));
s390_irgen_divide_64to64(Iop_DivModS64to64, r1, op2);
return "dsgfr";
}
static const HChar *
s390_irgen_DSGF(UChar r1, IRTemp op2addr)
{
IRTemp op2 = newTemp(Ity_I64);
assign(op2, unop(Iop_32Sto64, load(Ity_I32, mkexpr(op2addr))));
s390_irgen_divide_64to64(Iop_DivModS64to64, r1, op2);
return "dsgf";
}
static void
s390_irgen_load_ar_multiple(UChar r1, UChar r3, IRTemp op2addr)
{
UChar reg;
IRTemp addr = newTemp(Ity_I64);
assign(addr, mkexpr(op2addr));
reg = r1;
do {
IRTemp old = addr;
reg %= 16;
put_ar_w0(reg, load(Ity_I32, mkexpr(addr)));
addr = newTemp(Ity_I64);
assign(addr, binop(Iop_Add64, mkexpr(old), mkU64(4)));
reg++;
} while (reg != (r3 + 1));
}
static const HChar *
s390_irgen_LAM(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_load_ar_multiple(r1, r3, op2addr);
return "lam";
}
static const HChar *
s390_irgen_LAMY(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_load_ar_multiple(r1, r3, op2addr);
return "lamy";
}
static void
s390_irgen_store_ar_multiple(UChar r1, UChar r3, IRTemp op2addr)
{
UChar reg;
IRTemp addr = newTemp(Ity_I64);
assign(addr, mkexpr(op2addr));
reg = r1;
do {
IRTemp old = addr;
reg %= 16;
store(mkexpr(addr), get_ar_w0(reg));
addr = newTemp(Ity_I64);
assign(addr, binop(Iop_Add64, mkexpr(old), mkU64(4)));
reg++;
} while (reg != (r3 + 1));
}
static const HChar *
s390_irgen_STAM(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_store_ar_multiple(r1, r3, op2addr);
return "stam";
}
static const HChar *
s390_irgen_STAMY(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_store_ar_multiple(r1, r3, op2addr);
return "stamy";
}
/* Implementation for 32-bit compare-and-swap */
static void
s390_irgen_cas_32(UChar r1, UChar r3, IRTemp op2addr)
{
IRCAS *cas;
IRTemp op1 = newTemp(Ity_I32);
IRTemp old_mem = newTemp(Ity_I32);
IRTemp op3 = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
IRTemp nequal = newTemp(Ity_I1);
assign(op1, get_gpr_w1(r1));
assign(op3, get_gpr_w1(r3));
/* The first and second operands are compared. If they are equal,
the third operand is stored at the second- operand location. */
cas = mkIRCAS(IRTemp_INVALID, old_mem,
Iend_BE, mkexpr(op2addr),
NULL, mkexpr(op1), /* expected value */
NULL, mkexpr(op3) /* new value */);
stmt(IRStmt_CAS(cas));
/* Set CC. Operands compared equal -> 0, else 1. */
assign(result, binop(Iop_Sub32, mkexpr(op1), mkexpr(old_mem)));
s390_cc_thunk_put1(S390_CC_OP_BITWISE, result, False);
/* If operands were equal (cc == 0) just store the old value op1 in r1.
Otherwise, store the old_value from memory in r1 and yield. */
assign(nequal, binop(Iop_CmpNE32, s390_call_calculate_cc(), mkU32(0)));
put_gpr_w1(r1, mkite(mkexpr(nequal), mkexpr(old_mem), mkexpr(op1)));
yield_if(mkexpr(nequal));
}
static const HChar *
s390_irgen_CS(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_cas_32(r1, r3, op2addr);
return "cs";
}
static const HChar *
s390_irgen_CSY(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_cas_32(r1, r3, op2addr);
return "csy";
}
static const HChar *
s390_irgen_CSG(UChar r1, UChar r3, IRTemp op2addr)
{
IRCAS *cas;
IRTemp op1 = newTemp(Ity_I64);
IRTemp old_mem = newTemp(Ity_I64);
IRTemp op3 = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
IRTemp nequal = newTemp(Ity_I1);
assign(op1, get_gpr_dw0(r1));
assign(op3, get_gpr_dw0(r3));
/* The first and second operands are compared. If they are equal,
the third operand is stored at the second- operand location. */
cas = mkIRCAS(IRTemp_INVALID, old_mem,
Iend_BE, mkexpr(op2addr),
NULL, mkexpr(op1), /* expected value */
NULL, mkexpr(op3) /* new value */);
stmt(IRStmt_CAS(cas));
/* Set CC. Operands compared equal -> 0, else 1. */
assign(result, binop(Iop_Sub64, mkexpr(op1), mkexpr(old_mem)));
s390_cc_thunk_put1(S390_CC_OP_BITWISE, result, False);
/* If operands were equal (cc == 0) just store the old value op1 in r1.
Otherwise, store the old_value from memory in r1 and yield. */
assign(nequal, binop(Iop_CmpNE32, s390_call_calculate_cc(), mkU32(0)));
put_gpr_dw0(r1, mkite(mkexpr(nequal), mkexpr(old_mem), mkexpr(op1)));
yield_if(mkexpr(nequal));
return "csg";
}
/* Implementation for 32-bit compare-double-and-swap */
static void
s390_irgen_cdas_32(UChar r1, UChar r3, IRTemp op2addr)
{
IRCAS *cas;
IRTemp op1_high = newTemp(Ity_I32);
IRTemp op1_low = newTemp(Ity_I32);
IRTemp old_mem_high = newTemp(Ity_I32);
IRTemp old_mem_low = newTemp(Ity_I32);
IRTemp op3_high = newTemp(Ity_I32);
IRTemp op3_low = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
IRTemp nequal = newTemp(Ity_I1);
assign(op1_high, get_gpr_w1(r1));
assign(op1_low, get_gpr_w1(r1+1));
assign(op3_high, get_gpr_w1(r3));
assign(op3_low, get_gpr_w1(r3+1));
/* The first and second operands are compared. If they are equal,
the third operand is stored at the second-operand location. */
cas = mkIRCAS(old_mem_high, old_mem_low,
Iend_BE, mkexpr(op2addr),
mkexpr(op1_high), mkexpr(op1_low), /* expected value */
mkexpr(op3_high), mkexpr(op3_low) /* new value */);
stmt(IRStmt_CAS(cas));
/* Set CC. Operands compared equal -> 0, else 1. */
assign(result, unop(Iop_1Uto32,
binop(Iop_CmpNE32,
binop(Iop_Or32,
binop(Iop_Xor32, mkexpr(op1_high), mkexpr(old_mem_high)),
binop(Iop_Xor32, mkexpr(op1_low), mkexpr(old_mem_low))),
mkU32(0))));
s390_cc_thunk_put1(S390_CC_OP_BITWISE, result, False);
/* If operands were equal (cc == 0) just store the old value op1 in r1.
Otherwise, store the old_value from memory in r1 and yield. */
assign(nequal, binop(Iop_CmpNE32, s390_call_calculate_cc(), mkU32(0)));
put_gpr_w1(r1, mkite(mkexpr(nequal), mkexpr(old_mem_high), mkexpr(op1_high)));
put_gpr_w1(r1+1, mkite(mkexpr(nequal), mkexpr(old_mem_low), mkexpr(op1_low)));
yield_if(mkexpr(nequal));
}
static const HChar *
s390_irgen_CDS(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_cdas_32(r1, r3, op2addr);
return "cds";
}
static const HChar *
s390_irgen_CDSY(UChar r1, UChar r3, IRTemp op2addr)
{
s390_irgen_cdas_32(r1, r3, op2addr);
return "cdsy";
}
static const HChar *
s390_irgen_CDSG(UChar r1, UChar r3, IRTemp op2addr)
{
IRCAS *cas;
IRTemp op1_high = newTemp(Ity_I64);
IRTemp op1_low = newTemp(Ity_I64);
IRTemp old_mem_high = newTemp(Ity_I64);
IRTemp old_mem_low = newTemp(Ity_I64);
IRTemp op3_high = newTemp(Ity_I64);
IRTemp op3_low = newTemp(Ity_I64);
IRTemp result = newTemp(Ity_I64);
IRTemp nequal = newTemp(Ity_I1);
assign(op1_high, get_gpr_dw0(r1));
assign(op1_low, get_gpr_dw0(r1+1));
assign(op3_high, get_gpr_dw0(r3));
assign(op3_low, get_gpr_dw0(r3+1));
/* The first and second operands are compared. If they are equal,
the third operand is stored at the second-operand location. */
cas = mkIRCAS(old_mem_high, old_mem_low,
Iend_BE, mkexpr(op2addr),
mkexpr(op1_high), mkexpr(op1_low), /* expected value */
mkexpr(op3_high), mkexpr(op3_low) /* new value */);
stmt(IRStmt_CAS(cas));
/* Set CC. Operands compared equal -> 0, else 1. */
assign(result, unop(Iop_1Uto64,
binop(Iop_CmpNE64,
binop(Iop_Or64,
binop(Iop_Xor64, mkexpr(op1_high), mkexpr(old_mem_high)),
binop(Iop_Xor64, mkexpr(op1_low), mkexpr(old_mem_low))),
mkU64(0))));
s390_cc_thunk_put1(S390_CC_OP_BITWISE, result, False);
/* If operands were equal (cc == 0) just store the old value op1 in r1.
Otherwise, store the old_value from memory in r1 and yield. */
assign(nequal, binop(Iop_CmpNE32, s390_call_calculate_cc(), mkU32(0)));
put_gpr_dw0(r1, mkite(mkexpr(nequal), mkexpr(old_mem_high), mkexpr(op1_high)));
put_gpr_dw0(r1+1, mkite(mkexpr(nequal), mkexpr(old_mem_low), mkexpr(op1_low)));
yield_if(mkexpr(nequal));
return "cdsg";
}
/* Binary floating point */
static const HChar *
s390_irgen_AXBR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_F128);
IRTemp op2 = newTemp(Ity_F128);
IRTemp result = newTemp(Ity_F128);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_pair(r1));
assign(op2, get_fpr_pair(r2));
assign(result, triop(Iop_AddF128, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_fpr_pair(r1, mkexpr(result));
s390_cc_thunk_put1f128(S390_CC_OP_BFP_RESULT_128, result);
return "axbr";
}
static const HChar *
s390_irgen_CEBR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_F32);
IRTemp op2 = newTemp(Ity_F32);
IRTemp cc_vex = newTemp(Ity_I32);
IRTemp cc_s390 = newTemp(Ity_I32);
assign(op1, get_fpr_w0(r1));
assign(op2, get_fpr_w0(r2));
assign(cc_vex, binop(Iop_CmpF32, mkexpr(op1), mkexpr(op2)));
assign(cc_s390, convert_vex_bfpcc_to_s390(cc_vex));
s390_cc_thunk_put1(S390_CC_OP_SET, cc_s390, False);
return "cebr";
}
static const HChar *
s390_irgen_CDBR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_F64);
IRTemp op2 = newTemp(Ity_F64);
IRTemp cc_vex = newTemp(Ity_I32);
IRTemp cc_s390 = newTemp(Ity_I32);
assign(op1, get_fpr_dw0(r1));
assign(op2, get_fpr_dw0(r2));
assign(cc_vex, binop(Iop_CmpF64, mkexpr(op1), mkexpr(op2)));
assign(cc_s390, convert_vex_bfpcc_to_s390(cc_vex));
s390_cc_thunk_put1(S390_CC_OP_SET, cc_s390, False);
return "cdbr";
}
static const HChar *
s390_irgen_CXBR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_F128);
IRTemp op2 = newTemp(Ity_F128);
IRTemp cc_vex = newTemp(Ity_I32);
IRTemp cc_s390 = newTemp(Ity_I32);
assign(op1, get_fpr_pair(r1));
assign(op2, get_fpr_pair(r2));
assign(cc_vex, binop(Iop_CmpF128, mkexpr(op1), mkexpr(op2)));
assign(cc_s390, convert_vex_bfpcc_to_s390(cc_vex));
s390_cc_thunk_put1(S390_CC_OP_SET, cc_s390, False);
return "cxbr";
}
static const HChar *
s390_irgen_CEB(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_F32);
IRTemp op2 = newTemp(Ity_F32);
IRTemp cc_vex = newTemp(Ity_I32);
IRTemp cc_s390 = newTemp(Ity_I32);
assign(op1, get_fpr_w0(r1));
assign(op2, load(Ity_F32, mkexpr(op2addr)));
assign(cc_vex, binop(Iop_CmpF32, mkexpr(op1), mkexpr(op2)));
assign(cc_s390, convert_vex_bfpcc_to_s390(cc_vex));
s390_cc_thunk_put1(S390_CC_OP_SET, cc_s390, False);
return "ceb";
}
static const HChar *
s390_irgen_CDB(UChar r1, IRTemp op2addr)
{
IRTemp op1 = newTemp(Ity_F64);
IRTemp op2 = newTemp(Ity_F64);
IRTemp cc_vex = newTemp(Ity_I32);
IRTemp cc_s390 = newTemp(Ity_I32);
assign(op1, get_fpr_dw0(r1));
assign(op2, load(Ity_F64, mkexpr(op2addr)));
assign(cc_vex, binop(Iop_CmpF64, mkexpr(op1), mkexpr(op2)));
assign(cc_s390, convert_vex_bfpcc_to_s390(cc_vex));
s390_cc_thunk_put1(S390_CC_OP_SET, cc_s390, False);
return "cdb";
}
static const HChar *
s390_irgen_CXFBR(UChar m3 __attribute__((unused)),
UChar m4 __attribute__((unused)), UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
put_fpr_pair(r1, unop(Iop_I32StoF128, mkexpr(op2)));
return "cxfbr";
}
static const HChar *
s390_irgen_CXLFBR(UChar m3 __attribute__((unused)),
UChar m4 __attribute__((unused)), UChar r1, UChar r2)
{
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op2 = newTemp(Ity_I32);
assign(op2, get_gpr_w1(r2));
put_fpr_pair(r1, unop(Iop_I32UtoF128, mkexpr(op2)));
}
return "cxlfbr";
}
static const HChar *
s390_irgen_CXGBR(UChar m3 __attribute__((unused)),
UChar m4 __attribute__((unused)), UChar r1, UChar r2)
{
IRTemp op2 = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
put_fpr_pair(r1, unop(Iop_I64StoF128, mkexpr(op2)));
return "cxgbr";
}
static const HChar *
s390_irgen_CXLGBR(UChar m3 __attribute__((unused)),
UChar m4 __attribute__((unused)), UChar r1, UChar r2)
{
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op2 = newTemp(Ity_I64);
assign(op2, get_gpr_dw0(r2));
put_fpr_pair(r1, unop(Iop_I64UtoF128, mkexpr(op2)));
}
return "cxlgbr";
}
static const HChar *
s390_irgen_CFXBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
IRTemp op = newTemp(Ity_F128);
IRTemp result = newTemp(Ity_I32);
IRTemp rounding_mode = encode_bfp_rounding_mode(m3);
assign(op, get_fpr_pair(r2));
assign(result, binop(Iop_F128toI32S, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_put1f128Z(S390_CC_OP_BFP_128_TO_INT_32, op, rounding_mode);
return "cfxbr";
}
static const HChar *
s390_irgen_CLFXBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op = newTemp(Ity_F128);
IRTemp result = newTemp(Ity_I32);
IRTemp rounding_mode = encode_bfp_rounding_mode(m3);
assign(op, get_fpr_pair(r2));
assign(result, binop(Iop_F128toI32U, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_w1(r1, mkexpr(result));
s390_cc_thunk_put1f128Z(S390_CC_OP_BFP_128_TO_UINT_32, op, rounding_mode);
}
return "clfxbr";
}
static const HChar *
s390_irgen_CGXBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
IRTemp op = newTemp(Ity_F128);
IRTemp result = newTemp(Ity_I64);
IRTemp rounding_mode = encode_bfp_rounding_mode(m3);
assign(op, get_fpr_pair(r2));
assign(result, binop(Iop_F128toI64S, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_dw0(r1, mkexpr(result));
s390_cc_thunk_put1f128Z(S390_CC_OP_BFP_128_TO_INT_64, op, rounding_mode);
return "cgxbr";
}
static const HChar *
s390_irgen_CLGXBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
if (! s390_host_has_fpext) {
emulation_failure(EmFail_S390X_fpext);
} else {
IRTemp op = newTemp(Ity_F128);
IRTemp result = newTemp(Ity_I64);
IRTemp rounding_mode = encode_bfp_rounding_mode(m3);
assign(op, get_fpr_pair(r2));
assign(result, binop(Iop_F128toI64U, mkexpr(rounding_mode),
mkexpr(op)));
put_gpr_dw0(r1, mkexpr(result));
s390_cc_thunk_put1f128Z(S390_CC_OP_BFP_128_TO_UINT_64, op,
rounding_mode);
}
return "clgxbr";
}
static const HChar *
s390_irgen_DXBR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_F128);
IRTemp op2 = newTemp(Ity_F128);
IRTemp result = newTemp(Ity_F128);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_pair(r1));
assign(op2, get_fpr_pair(r2));
assign(result, triop(Iop_DivF128, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_fpr_pair(r1, mkexpr(result));
return "dxbr";
}
static const HChar *
s390_irgen_LTXBR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F128);
assign(result, get_fpr_pair(r2));
put_fpr_pair(r1, mkexpr(result));
s390_cc_thunk_put1f128(S390_CC_OP_BFP_RESULT_128, result);
return "ltxbr";
}
static const HChar *
s390_irgen_LCXBR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F128);
assign(result, unop(Iop_NegF128, get_fpr_pair(r2)));
put_fpr_pair(r1, mkexpr(result));
s390_cc_thunk_put1f128(S390_CC_OP_BFP_RESULT_128, result);
return "lcxbr";
}
static const HChar *
s390_irgen_LXDBR(UChar r1, UChar r2)
{
IRTemp op = newTemp(Ity_F64);
assign(op, get_fpr_dw0(r2));
put_fpr_pair(r1, unop(Iop_F64toF128, mkexpr(op)));
return "lxdbr";
}
static const HChar *
s390_irgen_LXEBR(UChar r1, UChar r2)
{
IRTemp op = newTemp(Ity_F32);
assign(op, get_fpr_w0(r2));
put_fpr_pair(r1, unop(Iop_F32toF128, mkexpr(op)));
return "lxebr";
}
static const HChar *
s390_irgen_LXDB(UChar r1, IRTemp op2addr)
{
IRTemp op = newTemp(Ity_F64);
assign(op, load(Ity_F64, mkexpr(op2addr)));
put_fpr_pair(r1, unop(Iop_F64toF128, mkexpr(op)));
return "lxdb";
}
static const HChar *
s390_irgen_LXEB(UChar r1, IRTemp op2addr)
{
IRTemp op = newTemp(Ity_F32);
assign(op, load(Ity_F32, mkexpr(op2addr)));
put_fpr_pair(r1, unop(Iop_F32toF128, mkexpr(op)));
return "lxeb";
}
static const HChar *
s390_irgen_LNEBR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F32);
assign(result, unop(Iop_NegF32, unop(Iop_AbsF32, get_fpr_w0(r2))));
put_fpr_w0(r1, mkexpr(result));
s390_cc_thunk_put1f(S390_CC_OP_BFP_RESULT_32, result);
return "lnebr";
}
static const HChar *
s390_irgen_LNDBR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F64);
assign(result, unop(Iop_NegF64, unop(Iop_AbsF64, get_fpr_dw0(r2))));
put_fpr_dw0(r1, mkexpr(result));
s390_cc_thunk_put1f(S390_CC_OP_BFP_RESULT_64, result);
return "lndbr";
}
static const HChar *
s390_irgen_LNXBR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F128);
assign(result, unop(Iop_NegF128, unop(Iop_AbsF128, get_fpr_pair(r2))));
put_fpr_pair(r1, mkexpr(result));
s390_cc_thunk_put1f128(S390_CC_OP_BFP_RESULT_128, result);
return "lnxbr";
}
static const HChar *
s390_irgen_LPEBR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F32);
assign(result, unop(Iop_AbsF32, get_fpr_w0(r2)));
put_fpr_w0(r1, mkexpr(result));
s390_cc_thunk_put1f(S390_CC_OP_BFP_RESULT_32, result);
return "lpebr";
}
static const HChar *
s390_irgen_LPDBR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F64);
assign(result, unop(Iop_AbsF64, get_fpr_dw0(r2)));
put_fpr_dw0(r1, mkexpr(result));
s390_cc_thunk_put1f(S390_CC_OP_BFP_RESULT_64, result);
return "lpdbr";
}
static const HChar *
s390_irgen_LPXBR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F128);
assign(result, unop(Iop_AbsF128, get_fpr_pair(r2)));
put_fpr_pair(r1, mkexpr(result));
s390_cc_thunk_put1f128(S390_CC_OP_BFP_RESULT_128, result);
return "lpxbr";
}
static const HChar *
s390_irgen_LDXBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
if (! s390_host_has_fpext && m3 != S390_BFP_ROUND_PER_FPC) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m3 = S390_BFP_ROUND_PER_FPC;
}
IRTemp result = newTemp(Ity_F64);
assign(result, binop(Iop_F128toF64, mkexpr(encode_bfp_rounding_mode(m3)),
get_fpr_pair(r2)));
put_fpr_dw0(r1, mkexpr(result));
return "ldxbr";
}
static const HChar *
s390_irgen_LEXBR(UChar m3, UChar m4 __attribute__((unused)),
UChar r1, UChar r2)
{
if (! s390_host_has_fpext && m3 != S390_BFP_ROUND_PER_FPC) {
emulation_warning(EmWarn_S390X_fpext_rounding);
m3 = S390_BFP_ROUND_PER_FPC;
}
IRTemp result = newTemp(Ity_F32);
assign(result, binop(Iop_F128toF32, mkexpr(encode_bfp_rounding_mode(m3)),
get_fpr_pair(r2)));
put_fpr_w0(r1, mkexpr(result));
return "lexbr";
}
static const HChar *
s390_irgen_MXBR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_F128);
IRTemp op2 = newTemp(Ity_F128);
IRTemp result = newTemp(Ity_F128);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_pair(r1));
assign(op2, get_fpr_pair(r2));
assign(result, triop(Iop_MulF128, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_fpr_pair(r1, mkexpr(result));
return "mxbr";
}
static const HChar *
s390_irgen_MAEBR(UChar r1, UChar r3, UChar r2)
{
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
put_fpr_w0(r1, qop(Iop_MAddF32, mkexpr(rounding_mode),
get_fpr_w0(r3), get_fpr_w0(r2), get_fpr_w0(r1)));
return "maebr";
}
static const HChar *
s390_irgen_MADBR(UChar r1, UChar r3, UChar r2)
{
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
put_fpr_dw0(r1, qop(Iop_MAddF64, mkexpr(rounding_mode),
get_fpr_dw0(r3), get_fpr_dw0(r2), get_fpr_dw0(r1)));
return "madbr";
}
static const HChar *
s390_irgen_MAEB(UChar r3, IRTemp op2addr, UChar r1)
{
IRExpr *op2 = load(Ity_F32, mkexpr(op2addr));
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
put_fpr_w0(r1, qop(Iop_MAddF32, mkexpr(rounding_mode),
get_fpr_w0(r3), op2, get_fpr_w0(r1)));
return "maeb";
}
static const HChar *
s390_irgen_MADB(UChar r3, IRTemp op2addr, UChar r1)
{
IRExpr *op2 = load(Ity_F64, mkexpr(op2addr));
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
put_fpr_dw0(r1, qop(Iop_MAddF64, mkexpr(rounding_mode),
get_fpr_dw0(r3), op2, get_fpr_dw0(r1)));
return "madb";
}
static const HChar *
s390_irgen_MSEBR(UChar r1, UChar r3, UChar r2)
{
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
put_fpr_w0(r1, qop(Iop_MSubF32, mkexpr(rounding_mode),
get_fpr_w0(r3), get_fpr_w0(r2), get_fpr_w0(r1)));
return "msebr";
}
static const HChar *
s390_irgen_MSDBR(UChar r1, UChar r3, UChar r2)
{
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
put_fpr_dw0(r1, qop(Iop_MSubF64, mkexpr(rounding_mode),
get_fpr_dw0(r3), get_fpr_dw0(r2), get_fpr_dw0(r1)));
return "msdbr";
}
static const HChar *
s390_irgen_MSEB(UChar r3, IRTemp op2addr, UChar r1)
{
IRExpr *op2 = load(Ity_F32, mkexpr(op2addr));
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
put_fpr_w0(r1, qop(Iop_MSubF32, mkexpr(rounding_mode),
get_fpr_w0(r3), op2, get_fpr_w0(r1)));
return "mseb";
}
static const HChar *
s390_irgen_MSDB(UChar r3, IRTemp op2addr, UChar r1)
{
IRExpr *op2 = load(Ity_F64, mkexpr(op2addr));
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
put_fpr_dw0(r1, qop(Iop_MSubF64, mkexpr(rounding_mode),
get_fpr_dw0(r3), op2, get_fpr_dw0(r1)));
return "msdb";
}
static const HChar *
s390_irgen_SQEBR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F32);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(result, binop(Iop_SqrtF32, mkexpr(rounding_mode), get_fpr_w0(r2)));
put_fpr_w0(r1, mkexpr(result));
return "sqebr";
}
static const HChar *
s390_irgen_SQDBR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F64);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(result, binop(Iop_SqrtF64, mkexpr(rounding_mode), get_fpr_dw0(r2)));
put_fpr_dw0(r1, mkexpr(result));
return "sqdbr";
}
static const HChar *
s390_irgen_SQXBR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F128);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(result, binop(Iop_SqrtF128, mkexpr(rounding_mode),
get_fpr_pair(r2)));
put_fpr_pair(r1, mkexpr(result));
return "sqxbr";
}
static const HChar *
s390_irgen_SQEB(UChar r1, IRTemp op2addr)
{
IRTemp op = newTemp(Ity_F32);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op, load(Ity_F32, mkexpr(op2addr)));
put_fpr_w0(r1, binop(Iop_SqrtF32, mkexpr(rounding_mode), mkexpr(op)));
return "sqeb";
}
static const HChar *
s390_irgen_SQDB(UChar r1, IRTemp op2addr)
{
IRTemp op = newTemp(Ity_F64);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op, load(Ity_F64, mkexpr(op2addr)));
put_fpr_dw0(r1, binop(Iop_SqrtF64, mkexpr(rounding_mode), mkexpr(op)));
return "sqdb";
}
static const HChar *
s390_irgen_SXBR(UChar r1, UChar r2)
{
IRTemp op1 = newTemp(Ity_F128);
IRTemp op2 = newTemp(Ity_F128);
IRTemp result = newTemp(Ity_F128);
IRTemp rounding_mode = encode_bfp_rounding_mode(S390_BFP_ROUND_PER_FPC);
assign(op1, get_fpr_pair(r1));
assign(op2, get_fpr_pair(r2));
assign(result, triop(Iop_SubF128, mkexpr(rounding_mode), mkexpr(op1),
mkexpr(op2)));
put_fpr_pair(r1, mkexpr(result));
s390_cc_thunk_put1f128(S390_CC_OP_BFP_RESULT_128, result);
return "sxbr";
}
static const HChar *
s390_irgen_TCEB(UChar r1, IRTemp op2addr)
{
IRTemp value = newTemp(Ity_F32);
assign(value, get_fpr_w0(r1));
s390_cc_thunk_putFZ(S390_CC_OP_BFP_TDC_32, value, op2addr);
return "tceb";
}
static const HChar *
s390_irgen_TCDB(UChar r1, IRTemp op2addr)
{
IRTemp value = newTemp(Ity_F64);
assign(value, get_fpr_dw0(r1));
s390_cc_thunk_putFZ(S390_CC_OP_BFP_TDC_64, value, op2addr);
return "tcdb";
}
static const HChar *
s390_irgen_TCXB(UChar r1, IRTemp op2addr)
{
IRTemp value = newTemp(Ity_F128);
assign(value, get_fpr_pair(r1));
s390_cc_thunk_put1f128Z(S390_CC_OP_BFP_TDC_128, value, op2addr);
return "tcxb";
}
static const HChar *
s390_irgen_LCDFR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F64);
assign(result, unop(Iop_NegF64, get_fpr_dw0(r2)));
put_fpr_dw0(r1, mkexpr(result));
return "lcdfr";
}
static const HChar *
s390_irgen_LNDFR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F64);
assign(result, unop(Iop_NegF64, unop(Iop_AbsF64, get_fpr_dw0(r2))));
put_fpr_dw0(r1, mkexpr(result));
return "lndfr";
}
static const HChar *
s390_irgen_LPDFR(UChar r1, UChar r2)
{
IRTemp result = newTemp(Ity_F64);
assign(result, unop(Iop_AbsF64, get_fpr_dw0(r2)));
put_fpr_dw0(r1, mkexpr(result));
return "lpdfr";
}
static const HChar *
s390_irgen_LDGR(UChar r1, UChar r2)
{
put_fpr_dw0(r1, unop(Iop_ReinterpI64asF64, get_gpr_dw0(r2)));
return "ldgr";
}
static const HChar *
s390_irgen_LGDR(UChar r1, UChar r2)
{
put_gpr_dw0(r1, unop(Iop_ReinterpF64asI64, get_fpr_dw0(r2)));
return "lgdr";
}
static const HChar *
s390_irgen_CPSDR(UChar r3, UChar r1, UChar r2)
{
IRTemp sign = newTemp(Ity_I64);
IRTemp value = newTemp(Ity_I64);
assign(sign, binop(Iop_And64, unop(Iop_ReinterpF64asI64, get_fpr_dw0(r3)),
mkU64(1ULL << 63)));
assign(value, binop(Iop_And64, unop(Iop_ReinterpF64asI64, get_fpr_dw0(r2)),
mkU64((1ULL << 63) - 1)));
put_fpr_dw0(r1, unop(Iop_ReinterpI64asF64, binop(Iop_Or64, mkexpr(value),
mkexpr(sign))));
return "cpsdr";
}
static IRExpr *
s390_call_cvb(IRExpr *in)
{
IRExpr **args, *call;
args = mkIRExprVec_1(in);
call = mkIRExprCCall(Ity_I32, 0 /*regparm*/,
"s390_do_cvb", &s390_do_cvb, args);
/* Nothing is excluded from definedness checking. */
call->Iex.CCall.cee->mcx_mask = 0;
return call;
}
static const HChar *
s390_irgen_CVB(UChar r1, IRTemp op2addr)
{
put_gpr_w1(r1, s390_call_cvb(load(Ity_I64, mkexpr(op2addr))));
return "cvb";
}
static const HChar *
s390_irgen_CVBY(UChar r1, IRTemp op2addr)
{
put_gpr_w1(r1, s390_call_cvb(load(Ity_I64, mkexpr(op2addr))));
return "cvby";
}
static IRExpr *
s390_call_cvd(IRExpr *in)
{
IRExpr **args, *call;
args = mkIRExprVec_1(in);
call = mkIRExprCCall(Ity_I64, 0 /*regparm*/,
"s390_do_cvd", &s390_do_cvd, args);
/* Nothing is excluded from definedness checking. */
call->Iex.CCall.cee->mcx_mask = 0;
return call;
}
static const HChar *
s390_irgen_CVD(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), s390_call_cvd(unop(Iop_32Uto64, get_gpr_w1(r1))));
return "cvd";
}
static const HChar *
s390_irgen_CVDY(UChar r1, IRTemp op2addr)
{
store(mkexpr(op2addr), s390_call_cvd(get_gpr_w1(r1)));
return "cvdy";
}
static const HChar *
s390_irgen_FLOGR(UChar r1, UChar r2)
{
IRTemp input = newTemp(Ity_I64);
IRTemp not_zero = newTemp(Ity_I64);
IRTemp tmpnum = newTemp(Ity_I64);
IRTemp num = newTemp(Ity_I64);
IRTemp shift_amount = newTemp(Ity_I8);
/* We use the "count leading zeroes" operator because the number of
leading zeroes is identical with the bit position of the first '1' bit.
However, that operator does not work when the input value is zero.
Therefore, we set the LSB of the input value to 1 and use Clz64 on
the modified value. If input == 0, then the result is 64. Otherwise,
the result of Clz64 is what we want. */
assign(input, get_gpr_dw0(r2));
assign(not_zero, binop(Iop_Or64, mkexpr(input), mkU64(1)));
assign(tmpnum, unop(Iop_Clz64, mkexpr(not_zero)));
/* num = (input == 0) ? 64 : tmpnum */
assign(num, mkite(binop(Iop_CmpEQ64, mkexpr(input), mkU64(0)),
/* == 0 */ mkU64(64),
/* != 0 */ mkexpr(tmpnum)));
put_gpr_dw0(r1, mkexpr(num));
/* Set the leftmost '1' bit of the input value to zero. The general scheme
is to first shift the input value by NUM + 1 bits to the left which
causes the leftmost '1' bit to disappear. Then we shift logically to
the right by NUM + 1 bits. Because the semantics of Iop_Shl64 and
Iop_Shr64 are undefined if the shift-amount is greater than or equal to
the width of the value-to-be-shifted, we need to special case
NUM + 1 >= 64. This is equivalent to INPUT != 0 && INPUT != 1.
For both such INPUT values the result will be 0. */
assign(shift_amount, unop(Iop_64to8, binop(Iop_Add64, mkexpr(num),
mkU64(1))));
put_gpr_dw0(r1 + 1,
mkite(binop(Iop_CmpLE64U, mkexpr(input), mkU64(1)),
/* == 0 || == 1*/ mkU64(0),
/* otherwise */
binop(Iop_Shr64,
binop(Iop_Shl64, mkexpr(input),
mkexpr(shift_amount)),
mkexpr(shift_amount))));
/* Compare the original value as an unsigned integer with 0. */
s390_cc_thunk_put2(S390_CC_OP_UNSIGNED_COMPARE, input,
mktemp(Ity_I64, mkU64(0)), False);
return "flogr";
}
static const HChar *
s390_irgen_STCK(IRTemp op2addr)
{
IRDirty *d;
IRTemp cc = newTemp(Ity_I64);
d = unsafeIRDirty_1_N(cc, 0, "s390x_dirtyhelper_STCK",
&s390x_dirtyhelper_STCK,
mkIRExprVec_1(mkexpr(op2addr)));
d->mFx = Ifx_Write;
d->mAddr = mkexpr(op2addr);
d->mSize = 8;
stmt(IRStmt_Dirty(d));
s390_cc_thunk_fill(mkU64(S390_CC_OP_SET),
mkexpr(cc), mkU64(0), mkU64(0));
return "stck";
}
static const HChar *
s390_irgen_STCKF(IRTemp op2addr)
{
if (! s390_host_has_stckf) {
emulation_failure(EmFail_S390X_stckf);
} else {
IRTemp cc = newTemp(Ity_I64);
IRDirty *d = unsafeIRDirty_1_N(cc, 0, "s390x_dirtyhelper_STCKF",
&s390x_dirtyhelper_STCKF,
mkIRExprVec_1(mkexpr(op2addr)));
d->mFx = Ifx_Write;
d->mAddr = mkexpr(op2addr);
d->mSize = 8;
stmt(IRStmt_Dirty(d));
s390_cc_thunk_fill(mkU64(S390_CC_OP_SET),
mkexpr(cc), mkU64(0), mkU64(0));
}
return "stckf";
}
static const HChar *
s390_irgen_STCKE(IRTemp op2addr)
{
IRDirty *d;
IRTemp cc = newTemp(Ity_I64);
d = unsafeIRDirty_1_N(cc, 0, "s390x_dirtyhelper_STCKE",
&s390x_dirtyhelper_STCKE,
mkIRExprVec_1(mkexpr(op2addr)));
d->mFx = Ifx_Write;
d->mAddr = mkexpr(op2addr);
d->mSize = 16;
stmt(IRStmt_Dirty(d));
s390_cc_thunk_fill(mkU64(S390_CC_OP_SET),
mkexpr(cc), mkU64(0), mkU64(0));
return "stcke";
}
static const HChar *
s390_irgen_STFLE(IRTemp op2addr)
{
if (! s390_host_has_stfle) {
emulation_failure(EmFail_S390X_stfle);
return "stfle";
}
IRDirty *d;
IRTemp cc = newTemp(Ity_I64);
/* IRExpr_BBPTR() => Need to pass pointer to guest state to helper */
d = unsafeIRDirty_1_N(cc, 0, "s390x_dirtyhelper_STFLE",
&s390x_dirtyhelper_STFLE,
mkIRExprVec_2(IRExpr_BBPTR(), mkexpr(op2addr)));
d->nFxState = 1;
vex_bzero(&d->fxState, sizeof(d->fxState));
d->fxState[0].fx = Ifx_Modify; /* read then write */
d->fxState[0].offset = S390X_GUEST_OFFSET(guest_r0);
d->fxState[0].size = sizeof(ULong);
d->mAddr = mkexpr(op2addr);
/* Pretend all double words are written */
d->mSize = S390_NUM_FACILITY_DW * sizeof(ULong);
d->mFx = Ifx_Write;
stmt(IRStmt_Dirty(d));
s390_cc_thunk_fill(mkU64(S390_CC_OP_SET), mkexpr(cc), mkU64(0), mkU64(0));
return "stfle";
}
static const HChar *
s390_irgen_CKSM(UChar r1,UChar r2)
{
IRTemp addr = newTemp(Ity_I64);
IRTemp op = newTemp(Ity_I32);
IRTemp len = newTemp(Ity_I64);
IRTemp oldval = newTemp(Ity_I32);
IRTemp mask = newTemp(Ity_I32);
IRTemp newop = newTemp(Ity_I32);
IRTemp result = newTemp(Ity_I32);
IRTemp result1 = newTemp(Ity_I32);
IRTemp inc = newTemp(Ity_I64);
assign(oldval, get_gpr_w1(r1));
assign(addr, get_gpr_dw0(r2));
assign(len, get_gpr_dw0(r2+1));
/* Condition code is always zero. */
s390_cc_set(0);
/* If length is zero, there is no need to calculate the checksum */
next_insn_if(binop(Iop_CmpEQ64, mkexpr(len), mkU64(0)));
/* Assiging the increment variable to adjust address and length
later on. */
assign(inc, mkite(binop(Iop_CmpLT64U, mkexpr(len), mkU64(4)),
mkexpr(len), mkU64(4)));
/* If length < 4 the final 4-byte 2nd operand value is computed by
appending the remaining bytes to the right with 0. This is done
by AND'ing the 4 bytes loaded from memory with an appropriate
mask. If length >= 4, that mask is simply 0xffffffff. */
assign(mask, mkite(binop(Iop_CmpLT64U, mkexpr(len), mkU64(4)),
/* Mask computation when len < 4:
0xffffffff << (32 - (len % 4)*8) */
binop(Iop_Shl32, mkU32(0xffffffff),
unop(Iop_32to8,
binop(Iop_Sub32, mkU32(32),
binop(Iop_Shl32,
unop(Iop_64to32,
binop(Iop_And64,
mkexpr(len), mkU64(3))),
mkU8(3))))),
mkU32(0xffffffff)));
assign(op, load(Ity_I32, mkexpr(addr)));
assign(newop, binop(Iop_And32, mkexpr(op), mkexpr(mask)));
assign(result, binop(Iop_Add32, mkexpr(newop), mkexpr(oldval)));
/* Checking for carry */
assign(result1, mkite(binop(Iop_CmpLT32U, mkexpr(result), mkexpr(newop)),
binop(Iop_Add32, mkexpr(result), mkU32(1)),
mkexpr(result)));
put_gpr_w1(r1, mkexpr(result1));
put_gpr_dw0(r2, binop(Iop_Add64, mkexpr(addr), mkexpr(inc)));
put_gpr_dw0(r2+1, binop(Iop_Sub64, mkexpr(len), mkexpr(inc)));
iterate_if(binop(Iop_CmpNE64, mkexpr(len), mkU64(0)));
return "cksm";
}
static const HChar *
s390_irgen_TROO(UChar m3, UChar r1, UChar r2)
{
IRTemp src_addr, des_addr, tab_addr, src_len, test_byte;
src_addr = newTemp(Ity_I64);
des_addr = newTemp(Ity_I64);
tab_addr = newTemp(Ity_I64);
test_byte = newTemp(Ity_I8);
src_len = newTemp(Ity_I64);
assign(src_addr, get_gpr_dw0(r2));
assign(des_addr, get_gpr_dw0(r1));
assign(tab_addr, get_gpr_dw0(1));
assign(src_len, get_gpr_dw0(r1+1));
assign(test_byte, get_gpr_b7(0));
IRTemp op = newTemp(Ity_I8);
IRTemp op1 = newTemp(Ity_I8);
IRTemp result = newTemp(Ity_I64);
/* End of source string? We're done; proceed to next insn */
s390_cc_set(0);
next_insn_if(binop(Iop_CmpEQ64, mkexpr(src_len), mkU64(0)));
/* Load character from source string, index translation table and
store translated character in op1. */
assign(op, load(Ity_I8, mkexpr(src_addr)));
assign(result, binop(Iop_Add64, unop(Iop_8Uto64, mkexpr(op)),
mkexpr(tab_addr)));
assign(op1, load(Ity_I8, mkexpr(result)));
if (! s390_host_has_etf2 || (m3 & 0x1) == 0) {
s390_cc_set(1);
next_insn_if(binop(Iop_CmpEQ8, mkexpr(op1), mkexpr(test_byte)));
}
store(get_gpr_dw0(r1), mkexpr(op1));
put_gpr_dw0(r1, binop(Iop_Add64, mkexpr(des_addr), mkU64(1)));
put_gpr_dw0(r2, binop(Iop_Add64, mkexpr(src_addr), mkU64(1)));
put_gpr_dw0(r1+1, binop(Iop_Sub64, mkexpr(src_len), mkU64(1)));
iterate();
return "troo";
}
static const HChar *
s390_irgen_TRTO(UChar m3, UChar r1, UChar r2)
{
IRTemp src_addr, des_addr, tab_addr, src_len, test_byte;
src_addr = newTemp(Ity_I64);
des_addr = newTemp(Ity_I64);
tab_addr = newTemp(Ity_I64);
test_byte = newTemp(Ity_I8);
src_len = newTemp(Ity_I64);
assign(src_addr, get_gpr_dw0(r2));
assign(des_addr, get_gpr_dw0(r1));
assign(tab_addr, get_gpr_dw0(1));
assign(src_len, get_gpr_dw0(r1+1));
assign(test_byte, get_gpr_b7(0));
IRTemp op = newTemp(Ity_I16);
IRTemp op1 = newTemp(Ity_I8);
IRTemp result = newTemp(Ity_I64);
/* End of source string? We're done; proceed to next insn */
s390_cc_set(0);
next_insn_if(binop(Iop_CmpEQ64, mkexpr(src_len), mkU64(0)));
/* Load character from source string, index translation table and
store translated character in op1. */
assign(op, load(Ity_I16, mkexpr(src_addr)));
assign(result, binop(Iop_Add64, unop(Iop_16Uto64, mkexpr(op)),
mkexpr(tab_addr)));
assign(op1, load(Ity_I8, mkexpr(result)));
if (! s390_host_has_etf2 || (m3 & 0x1) == 0) {
s390_cc_set(1);
next_insn_if(binop(Iop_CmpEQ8, mkexpr(op1), mkexpr(test_byte)));
}
store(get_gpr_dw0(r1), mkexpr(op1));
put_gpr_dw0(r2, binop(Iop_Add64, mkexpr(src_addr), mkU64(2)));
put_gpr_dw0(r1, binop(Iop_Add64, mkexpr(des_addr), mkU64(1)));
put_gpr_dw0(r1+1, binop(Iop_Sub64, mkexpr(src_len), mkU64(2)));
iterate();
return "trto";
}
static const HChar *
s390_irgen_TROT(UChar m3, UChar r1, UChar r2)
{
IRTemp src_addr, des_addr, tab_addr, src_len, test_byte;
src_addr = newTemp(Ity_I64);
des_addr = newTemp(Ity_I64);
tab_addr = newTemp(Ity_I64);
test_byte = newTemp(Ity_I16);
src_len = newTemp(Ity_I64);
assign(src_addr, get_gpr_dw0(r2));
assign(des_addr, get_gpr_dw0(r1));
assign(tab_addr, get_gpr_dw0(1));
assign(src_len, get_gpr_dw0(r1+1));
assign(test_byte, get_gpr_hw3(0));
IRTemp op = newTemp(Ity_I8);
IRTemp op1 = newTemp(Ity_I16);
IRTemp result = newTemp(Ity_I64);
/* End of source string? We're done; proceed to next insn */
s390_cc_set(0);
next_insn_if(binop(Iop_CmpEQ64, mkexpr(src_len), mkU64(0)));
/* Load character from source string, index translation table and
store translated character in op1. */
assign(op, binop(Iop_Shl8, load(Ity_I8, mkexpr(src_addr)), mkU8(1)));
assign(result, binop(Iop_Add64, unop(Iop_8Uto64, mkexpr(op)),
mkexpr(tab_addr)));
assign(op1, load(Ity_I16, mkexpr(result)));
if (! s390_host_has_etf2 || (m3 & 0x1) == 0) {
s390_cc_set(1);
next_insn_if(binop(Iop_CmpEQ16, mkexpr(op1), mkexpr(test_byte)));
}
store(get_gpr_dw0(r1), mkexpr(op1));
put_gpr_dw0(r2, binop(Iop_Add64, mkexpr(src_addr), mkU64(1)));
put_gpr_dw0(r1, binop(Iop_Add64, mkexpr(des_addr), mkU64(2)));
put_gpr_dw0(r1+1, binop(Iop_Sub64, mkexpr(src_len), mkU64(1)));
iterate();
return "trot";
}
static const HChar *
s390_irgen_TRTT(UChar m3, UChar r1, UChar r2)
{
IRTemp src_addr, des_addr, tab_addr, src_len, test_byte;
src_addr = newTemp(Ity_I64);
des_addr = newTemp(Ity_I64);
tab_addr = newTemp(Ity_I64);
test_byte = newTemp(Ity_I16);
src_len = newTemp(Ity_I64);
assign(src_addr, get_gpr_dw0(r2));
assign(des_addr, get_gpr_dw0(r1));
assign(tab_addr, get_gpr_dw0(1));
assign(src_len, get_gpr_dw0(r1+1));
assign(test_byte, get_gpr_hw3(0));
IRTemp op = newTemp(Ity_I16);
IRTemp op1 = newTemp(Ity_I16);
IRTemp result = newTemp(Ity_I64);
/* End of source string? We're done; proceed to next insn */
s390_cc_set(0);
next_insn_if(binop(Iop_CmpEQ64, mkexpr(src_len), mkU64(0)));
/* Load character from source string, index translation table and
store translated character in op1. */
assign(op, binop(Iop_Shl16, load(Ity_I16, mkexpr(src_addr)), mkU8(1)));
assign(result, binop(Iop_Add64, unop(Iop_16Uto64, mkexpr(op)),
mkexpr(tab_addr)));
assign(op1, load(Ity_I16, mkexpr(result)));
if (! s390_host_has_etf2 || (m3 & 0x1) == 0) {
s390_cc_set(1);
next_insn_if(binop(Iop_CmpEQ16, mkexpr(op1), mkexpr(test_byte)));
}
store(get_gpr_dw0(r1), mkexpr(op1));
put_gpr_dw0(r2, binop(Iop_Add64, mkexpr(src_addr), mkU64(2)));
put_gpr_dw0(r1, binop(Iop_Add64, mkexpr(des_addr), mkU64(2)));
put_gpr_dw0(r1+1, binop(Iop_Sub64, mkexpr(src_len), mkU64(2)));
iterate();
return "trtt";
}
static const HChar *
s390_irgen_TR(UChar length, IRTemp start1, IRTemp start2)
{
IRTemp len = newTemp(Ity_I64);
assign(len, mkU64(length));
s390_irgen_TR_EX(len, start1, start2);
return "tr";
}
static const HChar *
s390_irgen_TRE(UChar r1,UChar r2)
{
IRTemp src_addr, tab_addr, src_len, test_byte;
src_addr = newTemp(Ity_I64);
tab_addr = newTemp(Ity_I64);
src_len = newTemp(Ity_I64);
test_byte = newTemp(Ity_I8);
assign(src_addr, get_gpr_dw0(r1));
assign(src_len, get_gpr_dw0(r1+1));
assign(tab_addr, get_gpr_dw0(r2));
assign(test_byte, get_gpr_b7(0));
IRTemp op = newTemp(Ity_I8);
IRTemp op1 = newTemp(Ity_I8);
IRTemp result = newTemp(Ity_I64);
/* End of source string? We're done; proceed to next insn */
s390_cc_set(0);
next_insn_if(binop(Iop_CmpEQ64, mkexpr(src_len), mkU64(0)));
/* Load character from source string and compare with test byte */
assign(op, load(Ity_I8, mkexpr(src_addr)));
s390_cc_set(1);
next_insn_if(binop(Iop_CmpEQ8, mkexpr(op), mkexpr(test_byte)));
assign(result, binop(Iop_Add64, unop(Iop_8Uto64, mkexpr(op)),
mkexpr(tab_addr)));
assign(op1, load(Ity_I8, mkexpr(result)));
store(get_gpr_dw0(r1), mkexpr(op1));
put_gpr_dw0(r1, binop(Iop_Add64, mkexpr(src_addr), mkU64(1)));
put_gpr_dw0(r1+1, binop(Iop_Sub64, mkexpr(src_len), mkU64(1)));
iterate();
return "tre";
}
static IRExpr *
s390_call_cu21(IRExpr *srcval, IRExpr *low_surrogate)
{
IRExpr **args, *call;
args = mkIRExprVec_2(srcval, low_surrogate);
call = mkIRExprCCall(Ity_I64, 0 /*regparm*/,
"s390_do_cu21", &s390_do_cu21, args);
/* Nothing is excluded from definedness checking. */
call->Iex.CCall.cee->mcx_mask = 0;
return call;
}
static const HChar *
s390_irgen_CU21(UChar m3, UChar r1, UChar r2)
{
IRTemp addr1 = newTemp(Ity_I64);
IRTemp addr2 = newTemp(Ity_I64);
IRTemp len1 = newTemp(Ity_I64);
IRTemp len2 = newTemp(Ity_I64);
assign(addr1, get_gpr_dw0(r1));
assign(addr2, get_gpr_dw0(r2));
assign(len1, get_gpr_dw0(r1 + 1));
assign(len2, get_gpr_dw0(r2 + 1));
/* We're processing the 2nd operand 2 bytes at a time. Therefore, if
there are less than 2 bytes left, then the 2nd operand is exhausted
and we're done here. cc = 0 */
s390_cc_set(0);
next_insn_if(binop(Iop_CmpLT64U, mkexpr(len2), mkU64(2)));
/* There are at least two bytes there. Read them. */
IRTemp srcval = newTemp(Ity_I32);
assign(srcval, unop(Iop_16Uto32, load(Ity_I16, mkexpr(addr2))));
/* Find out whether this is a high surrogate. I.e. SRCVAL lies
inside the interval [0xd800 - 0xdbff] */
IRTemp is_high_surrogate = newTemp(Ity_I32);
IRExpr *flag1 = mkite(binop(Iop_CmpLE32U, mkU32(0xd800), mkexpr(srcval)),
mkU32(1), mkU32(0));
IRExpr *flag2 = mkite(binop(Iop_CmpLE32U, mkexpr(srcval), mkU32(0xdbff)),
mkU32(1), mkU32(0));
assign(is_high_surrogate, binop(Iop_And32, flag1, flag2));
/* If SRCVAL is a high surrogate and there are less than 4 bytes left,
then the 2nd operand is exhausted and we're done here. cc = 0 */
IRExpr *not_enough_bytes =
mkite(binop(Iop_CmpLT64U, mkexpr(len2), mkU64(4)), mkU32(1), mkU32(0));
next_insn_if(binop(Iop_CmpEQ32,
binop(Iop_And32, mkexpr(is_high_surrogate),
not_enough_bytes), mkU32(1)));
/* The 2nd operand is not exhausted. If the first 2 bytes are a high
surrogate, read the next two bytes (low surrogate). */
IRTemp low_surrogate = newTemp(Ity_I32);
IRExpr *low_surrogate_addr = binop(Iop_Add64, mkexpr(addr2), mkU64(2));
assign(low_surrogate,
mkite(binop(Iop_CmpEQ32, mkexpr(is_high_surrogate), mkU32(1)),
unop(Iop_16Uto32, load(Ity_I16, low_surrogate_addr)),
mkU32(0))); // any value is fine; it will not be used
/* Call the helper */
IRTemp retval = newTemp(Ity_I64);
assign(retval, s390_call_cu21(unop(Iop_32Uto64, mkexpr(srcval)),
unop(Iop_32Uto64, mkexpr(low_surrogate))));
/* Before we can test whether the 1st operand is exhausted we need to
test for an invalid low surrogate. Because cc=2 outranks cc=1. */
if (s390_host_has_etf3 && (m3 & 0x1) == 1) {
IRExpr *invalid_low_surrogate =
binop(Iop_And64, mkexpr(retval), mkU64(0xff));
s390_cc_set(2);
next_insn_if(binop(Iop_CmpEQ64, invalid_low_surrogate, mkU64(1)));
}
/* Now test whether the 1st operand is exhausted */
IRTemp num_bytes = newTemp(Ity_I64);
assign(num_bytes, binop(Iop_And64,
binop(Iop_Shr64, mkexpr(retval), mkU8(8)),
mkU64(0xff)));
s390_cc_set(1);
next_insn_if(binop(Iop_CmpLT64U, mkexpr(len1), mkexpr(num_bytes)));
/* Extract the bytes to be stored at addr1 */
IRTemp data = newTemp(Ity_I64);
assign(data, binop(Iop_Shr64, mkexpr(retval), mkU8(16)));
/* To store the bytes construct 4 dirty helper calls. The helper calls
are guarded (num_bytes == 1, num_bytes == 2, etc) such that only
one of them will be called at runtime. */
UInt i;
for (i = 1; i <= 4; ++i) {
IRDirty *d;
d = unsafeIRDirty_0_N(0 /* regparms */, "s390x_dirtyhelper_CUxy",
&s390x_dirtyhelper_CUxy,
mkIRExprVec_3(mkexpr(addr1), mkexpr(data),
mkexpr(num_bytes)));
d->guard = binop(Iop_CmpEQ64, mkexpr(num_bytes), mkU64(i));
d->mFx = Ifx_Write;
d->mAddr = mkexpr(addr1);
d->mSize = i;
stmt(IRStmt_Dirty(d));
}
/* Update source address and length */
IRTemp num_src_bytes = newTemp(Ity_I64);
assign(num_src_bytes,
mkite(binop(Iop_CmpEQ32, mkexpr(is_high_surrogate), mkU32(1)),
mkU64(4), mkU64(2)));
put_gpr_dw0(r2, binop(Iop_Add64, mkexpr(addr2), mkexpr(num_src_bytes)));
put_gpr_dw0(r2 + 1, binop(Iop_Sub64, mkexpr(len2), mkexpr(num_src_bytes)));
/* Update destination address and length */
put_gpr_dw0(r1, binop(Iop_Add64, mkexpr(addr1), mkexpr(num_bytes)));
put_gpr_dw0(r1 + 1, binop(Iop_Sub64, mkexpr(len1), mkexpr(num_bytes)));
iterate();
return "cu21";
}
static IRExpr *
s390_call_cu24(IRExpr *srcval, IRExpr *low_surrogate)
{
IRExpr **args, *call;
args = mkIRExprVec_2(srcval, low_surrogate);
call = mkIRExprCCall(Ity_I64, 0 /*regparm*/,
"s390_do_cu24", &s390_do_cu24, args);
/* Nothing is excluded from definedness checking. */
call->Iex.CCall.cee->mcx_mask = 0;
return call;
}
static const HChar *
s390_irgen_CU24(UChar m3, UChar r1, UChar r2)
{
IRTemp addr1 = newTemp(Ity_I64);
IRTemp addr2 = newTemp(Ity_I64);
IRTemp len1 = newTemp(Ity_I64);
IRTemp len2 = newTemp(Ity_I64);
assign(addr1, get_gpr_dw0(r1));
assign(addr2, get_gpr_dw0(r2));
assign(len1, get_gpr_dw0(r1 + 1));
assign(len2, get_gpr_dw0(r2 + 1));
/* We're processing the 2nd operand 2 bytes at a time. Therefore, if
there are less than 2 bytes left, then the 2nd operand is exhausted
and we're done here. cc = 0 */
s390_cc_set(0);
next_insn_if(binop(Iop_CmpLT64U, mkexpr(len2), mkU64(2)));
/* There are at least two bytes there. Read them. */
IRTemp srcval = newTemp(Ity_I32);
assign(srcval, unop(Iop_16Uto32, load(Ity_I16, mkexpr(addr2))));
/* Find out whether this is a high surrogate. I.e. SRCVAL lies
inside the interval [0xd800 - 0xdbff] */
IRTemp is_high_surrogate = newTemp(Ity_I32);
IRExpr *flag1 = mkite(binop(Iop_CmpLE32U, mkU32(0xd800), mkexpr(srcval)),
mkU32(1), mkU32(0));
IRExpr *flag2 = mkite(binop(Iop_CmpLE32U, mkexpr(srcval), mkU32(0xdbff)),
mkU32(1), mkU32(0));
assign(is_high_surrogate, binop(Iop_And32, flag1, flag2));
/* If SRCVAL is a high surrogate and there are less than 4 bytes left,
then the 2nd operand is exhausted and we're done here. cc = 0 */
IRExpr *not_enough_bytes =
mkite(binop(Iop_CmpLT64U, mkexpr(len2), mkU64(4)), mkU32(1), mkU32(0));
next_insn_if(binop(Iop_CmpEQ32,
binop(Iop_And32, mkexpr(is_high_surrogate),
not_enough_bytes),
mkU32(1)));
/* The 2nd operand is not exhausted. If the first 2 bytes are a high
surrogate, read the next two bytes (low surrogate). */
IRTemp low_surrogate = newTemp(Ity_I32);
IRExpr *low_surrogate_addr = binop(Iop_Add64, mkexpr(addr2), mkU64(2));
assign(low_surrogate,
mkite(binop(Iop_CmpEQ32, mkexpr(is_high_surrogate), mkU32(1)),
unop(Iop_16Uto32, load(Ity_I16, low_surrogate_addr)),
mkU32(0))); // any value is fine; it will not be used
/* Call the helper */
IRTemp retval = newTemp(Ity_I64);
assign(retval, s390_call_cu24(unop(Iop_32Uto64, mkexpr(srcval)),
unop(Iop_32Uto64, mkexpr(low_surrogate))));
/* Before we can test whether the 1st operand is exhausted we need to
test for an invalid low surrogate. Because cc=2 outranks cc=1. */
if (s390_host_has_etf3 && (m3 & 0x1) == 1) {
IRExpr *invalid_low_surrogate =
binop(Iop_And64, mkexpr(retval), mkU64(0xff));
s390_cc_set(2);
next_insn_if(binop(Iop_CmpEQ64, invalid_low_surrogate, mkU64(1)));
}
/* Now test whether the 1st operand is exhausted */
s390_cc_set(1);
next_insn_if(binop(Iop_CmpLT64U, mkexpr(len1), mkU64(4)));
/* Extract the bytes to be stored at addr1 */
IRExpr *data = unop(Iop_64to32, binop(Iop_Shr64, mkexpr(retval), mkU8(8)));
store(mkexpr(addr1), data);
/* Update source address and length */
IRTemp num_src_bytes = newTemp(Ity_I64);
assign(num_src_bytes,
mkite(binop(Iop_CmpEQ32, mkexpr(is_high_surrogate), mkU32(1)),
mkU64(4), mkU64(2)));
put_gpr_dw0(r2, binop(Iop_Add64, mkexpr(addr2), mkexpr(num_src_bytes)));
put_gpr_dw0(r2 + 1, binop(Iop_Sub64, mkexpr(len2), mkexpr(num_src_bytes)));
/* Update destination address and length */
put_gpr_dw0(r1, binop(Iop_Add64, mkexpr(addr1), mkU64(4)));
put_gpr_dw0(r1 + 1, binop(Iop_Sub64, mkexpr(len1), mkU64(4)));
iterate();
return "cu24";
}
static IRExpr *
s390_call_cu42(IRExpr *srcval)
{
IRExpr **args, *call;
args = mkIRExprVec_1(srcval);
call = mkIRExprCCall(Ity_I64, 0 /*regparm*/,
"s390_do_cu42", &s390_do_cu42, args);
/* Nothing is excluded from definedness checking. */
call->Iex.CCall.cee->mcx_mask = 0;
return call;
}
static const HChar *
s390_irgen_CU42(UChar r1, UChar r2)
{
IRTemp addr1 = newTemp(Ity_I64);
IRTemp addr2 = newTemp(Ity_I64);
IRTemp len1 = newTemp(Ity_I64);
IRTemp len2 = newTemp(Ity_I64);
assign(addr1, get_gpr_dw0(r1));
assign(addr2, get_gpr_dw0(r2));
assign(len1, get_gpr_dw0(r1 + 1));
assign(len2, get_gpr_dw0(r2 + 1));
/* We're processing the 2nd operand 4 bytes at a time. Therefore, if
there are less than 4 bytes left, then the 2nd operand is exhausted
and we're done here. cc = 0 */
s390_cc_set(0);
next_insn_if(binop(Iop_CmpLT64U, mkexpr(len2), mkU64(4)));
/* Read the 2nd operand. */
IRTemp srcval = newTemp(Ity_I32);
assign(srcval, load(Ity_I32, mkexpr(addr2)));
/* Call the helper */
IRTemp retval = newTemp(Ity_I64);
assign(retval, s390_call_cu42(unop(Iop_32Uto64, mkexpr(srcval))));
/* If the UTF-32 character was invalid, set cc=2 and we're done.
cc=2 outranks cc=1 (1st operand exhausted) */
IRExpr *invalid_character = binop(Iop_And64, mkexpr(retval), mkU64(0xff));
s390_cc_set(2);
next_insn_if(binop(Iop_CmpEQ64, invalid_character, mkU64(1)));
/* Now test whether the 1st operand is exhausted */
IRTemp num_bytes = newTemp(Ity_I64);
assign(num_bytes, binop(Iop_And64,
binop(Iop_Shr64, mkexpr(retval), mkU8(8)),
mkU64(0xff)));
s390_cc_set(1);
next_insn_if(binop(Iop_CmpLT64U, mkexpr(len1), mkexpr(num_bytes)));
/* Extract the bytes to be stored at addr1 */
IRTemp data = newTemp(Ity_I64);
assign(data, binop(Iop_Shr64, mkexpr(retval), mkU8(16)));
/* To store the bytes construct 2 dirty helper calls. The helper calls
are guarded (num_bytes == 2 and num_bytes == 4, respectively) such
that only one of them will be called at runtime. */
Int i;
for (i = 2; i <= 4; ++i) {
IRDirty *d;
if (i == 3) continue; // skip this one
d = unsafeIRDirty_0_N(0 /* regparms */, "s390x_dirtyhelper_CUxy",
&s390x_dirtyhelper_CUxy,
mkIRExprVec_3(mkexpr(addr1), mkexpr(data),
mkexpr(num_bytes)));
d->guard = binop(Iop_CmpEQ64, mkexpr(num_bytes), mkU64(i));
d->mFx = Ifx_Write;
d->mAddr = mkexpr(addr1);
d->mSize = i;
stmt(IRStmt_Dirty(d));
}
/* Update source address and length */
put_gpr_dw0(r2, binop(Iop_Add64, mkexpr(addr2), mkU64(4)));
put_gpr_dw0(r2 + 1, binop(Iop_Sub64, mkexpr(len2), mkU64(4)));
/* Update destination address and length */
put_gpr_dw0(r1, binop(Iop_Add64, mkexpr(addr1), mkexpr(num_bytes)));
put_gpr_dw0(r1 + 1, binop(Iop_Sub64, mkexpr(len1), mkexpr(num_bytes)));
iterate();
return "cu42";
}
static IRExpr *
s390_call_cu41(IRExpr *srcval)
{
IRExpr **args, *call;
args = mkIRExprVec_1(srcval);
call = mkIRExprCCall(Ity_I64, 0 /*regparm*/,
"s390_do_cu41", &s390_do_cu41, args);
/* Nothing is excluded from definedness checking. */
call->Iex.CCall.cee->mcx_mask = 0;
return call;
}
static const HChar *
s390_irgen_CU41(UChar r1, UChar r2)
{
IRTemp addr1 = newTemp(Ity_I64);
IRTemp addr2 = newTemp(Ity_I64);
IRTemp len1 = newTemp(Ity_I64);
IRTemp len2 = newTemp(Ity_I64);
assign(addr1, get_gpr_dw0(r1));
assign(addr2, get_gpr_dw0(r2));
assign(len1, get_gpr_dw0(r1 + 1));
assign(len2, get_gpr_dw0(r2 + 1));
/* We're processing the 2nd operand 4 bytes at a time. Therefore, if
there are less than 4 bytes left, then the 2nd operand is exhausted
and we're done here. cc = 0 */
s390_cc_set(0);
next_insn_if(binop(Iop_CmpLT64U, mkexpr(len2), mkU64(4)));
/* Read the 2nd operand. */
IRTemp srcval = newTemp(Ity_I32);
assign(srcval, load(Ity_I32, mkexpr(addr2)));
/* Call the helper */
IRTemp retval = newTemp(Ity_I64);
assign(retval, s390_call_cu41(unop(Iop_32Uto64, mkexpr(srcval))));
/* If the UTF-32 character was invalid, set cc=2 and we're done.
cc=2 outranks cc=1 (1st operand exhausted) */
IRExpr *invalid_character = binop(Iop_And64, mkexpr(retval), mkU64(0xff));
s390_cc_set(2);
next_insn_if(binop(Iop_CmpEQ64, invalid_character, mkU64(1)));
/* Now test whether the 1st operand is exhausted */
IRTemp num_bytes = newTemp(Ity_I64);
assign(num_bytes, binop(Iop_And64,
binop(Iop_Shr64, mkexpr(retval), mkU8(8)),
mkU64(0xff)));
s390_cc_set(1);
next_insn_if(binop(Iop_CmpLT64U, mkexpr(len1), mkexpr(num_bytes)));
/* Extract the bytes to be stored at addr1 */
IRTemp data = newTemp(Ity_I64);
assign(data, binop(Iop_Shr64, mkexpr(retval), mkU8(16)));
/* To store the bytes construct 4 dirty helper calls. The helper calls
are guarded (num_bytes == 1, num_bytes == 2, etc) such that only
one of them will be called at runtime. */
UInt i;
for (i = 1; i <= 4; ++i) {
IRDirty *d;
d = unsafeIRDirty_0_N(0 /* regparms */, "s390x_dirtyhelper_CUxy",
&s390x_dirtyhelper_CUxy,
mkIRExprVec_3(mkexpr(addr1), mkexpr(data),
mkexpr(num_bytes)));
d->guard = binop(Iop_CmpEQ64, mkexpr(num_bytes), mkU64(i));
d->mFx = Ifx_Write;
d->mAddr = mkexpr(addr1);
d->mSize = i;
stmt(IRStmt_Dirty(d));
}
/* Update source address and length */
put_gpr_dw0(r2, binop(Iop_Add64, mkexpr(addr2), mkU64(4)));
put_gpr_dw0(r2 + 1, binop(Iop_Sub64, mkexpr(len2), mkU64(4)));
/* Update destination address and length */
put_gpr_dw0(r1, binop(Iop_Add64, mkexpr(addr1), mkexpr(num_bytes)));
put_gpr_dw0(r1 + 1, binop(Iop_Sub64, mkexpr(len1), mkexpr(num_bytes)));
iterate();
return "cu41";
}
static IRExpr *
s390_call_cu12_cu14_helper1(IRExpr *byte1, IRExpr *etf3_and_m3_is_1)
{
IRExpr **args, *call;
args = mkIRExprVec_2(byte1, etf3_and_m3_is_1);
call = mkIRExprCCall(Ity_I64, 0 /*regparm*/, "s390_do_cu12_cu14_helper1",
&s390_do_cu12_cu14_helper1, args);
/* Nothing is excluded from definedness checking. */
call->Iex.CCall.cee->mcx_mask = 0;
return call;
}
static IRExpr *
s390_call_cu12_helper2(IRExpr *byte1, IRExpr *byte2, IRExpr *byte3,
IRExpr *byte4, IRExpr *stuff)
{
IRExpr **args, *call;
args = mkIRExprVec_5(byte1, byte2, byte3, byte4, stuff);
call = mkIRExprCCall(Ity_I64, 0 /*regparm*/,
"s390_do_cu12_helper2", &s390_do_cu12_helper2, args);
/* Nothing is excluded from definedness checking. */
call->Iex.CCall.cee->mcx_mask = 0;
return call;
}
static IRExpr *
s390_call_cu14_helper2(IRExpr *byte1, IRExpr *byte2, IRExpr *byte3,
IRExpr *byte4, IRExpr *stuff)
{
IRExpr **args, *call;
args = mkIRExprVec_5(byte1, byte2, byte3, byte4, stuff);
call = mkIRExprCCall(Ity_I64, 0 /*regparm*/,
"s390_do_cu14_helper2", &s390_do_cu14_helper2, args);
/* Nothing is excluded from definedness checking. */
call->Iex.CCall.cee->mcx_mask = 0;
return call;
}
static void
s390_irgen_cu12_cu14(UChar m3, UChar r1, UChar r2, Bool is_cu12)
{
IRTemp addr1 = newTemp(Ity_I64);
IRTemp addr2 = newTemp(Ity_I64);
IRTemp len1 = newTemp(Ity_I64);
IRTemp len2 = newTemp(Ity_I64);
assign(addr1, get_gpr_dw0(r1));
assign(addr2, get_gpr_dw0(r2));
assign(len1, get_gpr_dw0(r1 + 1));
assign(len2, get_gpr_dw0(r2 + 1));
UInt extended_checking = s390_host_has_etf3 && (m3 & 0x1) == 1;
/* We're processing the 2nd operand 1 byte at a time. Therefore, if
there is less than 1 byte left, then the 2nd operand is exhausted
and we're done here. cc = 0 */
s390_cc_set(0);
next_insn_if(binop(Iop_CmpLT64U, mkexpr(len2), mkU64(1)));
/* There is at least one byte there. Read it. */
IRTemp byte1 = newTemp(Ity_I64);
assign(byte1, unop(Iop_8Uto64, load(Ity_I8, mkexpr(addr2))));
/* Call the helper to get number of bytes and invalid byte indicator */
IRTemp retval1 = newTemp(Ity_I64);
assign(retval1, s390_call_cu12_cu14_helper1(mkexpr(byte1),
mkU64(extended_checking)));
/* Check for invalid 1st byte */
IRExpr *is_invalid = unop(Iop_64to1, mkexpr(retval1));
s390_cc_set(2);
next_insn_if(is_invalid);
/* How many bytes do we have to read? */
IRTemp num_src_bytes = newTemp(Ity_I64);
assign(num_src_bytes, binop(Iop_Shr64, mkexpr(retval1), mkU8(8)));
/* Now test whether the 2nd operand is exhausted */
s390_cc_set(0);
next_insn_if(binop(Iop_CmpLT64U, mkexpr(len2), mkexpr(num_src_bytes)));
/* Read the remaining bytes */
IRExpr *cond, *addr, *byte2, *byte3, *byte4;
cond = binop(Iop_CmpLE64U, mkU64(2), mkexpr(num_src_bytes));
addr = binop(Iop_Add64, mkexpr(addr2), mkU64(1));
byte2 = mkite(cond, unop(Iop_8Uto64, load(Ity_I8, addr)), mkU64(0));
cond = binop(Iop_CmpLE64U, mkU64(3), mkexpr(num_src_bytes));
addr = binop(Iop_Add64, mkexpr(addr2), mkU64(2));
byte3 = mkite(cond, unop(Iop_8Uto64, load(Ity_I8, addr)), mkU64(0));
cond = binop(Iop_CmpLE64U, mkU64(4), mkexpr(num_src_bytes));
addr = binop(Iop_Add64, mkexpr(addr2), mkU64(3));
byte4 = mkite(cond, unop(Iop_8Uto64, load(Ity_I8, addr)), mkU64(0));
/* Call the helper to get the converted value and invalid byte indicator.
We can pass at most 5 arguments; therefore some encoding is needed
here */
IRExpr *stuff = binop(Iop_Or64,
binop(Iop_Shl64, mkexpr(num_src_bytes), mkU8(1)),
mkU64(extended_checking));
IRTemp retval2 = newTemp(Ity_I64);
if (is_cu12) {
assign(retval2, s390_call_cu12_helper2(mkexpr(byte1), byte2, byte3,
byte4, stuff));
} else {
assign(retval2, s390_call_cu14_helper2(mkexpr(byte1), byte2, byte3,
byte4, stuff));
}
/* Check for invalid character */
s390_cc_set(2);
is_invalid = unop(Iop_64to1, mkexpr(retval2));
next_insn_if(is_invalid);
/* Now test whether the 1st operand is exhausted */
IRTemp num_bytes = newTemp(Ity_I64);
assign(num_bytes, binop(Iop_And64,
binop(Iop_Shr64, mkexpr(retval2), mkU8(8)),
mkU64(0xff)));
s390_cc_set(1);
next_insn_if(binop(Iop_CmpLT64U, mkexpr(len1), mkexpr(num_bytes)));
/* Extract the bytes to be stored at addr1 */
IRTemp data = newTemp(Ity_I64);
assign(data, binop(Iop_Shr64, mkexpr(retval2), mkU8(16)));
if (is_cu12) {
/* To store the bytes construct 2 dirty helper calls. The helper calls
are guarded (num_bytes == 2 and num_bytes == 4, respectively) such
that only one of them will be called at runtime. */
Int i;
for (i = 2; i <= 4; ++i) {
IRDirty *d;
if (i == 3) continue; // skip this one
d = unsafeIRDirty_0_N(0 /* regparms */, "s390x_dirtyhelper_CUxy",
&s390x_dirtyhelper_CUxy,
mkIRExprVec_3(mkexpr(addr1), mkexpr(data),
mkexpr(num_bytes)));
d->guard = binop(Iop_CmpEQ64, mkexpr(num_bytes), mkU64(i));
d->mFx = Ifx_Write;
d->mAddr = mkexpr(addr1);
d->mSize = i;
stmt(IRStmt_Dirty(d));
}
} else {
// cu14
store(mkexpr(addr1), unop(Iop_64to32, mkexpr(data)));
}
/* Update source address and length */
put_gpr_dw0(r2, binop(Iop_Add64, mkexpr(addr2), mkexpr(num_src_bytes)));
put_gpr_dw0(r2 + 1, binop(Iop_Sub64, mkexpr(len2), mkexpr(num_src_bytes)));
/* Update destination address and length */
put_gpr_dw0(r1, binop(Iop_Add64, mkexpr(addr1), mkexpr(num_bytes)));
put_gpr_dw0(r1 + 1, binop(Iop_Sub64, mkexpr(len1), mkexpr(num_bytes)));
iterate();
}
static const HChar *
s390_irgen_CU12(UChar m3, UChar r1, UChar r2)
{
s390_irgen_cu12_cu14(m3, r1, r2, /* is_cu12 = */ 1);
return "cu12";
}
static const HChar *
s390_irgen_CU14(UChar m3, UChar r1, UChar r2)
{
s390_irgen_cu12_cu14(m3, r1, r2, /* is_cu12 = */ 0);
return "cu14";
}
static IRExpr *
s390_call_ecag(IRExpr *op2addr)
{
IRExpr **args, *call;
args = mkIRExprVec_1(op2addr);
call = mkIRExprCCall(Ity_I64, 0 /*regparm*/,
"s390_do_ecag", &s390_do_ecag, args);
/* Nothing is excluded from definedness checking. */
call->Iex.CCall.cee->mcx_mask = 0;
return call;
}
static const HChar *
s390_irgen_ECAG(UChar r1, UChar r3 __attribute__((unused)), IRTemp op2addr)
{
if (! s390_host_has_gie) {
emulation_failure(EmFail_S390X_ecag);
} else {
put_gpr_dw0(r1, s390_call_ecag(mkexpr(op2addr)));
}
return "ecag";
}
/* New insns are added here.
If an insn is contingent on a facility being installed also
check whether the list of supported facilities in function
s390x_dirtyhelper_STFLE needs updating */
/*------------------------------------------------------------*/
/*--- Build IR for special instructions ---*/
/*------------------------------------------------------------*/
static void
s390_irgen_client_request(void)
{
if (0)
vex_printf("%%R3 = client_request ( %%R2 )\n");
Addr64 next = guest_IA_curr_instr + S390_SPECIAL_OP_PREAMBLE_SIZE
+ S390_SPECIAL_OP_SIZE;
dis_res->jk_StopHere = Ijk_ClientReq;
dis_res->whatNext = Dis_StopHere;
put_IA(mkaddr_expr(next));
}
static void
s390_irgen_guest_NRADDR(void)
{
if (0)
vex_printf("%%R3 = guest_NRADDR\n");
put_gpr_dw0(3, IRExpr_Get(S390X_GUEST_OFFSET(guest_NRADDR), Ity_I64));
}
static void
s390_irgen_call_noredir(void)
{
Addr64 next = guest_IA_curr_instr + S390_SPECIAL_OP_PREAMBLE_SIZE
+ S390_SPECIAL_OP_SIZE;
/* Continue after special op */
put_gpr_dw0(14, mkaddr_expr(next));
/* The address is in REG1, all parameters are in the right (guest) places */
put_IA(get_gpr_dw0(1));
dis_res->whatNext = Dis_StopHere;
dis_res->jk_StopHere = Ijk_NoRedir;
}
/* Force proper alignment for the structures below. */
#pragma pack(1)
static s390_decode_t
s390_decode_2byte_and_irgen(UChar *bytes)
{
typedef union {
struct {
unsigned int op : 16;
} E;
struct {
unsigned int op : 8;
unsigned int i : 8;
} I;
struct {
unsigned int op : 8;
unsigned int r1 : 4;
unsigned int r2 : 4;
} RR;
} formats;
union {
formats fmt;
UShort value;
} ovl;
vassert(sizeof(formats) == 2);
((UChar *)(&ovl.value))[0] = bytes[0];
((UChar *)(&ovl.value))[1] = bytes[1];
switch (ovl.value & 0xffff) {
case 0x0101: /* PR */ goto unimplemented;
case 0x0102: /* UPT */ goto unimplemented;
case 0x0104: /* PTFF */ goto unimplemented;
case 0x0107: /* SCKPF */ goto unimplemented;
case 0x010a: s390_format_E(s390_irgen_PFPO); goto ok;
case 0x010b: /* TAM */ goto unimplemented;
case 0x010c: /* SAM24 */ goto unimplemented;
case 0x010d: /* SAM31 */ goto unimplemented;
case 0x010e: /* SAM64 */ goto unimplemented;
case 0x01ff: /* TRAP2 */ goto unimplemented;
}
switch ((ovl.value & 0xff00) >> 8) {
case 0x04: /* SPM */ goto unimplemented;
case 0x05: /* BALR */ goto unimplemented;
case 0x06: s390_format_RR_RR(s390_irgen_BCTR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x07: s390_format_RR(s390_irgen_BCR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x0a: s390_format_I(s390_irgen_SVC, ovl.fmt.I.i); goto ok;
case 0x0b: /* BSM */ goto unimplemented;
case 0x0c: /* BASSM */ goto unimplemented;
case 0x0d: s390_format_RR_RR(s390_irgen_BASR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x0e: s390_format_RR(s390_irgen_MVCL, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x0f: s390_format_RR(s390_irgen_CLCL, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x10: s390_format_RR_RR(s390_irgen_LPR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x11: s390_format_RR_RR(s390_irgen_LNR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x12: s390_format_RR_RR(s390_irgen_LTR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x13: s390_format_RR_RR(s390_irgen_LCR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x14: s390_format_RR_RR(s390_irgen_NR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x15: s390_format_RR_RR(s390_irgen_CLR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x16: s390_format_RR_RR(s390_irgen_OR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x17: s390_format_RR_RR(s390_irgen_XR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x18: s390_format_RR_RR(s390_irgen_LR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x19: s390_format_RR_RR(s390_irgen_CR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x1a: s390_format_RR_RR(s390_irgen_AR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x1b: s390_format_RR_RR(s390_irgen_SR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x1c: s390_format_RR_RR(s390_irgen_MR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x1d: s390_format_RR_RR(s390_irgen_DR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x1e: s390_format_RR_RR(s390_irgen_ALR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x1f: s390_format_RR_RR(s390_irgen_SLR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x20: /* LPDR */ goto unimplemented;
case 0x21: /* LNDR */ goto unimplemented;
case 0x22: /* LTDR */ goto unimplemented;
case 0x23: /* LCDR */ goto unimplemented;
case 0x24: /* HDR */ goto unimplemented;
case 0x25: /* LDXR */ goto unimplemented;
case 0x26: /* MXR */ goto unimplemented;
case 0x27: /* MXDR */ goto unimplemented;
case 0x28: s390_format_RR_FF(s390_irgen_LDR, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x29: /* CDR */ goto unimplemented;
case 0x2a: /* ADR */ goto unimplemented;
case 0x2b: /* SDR */ goto unimplemented;
case 0x2c: /* MDR */ goto unimplemented;
case 0x2d: /* DDR */ goto unimplemented;
case 0x2e: /* AWR */ goto unimplemented;
case 0x2f: /* SWR */ goto unimplemented;
case 0x30: /* LPER */ goto unimplemented;
case 0x31: /* LNER */ goto unimplemented;
case 0x32: /* LTER */ goto unimplemented;
case 0x33: /* LCER */ goto unimplemented;
case 0x34: /* HER */ goto unimplemented;
case 0x35: /* LEDR */ goto unimplemented;
case 0x36: /* AXR */ goto unimplemented;
case 0x37: /* SXR */ goto unimplemented;
case 0x38: s390_format_RR_FF(s390_irgen_LER, ovl.fmt.RR.r1, ovl.fmt.RR.r2);
goto ok;
case 0x39: /* CER */ goto unimplemented;
case 0x3a: /* AER */ goto unimplemented;
case 0x3b: /* SER */ goto unimplemented;
case 0x3c: /* MDER */ goto unimplemented;
case 0x3d: /* DER */ goto unimplemented;
case 0x3e: /* AUR */ goto unimplemented;
case 0x3f: /* SUR */ goto unimplemented;
}
return S390_DECODE_UNKNOWN_INSN;
ok:
return S390_DECODE_OK;
unimplemented:
return S390_DECODE_UNIMPLEMENTED_INSN;
}
static s390_decode_t
s390_decode_4byte_and_irgen(UChar *bytes)
{
typedef union {
struct {
unsigned int op1 : 8;
unsigned int r1 : 4;
unsigned int op2 : 4;
unsigned int i2 : 16;
} RI;
struct {
unsigned int op : 16;
unsigned int : 8;
unsigned int r1 : 4;
unsigned int r2 : 4;
} RRE;
struct {
unsigned int op : 16;
unsigned int r1 : 4;
unsigned int : 4;
unsigned int r3 : 4;
unsigned int r2 : 4;
} RRF;
struct {
unsigned int op : 16;
unsigned int m3 : 4;
unsigned int m4 : 4;
unsigned int r1 : 4;
unsigned int r2 : 4;
} RRF2;
struct {
unsigned int op : 16;
unsigned int r3 : 4;
unsigned int : 4;
unsigned int r1 : 4;
unsigned int r2 : 4;
} RRF3;
struct {
unsigned int op : 16;
unsigned int r3 : 4;
unsigned int : 4;
unsigned int r1 : 4;
unsigned int r2 : 4;
} RRR;
struct {
unsigned int op : 16;
unsigned int r3 : 4;
unsigned int m4 : 4;
unsigned int r1 : 4;
unsigned int r2 : 4;
} RRF4;
struct {
unsigned int op : 16;
unsigned int : 4;
unsigned int m4 : 4;
unsigned int r1 : 4;
unsigned int r2 : 4;
} RRF5;
struct {
unsigned int op : 8;
unsigned int r1 : 4;
unsigned int r3 : 4;
unsigned int b2 : 4;
unsigned int d2 : 12;
} RS;
struct {
unsigned int op : 8;
unsigned int r1 : 4;
unsigned int r3 : 4;
unsigned int i2 : 16;
} RSI;
struct {
unsigned int op : 8;
unsigned int r1 : 4;
unsigned int x2 : 4;
unsigned int b2 : 4;
unsigned int d2 : 12;
} RX;
struct {
unsigned int op : 16;
unsigned int b2 : 4;
unsigned int d2 : 12;
} S;
struct {
unsigned int op : 8;
unsigned int i2 : 8;
unsigned int b1 : 4;
unsigned int d1 : 12;
} SI;
} formats;
union {
formats fmt;
UInt value;
} ovl;
vassert(sizeof(formats) == 4);
((UChar *)(&ovl.value))[0] = bytes[0];
((UChar *)(&ovl.value))[1] = bytes[1];
((UChar *)(&ovl.value))[2] = bytes[2];
((UChar *)(&ovl.value))[3] = bytes[3];
switch ((ovl.value & 0xff0f0000) >> 16) {
case 0xa500: s390_format_RI_RU(s390_irgen_IIHH, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa501: s390_format_RI_RU(s390_irgen_IIHL, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa502: s390_format_RI_RU(s390_irgen_IILH, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa503: s390_format_RI_RU(s390_irgen_IILL, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa504: s390_format_RI_RU(s390_irgen_NIHH, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa505: s390_format_RI_RU(s390_irgen_NIHL, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa506: s390_format_RI_RU(s390_irgen_NILH, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa507: s390_format_RI_RU(s390_irgen_NILL, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa508: s390_format_RI_RU(s390_irgen_OIHH, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa509: s390_format_RI_RU(s390_irgen_OIHL, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa50a: s390_format_RI_RU(s390_irgen_OILH, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa50b: s390_format_RI_RU(s390_irgen_OILL, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa50c: s390_format_RI_RU(s390_irgen_LLIHH, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa50d: s390_format_RI_RU(s390_irgen_LLIHL, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa50e: s390_format_RI_RU(s390_irgen_LLILH, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa50f: s390_format_RI_RU(s390_irgen_LLILL, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa700: s390_format_RI_RU(s390_irgen_TMLH, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa701: s390_format_RI_RU(s390_irgen_TMLL, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa702: s390_format_RI_RU(s390_irgen_TMHH, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa703: s390_format_RI_RU(s390_irgen_TMHL, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa704: s390_format_RI(s390_irgen_BRC, ovl.fmt.RI.r1, ovl.fmt.RI.i2);
goto ok;
case 0xa705: s390_format_RI_RP(s390_irgen_BRAS, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa706: s390_format_RI_RP(s390_irgen_BRCT, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa707: s390_format_RI_RP(s390_irgen_BRCTG, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa708: s390_format_RI_RI(s390_irgen_LHI, ovl.fmt.RI.r1, ovl.fmt.RI.i2);
goto ok;
case 0xa709: s390_format_RI_RI(s390_irgen_LGHI, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa70a: s390_format_RI_RI(s390_irgen_AHI, ovl.fmt.RI.r1, ovl.fmt.RI.i2);
goto ok;
case 0xa70b: s390_format_RI_RI(s390_irgen_AGHI, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa70c: s390_format_RI_RI(s390_irgen_MHI, ovl.fmt.RI.r1, ovl.fmt.RI.i2);
goto ok;
case 0xa70d: s390_format_RI_RI(s390_irgen_MGHI, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
case 0xa70e: s390_format_RI_RI(s390_irgen_CHI, ovl.fmt.RI.r1, ovl.fmt.RI.i2);
goto ok;
case 0xa70f: s390_format_RI_RI(s390_irgen_CGHI, ovl.fmt.RI.r1,
ovl.fmt.RI.i2); goto ok;
}
switch ((ovl.value & 0xffff0000) >> 16) {
case 0x8000: /* SSM */ goto unimplemented;
case 0x8200: /* LPSW */ goto unimplemented;
case 0x9300: /* TS */ goto unimplemented;
case 0xb202: /* STIDP */ goto unimplemented;
case 0xb204: /* SCK */ goto unimplemented;
case 0xb205: s390_format_S_RD(s390_irgen_STCK, ovl.fmt.S.b2, ovl.fmt.S.d2);
goto ok;
case 0xb206: /* SCKC */ goto unimplemented;
case 0xb207: /* STCKC */ goto unimplemented;
case 0xb208: /* SPT */ goto unimplemented;
case 0xb209: /* STPT */ goto unimplemented;
case 0xb20a: /* SPKA */ goto unimplemented;
case 0xb20b: /* IPK */ goto unimplemented;
case 0xb20d: /* PTLB */ goto unimplemented;
case 0xb210: /* SPX */ goto unimplemented;
case 0xb211: /* STPX */ goto unimplemented;
case 0xb212: /* STAP */ goto unimplemented;
case 0xb214: /* SIE */ goto unimplemented;
case 0xb218: /* PC */ goto unimplemented;
case 0xb219: /* SAC */ goto unimplemented;
case 0xb21a: /* CFC */ goto unimplemented;
case 0xb221: /* IPTE */ goto unimplemented;
case 0xb222: s390_format_RRE_R0(s390_irgen_IPM, ovl.fmt.RRE.r1); goto ok;
case 0xb223: /* IVSK */ goto unimplemented;
case 0xb224: /* IAC */ goto unimplemented;
case 0xb225: /* SSAR */ goto unimplemented;
case 0xb226: /* EPAR */ goto unimplemented;
case 0xb227: /* ESAR */ goto unimplemented;
case 0xb228: /* PT */ goto unimplemented;
case 0xb229: /* ISKE */ goto unimplemented;
case 0xb22a: /* RRBE */ goto unimplemented;
case 0xb22b: /* SSKE */ goto unimplemented;
case 0xb22c: /* TB */ goto unimplemented;
case 0xb22d: /* DXR */ goto unimplemented;
case 0xb22e: /* PGIN */ goto unimplemented;
case 0xb22f: /* PGOUT */ goto unimplemented;
case 0xb230: /* CSCH */ goto unimplemented;
case 0xb231: /* HSCH */ goto unimplemented;
case 0xb232: /* MSCH */ goto unimplemented;
case 0xb233: /* SSCH */ goto unimplemented;
case 0xb234: /* STSCH */ goto unimplemented;
case 0xb235: /* TSCH */ goto unimplemented;
case 0xb236: /* TPI */ goto unimplemented;
case 0xb237: /* SAL */ goto unimplemented;
case 0xb238: /* RSCH */ goto unimplemented;
case 0xb239: /* STCRW */ goto unimplemented;
case 0xb23a: /* STCPS */ goto unimplemented;
case 0xb23b: /* RCHP */ goto unimplemented;
case 0xb23c: /* SCHM */ goto unimplemented;
case 0xb240: /* BAKR */ goto unimplemented;
case 0xb241: s390_format_RRE(s390_irgen_CKSM, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb244: /* SQDR */ goto unimplemented;
case 0xb245: /* SQER */ goto unimplemented;
case 0xb246: /* STURA */ goto unimplemented;
case 0xb247: /* MSTA */ goto unimplemented;
case 0xb248: /* PALB */ goto unimplemented;
case 0xb249: /* EREG */ goto unimplemented;
case 0xb24a: /* ESTA */ goto unimplemented;
case 0xb24b: /* LURA */ goto unimplemented;
case 0xb24c: /* TAR */ goto unimplemented;
case 0xb24d: s390_format_RRE(s390_irgen_CPYA, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb24e: s390_format_RRE(s390_irgen_SAR, ovl.fmt.RRE.r1, ovl.fmt.RRE.r2);
goto ok;
case 0xb24f: s390_format_RRE(s390_irgen_EAR, ovl.fmt.RRE.r1, ovl.fmt.RRE.r2);
goto ok;
case 0xb250: /* CSP */ goto unimplemented;
case 0xb252: s390_format_RRE_RR(s390_irgen_MSR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb254: /* MVPG */ goto unimplemented;
case 0xb255: s390_format_RRE_RR(s390_irgen_MVST, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb257: /* CUSE */ goto unimplemented;
case 0xb258: /* BSG */ goto unimplemented;
case 0xb25a: /* BSA */ goto unimplemented;
case 0xb25d: s390_format_RRE_RR(s390_irgen_CLST, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb25e: s390_format_RRE_RR(s390_irgen_SRST, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb263: /* CMPSC */ goto unimplemented;
case 0xb274: /* SIGA */ goto unimplemented;
case 0xb276: /* XSCH */ goto unimplemented;
case 0xb277: /* RP */ goto unimplemented;
case 0xb278: s390_format_S_RD(s390_irgen_STCKE, ovl.fmt.S.b2, ovl.fmt.S.d2);goto ok;
case 0xb279: /* SACF */ goto unimplemented;
case 0xb27c: s390_format_S_RD(s390_irgen_STCKF, ovl.fmt.S.b2, ovl.fmt.S.d2);goto ok;
case 0xb27d: /* STSI */ goto unimplemented;
case 0xb280: /* LPP */ goto unimplemented;
case 0xb284: /* LCCTL */ goto unimplemented;
case 0xb285: /* LPCTL */ goto unimplemented;
case 0xb286: /* QSI */ goto unimplemented;
case 0xb287: /* LSCTL */ goto unimplemented;
case 0xb28e: /* QCTRI */ goto unimplemented;
case 0xb299: s390_format_S_RD(s390_irgen_SRNM, ovl.fmt.S.b2, ovl.fmt.S.d2);
goto ok;
case 0xb29c: s390_format_S_RD(s390_irgen_STFPC, ovl.fmt.S.b2, ovl.fmt.S.d2);
goto ok;
case 0xb29d: s390_format_S_RD(s390_irgen_LFPC, ovl.fmt.S.b2, ovl.fmt.S.d2);
goto ok;
case 0xb2a5: s390_format_RRE_FF(s390_irgen_TRE, ovl.fmt.RRE.r1, ovl.fmt.RRE.r2); goto ok;
case 0xb2a6: s390_format_RRF_M0RERE(s390_irgen_CU21, ovl.fmt.RRF3.r3,
ovl.fmt.RRF3.r1, ovl.fmt.RRF3.r2);
goto ok;
case 0xb2a7: s390_format_RRF_M0RERE(s390_irgen_CU12, ovl.fmt.RRF3.r3,
ovl.fmt.RRF3.r1, ovl.fmt.RRF3.r2);
goto ok;
case 0xb2b0: s390_format_S_RD(s390_irgen_STFLE, ovl.fmt.S.b2, ovl.fmt.S.d2);
goto ok;
case 0xb2b1: /* STFL */ goto unimplemented;
case 0xb2b2: /* LPSWE */ goto unimplemented;
case 0xb2b8: s390_irgen_srnmb_wrapper(ovl.fmt.S.b2, ovl.fmt.S.d2);
goto ok;
case 0xb2b9: s390_format_S_RD(s390_irgen_SRNMT, ovl.fmt.S.b2, ovl.fmt.S.d2);
goto ok;
case 0xb2bd: /* LFAS */ goto unimplemented;
case 0xb2e0: /* SCCTR */ goto unimplemented;
case 0xb2e1: /* SPCTR */ goto unimplemented;
case 0xb2e4: /* ECCTR */ goto unimplemented;
case 0xb2e5: /* EPCTR */ goto unimplemented;
case 0xb2e8: /* PPA */ goto unimplemented;
case 0xb2ec: /* ETND */ goto unimplemented;
case 0xb2ed: /* ECPGA */ goto unimplemented;
case 0xb2f8: /* TEND */ goto unimplemented;
case 0xb2fa: /* NIAI */ goto unimplemented;
case 0xb2fc: /* TABORT */ goto unimplemented;
case 0xb2ff: /* TRAP4 */ goto unimplemented;
case 0xb300: s390_format_RRE_FF(s390_irgen_LPEBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb301: s390_format_RRE_FF(s390_irgen_LNEBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb302: s390_format_RRE_FF(s390_irgen_LTEBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb303: s390_format_RRE_FF(s390_irgen_LCEBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb304: s390_format_RRE_FF(s390_irgen_LDEBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb305: s390_format_RRE_FF(s390_irgen_LXDBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb306: s390_format_RRE_FF(s390_irgen_LXEBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb307: /* MXDBR */ goto unimplemented;
case 0xb308: /* KEBR */ goto unimplemented;
case 0xb309: s390_format_RRE_FF(s390_irgen_CEBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb30a: s390_format_RRE_FF(s390_irgen_AEBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb30b: s390_format_RRE_FF(s390_irgen_SEBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb30c: /* MDEBR */ goto unimplemented;
case 0xb30d: s390_format_RRE_FF(s390_irgen_DEBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb30e: s390_format_RRF_F0FF(s390_irgen_MAEBR, ovl.fmt.RRF.r1,
ovl.fmt.RRF.r3, ovl.fmt.RRF.r2); goto ok;
case 0xb30f: s390_format_RRF_F0FF(s390_irgen_MSEBR, ovl.fmt.RRF.r1,
ovl.fmt.RRF.r3, ovl.fmt.RRF.r2); goto ok;
case 0xb310: s390_format_RRE_FF(s390_irgen_LPDBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb311: s390_format_RRE_FF(s390_irgen_LNDBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb312: s390_format_RRE_FF(s390_irgen_LTDBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb313: s390_format_RRE_FF(s390_irgen_LCDBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb314: s390_format_RRE_FF(s390_irgen_SQEBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb315: s390_format_RRE_FF(s390_irgen_SQDBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb316: s390_format_RRE_FF(s390_irgen_SQXBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb317: s390_format_RRE_FF(s390_irgen_MEEBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb318: /* KDBR */ goto unimplemented;
case 0xb319: s390_format_RRE_FF(s390_irgen_CDBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb31a: s390_format_RRE_FF(s390_irgen_ADBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb31b: s390_format_RRE_FF(s390_irgen_SDBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb31c: s390_format_RRE_FF(s390_irgen_MDBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb31d: s390_format_RRE_FF(s390_irgen_DDBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb31e: s390_format_RRF_F0FF(s390_irgen_MADBR, ovl.fmt.RRF.r1,
ovl.fmt.RRF.r3, ovl.fmt.RRF.r2); goto ok;
case 0xb31f: s390_format_RRF_F0FF(s390_irgen_MSDBR, ovl.fmt.RRF.r1,
ovl.fmt.RRF.r3, ovl.fmt.RRF.r2); goto ok;
case 0xb324: /* LDER */ goto unimplemented;
case 0xb325: /* LXDR */ goto unimplemented;
case 0xb326: /* LXER */ goto unimplemented;
case 0xb32e: /* MAER */ goto unimplemented;
case 0xb32f: /* MSER */ goto unimplemented;
case 0xb336: /* SQXR */ goto unimplemented;
case 0xb337: /* MEER */ goto unimplemented;
case 0xb338: /* MAYLR */ goto unimplemented;
case 0xb339: /* MYLR */ goto unimplemented;
case 0xb33a: /* MAYR */ goto unimplemented;
case 0xb33b: /* MYR */ goto unimplemented;
case 0xb33c: /* MAYHR */ goto unimplemented;
case 0xb33d: /* MYHR */ goto unimplemented;
case 0xb33e: /* MADR */ goto unimplemented;
case 0xb33f: /* MSDR */ goto unimplemented;
case 0xb340: s390_format_RRE_FF(s390_irgen_LPXBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb341: s390_format_RRE_FF(s390_irgen_LNXBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb342: s390_format_RRE_FF(s390_irgen_LTXBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb343: s390_format_RRE_FF(s390_irgen_LCXBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb344: s390_format_RRF_UUFF(s390_irgen_LEDBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb345: s390_format_RRF_UUFF(s390_irgen_LDXBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb346: s390_format_RRF_UUFF(s390_irgen_LEXBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb347: /* FIXBR */ goto unimplemented;
case 0xb348: /* KXBR */ goto unimplemented;
case 0xb349: s390_format_RRE_FF(s390_irgen_CXBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb34a: s390_format_RRE_FF(s390_irgen_AXBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb34b: s390_format_RRE_FF(s390_irgen_SXBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb34c: s390_format_RRE_FF(s390_irgen_MXBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb34d: s390_format_RRE_FF(s390_irgen_DXBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb350: /* TBEDR */ goto unimplemented;
case 0xb351: /* TBDR */ goto unimplemented;
case 0xb353: /* DIEBR */ goto unimplemented;
case 0xb357: /* FIEBR */ goto unimplemented;
case 0xb358: /* THDER */ goto unimplemented;
case 0xb359: /* THDR */ goto unimplemented;
case 0xb35b: /* DIDBR */ goto unimplemented;
case 0xb35f: /* FIDBR */ goto unimplemented;
case 0xb360: /* LPXR */ goto unimplemented;
case 0xb361: /* LNXR */ goto unimplemented;
case 0xb362: /* LTXR */ goto unimplemented;
case 0xb363: /* LCXR */ goto unimplemented;
case 0xb365: s390_format_RRE_FF(s390_irgen_LXR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb366: /* LEXR */ goto unimplemented;
case 0xb367: /* FIXR */ goto unimplemented;
case 0xb369: /* CXR */ goto unimplemented;
case 0xb370: s390_format_RRE_FF(s390_irgen_LPDFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb371: s390_format_RRE_FF(s390_irgen_LNDFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb372: s390_format_RRF_F0FF2(s390_irgen_CPSDR, ovl.fmt.RRF3.r3,
ovl.fmt.RRF3.r1, ovl.fmt.RRF3.r2);
goto ok;
case 0xb373: s390_format_RRE_FF(s390_irgen_LCDFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb374: s390_format_RRE_F0(s390_irgen_LZER, ovl.fmt.RRE.r1); goto ok;
case 0xb375: s390_format_RRE_F0(s390_irgen_LZDR, ovl.fmt.RRE.r1); goto ok;
case 0xb376: s390_format_RRE_F0(s390_irgen_LZXR, ovl.fmt.RRE.r1); goto ok;
case 0xb377: /* FIER */ goto unimplemented;
case 0xb37f: /* FIDR */ goto unimplemented;
case 0xb384: s390_format_RRE_R0(s390_irgen_SFPC, ovl.fmt.RRE.r1); goto ok;
case 0xb385: /* SFASR */ goto unimplemented;
case 0xb38c: s390_format_RRE_R0(s390_irgen_EFPC, ovl.fmt.RRE.r1); goto ok;
case 0xb390: s390_format_RRF_UUFR(s390_irgen_CELFBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb391: s390_format_RRF_UUFR(s390_irgen_CDLFBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb392: s390_format_RRF_UUFR(s390_irgen_CXLFBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb394: s390_format_RRF_UUFR(s390_irgen_CEFBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb395: s390_format_RRF_UUFR(s390_irgen_CDFBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb396: s390_format_RRF_UUFR(s390_irgen_CXFBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb398: s390_format_RRF_UURF(s390_irgen_CFEBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb399: s390_format_RRF_UURF(s390_irgen_CFDBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb39a: s390_format_RRF_UURF(s390_irgen_CFXBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb39c: s390_format_RRF_UURF(s390_irgen_CLFEBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb39d: s390_format_RRF_UURF(s390_irgen_CLFDBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb39e: s390_format_RRF_UURF(s390_irgen_CLFXBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3a0: s390_format_RRF_UUFR(s390_irgen_CELGBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3a1: s390_format_RRF_UUFR(s390_irgen_CDLGBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3a2: s390_format_RRF_UUFR(s390_irgen_CXLGBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3a4: s390_format_RRF_UUFR(s390_irgen_CEGBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3a5: s390_format_RRF_UUFR(s390_irgen_CDGBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3a6: s390_format_RRF_UUFR(s390_irgen_CXGBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3a8: s390_format_RRF_UURF(s390_irgen_CGEBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3a9: s390_format_RRF_UURF(s390_irgen_CGDBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3aa: s390_format_RRF_UURF(s390_irgen_CGXBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3ac: s390_format_RRF_UURF(s390_irgen_CLGEBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3ad: s390_format_RRF_UURF(s390_irgen_CLGDBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3ae: s390_format_RRF_UURF(s390_irgen_CLGXBR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3b4: /* CEFR */ goto unimplemented;
case 0xb3b5: /* CDFR */ goto unimplemented;
case 0xb3b6: /* CXFR */ goto unimplemented;
case 0xb3b8: /* CFER */ goto unimplemented;
case 0xb3b9: /* CFDR */ goto unimplemented;
case 0xb3ba: /* CFXR */ goto unimplemented;
case 0xb3c1: s390_format_RRE_FR(s390_irgen_LDGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb3c4: /* CEGR */ goto unimplemented;
case 0xb3c5: /* CDGR */ goto unimplemented;
case 0xb3c6: /* CXGR */ goto unimplemented;
case 0xb3c8: /* CGER */ goto unimplemented;
case 0xb3c9: /* CGDR */ goto unimplemented;
case 0xb3ca: /* CGXR */ goto unimplemented;
case 0xb3cd: s390_format_RRE_RF(s390_irgen_LGDR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb3d0: s390_format_RRF_FUFF2(s390_irgen_MDTRA, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.m4, ovl.fmt.RRF4.r1,
ovl.fmt.RRF4.r2); goto ok;
case 0xb3d1: s390_format_RRF_FUFF2(s390_irgen_DDTRA, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.m4, ovl.fmt.RRF4.r1,
ovl.fmt.RRF4.r2); goto ok;
case 0xb3d2: s390_format_RRF_FUFF2(s390_irgen_ADTRA, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.m4, ovl.fmt.RRF4.r1,
ovl.fmt.RRF4.r2); goto ok;
case 0xb3d3: s390_format_RRF_FUFF2(s390_irgen_SDTRA, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.m4, ovl.fmt.RRF4.r1,
ovl.fmt.RRF4.r2); goto ok;
case 0xb3d4: s390_format_RRF_0UFF(s390_irgen_LDETR, ovl.fmt.RRF5.m4,
ovl.fmt.RRF5.r1, ovl.fmt.RRF5.r2); goto ok;
case 0xb3d5: s390_format_RRF_UUFF(s390_irgen_LEDTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3d6: s390_format_RRE_FF(s390_irgen_LTDTR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb3d7: /* FIDTR */ goto unimplemented;
case 0xb3d8: s390_format_RRF_FUFF2(s390_irgen_MXTRA, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.m4, ovl.fmt.RRF4.r1,
ovl.fmt.RRF4.r2); goto ok;
case 0xb3d9: s390_format_RRF_FUFF2(s390_irgen_DXTRA, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.m4, ovl.fmt.RRF4.r1,
ovl.fmt.RRF4.r2); goto ok;
case 0xb3da: s390_format_RRF_FUFF2(s390_irgen_AXTRA, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.m4, ovl.fmt.RRF4.r1,
ovl.fmt.RRF4.r2); goto ok;
case 0xb3db: s390_format_RRF_FUFF2(s390_irgen_SXTRA, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.m4, ovl.fmt.RRF4.r1,
ovl.fmt.RRF4.r2); goto ok;
case 0xb3dc: s390_format_RRF_0UFF(s390_irgen_LXDTR, ovl.fmt.RRF5.m4,
ovl.fmt.RRF5.r1, ovl.fmt.RRF5.r2); goto ok;
case 0xb3dd: s390_format_RRF_UUFF(s390_irgen_LDXTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3de: s390_format_RRE_FF(s390_irgen_LTXTR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb3df: /* FIXTR */ goto unimplemented;
case 0xb3e0: /* KDTR */ goto unimplemented;
case 0xb3e1: s390_format_RRF_UURF(s390_irgen_CGDTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3e2: /* CUDTR */ goto unimplemented;
case 0xb3e3: /* CSDTR */ goto unimplemented;
case 0xb3e4: s390_format_RRE_FF(s390_irgen_CDTR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb3e5: s390_format_RRE_RF(s390_irgen_EEDTR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb3e7: s390_format_RRE_RF(s390_irgen_ESDTR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb3e8: /* KXTR */ goto unimplemented;
case 0xb3e9: s390_format_RRF_UURF(s390_irgen_CGXTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3ea: /* CUXTR */ goto unimplemented;
case 0xb3eb: /* CSXTR */ goto unimplemented;
case 0xb3ec: s390_format_RRE_FF(s390_irgen_CXTR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb3ed: s390_format_RRE_RF(s390_irgen_EEXTR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb3ef: s390_format_RRE_RF(s390_irgen_ESXTR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb3f1: s390_format_RRF_UUFR(s390_irgen_CDGTRA, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3f2: /* CDUTR */ goto unimplemented;
case 0xb3f3: /* CDSTR */ goto unimplemented;
case 0xb3f4: s390_format_RRE_FF(s390_irgen_CEDTR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb3f5: s390_format_RRF_FUFF(s390_irgen_QADTR, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.m4, ovl.fmt.RRF4.r1,
ovl.fmt.RRF4.r2); goto ok;
case 0xb3f6: s390_format_RRF_F0FR(s390_irgen_IEDTR, ovl.fmt.RRF3.r3,
ovl.fmt.RRF3.r1, ovl.fmt.RRF3.r2); goto ok;
case 0xb3f7: s390_format_RRF_FFRU(s390_irgen_RRDTR, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.m4, ovl.fmt.RRF4.r1,
ovl.fmt.RRF4.r2); goto ok;
case 0xb3f9: s390_format_RRF_UUFR(s390_irgen_CXGTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb3fa: /* CXUTR */ goto unimplemented;
case 0xb3fb: /* CXSTR */ goto unimplemented;
case 0xb3fc: s390_format_RRE_FF(s390_irgen_CEXTR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb3fd: s390_format_RRF_FUFF(s390_irgen_QAXTR, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.m4, ovl.fmt.RRF4.r1,
ovl.fmt.RRF4.r2); goto ok;
case 0xb3fe: s390_format_RRF_F0FR(s390_irgen_IEXTR, ovl.fmt.RRF3.r3,
ovl.fmt.RRF3.r1, ovl.fmt.RRF3.r2); goto ok;
case 0xb3ff: s390_format_RRF_FFRU(s390_irgen_RRXTR, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.m4, ovl.fmt.RRF4.r1,
ovl.fmt.RRF4.r2); goto ok;
case 0xb900: s390_format_RRE_RR(s390_irgen_LPGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb901: s390_format_RRE_RR(s390_irgen_LNGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb902: s390_format_RRE_RR(s390_irgen_LTGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb903: s390_format_RRE_RR(s390_irgen_LCGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb904: s390_format_RRE_RR(s390_irgen_LGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb905: /* LURAG */ goto unimplemented;
case 0xb906: s390_format_RRE_RR(s390_irgen_LGBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb907: s390_format_RRE_RR(s390_irgen_LGHR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb908: s390_format_RRE_RR(s390_irgen_AGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb909: s390_format_RRE_RR(s390_irgen_SGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb90a: s390_format_RRE_RR(s390_irgen_ALGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb90b: s390_format_RRE_RR(s390_irgen_SLGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb90c: s390_format_RRE_RR(s390_irgen_MSGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb90d: s390_format_RRE_RR(s390_irgen_DSGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb90e: /* EREGG */ goto unimplemented;
case 0xb90f: s390_format_RRE_RR(s390_irgen_LRVGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb910: s390_format_RRE_RR(s390_irgen_LPGFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb911: s390_format_RRE_RR(s390_irgen_LNGFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb912: s390_format_RRE_RR(s390_irgen_LTGFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb913: s390_format_RRE_RR(s390_irgen_LCGFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb914: s390_format_RRE_RR(s390_irgen_LGFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb916: s390_format_RRE_RR(s390_irgen_LLGFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb917: s390_format_RRE_RR(s390_irgen_LLGTR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb918: s390_format_RRE_RR(s390_irgen_AGFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb919: s390_format_RRE_RR(s390_irgen_SGFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb91a: s390_format_RRE_RR(s390_irgen_ALGFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb91b: s390_format_RRE_RR(s390_irgen_SLGFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb91c: s390_format_RRE_RR(s390_irgen_MSGFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb91d: s390_format_RRE_RR(s390_irgen_DSGFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb91e: /* KMAC */ goto unimplemented;
case 0xb91f: s390_format_RRE_RR(s390_irgen_LRVR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb920: s390_format_RRE_RR(s390_irgen_CGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb921: s390_format_RRE_RR(s390_irgen_CLGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb925: /* STURG */ goto unimplemented;
case 0xb926: s390_format_RRE_RR(s390_irgen_LBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb927: s390_format_RRE_RR(s390_irgen_LHR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb928: /* PCKMO */ goto unimplemented;
case 0xb92a: /* KMF */ goto unimplemented;
case 0xb92b: /* KMO */ goto unimplemented;
case 0xb92c: /* PCC */ goto unimplemented;
case 0xb92d: /* KMCTR */ goto unimplemented;
case 0xb92e: /* KM */ goto unimplemented;
case 0xb92f: /* KMC */ goto unimplemented;
case 0xb930: s390_format_RRE_RR(s390_irgen_CGFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb931: s390_format_RRE_RR(s390_irgen_CLGFR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb93e: /* KIMD */ goto unimplemented;
case 0xb93f: /* KLMD */ goto unimplemented;
case 0xb941: s390_format_RRF_UURF(s390_irgen_CFDTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb942: s390_format_RRF_UURF(s390_irgen_CLGDTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb943: s390_format_RRF_UURF(s390_irgen_CLFDTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb946: s390_format_RRE_RR(s390_irgen_BCTGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb949: s390_format_RRF_UURF(s390_irgen_CFXTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb94a: s390_format_RRF_UURF(s390_irgen_CLGXTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb94b: s390_format_RRF_UURF(s390_irgen_CLFXTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb951: s390_format_RRF_UUFR(s390_irgen_CDFTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb952: s390_format_RRF_UUFR(s390_irgen_CDLGTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb953: s390_format_RRF_UUFR(s390_irgen_CDLFTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb959: s390_format_RRF_UUFR(s390_irgen_CXFTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb95a: s390_format_RRF_UUFR(s390_irgen_CXLGTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb95b: s390_format_RRF_UUFR(s390_irgen_CXLFTR, ovl.fmt.RRF2.m3,
ovl.fmt.RRF2.m4, ovl.fmt.RRF2.r1,
ovl.fmt.RRF2.r2); goto ok;
case 0xb960: /* CGRT */ goto unimplemented;
case 0xb961: /* CLGRT */ goto unimplemented;
case 0xb972: /* CRT */ goto unimplemented;
case 0xb973: /* CLRT */ goto unimplemented;
case 0xb980: s390_format_RRE_RR(s390_irgen_NGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb981: s390_format_RRE_RR(s390_irgen_OGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb982: s390_format_RRE_RR(s390_irgen_XGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb983: s390_format_RRE_RR(s390_irgen_FLOGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb984: s390_format_RRE_RR(s390_irgen_LLGCR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb985: s390_format_RRE_RR(s390_irgen_LLGHR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb986: s390_format_RRE_RR(s390_irgen_MLGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb987: s390_format_RRE_RR(s390_irgen_DLGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb988: s390_format_RRE_RR(s390_irgen_ALCGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb989: s390_format_RRE_RR(s390_irgen_SLBGR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb98a: /* CSPG */ goto unimplemented;
case 0xb98d: /* EPSW */ goto unimplemented;
case 0xb98e: /* IDTE */ goto unimplemented;
case 0xb98f: /* CRDTE */ goto unimplemented;
case 0xb990: s390_format_RRF_M0RERE(s390_irgen_TRTT, ovl.fmt.RRF3.r3,
ovl.fmt.RRF3.r1, ovl.fmt.RRF3.r2); goto ok;
case 0xb991: s390_format_RRF_M0RERE(s390_irgen_TRTO, ovl.fmt.RRF3.r3,
ovl.fmt.RRF3.r1, ovl.fmt.RRF3.r2); goto ok;
case 0xb992: s390_format_RRF_M0RERE(s390_irgen_TROT, ovl.fmt.RRF3.r3,
ovl.fmt.RRF3.r1, ovl.fmt.RRF3.r2); goto ok;
case 0xb993: s390_format_RRF_M0RERE(s390_irgen_TROO, ovl.fmt.RRF3.r3,
ovl.fmt.RRF3.r1, ovl.fmt.RRF3.r2); goto ok;
case 0xb994: s390_format_RRE_RR(s390_irgen_LLCR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb995: s390_format_RRE_RR(s390_irgen_LLHR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb996: s390_format_RRE_RR(s390_irgen_MLR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb997: s390_format_RRE_RR(s390_irgen_DLR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb998: s390_format_RRE_RR(s390_irgen_ALCR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb999: s390_format_RRE_RR(s390_irgen_SLBR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb99a: /* EPAIR */ goto unimplemented;
case 0xb99b: /* ESAIR */ goto unimplemented;
case 0xb99d: /* ESEA */ goto unimplemented;
case 0xb99e: /* PTI */ goto unimplemented;
case 0xb99f: /* SSAIR */ goto unimplemented;
case 0xb9a2: /* PTF */ goto unimplemented;
case 0xb9aa: /* LPTEA */ goto unimplemented;
case 0xb9ae: /* RRBM */ goto unimplemented;
case 0xb9af: /* PFMF */ goto unimplemented;
case 0xb9b0: s390_format_RRF_M0RERE(s390_irgen_CU14, ovl.fmt.RRF3.r3,
ovl.fmt.RRF3.r1, ovl.fmt.RRF3.r2);
goto ok;
case 0xb9b1: s390_format_RRF_M0RERE(s390_irgen_CU24, ovl.fmt.RRF3.r3,
ovl.fmt.RRF3.r1, ovl.fmt.RRF3.r2);
goto ok;
case 0xb9b2: s390_format_RRE_RR(s390_irgen_CU41, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb9b3: s390_format_RRE_RR(s390_irgen_CU42, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb9bd: /* TRTRE */ goto unimplemented;
case 0xb9be: /* SRSTU */ goto unimplemented;
case 0xb9bf: /* TRTE */ goto unimplemented;
case 0xb9c8: s390_format_RRF_R0RR2(s390_irgen_AHHHR, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9c9: s390_format_RRF_R0RR2(s390_irgen_SHHHR, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9ca: s390_format_RRF_R0RR2(s390_irgen_ALHHHR, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9cb: s390_format_RRF_R0RR2(s390_irgen_SLHHHR, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9cd: s390_format_RRE_RR(s390_irgen_CHHR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb9cf: s390_format_RRE_RR(s390_irgen_CLHHR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb9d8: s390_format_RRF_R0RR2(s390_irgen_AHHLR, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9d9: s390_format_RRF_R0RR2(s390_irgen_SHHLR, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9da: s390_format_RRF_R0RR2(s390_irgen_ALHHLR, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9db: s390_format_RRF_R0RR2(s390_irgen_SLHHLR, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9dd: s390_format_RRE_RR(s390_irgen_CHLR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb9df: s390_format_RRE_RR(s390_irgen_CLHLR, ovl.fmt.RRE.r1,
ovl.fmt.RRE.r2); goto ok;
case 0xb9e1: /* POPCNT */ goto unimplemented;
case 0xb9e2: s390_format_RRF_U0RR(s390_irgen_LOCGR, ovl.fmt.RRF3.r3,
ovl.fmt.RRF3.r1, ovl.fmt.RRF3.r2,
S390_XMNM_LOCGR); goto ok;
case 0xb9e4: s390_format_RRF_R0RR2(s390_irgen_NGRK, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9e6: s390_format_RRF_R0RR2(s390_irgen_OGRK, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9e7: s390_format_RRF_R0RR2(s390_irgen_XGRK, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9e8: s390_format_RRF_R0RR2(s390_irgen_AGRK, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9e9: s390_format_RRF_R0RR2(s390_irgen_SGRK, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9ea: s390_format_RRF_R0RR2(s390_irgen_ALGRK, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9eb: s390_format_RRF_R0RR2(s390_irgen_SLGRK, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9f2: s390_format_RRF_U0RR(s390_irgen_LOCR, ovl.fmt.RRF3.r3,
ovl.fmt.RRF3.r1, ovl.fmt.RRF3.r2,
S390_XMNM_LOCR); goto ok;
case 0xb9f4: s390_format_RRF_R0RR2(s390_irgen_NRK, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9f6: s390_format_RRF_R0RR2(s390_irgen_ORK, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9f7: s390_format_RRF_R0RR2(s390_irgen_XRK, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9f8: s390_format_RRF_R0RR2(s390_irgen_ARK, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9f9: s390_format_RRF_R0RR2(s390_irgen_SRK, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9fa: s390_format_RRF_R0RR2(s390_irgen_ALRK, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
case 0xb9fb: s390_format_RRF_R0RR2(s390_irgen_SLRK, ovl.fmt.RRF4.r3,
ovl.fmt.RRF4.r1, ovl.fmt.RRF4.r2);
goto ok;
}
switch ((ovl.value & 0xff000000) >> 24) {
case 0x40: s390_format_RX_RRRD(s390_irgen_STH, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x41: s390_format_RX_RRRD(s390_irgen_LA, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x42: s390_format_RX_RRRD(s390_irgen_STC, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x43: s390_format_RX_RRRD(s390_irgen_IC, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x44: s390_format_RX_RRRD(s390_irgen_EX, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x45: /* BAL */ goto unimplemented;
case 0x46: s390_format_RX_RRRD(s390_irgen_BCT, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x47: s390_format_RX(s390_irgen_BC, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x48: s390_format_RX_RRRD(s390_irgen_LH, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x49: s390_format_RX_RRRD(s390_irgen_CH, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x4a: s390_format_RX_RRRD(s390_irgen_AH, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x4b: s390_format_RX_RRRD(s390_irgen_SH, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x4c: s390_format_RX_RRRD(s390_irgen_MH, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x4d: s390_format_RX_RRRD(s390_irgen_BAS, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x4e: s390_format_RX_RRRD(s390_irgen_CVD, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x4f: s390_format_RX_RRRD(s390_irgen_CVB, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x50: s390_format_RX_RRRD(s390_irgen_ST, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x51: s390_format_RX_RRRD(s390_irgen_LAE, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x54: s390_format_RX_RRRD(s390_irgen_N, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x55: s390_format_RX_RRRD(s390_irgen_CL, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x56: s390_format_RX_RRRD(s390_irgen_O, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x57: s390_format_RX_RRRD(s390_irgen_X, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x58: s390_format_RX_RRRD(s390_irgen_L, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x59: s390_format_RX_RRRD(s390_irgen_C, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x5a: s390_format_RX_RRRD(s390_irgen_A, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x5b: s390_format_RX_RRRD(s390_irgen_S, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x5c: s390_format_RX_RRRD(s390_irgen_M, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x5d: s390_format_RX_RRRD(s390_irgen_D, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x5e: s390_format_RX_RRRD(s390_irgen_AL, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x5f: s390_format_RX_RRRD(s390_irgen_SL, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x60: s390_format_RX_FRRD(s390_irgen_STD, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x67: /* MXD */ goto unimplemented;
case 0x68: s390_format_RX_FRRD(s390_irgen_LD, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x69: /* CD */ goto unimplemented;
case 0x6a: /* AD */ goto unimplemented;
case 0x6b: /* SD */ goto unimplemented;
case 0x6c: /* MD */ goto unimplemented;
case 0x6d: /* DD */ goto unimplemented;
case 0x6e: /* AW */ goto unimplemented;
case 0x6f: /* SW */ goto unimplemented;
case 0x70: s390_format_RX_FRRD(s390_irgen_STE, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x71: s390_format_RX_RRRD(s390_irgen_MS, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x78: s390_format_RX_FRRD(s390_irgen_LE, ovl.fmt.RX.r1, ovl.fmt.RX.x2,
ovl.fmt.RX.b2, ovl.fmt.RX.d2); goto ok;
case 0x79: /* CE */ goto unimplemented;
case 0x7a: /* AE */ goto unimplemented;
case 0x7b: /* SE */ goto unimplemented;
case 0x7c: /* MDE */ goto unimplemented;
case 0x7d: /* DE */ goto unimplemented;
case 0x7e: /* AU */ goto unimplemented;
case 0x7f: /* SU */ goto unimplemented;
case 0x83: /* DIAG */ goto unimplemented;
case 0x84: s390_format_RSI_RRP(s390_irgen_BRXH, ovl.fmt.RSI.r1,
ovl.fmt.RSI.r3, ovl.fmt.RSI.i2); goto ok;
case 0x85: s390_format_RSI_RRP(s390_irgen_BRXLE, ovl.fmt.RSI.r1,
ovl.fmt.RSI.r3, ovl.fmt.RSI.i2); goto ok;
case 0x86: s390_format_RS_RRRD(s390_irgen_BXH, ovl.fmt.RS.r1, ovl.fmt.RS.r3,
ovl.fmt.RS.b2, ovl.fmt.RS.d2); goto ok;
case 0x87: s390_format_RS_RRRD(s390_irgen_BXLE, ovl.fmt.RS.r1, ovl.fmt.RS.r3,
ovl.fmt.RS.b2, ovl.fmt.RS.d2); goto ok;
case 0x88: s390_format_RS_R0RD(s390_irgen_SRL, ovl.fmt.RS.r1, ovl.fmt.RS.b2,
ovl.fmt.RS.d2); goto ok;
case 0x89: s390_format_RS_R0RD(s390_irgen_SLL, ovl.fmt.RS.r1, ovl.fmt.RS.b2,
ovl.fmt.RS.d2); goto ok;
case 0x8a: s390_format_RS_R0RD(s390_irgen_SRA, ovl.fmt.RS.r1, ovl.fmt.RS.b2,
ovl.fmt.RS.d2); goto ok;
case 0x8b: s390_format_RS_R0RD(s390_irgen_SLA, ovl.fmt.RS.r1, ovl.fmt.RS.b2,
ovl.fmt.RS.d2); goto ok;
case 0x8c: s390_format_RS_R0RD(s390_irgen_SRDL, ovl.fmt.RS.r1, ovl.fmt.RS.b2,
ovl.fmt.RS.d2); goto ok;
case 0x8d: s390_format_RS_R0RD(s390_irgen_SLDL, ovl.fmt.RS.r1, ovl.fmt.RS.b2,
ovl.fmt.RS.d2); goto ok;
case 0x8e: s390_format_RS_R0RD(s390_irgen_SRDA, ovl.fmt.RS.r1, ovl.fmt.RS.b2,
ovl.fmt.RS.d2); goto ok;
case 0x8f: s390_format_RS_R0RD(s390_irgen_SLDA, ovl.fmt.RS.r1, ovl.fmt.RS.b2,
ovl.fmt.RS.d2); goto ok;
case 0x90: s390_format_RS_RRRD(s390_irgen_STM, ovl.fmt.RS.r1, ovl.fmt.RS.r3,
ovl.fmt.RS.b2, ovl.fmt.RS.d2); goto ok;
case 0x91: s390_format_SI_URD(s390_irgen_TM, ovl.fmt.SI.i2, ovl.fmt.SI.b1,
ovl.fmt.SI.d1); goto ok;
case 0x92: s390_format_SI_URD(s390_irgen_MVI, ovl.fmt.SI.i2, ovl.fmt.SI.b1,
ovl.fmt.SI.d1); goto ok;
case 0x94: s390_format_SI_URD(s390_irgen_NI, ovl.fmt.SI.i2, ovl.fmt.SI.b1,
ovl.fmt.SI.d1); goto ok;
case 0x95: s390_format_SI_URD(s390_irgen_CLI, ovl.fmt.SI.i2, ovl.fmt.SI.b1,
ovl.fmt.SI.d1); goto ok;
case 0x96: s390_format_SI_URD(s390_irgen_OI, ovl.fmt.SI.i2, ovl.fmt.SI.b1,
ovl.fmt.SI.d1); goto ok;
case 0x97: s390_format_SI_URD(s390_irgen_XI, ovl.fmt.SI.i2, ovl.fmt.SI.b1,
ovl.fmt.SI.d1); goto ok;
case 0x98: s390_format_RS_RRRD(s390_irgen_LM, ovl.fmt.RS.r1, ovl.fmt.RS.r3,
ovl.fmt.RS.b2, ovl.fmt.RS.d2); goto ok;
case 0x99: /* TRACE */ goto unimplemented;
case 0x9a: s390_format_RS_AARD(s390_irgen_LAM, ovl.fmt.RS.r1, ovl.fmt.RS.r3,
ovl.fmt.RS.b2, ovl.fmt.RS.d2); goto ok;
case 0x9b: s390_format_RS_AARD(s390_irgen_STAM, ovl.fmt.RS.r1, ovl.fmt.RS.r3,
ovl.fmt.RS.b2, ovl.fmt.RS.d2); goto ok;
case 0xa8: s390_format_RS_RRRD(s390_irgen_MVCLE, ovl.fmt.RS.r1,
ovl.fmt.RS.r3, ovl.fmt.RS.b2, ovl.fmt.RS.d2);
goto ok;
case 0xa9: s390_format_RS_RRRD(s390_irgen_CLCLE, ovl.fmt.RS.r1,
ovl.fmt.RS.r3, ovl.fmt.RS.b2, ovl.fmt.RS.d2);
goto ok;
case 0xac: /* STNSM */ goto unimplemented;
case 0xad: /* STOSM */ goto unimplemented;
case 0xae: /* SIGP */ goto unimplemented;
case 0xaf: /* MC */ goto unimplemented;
case 0xb1: /* LRA */ goto unimplemented;
case 0xb6: /* STCTL */ goto unimplemented;
case 0xb7: /* LCTL */ goto unimplemented;
case 0xba: s390_format_RS_RRRD(s390_irgen_CS, ovl.fmt.RS.r1, ovl.fmt.RS.r3,
ovl.fmt.RS.b2, ovl.fmt.RS.d2); goto ok;
case 0xbb: s390_format_RS_RRRD(s390_irgen_CDS, ovl.fmt.RS.r1, ovl.fmt.RS.r3,
ovl.fmt.RS.b2, ovl.fmt.RS.d2); goto ok;
case 0xbd: s390_format_RS_RURD(s390_irgen_CLM, ovl.fmt.RS.r1, ovl.fmt.RS.r3,
ovl.fmt.RS.b2, ovl.fmt.RS.d2); goto ok;
case 0xbe: s390_format_RS_RURD(s390_irgen_STCM, ovl.fmt.RS.r1, ovl.fmt.RS.r3,
ovl.fmt.RS.b2, ovl.fmt.RS.d2); goto ok;
case 0xbf: s390_format_RS_RURD(s390_irgen_ICM, ovl.fmt.RS.r1, ovl.fmt.RS.r3,
ovl.fmt.RS.b2, ovl.fmt.RS.d2); goto ok;
}
return S390_DECODE_UNKNOWN_INSN;
ok:
return S390_DECODE_OK;
unimplemented:
return S390_DECODE_UNIMPLEMENTED_INSN;
}
static s390_decode_t
s390_decode_6byte_and_irgen(UChar *bytes)
{
typedef union {
struct {
unsigned int op1 : 8;
unsigned int r1 : 4;
unsigned int r3 : 4;
unsigned int i2 : 16;
unsigned int : 8;
unsigned int op2 : 8;
} RIE;
struct {
unsigned int op1 : 8;
unsigned int r1 : 4;
unsigned int r2 : 4;
unsigned int i3 : 8;
unsigned int i4 : 8;
unsigned int i5 : 8;
unsigned int op2 : 8;
} RIE_RRUUU;
struct {
unsigned int op1 : 8;
unsigned int r1 : 4;
unsigned int : 4;
unsigned int i2 : 16;
unsigned int m3 : 4;
unsigned int : 4;
unsigned int op2 : 8;
} RIEv1;
struct {
unsigned int op1 : 8;
unsigned int r1 : 4;
unsigned int r2 : 4;
unsigned int i4 : 16;
unsigned int m3 : 4;
unsigned int : 4;
unsigned int op2 : 8;
} RIE_RRPU;
struct {
unsigned int op1 : 8;
unsigned int r1 : 4;
unsigned int m3 : 4;
unsigned int i4 : 16;
unsigned int i2 : 8;
unsigned int op2 : 8;
} RIEv3;
struct {
unsigned int op1 : 8;
unsigned int r1 : 4;
unsigned int op2 : 4;
unsigned int i2 : 32;
} RIL;
struct {
unsigned int op1 : 8;
unsigned int r1 : 4;
unsigned int m3 : 4;
unsigned int b4 : 4;
unsigned int d4 : 12;
unsigned int i2 : 8;
unsigned int op2 : 8;
} RIS;
struct {
unsigned int op1 : 8;
unsigned int r1 : 4;
unsigned int r2 : 4;
unsigned int b4 : 4;
unsigned int d4 : 12;
unsigned int m3 : 4;
unsigned int : 4;
unsigned int op2 : 8;
} RRS;
struct {
unsigned int op1 : 8;
unsigned int l1 : 4;
unsigned int : 4;
unsigned int b1 : 4;
unsigned int d1 : 12;
unsigned int : 8;
unsigned int op2 : 8;
} RSL;
struct {
unsigned int op1 : 8;
unsigned int r1 : 4;
unsigned int r3 : 4;
unsigned int b2 : 4;
unsigned int dl2 : 12;
unsigned int dh2 : 8;
unsigned int op2 : 8;
} RSY;
struct {
unsigned int op1 : 8;
unsigned int r1 : 4;
unsigned int x2 : 4;
unsigned int b2 : 4;
unsigned int d2 : 12;
unsigned int : 8;
unsigned int op2 : 8;
} RXE;
struct {
unsigned int op1 : 8;
unsigned int r3 : 4;
unsigned int x2 : 4;
unsigned int b2 : 4;
unsigned int d2 : 12;
unsigned int r1 : 4;
unsigned int : 4;
unsigned int op2 : 8;
} RXF;
struct {
unsigned int op1 : 8;
unsigned int r1 : 4;
unsigned int x2 : 4;
unsigned int b2 : 4;
unsigned int dl2 : 12;
unsigned int dh2 : 8;
unsigned int op2 : 8;
} RXY;
struct {
unsigned int op1 : 8;
unsigned int i2 : 8;
unsigned int b1 : 4;
unsigned int dl1 : 12;
unsigned int dh1 : 8;
unsigned int op2 : 8;
} SIY;
struct {
unsigned int op : 8;
unsigned int l : 8;
unsigned int b1 : 4;
unsigned int d1 : 12;
unsigned int b2 : 4;
unsigned int d2 : 12;
} SS;
struct {
unsigned int op : 8;
unsigned int l1 : 4;
unsigned int l2 : 4;
unsigned int b1 : 4;
unsigned int d1 : 12;
unsigned int b2 : 4;
unsigned int d2 : 12;
} SS_LLRDRD;
struct {
unsigned int op : 8;
unsigned int r1 : 4;
unsigned int r3 : 4;
unsigned int b2 : 4;
unsigned int d2 : 12;
unsigned int b4 : 4;
unsigned int d4 : 12;
} SS_RRRDRD2;
struct {
unsigned int op : 16;
unsigned int b1 : 4;
unsigned int d1 : 12;
unsigned int b2 : 4;
unsigned int d2 : 12;
} SSE;
struct {
unsigned int op1 : 8;
unsigned int r3 : 4;
unsigned int op2 : 4;
unsigned int b1 : 4;
unsigned int d1 : 12;
unsigned int b2 : 4;
unsigned int d2 : 12;
} SSF;
struct {
unsigned int op : 16;
unsigned int b1 : 4;
unsigned int d1 : 12;
unsigned int i2 : 16;
} SIL;
} formats;
union {
formats fmt;
ULong value;
} ovl;
vassert(sizeof(formats) == 6);
((UChar *)(&ovl.value))[0] = bytes[0];
((UChar *)(&ovl.value))[1] = bytes[1];
((UChar *)(&ovl.value))[2] = bytes[2];
((UChar *)(&ovl.value))[3] = bytes[3];
((UChar *)(&ovl.value))[4] = bytes[4];
((UChar *)(&ovl.value))[5] = bytes[5];
((UChar *)(&ovl.value))[6] = 0x0;
((UChar *)(&ovl.value))[7] = 0x0;
switch ((ovl.value >> 16) & 0xff00000000ffULL) {
case 0xe30000000002ULL: s390_format_RXY_RRRD(s390_irgen_LTG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000003ULL: /* LRAG */ goto unimplemented;
case 0xe30000000004ULL: s390_format_RXY_RRRD(s390_irgen_LG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000006ULL: s390_format_RXY_RRRD(s390_irgen_CVBY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000008ULL: s390_format_RXY_RRRD(s390_irgen_AG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000009ULL: s390_format_RXY_RRRD(s390_irgen_SG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000000aULL: s390_format_RXY_RRRD(s390_irgen_ALG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000000bULL: s390_format_RXY_RRRD(s390_irgen_SLG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000000cULL: s390_format_RXY_RRRD(s390_irgen_MSG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000000dULL: s390_format_RXY_RRRD(s390_irgen_DSG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000000eULL: /* CVBG */ goto unimplemented;
case 0xe3000000000fULL: s390_format_RXY_RRRD(s390_irgen_LRVG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000012ULL: s390_format_RXY_RRRD(s390_irgen_LT, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000013ULL: /* LRAY */ goto unimplemented;
case 0xe30000000014ULL: s390_format_RXY_RRRD(s390_irgen_LGF, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000015ULL: s390_format_RXY_RRRD(s390_irgen_LGH, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000016ULL: s390_format_RXY_RRRD(s390_irgen_LLGF, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000017ULL: s390_format_RXY_RRRD(s390_irgen_LLGT, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000018ULL: s390_format_RXY_RRRD(s390_irgen_AGF, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000019ULL: s390_format_RXY_RRRD(s390_irgen_SGF, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000001aULL: s390_format_RXY_RRRD(s390_irgen_ALGF, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000001bULL: s390_format_RXY_RRRD(s390_irgen_SLGF, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000001cULL: s390_format_RXY_RRRD(s390_irgen_MSGF, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000001dULL: s390_format_RXY_RRRD(s390_irgen_DSGF, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000001eULL: s390_format_RXY_RRRD(s390_irgen_LRV, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000001fULL: s390_format_RXY_RRRD(s390_irgen_LRVH, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000020ULL: s390_format_RXY_RRRD(s390_irgen_CG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000021ULL: s390_format_RXY_RRRD(s390_irgen_CLG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000024ULL: s390_format_RXY_RRRD(s390_irgen_STG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000025ULL: /* NTSTG */ goto unimplemented;
case 0xe30000000026ULL: s390_format_RXY_RRRD(s390_irgen_CVDY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000002eULL: /* CVDG */ goto unimplemented;
case 0xe3000000002fULL: s390_format_RXY_RRRD(s390_irgen_STRVG,
ovl.fmt.RXY.r1, ovl.fmt.RXY.x2,
ovl.fmt.RXY.b2, ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000030ULL: s390_format_RXY_RRRD(s390_irgen_CGF, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000031ULL: s390_format_RXY_RRRD(s390_irgen_CLGF, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000032ULL: s390_format_RXY_RRRD(s390_irgen_LTGF, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000034ULL: s390_format_RXY_RRRD(s390_irgen_CGH, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000036ULL: s390_format_RXY_URRD(s390_irgen_PFD, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000003eULL: s390_format_RXY_RRRD(s390_irgen_STRV, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000003fULL: s390_format_RXY_RRRD(s390_irgen_STRVH,
ovl.fmt.RXY.r1, ovl.fmt.RXY.x2,
ovl.fmt.RXY.b2, ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000046ULL: s390_format_RXY_RRRD(s390_irgen_BCTG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000050ULL: s390_format_RXY_RRRD(s390_irgen_STY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000051ULL: s390_format_RXY_RRRD(s390_irgen_MSY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000054ULL: s390_format_RXY_RRRD(s390_irgen_NY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000055ULL: s390_format_RXY_RRRD(s390_irgen_CLY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000056ULL: s390_format_RXY_RRRD(s390_irgen_OY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000057ULL: s390_format_RXY_RRRD(s390_irgen_XY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000058ULL: s390_format_RXY_RRRD(s390_irgen_LY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000059ULL: s390_format_RXY_RRRD(s390_irgen_CY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000005aULL: s390_format_RXY_RRRD(s390_irgen_AY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000005bULL: s390_format_RXY_RRRD(s390_irgen_SY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000005cULL: s390_format_RXY_RRRD(s390_irgen_MFY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000005eULL: s390_format_RXY_RRRD(s390_irgen_ALY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000005fULL: s390_format_RXY_RRRD(s390_irgen_SLY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000070ULL: s390_format_RXY_RRRD(s390_irgen_STHY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000071ULL: s390_format_RXY_RRRD(s390_irgen_LAY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000072ULL: s390_format_RXY_RRRD(s390_irgen_STCY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000073ULL: s390_format_RXY_RRRD(s390_irgen_ICY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000075ULL: s390_format_RXY_RRRD(s390_irgen_LAEY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000076ULL: s390_format_RXY_RRRD(s390_irgen_LB, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000077ULL: s390_format_RXY_RRRD(s390_irgen_LGB, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000078ULL: s390_format_RXY_RRRD(s390_irgen_LHY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000079ULL: s390_format_RXY_RRRD(s390_irgen_CHY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000007aULL: s390_format_RXY_RRRD(s390_irgen_AHY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000007bULL: s390_format_RXY_RRRD(s390_irgen_SHY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000007cULL: s390_format_RXY_RRRD(s390_irgen_MHY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000080ULL: s390_format_RXY_RRRD(s390_irgen_NG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000081ULL: s390_format_RXY_RRRD(s390_irgen_OG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000082ULL: s390_format_RXY_RRRD(s390_irgen_XG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000085ULL: /* LGAT */ goto unimplemented;
case 0xe30000000086ULL: s390_format_RXY_RRRD(s390_irgen_MLG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000087ULL: s390_format_RXY_RRRD(s390_irgen_DLG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000088ULL: s390_format_RXY_RRRD(s390_irgen_ALCG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000089ULL: s390_format_RXY_RRRD(s390_irgen_SLBG, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000008eULL: s390_format_RXY_RRRD(s390_irgen_STPQ, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000008fULL: s390_format_RXY_RRRD(s390_irgen_LPQ, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000090ULL: s390_format_RXY_RRRD(s390_irgen_LLGC, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000091ULL: s390_format_RXY_RRRD(s390_irgen_LLGH, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000094ULL: s390_format_RXY_RRRD(s390_irgen_LLC, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000095ULL: s390_format_RXY_RRRD(s390_irgen_LLH, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000096ULL: s390_format_RXY_RRRD(s390_irgen_ML, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000097ULL: s390_format_RXY_RRRD(s390_irgen_DL, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000098ULL: s390_format_RXY_RRRD(s390_irgen_ALC, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe30000000099ULL: s390_format_RXY_RRRD(s390_irgen_SLB, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe3000000009cULL: /* LLGTAT */ goto unimplemented;
case 0xe3000000009dULL: /* LLGFAT */ goto unimplemented;
case 0xe3000000009fULL: /* LAT */ goto unimplemented;
case 0xe300000000c0ULL: s390_format_RXY_RRRD(s390_irgen_LBH, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe300000000c2ULL: s390_format_RXY_RRRD(s390_irgen_LLCH, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe300000000c3ULL: s390_format_RXY_RRRD(s390_irgen_STCH, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe300000000c4ULL: s390_format_RXY_RRRD(s390_irgen_LHH, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe300000000c6ULL: s390_format_RXY_RRRD(s390_irgen_LLHH, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe300000000c7ULL: s390_format_RXY_RRRD(s390_irgen_STHH, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe300000000c8ULL: /* LFHAT */ goto unimplemented;
case 0xe300000000caULL: s390_format_RXY_RRRD(s390_irgen_LFH, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe300000000cbULL: s390_format_RXY_RRRD(s390_irgen_STFH, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe300000000cdULL: s390_format_RXY_RRRD(s390_irgen_CHF, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xe300000000cfULL: s390_format_RXY_RRRD(s390_irgen_CLHF, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xeb0000000004ULL: s390_format_RSY_RRRD(s390_irgen_LMG, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb000000000aULL: s390_format_RSY_RRRD(s390_irgen_SRAG, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb000000000bULL: s390_format_RSY_RRRD(s390_irgen_SLAG, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb000000000cULL: s390_format_RSY_RRRD(s390_irgen_SRLG, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb000000000dULL: s390_format_RSY_RRRD(s390_irgen_SLLG, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb000000000fULL: /* TRACG */ goto unimplemented;
case 0xeb0000000014ULL: s390_format_RSY_RRRD(s390_irgen_CSY, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb000000001cULL: s390_format_RSY_RRRD(s390_irgen_RLLG, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb000000001dULL: s390_format_RSY_RRRD(s390_irgen_RLL, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb0000000020ULL: s390_format_RSY_RURD(s390_irgen_CLMH, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb0000000021ULL: s390_format_RSY_RURD(s390_irgen_CLMY, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb0000000023ULL: /* CLT */ goto unimplemented;
case 0xeb0000000024ULL: s390_format_RSY_RRRD(s390_irgen_STMG, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb0000000025ULL: /* STCTG */ goto unimplemented;
case 0xeb0000000026ULL: s390_format_RSY_RRRD(s390_irgen_STMH, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb000000002bULL: /* CLGT */ goto unimplemented;
case 0xeb000000002cULL: s390_format_RSY_RURD(s390_irgen_STCMH,
ovl.fmt.RSY.r1, ovl.fmt.RSY.r3,
ovl.fmt.RSY.b2, ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb000000002dULL: s390_format_RSY_RURD(s390_irgen_STCMY,
ovl.fmt.RSY.r1, ovl.fmt.RSY.r3,
ovl.fmt.RSY.b2, ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb000000002fULL: /* LCTLG */ goto unimplemented;
case 0xeb0000000030ULL: s390_format_RSY_RRRD(s390_irgen_CSG, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb0000000031ULL: s390_format_RSY_RRRD(s390_irgen_CDSY, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb000000003eULL: s390_format_RSY_RRRD(s390_irgen_CDSG, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb0000000044ULL: s390_format_RSY_RRRD(s390_irgen_BXHG, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb0000000045ULL: s390_format_RSY_RRRD(s390_irgen_BXLEG,
ovl.fmt.RSY.r1, ovl.fmt.RSY.r3,
ovl.fmt.RSY.b2, ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb000000004cULL: s390_format_RSY_RRRD(s390_irgen_ECAG, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb0000000051ULL: s390_format_SIY_URD(s390_irgen_TMY, ovl.fmt.SIY.i2,
ovl.fmt.SIY.b1, ovl.fmt.SIY.dl1,
ovl.fmt.SIY.dh1); goto ok;
case 0xeb0000000052ULL: s390_format_SIY_URD(s390_irgen_MVIY, ovl.fmt.SIY.i2,
ovl.fmt.SIY.b1, ovl.fmt.SIY.dl1,
ovl.fmt.SIY.dh1); goto ok;
case 0xeb0000000054ULL: s390_format_SIY_URD(s390_irgen_NIY, ovl.fmt.SIY.i2,
ovl.fmt.SIY.b1, ovl.fmt.SIY.dl1,
ovl.fmt.SIY.dh1); goto ok;
case 0xeb0000000055ULL: s390_format_SIY_URD(s390_irgen_CLIY, ovl.fmt.SIY.i2,
ovl.fmt.SIY.b1, ovl.fmt.SIY.dl1,
ovl.fmt.SIY.dh1); goto ok;
case 0xeb0000000056ULL: s390_format_SIY_URD(s390_irgen_OIY, ovl.fmt.SIY.i2,
ovl.fmt.SIY.b1, ovl.fmt.SIY.dl1,
ovl.fmt.SIY.dh1); goto ok;
case 0xeb0000000057ULL: s390_format_SIY_URD(s390_irgen_XIY, ovl.fmt.SIY.i2,
ovl.fmt.SIY.b1, ovl.fmt.SIY.dl1,
ovl.fmt.SIY.dh1); goto ok;
case 0xeb000000006aULL: s390_format_SIY_IRD(s390_irgen_ASI, ovl.fmt.SIY.i2,
ovl.fmt.SIY.b1, ovl.fmt.SIY.dl1,
ovl.fmt.SIY.dh1); goto ok;
case 0xeb000000006eULL: s390_format_SIY_IRD(s390_irgen_ALSI, ovl.fmt.SIY.i2,
ovl.fmt.SIY.b1, ovl.fmt.SIY.dl1,
ovl.fmt.SIY.dh1); goto ok;
case 0xeb000000007aULL: s390_format_SIY_IRD(s390_irgen_AGSI, ovl.fmt.SIY.i2,
ovl.fmt.SIY.b1, ovl.fmt.SIY.dl1,
ovl.fmt.SIY.dh1); goto ok;
case 0xeb000000007eULL: s390_format_SIY_IRD(s390_irgen_ALGSI, ovl.fmt.SIY.i2,
ovl.fmt.SIY.b1, ovl.fmt.SIY.dl1,
ovl.fmt.SIY.dh1); goto ok;
case 0xeb0000000080ULL: s390_format_RSY_RURD(s390_irgen_ICMH, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb0000000081ULL: s390_format_RSY_RURD(s390_irgen_ICMY, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb000000008eULL: /* MVCLU */ goto unimplemented;
case 0xeb000000008fULL: /* CLCLU */ goto unimplemented;
case 0xeb0000000090ULL: s390_format_RSY_RRRD(s390_irgen_STMY, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb0000000096ULL: s390_format_RSY_RRRD(s390_irgen_LMH, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb0000000098ULL: s390_format_RSY_RRRD(s390_irgen_LMY, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb000000009aULL: s390_format_RSY_AARD(s390_irgen_LAMY, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb000000009bULL: s390_format_RSY_AARD(s390_irgen_STAMY,
ovl.fmt.RSY.r1, ovl.fmt.RSY.r3,
ovl.fmt.RSY.b2, ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb00000000c0ULL: /* TP */ goto unimplemented;
case 0xeb00000000dcULL: s390_format_RSY_RRRD(s390_irgen_SRAK, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb00000000ddULL: s390_format_RSY_RRRD(s390_irgen_SLAK, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb00000000deULL: s390_format_RSY_RRRD(s390_irgen_SRLK, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb00000000dfULL: s390_format_RSY_RRRD(s390_irgen_SLLK, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb00000000e2ULL: s390_format_RSY_RDRM(s390_irgen_LOCG, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2,
S390_XMNM_LOCG); goto ok;
case 0xeb00000000e3ULL: s390_format_RSY_RDRM(s390_irgen_STOCG,
ovl.fmt.RSY.r1, ovl.fmt.RSY.r3,
ovl.fmt.RSY.b2, ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2,
S390_XMNM_STOCG); goto ok;
case 0xeb00000000e4ULL: s390_format_RSY_RRRD(s390_irgen_LANG, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb00000000e6ULL: s390_format_RSY_RRRD(s390_irgen_LAOG, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb00000000e7ULL: s390_format_RSY_RRRD(s390_irgen_LAXG, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb00000000e8ULL: s390_format_RSY_RRRD(s390_irgen_LAAG, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb00000000eaULL: s390_format_RSY_RRRD(s390_irgen_LAALG,
ovl.fmt.RSY.r1, ovl.fmt.RSY.r3,
ovl.fmt.RSY.b2, ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb00000000f2ULL: s390_format_RSY_RDRM(s390_irgen_LOC, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2, S390_XMNM_LOC);
goto ok;
case 0xeb00000000f3ULL: s390_format_RSY_RDRM(s390_irgen_STOC, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2,
S390_XMNM_STOC); goto ok;
case 0xeb00000000f4ULL: s390_format_RSY_RRRD(s390_irgen_LAN, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb00000000f6ULL: s390_format_RSY_RRRD(s390_irgen_LAO, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb00000000f7ULL: s390_format_RSY_RRRD(s390_irgen_LAX, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb00000000f8ULL: s390_format_RSY_RRRD(s390_irgen_LAA, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xeb00000000faULL: s390_format_RSY_RRRD(s390_irgen_LAAL, ovl.fmt.RSY.r1,
ovl.fmt.RSY.r3, ovl.fmt.RSY.b2,
ovl.fmt.RSY.dl2,
ovl.fmt.RSY.dh2); goto ok;
case 0xec0000000044ULL: s390_format_RIE_RRP(s390_irgen_BRXHG, ovl.fmt.RIE.r1,
ovl.fmt.RIE.r3, ovl.fmt.RIE.i2);
goto ok;
case 0xec0000000045ULL: s390_format_RIE_RRP(s390_irgen_BRXLG, ovl.fmt.RIE.r1,
ovl.fmt.RIE.r3, ovl.fmt.RIE.i2);
goto ok;
case 0xec0000000051ULL: /* RISBLG */ goto unimplemented;
case 0xec0000000054ULL: s390_format_RIE_RRUUU(s390_irgen_RNSBG,
ovl.fmt.RIE_RRUUU.r1,
ovl.fmt.RIE_RRUUU.r2,
ovl.fmt.RIE_RRUUU.i3,
ovl.fmt.RIE_RRUUU.i4,
ovl.fmt.RIE_RRUUU.i5);
goto ok;
case 0xec0000000055ULL: s390_format_RIE_RRUUU(s390_irgen_RISBG,
ovl.fmt.RIE_RRUUU.r1,
ovl.fmt.RIE_RRUUU.r2,
ovl.fmt.RIE_RRUUU.i3,
ovl.fmt.RIE_RRUUU.i4,
ovl.fmt.RIE_RRUUU.i5);
goto ok;
case 0xec0000000056ULL: s390_format_RIE_RRUUU(s390_irgen_ROSBG,
ovl.fmt.RIE_RRUUU.r1,
ovl.fmt.RIE_RRUUU.r2,
ovl.fmt.RIE_RRUUU.i3,
ovl.fmt.RIE_RRUUU.i4,
ovl.fmt.RIE_RRUUU.i5);
goto ok;
case 0xec0000000057ULL: s390_format_RIE_RRUUU(s390_irgen_RXSBG,
ovl.fmt.RIE_RRUUU.r1,
ovl.fmt.RIE_RRUUU.r2,
ovl.fmt.RIE_RRUUU.i3,
ovl.fmt.RIE_RRUUU.i4,
ovl.fmt.RIE_RRUUU.i5);
goto ok;
case 0xec0000000059ULL: /* RISBGN */ goto unimplemented;
case 0xec000000005dULL: /* RISBHG */ goto unimplemented;
case 0xec0000000064ULL: s390_format_RIE_RRPU(s390_irgen_CGRJ,
ovl.fmt.RIE_RRPU.r1,
ovl.fmt.RIE_RRPU.r2,
ovl.fmt.RIE_RRPU.i4,
ovl.fmt.RIE_RRPU.m3); goto ok;
case 0xec0000000065ULL: s390_format_RIE_RRPU(s390_irgen_CLGRJ,
ovl.fmt.RIE_RRPU.r1,
ovl.fmt.RIE_RRPU.r2,
ovl.fmt.RIE_RRPU.i4,
ovl.fmt.RIE_RRPU.m3); goto ok;
case 0xec0000000070ULL: /* CGIT */ goto unimplemented;
case 0xec0000000071ULL: /* CLGIT */ goto unimplemented;
case 0xec0000000072ULL: /* CIT */ goto unimplemented;
case 0xec0000000073ULL: /* CLFIT */ goto unimplemented;
case 0xec0000000076ULL: s390_format_RIE_RRPU(s390_irgen_CRJ,
ovl.fmt.RIE_RRPU.r1,
ovl.fmt.RIE_RRPU.r2,
ovl.fmt.RIE_RRPU.i4,
ovl.fmt.RIE_RRPU.m3); goto ok;
case 0xec0000000077ULL: s390_format_RIE_RRPU(s390_irgen_CLRJ,
ovl.fmt.RIE_RRPU.r1,
ovl.fmt.RIE_RRPU.r2,
ovl.fmt.RIE_RRPU.i4,
ovl.fmt.RIE_RRPU.m3); goto ok;
case 0xec000000007cULL: s390_format_RIE_RUPI(s390_irgen_CGIJ,
ovl.fmt.RIEv3.r1,
ovl.fmt.RIEv3.m3,
ovl.fmt.RIEv3.i4,
ovl.fmt.RIEv3.i2); goto ok;
case 0xec000000007dULL: s390_format_RIE_RUPU(s390_irgen_CLGIJ,
ovl.fmt.RIEv3.r1,
ovl.fmt.RIEv3.m3,
ovl.fmt.RIEv3.i4,
ovl.fmt.RIEv3.i2); goto ok;
case 0xec000000007eULL: s390_format_RIE_RUPI(s390_irgen_CIJ,
ovl.fmt.RIEv3.r1,
ovl.fmt.RIEv3.m3,
ovl.fmt.RIEv3.i4,
ovl.fmt.RIEv3.i2); goto ok;
case 0xec000000007fULL: s390_format_RIE_RUPU(s390_irgen_CLIJ,
ovl.fmt.RIEv3.r1,
ovl.fmt.RIEv3.m3,
ovl.fmt.RIEv3.i4,
ovl.fmt.RIEv3.i2); goto ok;
case 0xec00000000d8ULL: s390_format_RIE_RRI0(s390_irgen_AHIK, ovl.fmt.RIE.r1,
ovl.fmt.RIE.r3, ovl.fmt.RIE.i2);
goto ok;
case 0xec00000000d9ULL: s390_format_RIE_RRI0(s390_irgen_AGHIK,
ovl.fmt.RIE.r1, ovl.fmt.RIE.r3,
ovl.fmt.RIE.i2); goto ok;
case 0xec00000000daULL: s390_format_RIE_RRI0(s390_irgen_ALHSIK,
ovl.fmt.RIE.r1, ovl.fmt.RIE.r3,
ovl.fmt.RIE.i2); goto ok;
case 0xec00000000dbULL: s390_format_RIE_RRI0(s390_irgen_ALGHSIK,
ovl.fmt.RIE.r1, ovl.fmt.RIE.r3,
ovl.fmt.RIE.i2); goto ok;
case 0xec00000000e4ULL: s390_format_RRS(s390_irgen_CGRB, ovl.fmt.RRS.r1,
ovl.fmt.RRS.r2, ovl.fmt.RRS.b4,
ovl.fmt.RRS.d4, ovl.fmt.RRS.m3);
goto ok;
case 0xec00000000e5ULL: s390_format_RRS(s390_irgen_CLGRB, ovl.fmt.RRS.r1,
ovl.fmt.RRS.r2, ovl.fmt.RRS.b4,
ovl.fmt.RRS.d4, ovl.fmt.RRS.m3);
goto ok;
case 0xec00000000f6ULL: s390_format_RRS(s390_irgen_CRB, ovl.fmt.RRS.r1,
ovl.fmt.RRS.r2, ovl.fmt.RRS.b4,
ovl.fmt.RRS.d4, ovl.fmt.RRS.m3);
goto ok;
case 0xec00000000f7ULL: s390_format_RRS(s390_irgen_CLRB, ovl.fmt.RRS.r1,
ovl.fmt.RRS.r2, ovl.fmt.RRS.b4,
ovl.fmt.RRS.d4, ovl.fmt.RRS.m3);
goto ok;
case 0xec00000000fcULL: s390_format_RIS_RURDI(s390_irgen_CGIB,
ovl.fmt.RIS.r1, ovl.fmt.RIS.m3,
ovl.fmt.RIS.b4, ovl.fmt.RIS.d4,
ovl.fmt.RIS.i2); goto ok;
case 0xec00000000fdULL: s390_format_RIS_RURDU(s390_irgen_CLGIB,
ovl.fmt.RIS.r1, ovl.fmt.RIS.m3,
ovl.fmt.RIS.b4, ovl.fmt.RIS.d4,
ovl.fmt.RIS.i2); goto ok;
case 0xec00000000feULL: s390_format_RIS_RURDI(s390_irgen_CIB, ovl.fmt.RIS.r1,
ovl.fmt.RIS.m3, ovl.fmt.RIS.b4,
ovl.fmt.RIS.d4,
ovl.fmt.RIS.i2); goto ok;
case 0xec00000000ffULL: s390_format_RIS_RURDU(s390_irgen_CLIB,
ovl.fmt.RIS.r1, ovl.fmt.RIS.m3,
ovl.fmt.RIS.b4, ovl.fmt.RIS.d4,
ovl.fmt.RIS.i2); goto ok;
case 0xed0000000004ULL: s390_format_RXE_FRRD(s390_irgen_LDEB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed0000000005ULL: s390_format_RXE_FRRD(s390_irgen_LXDB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed0000000006ULL: s390_format_RXE_FRRD(s390_irgen_LXEB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed0000000007ULL: /* MXDB */ goto unimplemented;
case 0xed0000000008ULL: /* KEB */ goto unimplemented;
case 0xed0000000009ULL: s390_format_RXE_FRRD(s390_irgen_CEB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed000000000aULL: s390_format_RXE_FRRD(s390_irgen_AEB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed000000000bULL: s390_format_RXE_FRRD(s390_irgen_SEB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed000000000cULL: /* MDEB */ goto unimplemented;
case 0xed000000000dULL: s390_format_RXE_FRRD(s390_irgen_DEB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed000000000eULL: s390_format_RXF_FRRDF(s390_irgen_MAEB,
ovl.fmt.RXF.r3, ovl.fmt.RXF.x2,
ovl.fmt.RXF.b2, ovl.fmt.RXF.d2,
ovl.fmt.RXF.r1); goto ok;
case 0xed000000000fULL: s390_format_RXF_FRRDF(s390_irgen_MSEB,
ovl.fmt.RXF.r3, ovl.fmt.RXF.x2,
ovl.fmt.RXF.b2, ovl.fmt.RXF.d2,
ovl.fmt.RXF.r1); goto ok;
case 0xed0000000010ULL: s390_format_RXE_FRRD(s390_irgen_TCEB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed0000000011ULL: s390_format_RXE_FRRD(s390_irgen_TCDB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed0000000012ULL: s390_format_RXE_FRRD(s390_irgen_TCXB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed0000000014ULL: s390_format_RXE_FRRD(s390_irgen_SQEB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed0000000015ULL: s390_format_RXE_FRRD(s390_irgen_SQDB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed0000000017ULL: s390_format_RXE_FRRD(s390_irgen_MEEB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed0000000018ULL: /* KDB */ goto unimplemented;
case 0xed0000000019ULL: s390_format_RXE_FRRD(s390_irgen_CDB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed000000001aULL: s390_format_RXE_FRRD(s390_irgen_ADB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed000000001bULL: s390_format_RXE_FRRD(s390_irgen_SDB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed000000001cULL: s390_format_RXE_FRRD(s390_irgen_MDB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed000000001dULL: s390_format_RXE_FRRD(s390_irgen_DDB, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed000000001eULL: s390_format_RXF_FRRDF(s390_irgen_MADB,
ovl.fmt.RXF.r3, ovl.fmt.RXF.x2,
ovl.fmt.RXF.b2, ovl.fmt.RXF.d2,
ovl.fmt.RXF.r1); goto ok;
case 0xed000000001fULL: s390_format_RXF_FRRDF(s390_irgen_MSDB,
ovl.fmt.RXF.r3, ovl.fmt.RXF.x2,
ovl.fmt.RXF.b2, ovl.fmt.RXF.d2,
ovl.fmt.RXF.r1); goto ok;
case 0xed0000000024ULL: /* LDE */ goto unimplemented;
case 0xed0000000025ULL: /* LXD */ goto unimplemented;
case 0xed0000000026ULL: /* LXE */ goto unimplemented;
case 0xed000000002eULL: /* MAE */ goto unimplemented;
case 0xed000000002fULL: /* MSE */ goto unimplemented;
case 0xed0000000034ULL: /* SQE */ goto unimplemented;
case 0xed0000000035ULL: /* SQD */ goto unimplemented;
case 0xed0000000037ULL: /* MEE */ goto unimplemented;
case 0xed0000000038ULL: /* MAYL */ goto unimplemented;
case 0xed0000000039ULL: /* MYL */ goto unimplemented;
case 0xed000000003aULL: /* MAY */ goto unimplemented;
case 0xed000000003bULL: /* MY */ goto unimplemented;
case 0xed000000003cULL: /* MAYH */ goto unimplemented;
case 0xed000000003dULL: /* MYH */ goto unimplemented;
case 0xed000000003eULL: /* MAD */ goto unimplemented;
case 0xed000000003fULL: /* MSD */ goto unimplemented;
case 0xed0000000040ULL: s390_format_RXF_FRRDF(s390_irgen_SLDT,
ovl.fmt.RXF.r3, ovl.fmt.RXF.x2,
ovl.fmt.RXF.b2, ovl.fmt.RXF.d2,
ovl.fmt.RXF.r1); goto ok;
case 0xed0000000041ULL: s390_format_RXF_FRRDF(s390_irgen_SRDT,
ovl.fmt.RXF.r3, ovl.fmt.RXF.x2,
ovl.fmt.RXF.b2, ovl.fmt.RXF.d2,
ovl.fmt.RXF.r1); goto ok;
case 0xed0000000048ULL: s390_format_RXF_FRRDF(s390_irgen_SLXT,
ovl.fmt.RXF.r3, ovl.fmt.RXF.x2,
ovl.fmt.RXF.b2, ovl.fmt.RXF.d2,
ovl.fmt.RXF.r1); goto ok;
case 0xed0000000049ULL: s390_format_RXF_FRRDF(s390_irgen_SRXT,
ovl.fmt.RXF.r3, ovl.fmt.RXF.x2,
ovl.fmt.RXF.b2, ovl.fmt.RXF.d2,
ovl.fmt.RXF.r1); goto ok;
case 0xed0000000050ULL: s390_format_RXE_FRRD(s390_irgen_TDCET, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed0000000051ULL: s390_format_RXE_FRRD(s390_irgen_TDGET, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed0000000054ULL: s390_format_RXE_FRRD(s390_irgen_TDCDT, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed0000000055ULL: s390_format_RXE_FRRD(s390_irgen_TDGDT, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed0000000058ULL: s390_format_RXE_FRRD(s390_irgen_TDCXT, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed0000000059ULL: s390_format_RXE_FRRD(s390_irgen_TDGXT, ovl.fmt.RXE.r1,
ovl.fmt.RXE.x2, ovl.fmt.RXE.b2,
ovl.fmt.RXE.d2); goto ok;
case 0xed0000000064ULL: s390_format_RXY_FRRD(s390_irgen_LEY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xed0000000065ULL: s390_format_RXY_FRRD(s390_irgen_LDY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xed0000000066ULL: s390_format_RXY_FRRD(s390_irgen_STEY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xed0000000067ULL: s390_format_RXY_FRRD(s390_irgen_STDY, ovl.fmt.RXY.r1,
ovl.fmt.RXY.x2, ovl.fmt.RXY.b2,
ovl.fmt.RXY.dl2,
ovl.fmt.RXY.dh2); goto ok;
case 0xed00000000a8ULL: /* CZDT */ goto unimplemented;
case 0xed00000000a9ULL: /* CZXT */ goto unimplemented;
case 0xed00000000aaULL: /* CDZT */ goto unimplemented;
case 0xed00000000abULL: /* CXZT */ goto unimplemented;
}
switch (((ovl.value >> 16) & 0xff0f00000000ULL) >> 32) {
case 0xc000ULL: s390_format_RIL_RP(s390_irgen_LARL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc001ULL: s390_format_RIL_RI(s390_irgen_LGFI, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc004ULL: s390_format_RIL(s390_irgen_BRCL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc005ULL: s390_format_RIL_RP(s390_irgen_BRASL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc006ULL: s390_format_RIL_RU(s390_irgen_XIHF, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc007ULL: s390_format_RIL_RU(s390_irgen_XILF, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc008ULL: s390_format_RIL_RU(s390_irgen_IIHF, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc009ULL: s390_format_RIL_RU(s390_irgen_IILF, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc00aULL: s390_format_RIL_RU(s390_irgen_NIHF, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc00bULL: s390_format_RIL_RU(s390_irgen_NILF, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc00cULL: s390_format_RIL_RU(s390_irgen_OIHF, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc00dULL: s390_format_RIL_RU(s390_irgen_OILF, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc00eULL: s390_format_RIL_RU(s390_irgen_LLIHF, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc00fULL: s390_format_RIL_RU(s390_irgen_LLILF, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc200ULL: s390_format_RIL_RI(s390_irgen_MSGFI, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc201ULL: s390_format_RIL_RI(s390_irgen_MSFI, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc204ULL: s390_format_RIL_RU(s390_irgen_SLGFI, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc205ULL: s390_format_RIL_RU(s390_irgen_SLFI, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc208ULL: s390_format_RIL_RI(s390_irgen_AGFI, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc209ULL: s390_format_RIL_RI(s390_irgen_AFI, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc20aULL: s390_format_RIL_RU(s390_irgen_ALGFI, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc20bULL: s390_format_RIL_RU(s390_irgen_ALFI, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc20cULL: s390_format_RIL_RI(s390_irgen_CGFI, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc20dULL: s390_format_RIL_RI(s390_irgen_CFI, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc20eULL: s390_format_RIL_RU(s390_irgen_CLGFI, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc20fULL: s390_format_RIL_RU(s390_irgen_CLFI, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc402ULL: s390_format_RIL_RP(s390_irgen_LLHRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc404ULL: s390_format_RIL_RP(s390_irgen_LGHRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc405ULL: s390_format_RIL_RP(s390_irgen_LHRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc406ULL: s390_format_RIL_RP(s390_irgen_LLGHRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc407ULL: s390_format_RIL_RP(s390_irgen_STHRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc408ULL: s390_format_RIL_RP(s390_irgen_LGRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc40bULL: s390_format_RIL_RP(s390_irgen_STGRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc40cULL: s390_format_RIL_RP(s390_irgen_LGFRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc40dULL: s390_format_RIL_RP(s390_irgen_LRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc40eULL: s390_format_RIL_RP(s390_irgen_LLGFRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc40fULL: s390_format_RIL_RP(s390_irgen_STRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc600ULL: s390_format_RIL_RP(s390_irgen_EXRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc602ULL: s390_format_RIL_UP(s390_irgen_PFDRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc604ULL: s390_format_RIL_RP(s390_irgen_CGHRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc605ULL: s390_format_RIL_RP(s390_irgen_CHRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc606ULL: s390_format_RIL_RP(s390_irgen_CLGHRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc607ULL: s390_format_RIL_RP(s390_irgen_CLHRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc608ULL: s390_format_RIL_RP(s390_irgen_CGRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc60aULL: s390_format_RIL_RP(s390_irgen_CLGRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc60cULL: s390_format_RIL_RP(s390_irgen_CGFRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc60dULL: s390_format_RIL_RP(s390_irgen_CRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc60eULL: s390_format_RIL_RP(s390_irgen_CLGFRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc60fULL: s390_format_RIL_RP(s390_irgen_CLRL, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xc800ULL: /* MVCOS */ goto unimplemented;
case 0xc801ULL: /* ECTG */ goto unimplemented;
case 0xc802ULL: /* CSST */ goto unimplemented;
case 0xc804ULL: /* LPD */ goto unimplemented;
case 0xc805ULL: /* LPDG */ goto unimplemented;
case 0xcc06ULL: /* BRCTH */ goto unimplemented;
case 0xcc08ULL: s390_format_RIL_RI(s390_irgen_AIH, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xcc0aULL: s390_format_RIL_RI(s390_irgen_ALSIH, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xcc0bULL: s390_format_RIL_RI(s390_irgen_ALSIHN, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xcc0dULL: s390_format_RIL_RI(s390_irgen_CIH, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
case 0xcc0fULL: s390_format_RIL_RU(s390_irgen_CLIH, ovl.fmt.RIL.r1,
ovl.fmt.RIL.i2); goto ok;
}
switch (((ovl.value >> 16) & 0xff0000000000ULL) >> 40) {
case 0xc5ULL: /* BPRP */ goto unimplemented;
case 0xc7ULL: /* BPP */ goto unimplemented;
case 0xd0ULL: /* TRTR */ goto unimplemented;
case 0xd1ULL: /* MVN */ goto unimplemented;
case 0xd2ULL: s390_format_SS_L0RDRD(s390_irgen_MVC, ovl.fmt.SS.l,
ovl.fmt.SS.b1, ovl.fmt.SS.d1,
ovl.fmt.SS.b2, ovl.fmt.SS.d2); goto ok;
case 0xd3ULL: /* MVZ */ goto unimplemented;
case 0xd4ULL: s390_format_SS_L0RDRD(s390_irgen_NC, ovl.fmt.SS.l,
ovl.fmt.SS.b1, ovl.fmt.SS.d1,
ovl.fmt.SS.b2, ovl.fmt.SS.d2); goto ok;
case 0xd5ULL: s390_format_SS_L0RDRD(s390_irgen_CLC, ovl.fmt.SS.l,
ovl.fmt.SS.b1, ovl.fmt.SS.d1,
ovl.fmt.SS.b2, ovl.fmt.SS.d2); goto ok;
case 0xd6ULL: s390_format_SS_L0RDRD(s390_irgen_OC, ovl.fmt.SS.l,
ovl.fmt.SS.b1, ovl.fmt.SS.d1,
ovl.fmt.SS.b2, ovl.fmt.SS.d2); goto ok;
case 0xd7ULL:
if (ovl.fmt.SS.b1 == ovl.fmt.SS.b2 && ovl.fmt.SS.d1 == ovl.fmt.SS.d2)
s390_irgen_XC_sameloc(ovl.fmt.SS.l, ovl.fmt.SS.b1, ovl.fmt.SS.d1);
else
s390_format_SS_L0RDRD(s390_irgen_XC, ovl.fmt.SS.l,
ovl.fmt.SS.b1, ovl.fmt.SS.d1,
ovl.fmt.SS.b2, ovl.fmt.SS.d2);
goto ok;
case 0xd9ULL: /* MVCK */ goto unimplemented;
case 0xdaULL: /* MVCP */ goto unimplemented;
case 0xdbULL: /* MVCS */ goto unimplemented;
case 0xdcULL: s390_format_SS_L0RDRD(s390_irgen_TR, ovl.fmt.SS.l,
ovl.fmt.SS.b1, ovl.fmt.SS.d1,
ovl.fmt.SS.b2, ovl.fmt.SS.d2); goto ok;
case 0xddULL: /* TRT */ goto unimplemented;
case 0xdeULL: /* ED */ goto unimplemented;
case 0xdfULL: /* EDMK */ goto unimplemented;
case 0xe1ULL: /* PKU */ goto unimplemented;
case 0xe2ULL: /* UNPKU */ goto unimplemented;
case 0xe8ULL: /* MVCIN */ goto unimplemented;
case 0xe9ULL: /* PKA */ goto unimplemented;
case 0xeaULL: /* UNPKA */ goto unimplemented;
case 0xeeULL: /* PLO */ goto unimplemented;
case 0xefULL: /* LMD */ goto unimplemented;
case 0xf0ULL: /* SRP */ goto unimplemented;
case 0xf1ULL: /* MVO */ goto unimplemented;
case 0xf2ULL: /* PACK */ goto unimplemented;
case 0xf3ULL: /* UNPK */ goto unimplemented;
case 0xf8ULL: /* ZAP */ goto unimplemented;
case 0xf9ULL: /* CP */ goto unimplemented;
case 0xfaULL: /* AP */ goto unimplemented;
case 0xfbULL: /* SP */ goto unimplemented;
case 0xfcULL: /* MP */ goto unimplemented;
case 0xfdULL: /* DP */ goto unimplemented;
}
switch (((ovl.value >> 16) & 0xffff00000000ULL) >> 32) {
case 0xe500ULL: /* LASP */ goto unimplemented;
case 0xe501ULL: /* TPROT */ goto unimplemented;
case 0xe502ULL: /* STRAG */ goto unimplemented;
case 0xe50eULL: /* MVCSK */ goto unimplemented;
case 0xe50fULL: /* MVCDK */ goto unimplemented;
case 0xe544ULL: s390_format_SIL_RDI(s390_irgen_MVHHI, ovl.fmt.SIL.b1,
ovl.fmt.SIL.d1, ovl.fmt.SIL.i2);
goto ok;
case 0xe548ULL: s390_format_SIL_RDI(s390_irgen_MVGHI, ovl.fmt.SIL.b1,
ovl.fmt.SIL.d1, ovl.fmt.SIL.i2);
goto ok;
case 0xe54cULL: s390_format_SIL_RDI(s390_irgen_MVHI, ovl.fmt.SIL.b1,
ovl.fmt.SIL.d1, ovl.fmt.SIL.i2);
goto ok;
case 0xe554ULL: s390_format_SIL_RDI(s390_irgen_CHHSI, ovl.fmt.SIL.b1,
ovl.fmt.SIL.d1, ovl.fmt.SIL.i2);
goto ok;
case 0xe555ULL: s390_format_SIL_RDU(s390_irgen_CLHHSI, ovl.fmt.SIL.b1,
ovl.fmt.SIL.d1, ovl.fmt.SIL.i2);
goto ok;
case 0xe558ULL: s390_format_SIL_RDI(s390_irgen_CGHSI, ovl.fmt.SIL.b1,
ovl.fmt.SIL.d1, ovl.fmt.SIL.i2);
goto ok;
case 0xe559ULL: s390_format_SIL_RDU(s390_irgen_CLGHSI, ovl.fmt.SIL.b1,
ovl.fmt.SIL.d1, ovl.fmt.SIL.i2);
goto ok;
case 0xe55cULL: s390_format_SIL_RDI(s390_irgen_CHSI, ovl.fmt.SIL.b1,
ovl.fmt.SIL.d1, ovl.fmt.SIL.i2);
goto ok;
case 0xe55dULL: s390_format_SIL_RDU(s390_irgen_CLFHSI, ovl.fmt.SIL.b1,
ovl.fmt.SIL.d1, ovl.fmt.SIL.i2);
goto ok;
case 0xe560ULL: /* TBEGIN */ goto unimplemented;
case 0xe561ULL: /* TBEGINC */ goto unimplemented;
}
return S390_DECODE_UNKNOWN_INSN;
ok:
return S390_DECODE_OK;
unimplemented:
return S390_DECODE_UNIMPLEMENTED_INSN;
}
/* Handle "special" instructions. */
static s390_decode_t
s390_decode_special_and_irgen(UChar *bytes)
{
s390_decode_t status = S390_DECODE_OK;
/* Got a "Special" instruction preamble. Which one is it? */
if (bytes[0] == 0x18 && bytes[1] == 0x22 /* lr %r2, %r2 */) {
s390_irgen_client_request();
} else if (bytes[0] == 0x18 && bytes[1] == 0x33 /* lr %r3, %r3 */) {
s390_irgen_guest_NRADDR();
} else if (bytes[0] == 0x18 && bytes[1] == 0x44 /* lr %r4, %r4 */) {
s390_irgen_call_noredir();
} else if (bytes[0] == 0x18 && bytes[1] == 0x55 /* lr %r5, %r5 */) {
vex_inject_ir(irsb, Iend_BE);
/* Invalidate the current insn. The reason is that the IRop we're
injecting here can change. In which case the translation has to
be redone. For ease of handling, we simply invalidate all the
time. */
stmt(IRStmt_Put(S390X_GUEST_OFFSET(guest_TISTART),
mkU64(guest_IA_curr_instr)));
stmt(IRStmt_Put(S390X_GUEST_OFFSET(guest_TILEN),
mkU64(guest_IA_next_instr - guest_IA_curr_instr)));
vassert(guest_IA_next_instr - guest_IA_curr_instr ==
S390_SPECIAL_OP_PREAMBLE_SIZE + S390_SPECIAL_OP_SIZE);
put_IA(mkaddr_expr(guest_IA_next_instr));
dis_res->whatNext = Dis_StopHere;
dis_res->jk_StopHere = Ijk_TInval;
} else {
/* We don't know what it is. */
return S390_DECODE_UNKNOWN_SPECIAL_INSN;
}
dis_res->len = S390_SPECIAL_OP_PREAMBLE_SIZE + S390_SPECIAL_OP_SIZE;
return status;
}
/* Function returns # bytes that were decoded or 0 in case of failure */
static UInt
s390_decode_and_irgen(UChar *bytes, UInt insn_length, DisResult *dres)
{
s390_decode_t status;
dis_res = dres;
/* Spot the 8-byte preamble: 18ff lr r15,r15
1811 lr r1,r1
1822 lr r2,r2
1833 lr r3,r3 */
if (bytes[ 0] == 0x18 && bytes[ 1] == 0xff && bytes[ 2] == 0x18 &&
bytes[ 3] == 0x11 && bytes[ 4] == 0x18 && bytes[ 5] == 0x22 &&
bytes[ 6] == 0x18 && bytes[ 7] == 0x33) {
/* Handle special instruction that follows that preamble. */
if (0) vex_printf("special function handling...\n");
insn_length = S390_SPECIAL_OP_PREAMBLE_SIZE + S390_SPECIAL_OP_SIZE;
guest_IA_next_instr = guest_IA_curr_instr + insn_length;
status =
s390_decode_special_and_irgen(bytes + S390_SPECIAL_OP_PREAMBLE_SIZE);
} else {
/* Handle normal instructions. */
switch (insn_length) {
case 2:
status = s390_decode_2byte_and_irgen(bytes);
break;
case 4:
status = s390_decode_4byte_and_irgen(bytes);
break;
case 6:
status = s390_decode_6byte_and_irgen(bytes);
break;
default:
status = S390_DECODE_ERROR;
break;
}
}
/* If next instruction is execute, stop here */
if (dis_res->whatNext == Dis_Continue && bytes[insn_length] == 0x44) {
put_IA(mkaddr_expr(guest_IA_next_instr));
dis_res->whatNext = Dis_StopHere;
dis_res->jk_StopHere = Ijk_Boring;
}
if (status == S390_DECODE_OK) return insn_length; /* OK */
/* Decoding failed somehow */
if (sigill_diag) {
vex_printf("vex s390->IR: ");
switch (status) {
case S390_DECODE_UNKNOWN_INSN:
vex_printf("unknown insn: ");
break;
case S390_DECODE_UNIMPLEMENTED_INSN:
vex_printf("unimplemented insn: ");
break;
case S390_DECODE_UNKNOWN_SPECIAL_INSN:
vex_printf("unimplemented special insn: ");
break;
default:
case S390_DECODE_ERROR:
vex_printf("decoding error: ");
break;
}
vex_printf("%02x%02x", bytes[0], bytes[1]);
if (insn_length > 2) {
vex_printf(" %02x%02x", bytes[2], bytes[3]);
}
if (insn_length > 4) {
vex_printf(" %02x%02x", bytes[4], bytes[5]);
}
vex_printf("\n");
}
return 0; /* Failed */
}
/* Disassemble a single instruction INSN into IR. */
static DisResult
disInstr_S390_WRK(UChar *insn)
{
UChar byte;
UInt insn_length;
DisResult dres;
/* ---------------------------------------------------- */
/* --- Compute instruction length -- */
/* ---------------------------------------------------- */
/* Get the first byte of the insn. */
byte = insn[0];
/* The leftmost two bits (0:1) encode the length of the insn in bytes.
00 -> 2 bytes, 01 -> 4 bytes, 10 -> 4 bytes, 11 -> 6 bytes. */
insn_length = ((((byte >> 6) + 1) >> 1) + 1) << 1;
guest_IA_next_instr = guest_IA_curr_instr + insn_length;
/* ---------------------------------------------------- */
/* --- Initialise the DisResult data -- */
/* ---------------------------------------------------- */
dres.whatNext = Dis_Continue;
dres.len = insn_length;
dres.continueAt = 0;
dres.jk_StopHere = Ijk_INVALID;
/* fixs390: consider chasing of conditional jumps */
/* Normal and special instruction handling starts here. */
if (s390_decode_and_irgen(insn, insn_length, &dres) == 0) {
/* All decode failures end up here. The decoder has already issued an
error message.
Tell the dispatcher that this insn cannot be decoded, and so has
not been executed, and (is currently) the next to be executed.
The insn address in the guest state needs to be set to
guest_IA_curr_instr, otherwise the complaint will report an
incorrect address. */
put_IA(mkaddr_expr(guest_IA_curr_instr));
dres.whatNext = Dis_StopHere;
dres.jk_StopHere = Ijk_NoDecode;
dres.continueAt = 0;
dres.len = 0;
} else {
/* Decode success */
switch (dres.whatNext) {
case Dis_Continue:
put_IA(mkaddr_expr(guest_IA_next_instr));
break;
case Dis_ResteerU:
case Dis_ResteerC:
put_IA(mkaddr_expr(dres.continueAt));
break;
case Dis_StopHere:
if (dres.jk_StopHere == Ijk_EmWarn ||
dres.jk_StopHere == Ijk_EmFail) {
/* We assume here, that emulation warnings are not given for
insns that transfer control. There is no good way to
do that. */
put_IA(mkaddr_expr(guest_IA_next_instr));
}
break;
default:
vassert(0);
}
}
return dres;
}
/*------------------------------------------------------------*/
/*--- Top-level fn ---*/
/*------------------------------------------------------------*/
/* Disassemble a single instruction into IR. The instruction
is located in host memory at &guest_code[delta]. */
DisResult
disInstr_S390(IRSB *irsb_IN,
Bool (*resteerOkFn)(void *, Addr64),
Bool resteerCisOk,
void *callback_opaque,
UChar *guest_code,
Long delta,
Addr64 guest_IP,
VexArch guest_arch,
VexArchInfo *archinfo,
VexAbiInfo *abiinfo,
Bool host_bigendian,
Bool sigill_diag_IN)
{
vassert(guest_arch == VexArchS390X);
/* The instruction decoder requires a big-endian machine. */
vassert(host_bigendian == True);
/* Set globals (see top of this file) */
guest_IA_curr_instr = guest_IP;
irsb = irsb_IN;
resteer_fn = resteerOkFn;
resteer_data = callback_opaque;
sigill_diag = sigill_diag_IN;
return disInstr_S390_WRK(guest_code + delta);
}
/*---------------------------------------------------------------*/
/*--- end guest_s390_toIR.c ---*/
/*---------------------------------------------------------------*/