1# Copyright 2007 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 16if $tracelevel { 17 strace $tracelevel 18} 19 20set testfile "nofield" 21set srcfile ${testfile}.c 22set binfile ${objdir}/${subdir}/${testfile} 23if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } { 24 untested "Couldn't compile ${srcfile}" 25 return -1 26} 27 28set eol "\[\r\n\]+" 29set sp "\[ \t\]*" 30 31gdb_exit 32gdb_start 33gdb_reinitialize_dir $srcdir/$subdir 34gdb_load ${binfile} 35 36gdb_test "ptype struct not_empty" \ 37 "type = struct not_empty {$eol${sp}void \\*e;$eol${sp}void \\*u;$eol}" \ 38 "ptype struct not_empty" 39 40gdb_test "ptype struct empty" \ 41 "type = struct empty {$eol$sp<no data fields>$eol}" \ 42 "ptype struct empty" 43 44gdb_test "ptype union empty_union" \ 45 "type = union empty_union {$eol$sp<no data fields>$eol}" \ 46 "ptype union empty_union" 47 48