diff options
| author | Daniel Jacobowitz <drow@false.org> | 2009-11-13 22:51:59 +0000 |
|---|---|---|
| committer | Daniel Jacobowitz <drow@false.org> | 2009-11-13 22:51:59 +0000 |
| commit | f6838f814769c627c1d61f6905f69f704b334af6 (patch) | |
| tree | 129ca75344bbe92851cba1ebbc6bf13a2e8cbf5c /gdb | |
| parent | 21327321a021139f296b93cc844cc562b38b7c93 (diff) | |
| download | gdb-f6838f814769c627c1d61f6905f69f704b334af6.zip gdb-f6838f814769c627c1d61f6905f69f704b334af6.tar.gz gdb-f6838f814769c627c1d61f6905f69f704b334af6.tar.bz2 | |
* lib/gdb.exp (current_target_name): New procedure.
(gdb_wrapper_target): New variable.
(gdb_wrapper_init): Set gdb_wrapper_target.
(default_gdb_init): Check gdb_wrapper_target before rebuilding the
wrapper.
Diffstat (limited to 'gdb')
| -rw-r--r-- | gdb/testsuite/ChangeLog | 8 | ||||
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 18 |
2 files changed, 25 insertions, 1 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 4af502f..fefd628 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,13 @@ 2009-11-13 Daniel Jacobowitz <dan@codesourcery.com> + * lib/gdb.exp (current_target_name): New procedure. + (gdb_wrapper_target): New variable. + (gdb_wrapper_init): Set gdb_wrapper_target. + (default_gdb_init): Check gdb_wrapper_target before rebuilding the + wrapper. + +2009-11-13 Daniel Jacobowitz <dan@codesourcery.com> + * gdb.base/remote.exp: Delete the slowest load test. Do not load with fixed packet sizes. diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index b5e55ec..7d06d07 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -1699,12 +1699,24 @@ proc test_compiler_info { {compiler ""} } { return [string match $compiler $compiler_info] } +proc current_target_name { } { + global target_info + if [info exists target_info(target,name)] { + set answer $target_info(target,name) + } else { + set answer "" + } + return $answer +} + set gdb_wrapper_initialized 0 +set gdb_wrapper_target "" proc gdb_wrapper_init { args } { global gdb_wrapper_initialized; global gdb_wrapper_file; global gdb_wrapper_flags; + global gdb_wrapper_target if { $gdb_wrapper_initialized == 1 } { return; } @@ -1719,6 +1731,7 @@ proc gdb_wrapper_init { args } { } } set gdb_wrapper_initialized 1 + set gdb_wrapper_target [current_target_name] } # Some targets need to always link a special object in. Save its path here. @@ -2361,6 +2374,7 @@ proc gdb_continue { function } { proc default_gdb_init { args } { global gdb_wrapper_initialized + global gdb_wrapper_target global cleanfiles set cleanfiles {} @@ -2369,7 +2383,9 @@ proc default_gdb_init { args } { # Make sure that the wrapper is rebuilt # with the appropriate multilib option. - set gdb_wrapper_initialized 0 + if { $gdb_wrapper_target != [current_target_name] } { + set gdb_wrapper_initialized 0 + } # Unlike most tests, we have a small number of tests that generate # a very large amount of output. We therefore increase the expect |