projects
/
deliverable
/
binutils-gdb.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Update copyright year range in all GDB files.
[deliverable/binutils-gdb.git]
/
gdb
/
testsuite
/
gdb.ada
/
mi_catch_ex.exp
diff --git
a/gdb/testsuite/gdb.ada/mi_catch_ex.exp
b/gdb/testsuite/gdb.ada/mi_catch_ex.exp
index 6ec06090e098fec6d8577f857f45975603ec60ec..60a5f6f19ee7107f289ae781a41eb8e18b7e3518 100644
(file)
--- a/
gdb/testsuite/gdb.ada/mi_catch_ex.exp
+++ b/
gdb/testsuite/gdb.ada/mi_catch_ex.exp
@@
-1,4
+1,4
@@
-# Copyright 2011-20
16
Free Software Foundation, Inc.
+# Copyright 2011-20
20
Free Software Foundation, Inc.
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
@@
-75,19
+75,19
@@
if ![mi_run_to_main] then {
}
mi_gdb_test "-catch-exception" \
}
mi_gdb_test "-catch-exception" \
- "\\^done,bkptno=\"$decimal\",bkpt={.*disp=\"keep\",enabled=\"y\",
addr=\"$hex\",
what=\"all Ada exceptions\",.*}" \
+ "\\^done,bkptno=\"$decimal\",bkpt={.*disp=\"keep\",enabled=\"y\",what=\"all Ada exceptions\",.*}" \
"catch all exceptions"
# Continue to caught exception.
"catch all exceptions"
# Continue to caught exception.
-proc continue_to_exception { exception_name test } {
+proc continue_to_exception { exception_name
exception_message
test } {
global hex any_nb
mi_send_resuming_command "exec-continue" "$test"
# Match console stream output.
gdb_expect {
global hex any_nb
mi_send_resuming_command "exec-continue" "$test"
# Match console stream output.
gdb_expect {
- -re " $exception_name at $hex in foo " {
+ -re " $exception_name
\( \\($exception_message\\)\)?
at $hex in foo " {
}
timeout {
fail "$test (timeout)"
}
timeout {
fail "$test (timeout)"
@@
-97,18
+97,18
@@
proc continue_to_exception { exception_name test } {
# Now MI stream output.
mi_expect_stop \
# Now MI stream output.
mi_expect_stop \
- "breakpoint-hit\",disp=\"keep\",bkptno=\"$any_nb\",exception-name=\"$exception_name" \
+ "breakpoint-hit\",disp=\"keep\",bkptno=\"$any_nb\",exception-name=\"$exception_name
\(\",exception-message=\"$exception_message\)?
" \
"foo" "" ".*" ".*" \
".*" \
$test
}
continue_to_exception \
"foo" "" ".*" ".*" \
".*" \
$test
}
continue_to_exception \
- "CONSTRAINT_ERROR" \
+ "CONSTRAINT_ERROR"
"foo\\.adb:$decimal explicit raise"
\
"continue until CE caught by all-exceptions catchpoint"
continue_to_exception \
"continue until CE caught by all-exceptions catchpoint"
continue_to_exception \
- "PROGRAM_ERROR" \
+ "PROGRAM_ERROR"
"foo\\.adb:$decimal explicit raise"
\
"continue until PE caught by all-exceptions catchpoint"
################################################
"continue until PE caught by all-exceptions catchpoint"
################################################
@@
-131,19
+131,19
@@
if ![mi_run_to_main] then {
}
mi_gdb_test "-catch-exception -e Program_Error" \
}
mi_gdb_test "-catch-exception -e Program_Error" \
- "\\^done,bkptno=\"$decimal\",bkpt={.*disp=\"keep\",enabled=\"y\",
addr=\"$hex\",
what=\"`Program_Error' Ada exception\",.*}" \
+ "\\^done,bkptno=\"$decimal\",bkpt={.*disp=\"keep\",enabled=\"y\",what=\"`Program_Error' Ada exception\",.*}" \
"catch Program_Error"
mi_gdb_test "-catch-assert" \
"catch Program_Error"
mi_gdb_test "-catch-assert" \
- "\\^done,bkptno=\"$decimal\",bkpt={.*disp=\"keep\",enabled=\"y\",
addr=\"$hex\",
what=\"failed Ada assertions\",.*}" \
+ "\\^done,bkptno=\"$decimal\",bkpt={.*disp=\"keep\",enabled=\"y\",what=\"failed Ada assertions\",.*}" \
"catch assert failures"
mi_gdb_test "-catch-exception -u" \
"catch assert failures"
mi_gdb_test "-catch-exception -u" \
- "\\^done,bkptno=\"$decimal\",bkpt={.*disp=\"keep\",enabled=\"y\",
addr=\"$hex\",
what=\"unhandled Ada exceptions\",.*}" \
+ "\\^done,bkptno=\"$decimal\",bkpt={.*disp=\"keep\",enabled=\"y\",what=\"unhandled Ada exceptions\",.*}" \
"catch unhandled exceptions"
mi_execute_to "exec-continue" \
"catch unhandled exceptions"
mi_execute_to "exec-continue" \
- "breakpoint-hit\",disp=\"keep\",bkptno=\"$any_nb\",exception-name=\"PROGRAM_ERROR" \
+ "breakpoint-hit\",disp=\"keep\",bkptno=\"$any_nb\",exception-name=\"PROGRAM_ERROR
(\",exception-message=\"foo\\.adb:$decimal explicit raise)?
" \
"foo" "" ".*" ".*" \
".*" \
"continue to exception catchpoint hit"
"foo" "" ".*" ".*" \
".*" \
"continue to exception catchpoint hit"
This page took
0.025781 seconds
and
4
git commands to generate.