This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
Re: [RFA/doco] (Ada) provide the exception message when hitting an exception catchpoint
- From: Pedro Alves <palves at redhat dot com>
- To: Joel Brobecker <brobecker at adacore dot com>, gdb-patches at sourceware dot org
- Cc: Xavier Roirand <roirand at adacore dot com>
- Date: Fri, 24 Nov 2017 23:00:00 +0000
- Subject: Re: [RFA/doco] (Ada) provide the exception message when hitting an exception catchpoint
- Authentication-results: sourceware.org; auth=none
- References: <1510953646-116765-1-git-send-email-brobecker@adacore.com>
Hi Joel,
I run the testsuite now to get a fresh baseline, and noticed this regression
compared to a gdb build from a couple weeks ago:
-PASS: gdb.ada/mi_catch_ex.exp: continue until CE caught by all-exceptions catchpoint
-PASS: gdb.ada/mi_catch_ex.exp: continue until PE caught by all-exceptions catchpoint
-PASS: gdb.ada/mi_catch_ex.exp: breakpoint at main
-PASS: gdb.ada/mi_catch_ex.exp: mi runto main
-PASS: gdb.ada/mi_catch_ex.exp: catch Program_Error
-PASS: gdb.ada/mi_catch_ex.exp: catch assert failures
-PASS: gdb.ada/mi_catch_ex.exp: catch unhandled exceptions
-PASS: gdb.ada/mi_catch_ex.exp: continue to exception catchpoint hit
-PASS: gdb.ada/mi_catch_ex.exp: continue to assert failure catchpoint hit
-PASS: gdb.ada/mi_catch_ex.exp: continue to unhandled exception catchpoint hit
+ERROR: tcl error sourcing /home/pedro/gdb/src/gdb/testsuite/gdb.ada/mi_catch_ex.exp.
+ERROR: can't read "exception_name(",exception-message="foo\.adb:[0-9]+ explicit raise)": variable isn't array
+ while executing
+"mi_expect_stop "breakpoint-hit\",disp=\"keep\",bkptno=\"$any_nb\",exception-name=\"$exception_name(\",exception-message=\"$exception_message)?" "foo..."
+ (procedure "continue_to_exception" line 17)
+ invoked from within
+"continue_to_exception \
+ "CONSTRAINT_ERROR" "foo\\.adb:$decimal explicit raise" \
+ "continue until CE caught by all-exceptions catchpoint""
+ (file "/home/pedro/gdb/src/gdb/testsuite/gdb.ada/mi_catch_ex.exp" line 106)
+ invoked from within
+"source /home/pedro/gdb/src/gdb/testsuite/gdb.ada/mi_catch_ex.exp"
+ ("uplevel" body line 1)
+ invoked from within
+"uplevel #0 source /home/pedro/gdb/src/gdb/testsuite/gdb.ada/mi_catch_ex.exp"
+ invoked from within
+"catch "uplevel #0 source $test_file_name""
Thanks,
Pedro Alves