load_lib "ada.exp"
-require allow_ada_tests
+require allow_ada_tests gnat_runtime_has_debug_info
standard_ada_testfile bla
clean_restart ${testfile}
-######################################################################
-# 1. Try catching all exceptions to check that runtime supports it. #
-######################################################################
-
set eol "\[\r\n\]+"
set sp "\[ \t\]*"
-if {![runto_main]} {
- return 0
-}
-
-set msg "insert catchpoint on all Ada exceptions"
-gdb_test_multiple "catch exception" $msg {
- -re "Catchpoint $decimal: all Ada exceptions$eol$gdb_prompt $" {
- pass $msg
- }
- -re "Your Ada runtime appears to be missing some debugging information.*$eol$gdb_prompt $" {
- # If the runtime was not built with enough debug information,
- # or if it was stripped, we can not test exception
- # catchpoints.
- unsupported $msg
- return -1
- }
-}
-
-##################################################
-# 2. Try catching conditional failed assertion. #
-##################################################
-
# Here is the scenario:
# - Restart the debugger from scratch, runto_main
# We'll catch assertions if Global_Var = 2
load_lib "ada.exp"
-require allow_ada_tests
+require allow_ada_tests gnat_runtime_has_debug_info
standard_ada_testfile foo
return 0
}
-set msg "insert catchpoint on all Ada exceptions"
-gdb_test_multiple "catch exception" $msg {
- -re "Catchpoint $any_nb: all Ada exceptions$eol$gdb_prompt $" {
- pass $msg
- }
- -re "Your Ada runtime appears to be missing some debugging information.*$eol$gdb_prompt $" {
- # If the runtime was not built with enough debug information,
- # or if it was stripped, we can not test exception
- # catchpoints.
- unsupported $msg
- return -1
- }
-}
+gdb_test "catch exception" \
+ "Catchpoint $any_nb: all Ada exceptions" \
+ "insert catchpoint on all Ada exceptions"
gdb_test "info break" \
"$info_break_header$eol.*$catch_exception_info" \
load_lib "ada.exp"
-require allow_ada_tests
+require allow_ada_tests gnat_runtime_has_debug_info
standard_ada_testfile foo
return 0
}
-set can_catch_exceptions 0
-gdb_test_multiple "catch exception some_kind_of_error" "" {
- -re "Catchpoint \[0-9\]+: `some_kind_of_error' Ada exception\r\n$gdb_prompt $" {
- pass $gdb_test_name
- set can_catch_exceptions 1
- }
+gdb_test "catch exception some_kind_of_error" \
+ "Catchpoint \[0-9\]+: `some_kind_of_error' Ada exception"
- -re "Your Ada runtime appears to be missing some debugging information.\r\nCannot insert Ada exception catchpoint in this configuration.\r\n$gdb_prompt $" {
- unsupported $gdb_test_name
- }
-}
-
-if { $can_catch_exceptions } {
- gdb_test "cont" \
- "Catchpoint \[0-9\]+, .* at .*foo\.adb:\[0-9\]+.*" \
- "caught the exception"
+gdb_test "cont" \
+ "Catchpoint \[0-9\]+, .* at .*foo\.adb:\[0-9\]+.*" \
+ "caught the exception"
- gdb_test "print \$_ada_exception = some_package.some_kind_of_error'Address" \
- " = true"
-}
+gdb_test "print \$_ada_exception = some_package.some_kind_of_error'Address" \
+ " = true"
load_lib "ada.exp"
-require allow_ada_tests
+require allow_ada_tests gnat_runtime_has_debug_info
standard_ada_testfile foo
set catchpoint_storage_error_msg \
"Catchpoint $decimal, exception at $hex in foo \\\(\\\).*at .*foo.adb:$decimal$eol$decimal$sp$when Storage_Error =>"
-############################################
-# Check that runtime supports catchpoint. #
-############################################
-
if {![runto_main]} {
return 0
}
-set msg "insert catchpoint on all Ada exceptions handlers"
-gdb_test_multiple "catch handlers" $msg {
- -re "Catchpoint $decimal: all Ada exceptions handlers$eol$gdb_prompt $" {
- pass $msg
- }
- -re "Your Ada runtime appears to be missing some debugging information.*$eol$gdb_prompt $" {
- # If the runtime was not built with enough debug information,
- # or if it was stripped, we can not test exception handlers
- # catchpoints.
- unsupported $msg
- return -1
- }
-}
-
############################################
# 1. Try catching all exceptions handlers. #
############################################
+gdb_test "catch handlers" \
+ "Catchpoint $decimal: all Ada exceptions handlers" \
+ "insert catchpoint on all Ada exceptions handlers"
+
# Continue. The program should stop at first exception handling.
gdb_test "continue" \
load_lib "ada.exp"
-require allow_ada_tests
+require allow_ada_tests gnat_runtime_has_debug_info
standard_ada_testfile bla
return -1
}
-# Some global variables used to simplify the maintenance of some of
-# the regular expressions below.
-set eol "\[\r\n\]+"
-set sp "\[ \t\]*"
-
-# Before going any further, verify that we can insert exception
-# catchpoints... That way, we won't have to do this while doing
-# the actual GDB/MI testing.
-
-clean_restart ${testfile}
-
-if {![runto_main]} {
- return 0
-}
-
-set msg "insert catchpoint on all Ada exceptions"
-gdb_test_multiple "catch exception" $msg {
- -re "Catchpoint $decimal: all Ada exceptions$eol$gdb_prompt $" {
- pass $msg
- }
- -re "Your Ada runtime appears to be missing some debugging information.*\[\r\n\]+$gdb_prompt $" {
- # If the runtime was not built with enough debug information,
- # or if it was stripped, we can not test exception
- # catchpoints.
- unsupported $msg
- return -1
- }
-}
-
-# Now, we can start the GDB/MI testing itself...
-
load_lib mi-support.exp
set MIFLAGS "-i=mi"
load_lib "ada.exp"
-require allow_ada_tests
+require allow_ada_tests gnat_runtime_has_debug_info
standard_ada_testfile foo
return -1
}
-# Some global variables used to simplify the maintenance of some of
+# A global variable used to simplify the maintenance of some of
# the regular expressions below.
set any_nb "\[0-9\]+"
-set eol "\[\r\n\]+"
-
-# Before going any further, verify that we can insert exception
-# catchpoints... That way, we won't have to do this while doing
-# the actual GDB/MI testing.
-
-clean_restart ${testfile}
-
-if {![runto_main]} {
- return 0
-}
-
-set msg "insert catchpoint on all Ada exceptions"
-gdb_test_multiple "catch exception" $msg {
- -re "Catchpoint $any_nb: all Ada exceptions$eol$gdb_prompt $" {
- pass $msg
- }
- -re "Your Ada runtime appears to be missing some debugging information.*\[\r\n\]+$gdb_prompt $" {
- # If the runtime was not built with enough debug information,
- # or if it was stripped, we can not test exception
- # catchpoints.
- unsupported $msg
- return -1
- }
-}
-
-# Now, we can start the GDB/MI testing itself...
load_lib mi-support.exp
set MIFLAGS "-i=mi"
load_lib "ada.exp"
-require allow_ada_tests
+require allow_ada_tests gnat_runtime_has_debug_info
standard_ada_testfile foo
return -1
}
-# A global variable used to simplify the maintenance of some of
-# the regular expressions below.
-set eol "\[\r\n\]+"
-
-# Before going any further, verify that we can insert exception
-# handlers catchpoints... That way, we won't have to do this while
-# doing the actual GDB/MI testing.
-
-clean_restart ${testfile}
-
-if {![runto_main]} {
- return 0
-}
-
-set msg "insert catchpoint on all Ada exceptions handlers"
-gdb_test_multiple "catch handlers" $msg {
- -re "Catchpoint $decimal: all Ada exceptions handlers$eol$gdb_prompt $" {
- pass $msg
- }
- -re "Your Ada runtime appears to be missing some debugging information.*\[\r\n\]+$gdb_prompt $" {
- # If the runtime was not built with enough debug information,
- # or if it was stripped, we can not test exception
- # catchpoints.
- unsupported $msg
- return -1
- }
-}
-
-# Now, we can start the GDB/MI testing itself...
-
load_lib mi-support.exp
set MIFLAGS "-i=mi"
load_lib "ada.exp"
-require allow_ada_tests
+require allow_ada_tests gnat_runtime_has_debug_info
standard_ada_testfile foo
return -1
}
-# # Some global variables used to simplify the maintenance of some of
-# # the regular expressions below.
+# A global variable used to simplify the maintenance of some of
+# the regular expressions below.
set any_nb "\[0-9\]+"
-set eol "\[\r\n\]+"
-
-# Before going any further, verify that we can insert exception
-# catchpoints... That way, we won't have to do this while doing
-# the actual GDB/MI testing.
-
-clean_restart ${testfile}
-
-if {![runto_main]} {
- return 0
-}
-
-set msg "insert catchpoint on all Ada exceptions"
-gdb_test_multiple "catch exception" $msg {
- -re "Catchpoint $any_nb: all Ada exceptions$eol$gdb_prompt $" {
- pass $msg
- }
- -re "Your Ada runtime appears to be missing some debugging information.*\[\r\n\]+$gdb_prompt $" {
- # If the runtime was not built with enough debug information,
- # or if it was stripped, we can not test exception
- # catchpoints.
- unsupported $msg
- return -1
- }
-}
-
-# Now, we can start the GDB/MI testing itself...
load_lib mi-support.exp
set MIFLAGS "-i=mi"
projects / thirdparty / binutils-gdb.git / commitdiff
