diff options
Diffstat (limited to 'gdb/testsuite/lib/gdb.exp')
| -rw-r--r-- | gdb/testsuite/lib/gdb.exp | 23 |
1 files changed, 15 insertions, 8 deletions
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 3cd10dc..9102e54 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -3157,13 +3157,10 @@ proc skip_compile_feature_tests {} { # Helper for gdb_is_target_* procs. TARGET_NAME is the name of the target # we're looking for (used to build the test name). TARGET_STACK_REGEXP # is a regexp that will match the output of "maint print target-stack" if -# the target in question is currently pushed. - -proc gdb_is_target_1 { target_name target_stack_regexp } { - global gdb_prompt - - set prompt_regexp "$gdb_prompt $" +# the target in question is currently pushed. PROMPT_REGEXP is a regexp +# matching the expected prompt after the command output. +proc gdb_is_target_1 { target_name target_stack_regexp prompt_regexp } { set test "probe for target ${target_name}" gdb_test_multiple "maint print target-stack" $test { -re "${target_stack_regexp}${prompt_regexp}" { @@ -3177,17 +3174,27 @@ proc gdb_is_target_1 { target_name target_stack_regexp } { return 0 } +# Helper for gdb_is_target_remote where the expected prompt is variable. + +proc gdb_is_target_remote_prompt { prompt_regexp } { + return [gdb_is_target_1 "remote" ".*emote serial target in gdb-specific protocol.*" $prompt_regexp] +} + # Check whether we're testing with the remote or extended-remote # targets. proc gdb_is_target_remote { } { - return [gdb_is_target_1 "remote" ".*emote serial target in gdb-specific protocol.*"] + global gdb_prompt + + return [gdb_is_target_remote_prompt "$gdb_prompt $"] } # Check whether we're testing with the native target. proc gdb_is_target_native { } { - return [gdb_is_target_1 "native" ".*native \\(Native process\\).*"] + global gdb_prompt + + return [gdb_is_target_1 "native" ".*native \\(Native process\\).*" "$gdb_prompt $"] } # Return the effective value of use_gdb_stub. |