gdb/testsuite/gdb.stabs/wierd.exp

   1 # Test that GDB properly ignores invalid stabs.
   2 # Also test that GDB can debug a .o file, and that it doesn't mind
   3 # a file that's more minimal than what a compiler normally puts out.
   4 if $tracelevel then {
   5         strace $tracelevel
   6 }
   7
   8 set prms_id 0
   9 set bug_id 0
  10
  11 proc do_tests {} {
  12         global binfile
  13         global prompt
  14
  15         # Do this first because the bug only exhibits itself before partial
  16         # symbols have been expanded.
  17         setup_xfail "*-*-*"
  18         # xcoffread.c doesn't (yet) use partial symbol tables.
  19         clear_xfail "rs*-*-aix*"
  20         gdb_test "ptype red" "type = enum \{red, green, blue\}" "ptype unnamed enum"
  21
  22         print_wierd_var var0
  23         print_wierd_var var1
  24         print_wierd_var var2
  25         print_wierd_var var3
  26
  27         print_wierd_var attr32
  28         print_wierd_var attr33
  29         print_wierd_var attr35
  30         print_wierd_var attr36
  31         print_wierd_var attr37
  32         print_wierd_var attr38
  33         print_wierd_var attr39
  34         print_wierd_var attr41
  35         print_wierd_var attr42
  36         print_wierd_var attr43
  37         print_wierd_var attr44
  38         print_wierd_var attr46
  39         print_wierd_var attr47
  40         print_wierd_var attr58
  41         print_wierd_var attr59
  42         print_wierd_var attr60
  43         print_wierd_var attr61
  44         print_wierd_var attr62
  45         print_wierd_var attr63
  46         print_wierd_var attr64
  47         print_wierd_var attr65
  48         print_wierd_var attr66
  49         print_wierd_var attr67
  50         print_wierd_var attr68
  51         print_wierd_var attr69
  52         print_wierd_var attr70
  53         print_wierd_var attr71
  54         print_wierd_var attr72
  55         print_wierd_var attr73
  56         print_wierd_var attr74
  57         print_wierd_var attr75
  58         print_wierd_var attr76
  59         print_wierd_var attr77
  60         print_wierd_var attr78
  61         print_wierd_var attr79
  62         print_wierd_var attr80
  63         print_wierd_var attr81
  64         print_wierd_var attr82
  65         print_wierd_var attr83
  66         print_wierd_var attr84
  67         print_wierd_var attr85
  68         print_wierd_var attr86
  69         print_wierd_var attr87
  70         print_wierd_var attr88
  71         print_wierd_var attr89
  72         print_wierd_var attr90
  73         print_wierd_var attr91
  74         print_wierd_var attr92
  75         print_wierd_var attr93
  76         print_wierd_var attr94
  77         print_wierd_var attr95
  78         print_wierd_var attr96
  79         print_wierd_var attr97
  80         print_wierd_var attr98
  81         print_wierd_var attr99
  82         print_wierd_var attr100
  83         print_wierd_var attr101
  84         print_wierd_var attr102
  85         print_wierd_var attr103
  86         print_wierd_var attr104
  87         print_wierd_var attr105
  88         print_wierd_var attr106
  89         print_wierd_var attr107
  90         print_wierd_var attr108
  91         print_wierd_var attr109
  92         print_wierd_var attr110
  93         print_wierd_var attr111
  94         print_wierd_var attr112
  95         print_wierd_var attr113
  96         print_wierd_var attr114
  97         print_wierd_var attr115
  98         print_wierd_var attr116
  99         print_wierd_var attr117
 100         print_wierd_var attr118
 101         print_wierd_var attr119
 102         print_wierd_var attr120
 103         print_wierd_var attr121
 104         print_wierd_var attr122
 105         print_wierd_var attr123
 106         print_wierd_var attr124
 107         print_wierd_var attr125
 108         print_wierd_var attr126
 109
 110         gdb_test "p const69" " = 69" "'e' constant on non-enum type"
 111         gdb_test "whatis const69" "type = (unsigned int|inttype)" "whatis const69"
 112
 113         # Haven't investigated
 114         setup_xfail "*-*-*"
 115         gdb_test "p sizeof (const70)" " = 2" "'e' constant with embedded type"
 116
 117         # field3 is printing out a bogus value; haven't investigated
 118         setup_xfail "*-*-*"
 119         gdb_test "p bad_neg0" " = \{field0 = 42, field2 =.*field3 = 45\}" "p bad_neg0"
 120         # test that it at least gets field0 right
 121         gdb_test "p bad_neg0" " = \{field0 = 42, field2 =" "p bad_neg0, test 2"
 122
 123         gdb_test "ptype inttype" "type = (unsigned int|inttype)" "ptype on inttype"
 124         gdb_test "p sizeof (float72type)" " = 9" "unrecognized floating point type"
 125
 126         gdb_test "p/x int256var" " = 0x0*2a0000002b0000002c0000002d\
 127 0000002d0000002c0000002b0000002a" "print very big integer"
 128
 129         gdb_test "whatis consth" "type = inttype" "whatis consth"
 130         gdb_test "whatis consth2" "type = inttype" "whatis consth2"
 131
 132         # GDB does not yet understand S constants
 133         setup_xfail "*-*-*"
 134         gdb_test "p/x bad_neg0const" " = \{field0 = 0x11222211, field2 =.*\
 135 field3 = 0x77888877\}" "print struct constant"
 136
 137         gdb_test "ptype bad_type0" "type = " "print bad_type0"
 138         gdb_test "ptype bad_type1" "type = " "print bad_type1"
 139
 140         # GDB does not yet support arrays indexed by anything at all unusual
 141         setup_xfail "*-*-*"
 142         gdb_test "p array0" " = \{42, 43, 44, 45, 46, 47\}" "array0 with strange index"
 143         setup_xfail "*-*-*"
 144         gdb_test "p array1" " = \{42, 43, 44\}" "array1 with strange index"
 145
 146         # GDB does not yet support this feature
 147         gdb_test "whatis one_var" "type = inttype_one" \
 148             "whatis one_var (known failure in gdb 4.10)"
 149         # But do make sure that it prints as something reasonable
 150         gdb_test "whatis one_var" "type = inttype(|_one)" \
 151             "whatis one_var test 2"
 152
 153         gdb_test "whatis two_var" "type = inttype_two" \
 154             "whatis two_var (known failure in gdb 4.10)"
 155         # But do make sure that it prints as something reasonable
 156         gdb_test "whatis two_var" "type = inttype(|_two)" \
 157             "whatis two_var test 2"
 158
 159         setup_xfail "*-*-*"
 160         gdb_test "whatis pointer_to_int_var" "type = int \*"
 161         setup_xfail "*-*-*"
 162         gdb_test "whatis intp_var" "type = intp"
 163
 164         # xcoffread.c doesn't understand common blocks at all
 165         setup_xfail "rs6*-*-aix*"
 166         gdb_test "p common0var0" "= 42"
 167         # GDB seems to only understand common blocks local to a function.
 168         # These variables never get relocated to be relative to the common
 169         # block.
 170         # I'm not sure whether it is valid to have a common block which
 171         # is not local to a function.
 172         setup_xfail "*-*-*"
 173         gdb_test "p common0var1" "= 24"
 174         setup_xfail "*-*-*"
 175         gdb_test "p common0var2" "= 22"
 176
 177         gdb_test "p v_comb" "{<> = \
 178 {<> = {x = 42}, \[_a-zA-Z$\]* = \[0-9xa-fA-F\]*, a = 43}, \
 179 <> = {\[_a-zA-Z$\]* = \[0-9xa-fA-F\]*, b = 44}, comb = 45}"
 180 }
 181
 182 proc print_wierd_var { var } {
 183         global prompt
 184
 185         # Make sure that the variable gets printed out correctly, without
 186         # any sort of warning message.
 187         send "print $var\n"
 188         expect {
 189                 -re "^print $var\r*\n.\[0-9\]* = 42.*$prompt $" {
 190                         pass "variable $var printed properly"
 191                 }
 192                 -re ".*$prompt $" {
 193                         fail "variable $var not printed properly"
 194                 }
 195                 timeout { fail "variable $var not printed (timeout)" }
 196                 eof { fail "(eof) variable $var not printed" }
 197         }
 198
 199         # Make sure that the stabs did get loaded in a sensible way.
 200         # If somehow the stabs got skipped, then the above test can
 201         # pass because GDB assumes int for variables without a stab.
 202
 203         # This doesn't work because 32=45 doesn't preserve the name in
 204         # gdb (as of 14 Sep 93 anyway).
 205         #gdb_test "whatis $var" "type = (unsigned int|inttype)"
 206
 207         # But the size should be right.
 208         gdb_test "print sizeof ($var)" "= 4"
 209 }
 210
 211 # Start with a fresh gdb
 212
 213 gdb_exit
 214 gdb_start
 215 gdb_reinitialize_dir $srcdir/$subdir
 216
 217 # Don't use gdb_load; it doesn't bitch if the loading produced some
 218 # error messages during symbol reading.
 219 set binfile $objdir/$subdir/wierd.o
 220
 221 if ![file exists $binfile] then {
 222         if $all_flag then {
 223                 warning "$binfile does not exist; tests suppressed"
 224         }
 225 } else {
 226         # xcoffread.c wrongly bitches about the lack of a text section.
 227         setup_xfail "rs*-*-aix*"
 228         send "file $binfile\n"
 229         # If $binfile is very long, a \r (but not a \n) will echo in the
 230         # middle of the echo of the command.  So to match the echo, we
 231         # would like to match anything not containing \n
 232         # (we would prefer to be sure not to match any warning message).
 233         # But \[^\n\]* doesn't seem to work, so instead use the heuristic
 234         # that a filename won't contain a space and a warning message will.
 235         expect {
 236                 -re "^file \[^ \]*\r*\nReading symbols from $binfile\.\.\.done\.\r*\n$prompt $" {
 237                         pass "wierd.o read without error"
 238                 }
 239                 -re ".*$prompt $" {
 240                         fail "Errors reading wierd.o"
 241                 }
 242                 timeout {
 243                         error "couldn't load $binfile into $GDB (timed out)."
 244                         return -1
 245                 }
 246                 eof { fail "(eof) cannot read wierd.o" }
 247         }
 248         do_tests
 249 }
 250
 251 return 0