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 set prms_id 0
   8 set bug_id 0
   9
  10 gdb_reinitialize_dir $srcdir/$subdir
  11
  12 # Don't use gdb_load; it doesn't bitch if the loading produced some
  13 # error messages during symbol reading.
  14 set binfile $objdir/$subdir/wierd.o
  15
  16 if ![file exists $binfile] then {
  17         error "$binfile does not exist."
  18         alldone
  19         }
  20
  21 send "file $binfile\n"
  22 expect {
  23         -re "^file $binfile\r*\nReading symbols from $binfile\.\.\.done\.\r*\n$prompt $" {
  24                 pass "wierd.o read without error"
  25         }
  26         -re ".*$prompt $" {
  27                 fail "Errors reading wierd.o"
  28         }
  29         timeout {
  30                 error "couldn't load $binfile into $GDB (timed out)."
  31                 return -1
  32         }
  33 }
  34
  35 proc print_wierd_var { var } {
  36         global prompt
  37
  38         # Currently one of these symbols gives an error() in symbol
  39         # reading, which causes any attempt to read (full, not
  40         # partial) symbols for the file to lose.
  41         setup_xfail "*-*-*"
  42
  43         # Make sure that the variable gets printed out correctly, without
  44         # any sort of warning message.
  45         send "print $var\n"
  46         expect {
  47                 -re "^print $var\r*\n.\[0-9\]* = 42.*$prompt $" {
  48                         pass "variable $var printed properly"
  49                         return 0
  50                 }
  51                 -re ".*$prompt $" {
  52                         fail "variable $var not printed properly"
  53                         return 0
  54                 }
  55                 timeout { fail "variable $var not printed (timeout)" }
  56         }
  57 }
  58
  59 print_wierd_var var0
  60 print_wierd_var var1
  61 print_wierd_var var2
  62 print_wierd_var var3
  63
  64 print_wierd_var attr32
  65 print_wierd_var attr33
  66 print_wierd_var attr35
  67 print_wierd_var attr36
  68 print_wierd_var attr37
  69 print_wierd_var attr38
  70 print_wierd_var attr39
  71 print_wierd_var attr41
  72 print_wierd_var attr42
  73 print_wierd_var attr43
  74 print_wierd_var attr44
  75 print_wierd_var attr46
  76 print_wierd_var attr47
  77 print_wierd_var attr58
  78 print_wierd_var attr59
  79 print_wierd_var attr60
  80 print_wierd_var attr61
  81 print_wierd_var attr62
  82 print_wierd_var attr63
  83 print_wierd_var attr64
  84 print_wierd_var attr65
  85 print_wierd_var attr66
  86 print_wierd_var attr67
  87 print_wierd_var attr68
  88 print_wierd_var attr69
  89 print_wierd_var attr70
  90 print_wierd_var attr71
  91 print_wierd_var attr72
  92 print_wierd_var attr73
  93 print_wierd_var attr74
  94 print_wierd_var attr75
  95 print_wierd_var attr76
  96 print_wierd_var attr77
  97 print_wierd_var attr78
  98 print_wierd_var attr79
  99 print_wierd_var attr80
 100 print_wierd_var attr81
 101 print_wierd_var attr82
 102 print_wierd_var attr83
 103 print_wierd_var attr84
 104 print_wierd_var attr85
 105 print_wierd_var attr86
 106 print_wierd_var attr87
 107 print_wierd_var attr88
 108 print_wierd_var attr89
 109 print_wierd_var attr90
 110 print_wierd_var attr91
 111 print_wierd_var attr92
 112 print_wierd_var attr93
 113 print_wierd_var attr94
 114 print_wierd_var attr95
 115 print_wierd_var attr96
 116 print_wierd_var attr97
 117 print_wierd_var attr98
 118 print_wierd_var attr99
 119 print_wierd_var attr100
 120 print_wierd_var attr101
 121 print_wierd_var attr102
 122 print_wierd_var attr103
 123 print_wierd_var attr104
 124 print_wierd_var attr105
 125 print_wierd_var attr106
 126 print_wierd_var attr107
 127 print_wierd_var attr108
 128 print_wierd_var attr109
 129 print_wierd_var attr110
 130 print_wierd_var attr111
 131 print_wierd_var attr112
 132 print_wierd_var attr113
 133 print_wierd_var attr114
 134 print_wierd_var attr115
 135 print_wierd_var attr116
 136 print_wierd_var attr117
 137 print_wierd_var attr118
 138 print_wierd_var attr119
 139 print_wierd_var attr120
 140 print_wierd_var attr121
 141 print_wierd_var attr122
 142 print_wierd_var attr123
 143 print_wierd_var attr124
 144 print_wierd_var attr125
 145 print_wierd_var attr126
 146
 147 #Prevent some failures in default.exp, which are probably GDB bugs
 148 # (but trivial ones).
 149 gdb_exit
 150 gdb_start