From: Richard Henderson <rth@twiddle.net>
Date: Wed, 5 Sep 2012 17:54:00 +0000 (-0700)
Subject: target-s390: Implement COMPARE RELATIVE LONG
X-Git-Url: http://git.maquefel.me/?a=commitdiff_plain;h=403e217f4073b885b7e02a1b64054ceca7202bf6;p=qemu.git

target-s390: Implement COMPARE RELATIVE LONG

Signed-off-by: Richard Henderson <rth@twiddle.net>
---

diff --git a/target-s390x/insn-data.def b/target-s390x/insn-data.def
index eb88c550d6..5c19aefefc 100644
--- a/target-s390x/insn-data.def
+++ b/target-s390x/insn-data.def
@@ -120,6 +120,10 @@
 /* COMPARE IMMEDIATE */
     C(0xc20d, CFI,     RIL_a, EI,  r1, i2, 0, 0, 0, cmps32)
     C(0xc20c, CGFI,    RIL_a, EI,  r1, i2, 0, 0, 0, cmps64)
+/* COMPARE RELATIVE LONG */
+    C(0xc60d, CRL,     RIL_b, GIE, r1, mri2_32s, 0, 0, 0, cmps32)
+    C(0xc608, CGRL,    RIL_b, GIE, r1, mri2_64, 0, 0, 0, cmps64)
+    C(0xc60c, CGFRL,   RIL_b, GIE, r1, mri2_32s, 0, 0, 0, cmps64)
 /* COMPARE HALFWORD */
     C(0x4900, CH,      RX_a,  Z,   r1_o, m2_16s, 0, 0, 0, cmps32)
     C(0xe379, CHY,     RXY_a, LD,  r1_o, m2_16s, 0, 0, 0, cmps32)