[PATCH] Add CTF support to GDB [5] Add test for CTF function
Hui Zhu
teawater@gmail.com
Tue Jan 15 11:19:00 GMT 2013
Hi Yao and Joel,
Thanks for your review.
On Mon, Jan 14, 2013 at 3:03 PM, Yao Qi <yao@codesourcery.com> wrote:
> On 01/14/2013 11:48 AM, Hui Zhu wrote:
>>
>> --- a/testsuite/gdb.trace/Makefile.in
>> +++ b/testsuite/gdb.trace/Makefile.in
>> @@ -5,7 +5,7 @@ srcdir = @srcdir@
>>
>> PROGS = ax backtrace deltrace disconnected-tracing infotrace packetlen \
>> passc-dyn passcount report save-trace tfile tfind tracecmd tsv \
>> - unavailable while-dyn while-stepping
>> + unavailable while-dyn while-stepping ctf
>
>
> Looks we should keep the alphabetic order of this list.
Fixed.
>
>> --- /dev/null
>> +++ b/testsuite/gdb.trace/ctf.exp
>> +
>> +#Test "tsave -ctf"
>> +
>> +gdb_test "trace 24" "Tracepoint \[0-9\]+ at .*"
>
>
> We can use 'gdb_get_line_number' instead of hard-code the line number.
Fixed.
>
>> +gdb_trace_setactions "set action for line 24" "" \
>> + "collect \$local" "^$"
>> +gdb_test "trace 25" "Tracepoint \[0-9\]+ at .*"
>
>
> Likewise.
>
>> +gdb_trace_setactions "set action for line 25" "" \
>> + "collect \$reg" "^$"
>> +
>> +gdb_test_no_output "tstart"
>> +
>> +gdb_test "break end" "Breakpoint ${decimal} at .*"
>> +gdb_test "continue" "Continuing\\.\[ \r\n\]+Breakpoint.*"
>> +gdb_test_no_output "tstop"
>> +
>> +gdb_test "tsave -ctf $ctfdir" "Trace data saved to directory
>> \'$ctfdir\'."
>> +
>
>
> What if GDB is built without ctf support?
Because tsave -ctf is not base on the babeltrace. So it is not a
issue. Please see the last part of
http://sourceware.org/ml/gdb-patches/2012-12/msg00492.html to see the
introduce about that.
And I added a check unsupport in "target ctf" because it need support
of babeltrace.
>
>> +set ret [exec whereis babeltrace]
>
>
> We should use 'remote_exec host' instead of 'exec' and I am not sure it is
> portable to check 'babeltrace' exist by 'whereis'.
I found an example in gas-defs.exp and update ctf.exp according to gas_version.
>
>> +if { [string compare "babeltrace:" $ret] == 0 } then {
>> + unsupported "babeltrace check ctf directory"
>> +} else {
>> + set ret [catch {exec babeltrace $ctfdir} results]
>
>
> remote_exec host 'babeltrace $ctfdir'
>
>> + if { $ret != 0 } then {
>> + fail "babeltrace open ctf directory"
>> + return -1
>> + }
>> +}
>> +
>> +
>> +#Test "target ctf"
>> +
>> +gdb_test_no_output "set confirm off"
>> +gdb_test_no_output "target ctf $ctfdir"
>> +
>> +gdb_test "tfind 0" ".*Found trace frame 0.*"
>> +gdb_test "tdump" ".*b = 1.*a = 0.*i = 0.*"
>> +gdb_test "print \$b" ".* = 1.*"
>> +gdb_test "print \$a" ".* = 0.*"
>> +gdb_test "print \$i" ".* = 0.*"
>> +
>> +gdb_test "tfind 1" ".*Found trace frame 1.*"
>> +
>> +gdb_test "tfind 2" ".*Found trace frame 2.*"
>> +gdb_test "tdump" ".*b = 2.*a = 1.*i = 1.*"
>> +gdb_test "print \$b" ".* = 2.*"
>> +gdb_test "print \$a" ".* = 1.*"
>> +gdb_test "print \$i" ".* = 1.*"
>> +
>
>
> I don't run it but there must be some duplicated test results in gdb.sum,
> such as "tdump", "print $a", and etc.
>
> It is better to run 'tfind' until there is no trace frame in the trace file,
> to make sure no unexpected trace frame is generated.
Fixed.
>
>> +
>> +#Clean
>> +
>> +exec rm -rf $ctfdir
>
>
> remote_exec host "rm -rf $ctfdir"
> --
> Yao (齐尧)
And I added copyright header in ctf.c.
Post a new version. Please help me review it.
Thanks,
Hui
2013-01-15 Hui Zhu <hui_zhu@mentor.com>
* gdb.trace/Makefile.in (PROGS): Add ctf.
* gdb.trace/ctf.c: New file.
* gdb.trace/ctf.exp: New file.
-------------- next part --------------
--- a/testsuite/gdb.trace/Makefile.in
+++ b/testsuite/gdb.trace/Makefile.in
@@ -3,7 +3,7 @@ srcdir = @srcdir@
.PHONY: all clean mostlyclean distclean realclean
-PROGS = ax backtrace deltrace disconnected-tracing infotrace packetlen \
+PROGS = ax backtrace ctf deltrace disconnected-tracing infotrace packetlen \
passc-dyn passcount report save-trace tfile tfind tracecmd tsv \
unavailable while-dyn while-stepping
--- /dev/null
+++ b/testsuite/gdb.trace/ctf.c
@@ -0,0 +1,48 @@
+/* CTF test program.
+
+ Copyright (C) 2013 Free Software Foundation, Inc.
+
+ This file is part of GDB.
+
+ 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/>. */
+
+typedef char test_t1;
+typedef test_t1 test_t2;
+typedef test_t2 test_t3;
+
+int
+main ()
+{
+ int i;
+ int a = 0;
+ test_t3 b = 1;
+ test_t3 c[][4] = {"123", "456", "789", "123", "456", "789"};
+ struct
+ {
+ int a;
+ int b;
+ } d[2][2] = {{{1, 2}, {3, 4}}, {{5, 6}, {7, 8}}};
+
+ for (i = 0; i < 10; i++)
+ {
+ ++a; /* set tracepoint 1 here */
+ ++b; /* set tracepoint 2 here */
+ ++c[0][1];
+ ++d[0][1].a;
+ }
+
+ /* set breakpoint end here */
+
+ return 0;
+}
--- /dev/null
+++ b/testsuite/gdb.trace/ctf.exp
@@ -0,0 +1,140 @@
+# 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 <http://www.gnu.org/licenses/>.
+
+load_lib "trace-support.exp";
+
+standard_testfile
+set executable $testfile
+set expfile $testfile.exp
+set ctfdir $testfile.ctf
+
+if [prepare_for_testing $expfile $executable $srcfile \
+ {debug nowarnings}] {
+ untested "failed to prepare for trace tests"
+ 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;
+}
+
+
+#Test "tsave -ctf"
+
+set trace_location1 [gdb_get_line_number "set tracepoint 1 here"]
+gdb_test "trace $trace_location1" "Tracepoint ${decimal} at .*"
+gdb_trace_setactions "set action for line $trace_location1" "" \
+ "collect \$local" "^$"
+
+set trace_location2 [gdb_get_line_number "set tracepoint 2 here"]
+gdb_test "trace $trace_location2" "Tracepoint ${decimal} at .*"
+gdb_trace_setactions "set action for line $trace_location2" "" \
+ "collect \$reg" "^$"
+
+gdb_test_no_output "tstart"
+
+set break_end [gdb_get_line_number "set breakpoint end here"]
+gdb_test "break $break_end" "Breakpoint ${decimal} at .*"
+
+gdb_test "continue" "Continuing\\.\[ \r\n\]+Breakpoint.*"
+gdb_test_no_output "tstop"
+
+gdb_test "tsave -ctf $ctfdir" "Trace data saved to directory \'$ctfdir\'."
+
+#Get the pathname of babeltrace and set it to $which_babeltrace.
+#If host doesn't have babeltrace, $which_babeltrace will set to 0.
+if [is_remote host] then {
+ remote_exec host "which babeltrace" "" "" "babeltrace.which"
+ remote_upload host "babeltrace.which"
+ set which_babeltrace [file_contents "babeltrace.which"]
+ remote_file build delete "babeltrace.which"
+ remote_file host delete "babeltrace.which"
+} else {
+ set which_babeltrace [which babeltrace]
+}
+
+if { $which_babeltrace == 0 } then {
+ unsupported "babeltrace check ctf directory"
+} else {
+ #Let babeltrace output an error to make sure current way is right.
+ if [is_remote host] then {
+ remote_exec host "$which_babeltrace not_exist < /dev/null" "" "" "babeltrace.output"
+ remote_upload host "babeltrace.output"
+ set babeltrace_output [file_contents "babeltrace.output"]
+ remote_file build delete "babeltrace.output"
+ remote_file host delete "babeltrace.output"
+ } else {
+ catch "exec $which_babeltrace not_exist < /dev/null" babeltrace_output
+ }
+ if { [string last "\[error\]" $babeltrace_output] == -1 } then {
+ unsupported "babeltrace check ctf directory"
+ } else {
+ if [is_remote host] then {
+ remote_exec host "$which_babeltrace $ctfdir < /dev/null" "" "" "babeltrace.output"
+ remote_upload host "babeltrace.output"
+ set babeltrace_output [file_contents "babeltrace.output"]
+ remote_file build delete "babeltrace.output"
+ remote_file host delete "babeltrace.output"
+ } else {
+ catch "exec $which_babeltrace $ctfdir < /dev/null" babeltrace_output
+ }
+ if { [string last "\[error\]" $babeltrace_output] != -1 } then {
+ fail "babeltrace open ctf directory"
+ }
+ }
+}
+
+
+#Test "target ctf"
+gdb_test_no_output "set confirm off"
+gdb_test_no_output "kill"
+gdb_test_multiple "target ctf $ctfdir" "" {
+ -re "Undefined target command: \"ctf ctf\.ctf\"\. Try \"help target\"\." {
+ unsupported "target does not support ctf"
+ remote_exec host "rm -rf $ctfdir"
+ return -1;
+ }
+ -re ".*fail.*" {
+ fail "target ctf $ctfdir"
+ }
+ -re "^$" {
+ pass "target ctf $ctfdir"
+ }
+}
+
+gdb_test "tfind 0" ".*Found trace frame 0.*" "target ctf tfind 0"
+gdb_test "tdump" ".*b = 1.*a = 0.*i = 0.*" "first target ctf tdump"
+gdb_test "print \$b" ".* = 1.*" "first target ctf print \$b"
+gdb_test "print \$a" ".* = 0.*" "first target ctf print \$a"
+gdb_test "print \$i" ".* = 0.*" "first target ctf print \$i"
+
+gdb_test "tfind 1" ".*Found trace frame 1.*" "target ctf tfind 1"
+
+gdb_test "tfind 2" ".*Found trace frame 2.*" "target ctf tfind 2"
+gdb_test "tdump" ".*b = 2.*a = 1.*i = 1.*" "second target ctf tdump"
+gdb_test "print \$b" ".* = 2.*" "second target ctf print \$b"
+gdb_test "print \$a" ".* = 1.*" "second target ctf print \$a"
+gdb_test "print \$i" ".* = 1.*" "second target ctf print \$i"
+
+
+#Clean
+
+remote_exec host "rm -rf $ctfdir"
More information about the Gdb-patches
mailing list