From 73c1d57e3e53233af477bda398107075c505e3e0 Mon Sep 17 00:00:00 2001 From: Yao Qi Date: Thu, 18 Jul 2013 23:04:00 +0000 Subject: [PATCH] gdb/testsuite/ * gdb.trace/read-memory.c: New. * gdb.trace/read-memory.exp: New. --- gdb/testsuite/ChangeLog | 5 + gdb/testsuite/gdb.trace/read-memory.c | 46 +++++++++ gdb/testsuite/gdb.trace/read-memory.exp | 162 ++++++++++++++++++++++++++++++++ 3 files changed, 213 insertions(+) create mode 100644 gdb/testsuite/gdb.trace/read-memory.c create mode 100644 gdb/testsuite/gdb.trace/read-memory.exp diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 77b50fa..7cd25a0 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2013-07-19 Yao Qi + * gdb.trace/read-memory.c: New. + * gdb.trace/read-memory.exp: New. + +2013-07-19 Yao Qi + * lib/gdb.exp (gdb_compile_shlib): Pass the tail name of $dest to link options if host is remote. Move the generated file to $dest.a on host if host is remote. diff --git a/gdb/testsuite/gdb.trace/read-memory.c b/gdb/testsuite/gdb.trace/read-memory.c new file mode 100644 index 0000000..bc423b9 --- /dev/null +++ b/gdb/testsuite/gdb.trace/read-memory.c @@ -0,0 +1,46 @@ +/* This testcase is part of GDB, the GNU debugger. + + Copyright 2013 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 . */ + +int testglob = 0; + +int testglob_not_collected = 10; + +const int constglob = 10000; + +const int constglob_not_collected = 100; + +static void +start (void) +{} + +static void +end (void) +{} + +int +main (void) +{ + testglob++; + testglob_not_collected++; + + start (); + + testglob++; + testglob_not_collected++; + end (); + return 0; +} diff --git a/gdb/testsuite/gdb.trace/read-memory.exp b/gdb/testsuite/gdb.trace/read-memory.exp new file mode 100644 index 0000000..bb59853 --- /dev/null +++ b/gdb/testsuite/gdb.trace/read-memory.exp @@ -0,0 +1,162 @@ +# Copyright 2013 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 . + +load_lib "trace-support.exp" + +standard_testfile + +if {[prepare_for_testing $testfile.exp $testfile $srcfile debug]} { + untested $testfile.exp + return -1 +} + +if ![runto_main] { + fail "Can't run to main to check for trace support" + return -1 +} + +if ![gdb_target_supports_trace] { + unsupported "target does not support trace" + return -1 +} + +# Set tracepoints, start tracing and collect data. + +proc set_tracepoint_and_collect { } { + global testfile srcfile + + # Start with a fresh gdb. + clean_restart ${testfile} + if ![runto_main] { + fail "Can't run to main" + return -1 + } + gdb_test "break end" "Breakpoint \[0-9\] at .*" + gdb_test "trace start" "Tracepoint \[0-9\] at .*" + gdb_trace_setactions "set action for tracepoint" "" \ + "collect testglob" "^$" \ + "collect constglob" "^$" + + gdb_test_no_output "tstart" + gdb_test "continue" ".*Breakpoint.* end .*at.*$srcfile.*" \ + "continue to end" + gdb_test_no_output "tstop" +} + +with_test_prefix "live" { + set_tracepoint_and_collect + + gdb_test "print testglob" " = 2" + gdb_test "print testglob_not_collected" " = 12" + gdb_test "print constglob" " = 10000" + gdb_test "print constglob_not_collected" " = 100" +} + +with_test_prefix "live target tfind" { + gdb_test "tfind 0" "Found trace frame 0, tracepoint \[0-9\]+.*" \ + "tfind 0" + gdb_test "print testglob" " = 1" + gdb_test "print testglob_not_collected" " = " + gdb_test "print constglob" " = 10000" + gdb_test "print constglob_not_collected" " = 100" + gdb_test "tfind" "Target failed to find requested trace frame." \ + "tfind does not find a second frame" +} + +# Save trace frames to trace file. +set tracefile [standard_output_file ${testfile}] +gdb_test "tsave ${tracefile}.tfile" \ + "Trace data saved to file '${tracefile}.tfile'.*" \ + "save tfile trace" + +# Test read memory when changing target from remote to ${target}. + +proc test_from_remote { target } { + global gdb_prompt testfile + global tracefile + + with_test_prefix "remote to ${target}" { + set_tracepoint_and_collect + + # Change target to ${target}. + set test "change target" + gdb_test_multiple "target ${target} ${tracefile}.${target}" "$test" { + -re "A program is being debugged already. Kill it. .y or n. " { + send_gdb "y\n" + exp_continue + } + -re "$gdb_prompt $" { + pass "$test" + } + } + + with_test_prefix "w/o setting traceframe" { + gdb_test "print testglob" "Cannot access memory at address.*" + gdb_test "print testglob_not_collected" \ + "Cannot access memory at address.*" + gdb_test "print constglob" " = 10000" + gdb_test "print constglob_not_collected" " = 100" + } + with_test_prefix "w/ setting traceframe" { + gdb_test "tfind 0" "Found trace frame 0, tracepoint \[0-9\]+.*" \ + "tfind 0" + gdb_test "print testglob" " = 1" + gdb_test "print testglob_not_collected" " = " + gdb_test "print constglob" " = 10000" + gdb_test "print constglob_not_collected" " = 100" + gdb_test "tfind" "Target failed to find requested trace frame." \ + "tfind does not find a second frame" + } + } +} + +test_from_remote "tfile" + +# Test read memory when changing target from exec to ${target} + +proc teset_from_exec { target } { + global srcdir subdir binfile testfile + global tracefile + + # Restart GDB and read the trace data in ${target} target. + gdb_exit + gdb_start + gdb_reinitialize_dir $srcdir/$subdir + gdb_file_cmd $binfile + + gdb_test "target ${target} ${tracefile}.${target}" ".*" \ + "change to ${target} target" + + with_test_prefix "exec to ${target} w/o setting traceframe" { + gdb_test "print testglob" "Cannot access memory at address.*" + gdb_test "print testglob_not_collected" \ + "Cannot access memory at address.*" + gdb_test "print constglob" " = 10000" + gdb_test "print constglob_not_collected" " = 100" + } + + with_test_prefix "exec to ${target} w/ setting traceframe" { + gdb_test "tfind 0" "Found trace frame 0, tracepoint \[0-9\]+.*" \ + "tfind 0" + gdb_test "print testglob" " = 1" + gdb_test "print testglob_not_collected" " = " + gdb_test "print constglob" " = 10000" + gdb_test "print constglob_not_collected" " = 100" + gdb_test "tfind" "Target failed to find requested trace frame." \ + "tfind does not find a second frame" + } +} + +teset_from_exec "tfile" -- 2.7.4