OLD | NEW |
1 # Copyright 2006-2012 Free Software Foundation, Inc. | 1 # Copyright 2006-2012 Free Software Foundation, Inc. |
2 | 2 |
3 # This program is free software; you can redistribute it and/or modify | 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 | 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 | 5 # the Free Software Foundation; either version 3 of the License, or |
6 # (at your option) any later version. | 6 # (at your option) any later version. |
7 # | 7 # |
8 # This program is distributed in the hope that it will be useful, | 8 # This program is distributed in the hope that it will be useful, |
9 # but WITHOUT ANY WARRANTY; without even the implied warranty of | 9 # but WITHOUT ANY WARRANTY; without even the implied warranty of |
10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | 10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
11 # GNU General Public License for more details. | 11 # GNU General Public License for more details. |
12 # | 12 # |
13 # You should have received a copy of the GNU General Public License | 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/>. | 14 # along with this program. If not, see <http://www.gnu.org/licenses/>. |
15 | 15 |
16 if $tracelevel then { | |
17 strace $tracelevel | |
18 } | |
19 | |
20 | 16 |
21 if { [skip_cplus_tests] } { continue } | 17 if { [skip_cplus_tests] } { continue } |
22 | 18 |
23 set testfile call-c | 19 standard_testfile .cc call-c-1.c |
24 set binfile ${objdir}/${subdir}/${testfile} | 20 set objfilec [standard_output_file ${testfile}-1.o] |
25 set srcfilec ${srcdir}/${subdir}/${testfile}-1.c | 21 set objfilecpp [standard_output_file ${testfile}.o] |
26 set srcfilecpp ${srcdir}/${subdir}/${testfile}.cc | |
27 set objfilec ${objdir}/${subdir}/${testfile}-1.o | |
28 set objfilecpp ${objdir}/${subdir}/${testfile}.o | |
29 | 22 |
30 if {[gdb_compile "${srcfilec}" "${objfilec}" object {debug}] != "" | 23 if {[gdb_compile "$srcdir/$subdir/${srcfile2}" "${objfilec}" object {debug}] !=
"" |
31 || [gdb_compile "${srcfilecpp}" "${objfilecpp}" object {c++ debug}] != "" | 24 || [gdb_compile "$srcdir/$subdir/${srcfile}" "${objfilecpp}" object {c++ deb
ug}] != "" |
32 || [gdb_compile "${objfilecpp} ${objfilec}" "${binfile}" executable {c++ deb
ug}] != ""} { | 25 || [gdb_compile "${objfilecpp} ${objfilec}" "${binfile}" executable {c++ deb
ug}] != ""} { |
33 untested ${testfile}.exp | 26 untested ${testfile}.exp |
34 return -1 | 27 return -1 |
35 } | 28 } |
36 | 29 |
37 gdb_exit | 30 clean_restart ${binfile} |
38 gdb_start | |
39 gdb_reinitialize_dir $srcdir/$subdir | |
40 gdb_load ${binfile} | |
41 | 31 |
42 runto_main | 32 runto_main |
43 | 33 |
44 gdb_test "b [gdb_get_line_number {breakpoint here} ${testfile}.cc ]" \ | 34 gdb_test "b [gdb_get_line_number {breakpoint here} ${testfile}.cc ]" \ |
45 ".*Breakpoint .*call-c.*" | 35 ".*Breakpoint .*call-c.*" |
46 | 36 |
47 gdb_test "print foo(1)" "\\\$$decimal = 1" | 37 gdb_test "print foo(1)" "\\\$$decimal = 1" |
48 gdb_test "continue" ".*breakpoint here.*" "continue to bp" | 38 gdb_test "continue" ".*breakpoint here.*" "continue to bp" |
49 gdb_test "print rf->func()" "\\\$$decimal = 1" | 39 gdb_test "print rf->func()" "\\\$$decimal = 1" |
50 | 40 |
51 # Regression test for method call via a typedef. | 41 # Regression test for method call via a typedef. |
52 gdb_test "print handle->func()" "\\\$$decimal = 1" | 42 gdb_test "print handle->func()" "\\\$$decimal = 1" |
OLD | NEW |