1# Copyright 2003-2023 Free Software Foundation, Inc.
2
3# This program is free software; you can redistribute it and/or modify
4# it under the terms of the GNU General Public License as published by
5# the Free Software Foundation; either version 3 of the License, or
6# (at your option) any later version.
7#
8# This program is distributed in the hope that it will be useful,
9# but WITHOUT ANY WARRANTY; without even the implied warranty of
10# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
11# GNU General Public License for more details.
12#
13# You should have received a copy of the GNU General Public License
14# along with this program.  If not, see <http://www.gnu.org/licenses/>.
15
16# This file is part of the gdb testsuite.
17
18# This contains tests for GDB's use of RTTI information.  This stems
19# from a bug reported in PR gdb/488 and other places, which leads to
20# statements like 'warning: can't find class named 'C::D', as given by
21# C++ RTTI'.  It arises from GDB not knowing about classes that are
22# defined in namespaces.
23
24# NOTE: carlton/2003-05-16: I suspect it could arise from nested class
25# issues, too, and even once we fix that, there might be situations
26# (involving templates, in particular) where this problem triggers
27# because GDB and GCC have different ideas what a class is called.
28
29if { [skip_cplus_tests] } { return }
30
31#
32# test running programs
33#
34
35standard_testfile rtti1.cc rtti2.cc
36
37if {[prepare_for_testing "failed to prepare" $testfile \
38	 [list $srcfile $srcfile2] {debug c++}]} {
39    return -1
40}
41
42if {![runto_main]} {
43    return
44}
45
46# First, run to after we've constructed the object:
47
48gdb_breakpoint [gdb_get_line_number "main-constructs-done" "$srcfile"]
49gdb_continue_to_breakpoint "end of constructors in main"
50
51gdb_test_multiple "print *e1" "print *e1" {
52    -re "warning: RTTI symbol not found for class 'n1::D1'.*$gdb_prompt $" {
53	# gdb HEAD 2003-12-05
54	kfail "gdb/488" "print *e1"
55    }
56    -re "warning: can't find class named `n1::D1', as given by C\\+\\+ RTTI.*$gdb_prompt $" {
57	# gdb 6.0
58	kfail "gdb/488" "print *e1"
59    }
60    -re "\\$\[0-9\]* = {<n1::Base1> = .*}\r\n$gdb_prompt $" {
61	pass "print *e1"
62    }
63    -re "\\$\[0-9\]* = {<Base1> = .*}\r\n$gdb_prompt $" {
64	# NOTE: carlton/2003-05-16: If code is compiled by GCC2, we
65	# don't print the warning (for no particular reason), but we
66	# still call the class via the wrong name; PR gdb/57 is our
67	# catch-all PR for nested type problems.
68	kfail "gdb/57" "print *e1"
69    }
70}
71
72# NOTE: carlton/2004-01-14: This test with an "<incomplete type>"
73# message because, within rtt1.cc, GDB has no way of knowing that the
74# class is called 'n2::D2' instead of just 'D2'.  This is an artifical
75# test case, though: if we were using these classes in a more
76# substantial way, G++ would emit more debug info.  As is, I don't
77# think there's anything that GDB can do about this case until G++
78# starts emitting DW_TAG_namespace info; this should arrive with GCC
79# 3.4.
80
81gdb_test_multiple "print *e2" "print *e2" {
82    -re "warning: RTTI symbol not found for class 'n2::D2'.*$gdb_prompt $" {
83	# gdb HEAD 2003-12-05
84	kfail "gdb/488" "print *e2"
85    }
86    -re "warning: can't find class named `n2::D2', as given by C\\+\\+ RTTI.*$gdb_prompt $" {
87	# gdb 6.0
88	kfail "gdb/488" "print *e2"
89    }
90    -re "\\$\[0-9\]* = <incomplete type>\r\n$gdb_prompt $" {
91	kfail "gdb/1511" "print *e2"
92    }
93    -re "\\$\[0-9\]* = {<n2::Base2> = .*}\r\n$gdb_prompt $" {
94	pass "print *e2"
95    }
96    -re "\\$\[0-9\]* = {<Base2> = .*}\r\n$gdb_prompt $" {
97	kfail "gdb/57" "print *e2"
98    }
99}
100
101# Now we test the hack that's been implemented to get around some
102# instances of PR gdb/1511.
103
104gdb_breakpoint [gdb_get_line_number "func-constructs-done" "$srcfile"]
105gdb_continue_to_breakpoint "end of constructors in func"
106
107gdb_test "print *obj" "\\$\[0-9\]* = {<n2::Base2> = .*}"
108
109gdb_breakpoint [gdb_get_line_number "func3-constructs-done" "$srcfile"]
110gdb_continue_to_breakpoint "end of constructors in func3"
111
112gdb_test "print *obj3" "\\$\[0-9\]* = {<n2::C2> = .*}"
113
114gdb_exit
115return 0
116