1# Copyright 1998-2014 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 16set prototypes 1 17standard_testfile .c 18 19# Create and source the file that provides information about the compiler 20# used to compile the test case. 21if [get_compiler_info] { 22 return -1 23} 24 25# build the first test case 26if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { 27 # built the second test case since we can't use prototypes 28 warning "Prototypes not supported, rebuilding with -DNO_PROTOTYPES" 29 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DNO_PROTOTYPES}] != "" } { 30 untested structs2.exp 31 return -1 32 } 33 set prototypes 0 34} 35 36# Start with a fresh gdb. 37 38clean_restart ${binfile} 39 40gdb_test_no_output "set width 0" 41 42if { ![runto_main] } then { 43 gdb_suppress_tests 44} 45 46# Ok, we're finally ready to actually do our tests. 47 48gdb_test "f" \ 49 ".*bkpt = 0.*" \ 50 "structs2 sanity check" 51 52gdb_test "break param_reg" \ 53 "Breakpoint .* at .*" \ 54 "structs2 breakpoint set" 55 56if [test_compiler_info gcc-3-*] { 57 setup_xfail hppa*-* gcc/15860 58} 59gdb_test "continue" \ 60 ".*pr_char=120.*pr_uchar=130.*pr_short=32000.*pr_ushort=33000.*bkpt = 1.*" \ 61 "structs2 continue1" 62 63if [test_compiler_info gcc-3-*] { 64 setup_xfail hppa*-* gcc/15860 65} 66gdb_test "continue" \ 67 ".*pr_char=-126.*pr_uchar=120.*pr_short=-32536.*pr_ushort=32000.*bkpt = 1.*" \ 68 "structs2 continue2" 69 70# End of tests. 71 72gdb_stop_suppressing_tests 73 74return 0 75