darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2024-12-14 15:50:34 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

* gdb.mi/mi-cli.exp: Adjust for output difference in

Browse Source 
sync and async modes.
This commit is contained in:
Vladimir Prus 2009-03-13 10:55:08 +00:00
parent 9a2ee7fcfd
commit f7c60c5e2b
2 changed files with 26 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2009-03-13 Vladimir Prus <vladimir@codesourcery.com>
* gdb.mi/mi-cli.exp: Adjust for output difference in
sync and async modes.
2009-03-12 Joel Brobecker <brobecker@adacore.com>
* gdb.ada/ptype_arith_binop.exp: Remove some commented-out code

25
gdb/testsuite/gdb.mi/mi-cli.exp
View File

@ -140,7 +140,22 @@ mi_gdb_test "500-stack-select-frame 0" \
{500\^done} \
"-stack-select-frame 0"
mi_execute_to "interpreter-exec console step" "" "callee4" "" ".*basics.c" "29" \
# When a CLI command is entered in MI session, the respose is different in
# sync and async modes. In sync mode normal_stop is called when current
# interpreter is CLI. So:
# - print_stop_reason prints stop reason in CLI uiout, and we don't show it
# in MI
# - The stop position is printed, and appears in MI 'console' channel.
#
# In async mode the stop event is processed when we're back to MI interpreter,
# so the stop reason is printed into MI uiout an.
if {$async} {
set reason "end-stepping-range"
} else {
set reason ""
}
mi_execute_to "interpreter-exec console step" $reason "callee4" "" ".*basics.c" "29" \
"" "check *stopped from CLI command"
# NOTE: cagney/2003-02-03: Not yet.
@ -161,8 +176,10 @@ mi_gdb_test "34 next" \
".*34\\\^running.*\\*running,thread-id=\"all\"" \
"34 next: run"
gdb_expect {
-re "~\[^\r\n\]+\r\n" {
if {!$async} {
gdb_expect {
-re "~\[^\r\n\]+\r\n" {
}
}
}
@ -170,7 +187,7 @@ gdb_expect {
# The purpose of *stopped notification for CLI command is to make
# sure that frontend knows that inferior is stopped, and knows where.
# Supplementary information is not necessary.
mi_expect_stop "" "main" "" ".*basics.c" $line_main_return "" \
mi_expect_stop "$reason" "main" "" ".*basics.c" $line_main_return "" \
"34 next: stop"
mi_gdb_test "-interpreter-exec console \"list\"" \