From patchwork Fri Mar 4 10:39:19 2016 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Patchwork-Submitter: =?utf-8?q?Marcin_Ko=C5=9Bcielnicki?= X-Patchwork-Id: 11182 Received: (qmail 73348 invoked by alias); 4 Mar 2016 10:39:26 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Unsubscribe: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Delivered-To: mailing list gdb-patches@sourceware.org Received: (qmail 73337 invoked by uid 89); 4 Mar 2016 10:39:25 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-1.6 required=5.0 tests=AWL, BAYES_00, RP_MATCHES_RCVD, SPF_PASS autolearn=ham version=3.3.2 spammy=displayed, 366, guessed, traceframe X-HELO: xyzzy.0x04.net Received: from xyzzy.0x04.net (HELO xyzzy.0x04.net) (109.74.193.254) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Fri, 04 Mar 2016 10:39:23 +0000 Received: from hogfather.0x04.net (89-65-66-135.dynamic.chello.pl [89.65.66.135]) by xyzzy.0x04.net (Postfix) with ESMTPS id B8EE741095 for ; Fri, 4 Mar 2016 11:40:17 +0100 (CET) Received: by hogfather.0x04.net (Postfix, from userid 1000) id A49C85800FF; Fri, 4 Mar 2016 11:39:20 +0100 (CET) From: =?UTF-8?q?Marcin=20Ko=C5=9Bcielnicki?= To: gdb-patches@sourceware.org Cc: =?UTF-8?q?Marcin=20Ko=C5=9Bcielnicki?= Subject: [PATCH v3] gdbserver/s390: Switch on tracepoint support. Date: Fri, 4 Mar 2016 11:39:19 +0100 Message-Id: <1457087959-3032-1-git-send-email-koriakin@0x04.net> In-Reply-To: <1456126708-23285-1-git-send-email-koriakin@0x04.net> References: <1456126708-23285-1-git-send-email-koriakin@0x04.net> MIME-Version: 1.0 X-IsSubscribed: yes Also adds s390 support to gdb.trace testsuite. gdb/gdbserver/ChangeLog: * linux-s390-low.c (s390_supports_tracepoints): New function. (struct linux_target_ops): Fill supports_tracepoints hook. gdb/testsuite/ChangeLog: * gdb.trace/ftrace.exp: Set arg0exp for s390. * gdb.trace/mi-trace-frame-collected.exp: Expect 4 registers on s390. * gdb.trace/mi-trace-unavailable.exp: Set pcnum for s390, add gpr0num variable for GPR 0 instead of assuming it is register 0. * gdb.trace/trace-common.h: Add s390 fast tracepoint placeholder. * lib/trace-support.exp: Add s390 registers. --- Since I'm abandoning my main gdb.trace cleanup patch, here's a new version that includes the necessary s390 test changes on top of current master. gdb/gdbserver/ChangeLog | 5 +++++ gdb/gdbserver/linux-s390-low.c | 10 +++++++++- gdb/testsuite/ChangeLog | 9 +++++++++ gdb/testsuite/gdb.trace/ftrace.exp | 5 +++++ gdb/testsuite/gdb.trace/mi-trace-frame-collected.exp | 15 ++++++++++++++- gdb/testsuite/gdb.trace/mi-trace-unavailable.exp | 18 +++++++++++++----- gdb/testsuite/gdb.trace/trace-common.h | 8 ++++++++ gdb/testsuite/lib/trace-support.exp | 4 ++++ 8 files changed, 67 insertions(+), 7 deletions(-) diff --git a/gdb/gdbserver/ChangeLog b/gdb/gdbserver/ChangeLog index 11e1c4f..489a044 100644 --- a/gdb/gdbserver/ChangeLog +++ b/gdb/gdbserver/ChangeLog @@ -1,3 +1,8 @@ +2016-03-04 Marcin KoÅ›cielnicki + + * linux-s390-low.c (s390_supports_tracepoints): New function. + (struct linux_target_ops): Fill supports_tracepoints hook. + 2016-03-03 Yao Qi * linux-low.c: Update comments to start_step_over. diff --git a/gdb/gdbserver/linux-s390-low.c b/gdb/gdbserver/linux-s390-low.c index 7304feb..2bcfa7a 100644 --- a/gdb/gdbserver/linux-s390-low.c +++ b/gdb/gdbserver/linux-s390-low.c @@ -745,6 +745,14 @@ s390_regs_info (void) return ®s_info; } +/* The "supports_tracepoints" linux_target_ops method. */ + +static int +s390_supports_tracepoints (void) +{ + return 1; +} + struct linux_target_ops the_low_target = { s390_arch_setup, s390_regs_info, @@ -771,7 +779,7 @@ struct linux_target_ops the_low_target = { NULL, /* new_fork */ NULL, /* prepare_to_resume */ NULL, /* process_qsupported */ - NULL, /* supports_tracepoints */ + s390_supports_tracepoints, NULL, /* get_thread_area */ NULL, /* install_fast_tracepoint_jump_pad */ NULL, /* emit_ops */ diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 1811103..29a3fd0 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,12 @@ +2016-03-04 Marcin KoÅ›cielnicki + + * gdb.trace/ftrace.exp: Set arg0exp for s390. + * gdb.trace/mi-trace-frame-collected.exp: Expect 4 registers on s390. + * gdb.trace/mi-trace-unavailable.exp: Set pcnum for s390, add gpr0num + variable for GPR 0 instead of assuming it is register 0. + * gdb.trace/trace-common.h: Add s390 fast tracepoint placeholder. + * lib/trace-support.exp: Add s390 registers. + 2016-03-03 Doug Evans * gdb.base/skip.exp: Use with_test_prefix. diff --git a/gdb/testsuite/gdb.trace/ftrace.exp b/gdb/testsuite/gdb.trace/ftrace.exp index a1d4771..b3c1223 100644 --- a/gdb/testsuite/gdb.trace/ftrace.exp +++ b/gdb/testsuite/gdb.trace/ftrace.exp @@ -242,6 +242,11 @@ if [is_amd64_regs_target] { set arg0exp "*(int *) (\$ebp + 8)" } elseif { [istarget "aarch64*-*-*"] } { set arg0exp "\$x0" +} elseif { [istarget "s390x-*-*"] } { + set arg0exp "\$r2" +} elseif { [istarget "s390-*-*"] } { + # On targets with 64-bit GPRs, avoid the high part. + set arg0exp "(\$r2 & 0xffffffff)" } else { set arg0exp "" } diff --git a/gdb/testsuite/gdb.trace/mi-trace-frame-collected.exp b/gdb/testsuite/gdb.trace/mi-trace-frame-collected.exp index 0daaa25..a69c329 100644 --- a/gdb/testsuite/gdb.trace/mi-trace-frame-collected.exp +++ b/gdb/testsuite/gdb.trace/mi-trace-frame-collected.exp @@ -91,10 +91,23 @@ proc test_trace_frame_collected { data_source } { ".*\\^done,found=\"1\",tracepoint=\"${decimal}\",traceframe=\"0\",frame=\{.*" \ "-trace-find frame-number 0" + set reg_pattern "\{number=\"$decimal\",value=\"$hex\"\}" + # Test MI command '-trace-frame-collected' dumps only # collected registers. + if { [istarget "s390*-*-*"] } { + # Only PC is collected, but on s390 PC is a pseudo-register - + # collecting it also collects the underlying PSWA register. + if { "$data_source" != "tfile" } { + set reg_pattern "$reg_pattern,$reg_pattern" + } else { + # For tfile, PSWM and CC are also guessed. + set reg_pattern "$reg_pattern,$reg_pattern,$reg_pattern,$reg_pattern" + } + } + mi_gdb_test "-trace-frame-collected" \ - "\\^done,explicit-variables=\\\[\{name=\"gdb_char_test\",value=\".*\"\}\\\],computed-expressions=\\\[\\\],registers=\\\[\{number=\"$decimal\",value=\"$hex\"\}\\\],tvars=\\\[\\\],memory=\\\[\{address=\"$hex\",length=\"1\"\}\\\]"\ + "\\^done,explicit-variables=\\\[\{name=\"gdb_char_test\",value=\".*\"\}\\\],computed-expressions=\\\[\\\],registers=\\\[$reg_pattern\\\],tvars=\\\[\\\],memory=\\\[\{address=\"$hex\",length=\"1\"\}\\\]"\ "-trace-frame-collected (register)" mi_gdb_test "-trace-find frame-number 1" \ diff --git a/gdb/testsuite/gdb.trace/mi-trace-unavailable.exp b/gdb/testsuite/gdb.trace/mi-trace-unavailable.exp index 82c6101..4ab67fe 100644 --- a/gdb/testsuite/gdb.trace/mi-trace-unavailable.exp +++ b/gdb/testsuite/gdb.trace/mi-trace-unavailable.exp @@ -130,28 +130,36 @@ proc test_trace_unavailable { data_source } { ".*\\^done,found=\"1\",tracepoint=\"${decimal}\",traceframe=\"1\",frame=\{.*" \ "-trace-find frame-number 1" - set pcnum 0 + set pcnum -1 + set gpr0num -1 if [is_amd64_regs_target] { set pcnum 16 + set gpr0num 0 } elseif [is_x86_like_target] { set pcnum 8 + set gpr0num 0 } elseif [is_aarch64_target] { set pcnum 32 + set gpr0num 0 + } elseif { [istarget "s390*-*-*"] } { + # Strictly speaking, this is PSWA, not PC. + set pcnum 1 + set gpr0num 2 } else { # Other ports support tracepoint should define the number # of its own pc register. } - if { $pcnum != 0 } { + if { $pcnum != -1 } { global hex # Test that register 0 and PC are displayed, and register # 0 is unavailable. - mi_gdb_test "-data-list-register-values x 0 ${pcnum}" \ - ".*\\^done,register-values=\\\[\{number=\"0\",value=\"\"\},\{number=\"${pcnum}\",value=\"${hex}\"\}\\\]" \ + mi_gdb_test "-data-list-register-values x ${gpr0num} ${pcnum}" \ + ".*\\^done,register-values=\\\[\{number=\"${gpr0num}\",value=\"\"\},\{number=\"${pcnum}\",value=\"${hex}\"\}\\\]" \ "-data-list-register-values x" # Test that only available register PC is displayed. - mi_gdb_test "-data-list-register-values --skip-unavailable x 0 ${pcnum}" \ + mi_gdb_test "-data-list-register-values --skip-unavailable x ${gpr0num} ${pcnum}" \ ".*\\^done,register-values=\\\[\{number=\"${pcnum}\",value=\"${hex}\"\}\\\]" \ "-data-list-register-values --skip-unavailable x" } diff --git a/gdb/testsuite/gdb.trace/trace-common.h b/gdb/testsuite/gdb.trace/trace-common.h index eceb182..a330024 100644 --- a/gdb/testsuite/gdb.trace/trace-common.h +++ b/gdb/testsuite/gdb.trace/trace-common.h @@ -48,6 +48,14 @@ x86_trace_dummy () " nop\n" \ ) +#elif (defined __s390__) + +#define FAST_TRACEPOINT_LABEL(name) \ + asm (" .global " SYMBOL(name) "\n" \ + SYMBOL(name) ":\n" \ + " mvc 0(8, %r15), 0(%r15)\n" \ + ) + #else #error "unsupported architecture for trace tests" diff --git a/gdb/testsuite/lib/trace-support.exp b/gdb/testsuite/lib/trace-support.exp index f593c43..878f9e2 100644 --- a/gdb/testsuite/lib/trace-support.exp +++ b/gdb/testsuite/lib/trace-support.exp @@ -36,6 +36,10 @@ if [is_amd64_regs_target] { set fpreg "x29" set spreg "sp" set pcreg "pc" +} elseif { [istarget "s390*-*-*"] } { + set fpreg "r11" + set spreg "r15" + set pcreg "pc" } else { set fpreg "fp" set spreg "sp"