Re: [RFA/doco] (Ada) provide the exception message when hitting an exception catchpoint

[Pedro Alves <palves@redhat.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