summaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.ada/info_auto_lang.exp
diff options
context:
space:
mode:
Diffstat (limited to 'gdb/testsuite/gdb.ada/info_auto_lang.exp')
-rw-r--r--gdb/testsuite/gdb.ada/info_auto_lang.exp10
1 files changed, 8 insertions, 2 deletions
diff --git a/gdb/testsuite/gdb.ada/info_auto_lang.exp b/gdb/testsuite/gdb.ada/info_auto_lang.exp
index 5202605b731..5134643c0ca 100644
--- a/gdb/testsuite/gdb.ada/info_auto_lang.exp
+++ b/gdb/testsuite/gdb.ada/info_auto_lang.exp
@@ -51,8 +51,14 @@ if {![runto "some_c.c:$bp_location"]} {
set func_in_c(c_syntax) "${decimal}: void proc_in_c\\\(void\\\);"
set func_in_c(ada_syntax) "${decimal}: procedure proc_in_c;"
-set func_in_ada(c_syntax) "${decimal}: void proc_in_ada\\\(void\\\);"
-set func_in_ada(ada_syntax) "${decimal}: procedure proc_in_ada;"
+set func_in_ada(c_syntax) \
+ [string cat \
+ "${decimal}: void proc_in_ada\\\(void\\\);\r\n" \
+ "${decimal}: void proc_in_ada.something_in_c\\\(void\\\);"]
+set func_in_ada(ada_syntax) \
+ [string cat \
+ "${decimal}: procedure proc_in_ada;\r\n" \
+ "${decimal}: procedure proc_in_ada.something_in_c;"]
set type_in_c(c_syntax) "${decimal}: typedef struct {\\.\\.\\.} some_type_in_c;"
set type_in_c(ada_syntax) [multi_line \