-# Copyright 2013 Free Software Foundation, Inc.
+# Copyright 2013-2015 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
return -1
}
-# A convenience function that joins all the arguments together,
-# with a regexp that matches zero-or-more end of lines in between
-# each argument. This function is ideal to write the expected output
-# of a GDB command that generates more than a couple of lines, as
-# this allows us to write each line as a separate string, which is
-# easier to read by a human being.
+clean_restart ${testfile}
-proc multi_line { args } {
- return [join $args "\[\r\n\]*"]
+if ![runto_main] then {
+ fail "Cannot run to main, testcase aborted"
+ return 0
}
-clean_restart ${testfile}
-
gdb_test "info exceptions" \
[multi_line "All defined Ada exceptions:" \
"constraint_error: $hex" \
"program_error: $hex" \
"storage_error: $hex" \
"tasking_error: $hex" \
- "const.aint_global_e: $hex"]
+ ".*" \
+ "const.aint_global_gdb_e: $hex" \
+ ".*"]
gdb_test "info exceptions task" \
[multi_line "All Ada exceptions matching regular expression \"task\":" \
"tasking_error: $hex"]
-gdb_test "info exceptions global" \
- [multi_line "All Ada exceptions matching regular expression \"global\":" \
- "const.aint_global_e: $hex"]
+gdb_test "info exceptions global_gdb" \
+ [multi_line "All Ada exceptions matching regular expression \"global_gdb\":" \
+ "const.aint_global_gdb_e: $hex"]
gdb_test "info exceptions const.aint" \
[multi_line "All Ada exceptions matching regular expression \"const\\.aint\":" \
"constraint_error: $hex" \
- "const.aint_global_e: $hex"]
+ "const.aint_global_gdb_e: $hex"]