diff options
| -rw-r--r-- | gdb/testsuite/ChangeLog | 6 | ||||
| -rw-r--r-- | gdb/testsuite/lib/future.exp | 17 |
2 files changed, 16 insertions, 7 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index b1bc547..cb98453 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2020-06-30 Tom de Vries <tdevries@suse.de> + + PR testsuite/26175 + * lib/future.exp (gdb_default_target_compile): Detect and handle + early_flags. + 2020-06-29 Simon Marchi <simon.marchi@efficios.com> * boards/simavr.exp (gdb_load): Catch errors when closing diff --git a/gdb/testsuite/lib/future.exp b/gdb/testsuite/lib/future.exp index ba00a31..e103593 100644 --- a/gdb/testsuite/lib/future.exp +++ b/gdb/testsuite/lib/future.exp @@ -634,25 +634,28 @@ proc gdb_default_target_compile_1 {source destfile type options} { proc gdb_default_target_compile {source destfile type options} { global use_gdb_compile - set need_local 0 + set need_local_lang 0 + set need_local_early_flags 0 foreach i $options { if { $i == "ada" || $i == "d" || $i == "go" || $i == "rust" } { - set need_local [info exists use_gdb_compile($i)] - break + set need_local_lang [info exists use_gdb_compile($i)] } if { $i == "c++" } { - break + set need_local_lang 0 } if { $i == "f77" || $i == "f90" } { - set need_local [info exists use_gdb_compile(fortran)] - break + set need_local_lang [info exists use_gdb_compile(fortran)] + } + + if { [regexp "^early_flags=" $i] } { + set need_local_early_flags 1 } } - if { $need_local } { + if { $need_local_lang || $need_local_early_flags } { return [gdb_default_target_compile_1 $source $destfile $type $options] } |