-# Copyright 2010 Free Software Foundation, Inc.
+# Copyright 2010-2016 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
# ability to generate synthetic trace files directly, and the tfile
# target is available to all GDB configs.
-load_lib "trace-support.exp";
-
-if [target_info exists gdb,nofileio] {
- verbose "Skipping tfile.exp because of no fileio capabilities."
- continue
-}
-
-if $tracelevel then {
- strace $tracelevel
+load_lib "trace-support.exp"
+
+if {![is_remote host] && ![is_remote target]} {
+ set tfile_basic [standard_output_file tfile-basic.tf]
+ set tfile_error [standard_output_file tfile-error.tf]
+ set tfile_dir [file dirname $tfile_basic]/
+ set purely_local 1
+} else {
+ set tfile_basic tfile-basic.tf
+ set tfile_error tfile-error.tf
+ set tfile_dir ""
+ set purely_local 0
}
-set prms_id 0
-set bug_id 0
-
-gdb_exit
-gdb_start
-set testfile "tfile"
-set srcfile ${testfile}.c
-set binfile $objdir/$subdir/$testfile
+standard_testfile
if { [gdb_compile "$srcdir/$subdir/$srcfile" $binfile \
- executable {debug nowarnings}] != "" } {
- untested file.exp
+ executable \
+ [list debug \
+ "additional_flags=-DTFILE_DIR=\"$tfile_dir\""]] \
+ != "" } {
+ untested ${testfile}.exp
return -1
}
-gdb_reinitialize_dir $srcdir/$subdir
# Make sure we are starting fresh.
-remote_file host delete basic.tf
-remote_file host delete error.tf
+remote_file host delete $tfile_basic
+remote_file host delete $tfile_error
+remote_file target delete $tfile_basic
+remote_file target delete $tfile_error
-gdb_load $binfile
-
-runto_main
-
-gdb_test "break done_making_trace_files" "" ""
-
-gdb_test "continue" "" ""
+if { ![generate_tracefile $binfile] } {
+ unsupported "unable to generate trace file"
+ return -1
+}
-# tsave command would be tested here...
+if {!$purely_local} {
+ # Copy tracefile from target to host through build.
+ remote_download host [remote_upload target tfile-basic.tf] tfile-basic.tf
+ remote_download host [remote_upload target tfile-error.tf] tfile-error.tf
+}
-gdb_test "continue" "" ""
+clean_restart $binfile
# Program has presumably exited, now target a trace file it created.
-gdb_test "target tfile basic.tf" "Created tracepoint.*" "target tfile"
+gdb_test "target tfile $tfile_basic" "Created tracepoint.*" \
+ "target tfile [file tail $tfile_basic]"
gdb_test "info trace" ".*tracepoint.*in write_basic_trace_file.*" \
"info tracepoints on trace file"
gdb_test "print testglob2" " = 271828" "print testglob2 on trace file"
+# This global is not covered by the trace frame, but since it's const,
+# we should be able to read it from the executable.
+
gdb_test "print constglob" " = 10000" "print constglob on trace file"
+# Similarly, disassembly should find the read-only pieces in the executable.
+gdb_test "disassemble main" \
+ "Dump of assembler code for function main:.* $hex <\\+0\\>:.*End of assembler dump\."
+
+# This global is also not covered by the trace frame, and since it's
+# non-const, we should _not_ read it from the executable, as that
+# would show the variable's initial value, not the current at time the
+# trace frame was created.
+
+gdb_test "print nonconstglob" \
+ " = <unavailable>" "print nonconstglob on trace file"
+
gdb_test "tfind" "Target failed to find requested trace frame." \
"tfind does not find a second frame in trace file"
Looking at trace frame 0, tracepoint .*" \
"tstatus on trace file"
+gdb_test "tfind end" "No longer looking at any trace frame" "leave tfind mode"
+
+gdb_test "backtrace" "No stack\." \
+ "no stack if no traceframe selected"
+
+gdb_test "info registers" "The program has no registers now\." \
+ "no registers if no traceframe selected"
+
# Now start afresh, using only a trace file.
gdb_exit
gdb_load $binfile
-gdb_test "target tfile error.tf" "Created tracepoint.*" "target tfile"
+gdb_test "target tfile $tfile_error" "Created tracepoint.*" \
+ "target tfile [file tail $tfile_error]"
gdb_test "tstatus" \
"Using a trace file.*
Trace buffer has 256 bytes of 4096 bytes free \\(93% full\\).*
Not looking at any trace frame.*" \
"tstatus on error trace file"
+
+# Make sure we can reopen without error.
+gdb_test \
+ "interpreter-exec mi \"-target-select tfile $tfile_basic\"" \
+ "\\^connected.*" \
+ "interpreter-exec mi \"-target-select tfile tfile-basic.tf\""
+
+gdb_test "interpreter-exec mi \"-trace-status\"" \
+ "\\^done,supported=\"file\",trace-file=\".*$tfile_basic\",running=\"0\",stop-reason=\"request\",frames=\"${decimal}\",frames-created=\"${decimal}\",buffer-size=\"${decimal}\",buffer-free=\"${decimal}\",disconnected=\".*\",circular=\".*\",user-name=\"\",notes=\"\",start-time=\".*\",stop-time=\".*\"" \
+ "-trace-status"
+
+# Test completion works well.
+
+if { [readline_is_used] } {
+ gdb_test "target tfile [file rootname $tfile_basic]\t" \
+ "Assuming tracepoint.*" \
+ "complete-command 'target tfile'"
+}
projects / deliverable / binutils-gdb.git / blobdiff