82 lines
3.5 KiB
Diff
82 lines
3.5 KiB
Diff
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<W1R=&%B`"YS:'-T<G1A8@`N=&5X=``N9&%T80`N8G-S````````````
|
|
+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
|