From FEDORA_PATCHES Mon Sep 17 00:00:00 2001

From: Jan Kratochvil <jan.kratochvil@redhat.com>

Date: Fri, 23 Mar 2018 20:42:44 +0100

Subject: gdb-rhbz1553104-s390x-arch12-test.patch

;; [s390x] Backport arch12 instructions decoding (RH BZ 1553104).

;; =fedoratest

diff --git a/gdb/testsuite/gdb.arch/s390x-arch12.S b/gdb/testsuite/gdb.arch/s390x-arch12.S

new file mode 100644

--- /dev/null

+++ b/gdb/testsuite/gdb.arch/s390x-arch12.S

@@ -0,0 +1,4 @@

+.text

+.globl load_guarded

+load_guarded:

+.byte 0xeb,0xbf,0xf0,0x58,0x00,0x24,0xe3,0xf0,0xff,0x50,0xff,0x71,0xb9,0x04,0x00,0xbf,0xe3,0x20,0xb0,0xa0,0x00,0x24,0xe3,0x10,0xb0,0xa0,0x00,0x04,0xe3,0x10,0x10,0x00,0x00,0x4c,0xe3,0x10,0xb0,0xa8,0x00,0x24,0xe3,0x10,0xb0,0xa8,0x00,0x04,0xb9,0x04,0x00,0x21,0xe3,0x40,0xb1,0x20,0x00,0x04,0xeb,0xbf,0xb1,0x08,0x00,0x04,0x07,0xf4

diff --git a/gdb/testsuite/gdb.arch/s390x-arch12.exp b/gdb/testsuite/gdb.arch/s390x-arch12.exp

new file mode 100644

--- /dev/null

+++ b/gdb/testsuite/gdb.arch/s390x-arch12.exp

@@ -0,0 +1,34 @@

+# Copyright 2018 Free Software Foundation, Inc.

+

+# 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 3 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, see <http://www.gnu.org/licenses/>.

+

+#if { ![istarget s390x-*linux-*] || ![is_lp64_target] } {

+#    verbose "Skipping s390x-prologue-skip.exp"

+#    return

+#}

+

+set testfile "s390x-arch12"

+set uufile "${srcdir}/${subdir}/${testfile}.o.uu"

+set ofile "${srcdir}/${subdir}/${testfile}.o"

+

+if { [catch "system \"uudecode -o ${ofile} ${uufile}\"" ] != 0 } {

+    untested "failed uudecode"

+    return -1

+}

+

+gdb_exit

+gdb_start

+gdb_load $ofile

+

+gdb_test "disas load_guarded" " <\\+28>:\tlgg\t%r1,0\\(%r1\\)\r\n\[^\r\n\]* <\\+34>:\tstg\t%r1,168\\(%r11\\)\r\n.*"

diff --git a/gdb/testsuite/gdb.arch/s390x-arch12.o.uu b/gdb/testsuite/gdb.arch/s390x-arch12.o.uu

new file mode 100644

--- /dev/null

+++ b/gdb/testsuite/gdb.arch/s390x-arch12.o.uu

@@ -0,0 +1,20 @@

+begin 644 s390x-arch12.o

+M?T5,1@("`0`````````````!`!8````!````````````````````````````

+M``$X``````!```````!```<`!.N_\%@`)./P_U#_<;D$`+_C(+"@`"3C$+"@

+M``3C$!```$SC$+"H`"3C$+"H``2Y!``AXT"Q(``$Z[^Q"``$!_0`+G-Y;71A

+M8@`N

+M`````````````````````````````````P```0``````````````````````

+M`````P```@```````````````````````````P```P``````````````````

+M```````!$````0``````````````````````;&]A9%]G=6%R9&5D````````

+M````````````````````````````````````````````````````````````

+M`````````````````````````!L````!``````````8`````````````````

+M``!``````````$`````````````````````$```````````````A`````0``

+M```````#````````````````````@```````````````````````````````

+M!```````````````)P````@``````````P```````````````````(``````

+M``````````````````````````0``````````````!$````#````````````

+M``````````````````"``````````"P````````````````````!````````

+M```````!`````@``````````````````````````````L`````````!X````

+M!@````0`````````"``````````8````"0````,`````````````````````

+H`````````2@`````````#@````````````````````$`````````````

+`

+end