FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lib/gdb.exp (standard_testfile): Unset output variables from

Browse source 
earlier invocations.
This commit is contained in:
Tom Tromey 2012-07-10 14:41:16 +00:00
parent eda680f805
commit 686f09d021
2 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
gdb/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2012-07-10 Tom Tromey <tromey@redhat.com>
* lib/gdb.exp (standard_testfile): Unset output variables from
earlier invocations.
2012-07-10 Yao Qi <yao@codesourcery.com> 2012-07-10 Yao Qi <yao@codesourcery.com>
* gdb.mi/gdb2549.exp: Remove -DFAKEARGV from compilation flags. * gdb.mi/gdb2549.exp: Remove -DFAKEARGV from compilation flags.

13
gdb/testsuite/lib/gdb.exp
View file

@ -3098,6 +3098,7 @@ proc standard_output_file {basename} {
proc standard_testfile {args} { proc standard_testfile {args} {
global gdb_test_file_name global gdb_test_file_name
global objdir subdir global objdir subdir
global gdb_test_file_last_vars
# Outputs. # Outputs.
global testfile binfile global testfile binfile
@ -3109,6 +3110,17 @@ proc standard_testfile {args} {
set args .c set args .c
} }
# Unset our previous output variables.
# This can help catch hidden bugs.
if {[info exists gdb_test_file_last_vars]} {
foreach varname $gdb_test_file_last_vars {
global $varname
catch {unset $varname}
}
}
# 'executable' is often set by tests.
set gdb_test_file_last_vars {executable}
set suffix "" set suffix ""
foreach arg $args { foreach arg $args {
set varname srcfile$suffix set varname srcfile$suffix
@ -3122,6 +3134,7 @@ proc standard_testfile {args} {
} }
set $varname $arg set $varname $arg
lappend gdb_test_file_last_vars $varname
if {$suffix == ""} { if {$suffix == ""} {
set suffix 2 set suffix 2