1# This testcase is part of GDB, the GNU debugger.
2# Copyright 2018-2020 Free Software Foundation, Inc.
3
4# This program is free software; you can redistribute it and/or modify
5# it under the terms of the GNU General Public License as published by
6# the Free Software Foundation; either version 3 of the License, or
7# (at your option) any later version.
8#
9# This program is distributed in the hope that it will be useful,
10# but WITHOUT ANY WARRANTY; without even the implied warranty of
11# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12# GNU General Public License for more details.
13#
14# You should have received a copy of the GNU General Public License
15# along with this program.  If not, see <http://www.gnu.org/licenses/>.
16
17# Test function calls on C++ functions that have no debug information.
18# See gdb/22736.  Put the called function in a different object to ensure
19# the rest of the test can be complied with debug information.  Whilst we
20# are at it, also test functions with debug information and C functions too.
21
22if [target_info exists gdb,cannot_call_functions] {
23    unsupported "this target can not call functions"
24    continue
25}
26
27set main_basename infcall-nodebug-main
28set lib_basename infcall-nodebug-lib
29standard_testfile ${main_basename}.c ${lib_basename}.c
30
31set mainsrc "${srcdir}/${subdir}/${srcfile}"
32set libsrc "${srcdir}/${subdir}/${srcfile2}"
33
34# Build both source files to objects using language LANG. Use SYMBOLS to build
35# with either debug symbols or without - but always build the main file with
36# debug.  Then make function calls across the files.
37
38proc build_and_run_test { lang symbols } {
39
40    global main_basename lib_basename mainsrc libsrc binfile testfile
41    global gdb_prompt
42
43    if { $symbols == "debug" } {
44	set debug_flags "debug"
45    } else {
46	set debug_flags ""
47    }
48
49    # Compile both files to objects, then link together.
50
51    set main_flags "$lang debug"
52    set lib_flags "$lang $debug_flags"
53    set main_o [standard_output_file ${main_basename}.o]
54    set lib_o [standard_output_file ${lib_basename}.o]
55    set binfile [standard_output_file ${testfile}]
56
57    if { [gdb_compile $mainsrc $main_o object ${main_flags}] != "" } {
58	untested "failed to compile main file to object"
59	return -1
60    }
61
62    if { [gdb_compile $libsrc $lib_o object ${lib_flags}] != "" } {
63	untested "failed to compile secondary file to object"
64	return -1
65    }
66
67    if { [gdb_compile "$main_o $lib_o" ${binfile} executable ""] != "" } {
68	untested "failed to compile"
69	return -1
70    }
71
72    # Startup and run to main.
73
74    clean_restart $binfile
75
76    if ![runto_main] then {
77	fail "can't run to main"
78	return
79    }
80
81    # Function call with cast.
82
83    gdb_test "p (int)foo()" " = 1"
84
85    # Function call without cast.  Will error if there are no debug symbols.
86
87    set test "p foo()"
88    gdb_test_multiple $test $test {
89	-re " = 1\r\n$gdb_prompt " {
90	    gdb_assert [ string equal $symbols "debug" ]
91	    pass $test
92	}
93	-re "has unknown return type; cast the call to its declared return type\r\n$gdb_prompt " {
94	    gdb_assert ![ string equal $symbols "debug" ]
95	    pass $test
96	}
97    }
98
99}
100
101build_and_run_test $lang $debug
102