gdb/testsuite/gdb.base/volatile.exp

   1 #   Copyright 1997, 1998, 1999 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 2 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, write to the Free Software
  15 # Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  16
  17 # Please email any bugs, comments, and/or additions to this file to:
  18 # bug-gdb@prep.ai.mit.edu
  19
  20 # Written by Satish Pai <pai@apollo.hp.com> 1997-07-07
  21 #    In the spirit of constvars.exp: added volatile, const-volatile stuff.
  22
  23 # This file is part of the gdb testsuite
  24 # Tests for:
  25 #           volatile vars
  26 #           pointers to volatile vars
  27 #           const volatile vars
  28 #           pointers to const volatile vars
  29 #           const pointers to volatile vars
  30 #           volatile pointers to const vars
  31 #           const volatile pointers to const vars
  32 #           const volatile pointers to volatile vars
  33 #           ... etc.  (you get the idea)
  34 # Mostly with char and unsigned char.
  35
  36 if $tracelevel then {
  37         strace $tracelevel
  38         }
  39
  40 #
  41 # test running programs
  42 #
  43 set prms_id 0
  44 set bug_id 0
  45
  46 # Use the same test program constvars.c.
  47
  48 set testfile "constvars"
  49 set srcfile ${testfile}.c
  50 set binfile ${objdir}/${subdir}/${testfile}
  51
  52 if [istarget "hppa*-*-*"] {
  53     set lang "c++"
  54 } else {
  55     set lang ""
  56 }
  57
  58 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable [concat debug $lang]] != "" } {
  59      gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
  60 }
  61
  62 remote_exec build "rm -f ${binfile}.ci"
  63 if  [get_compiler_info ${binfile}] {
  64     return -1
  65 }
  66
  67 gdb_exit
  68 gdb_start
  69 gdb_reinitialize_dir $srcdir/$subdir
  70 gdb_load ${binfile}
  71
  72 source ${binfile}.ci
  73
  74 #
  75 # set it up at a breakpoint so we can play with the variable values
  76 #
  77 if ![runto_main] then {
  78     perror "couldn't run to breakpoint"
  79     continue
  80 }
  81
  82 send_gdb "break marker1\n" ; gdb_expect -re ".*$gdb_prompt $"
  83
  84     send_gdb "cont\n"
  85     gdb_expect {
  86         -re "Break.* marker1 \\(\\) at .*:$decimal.*$gdb_prompt $" {
  87             send_gdb "up\n"
  88             gdb_expect {
  89                 -re ".*$gdb_prompt $" {}
  90                 timeout { fail "up from marker1" }
  91             }
  92         }
  93         -re "Break.* marker1__.* \\(\\) at .*:$decimal.*$gdb_prompt $" {
  94             fail "continue to marker1 (demangling)"
  95             send_gdb "up\n"
  96             gdb_expect {
  97                 -re ".*$gdb_prompt $" {}
  98                 timeout { fail "up from marker1" }
  99             }
 100         }
 101         -re "$gdb_prompt $" { fail "continue to marker1"  }
 102         timeout { fail "(timeout) continue to marker1"  }
 103     }
 104
 105 # As of Feb 1999, GCC does not issue info about volatility of vars, so
 106 # these tests are all expected to fail if GCC is the compiler. -sts
 107
 108 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 109 gdb_test "ptype vox" "type = volatile char.*"
 110
 111 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 112 gdb_test "ptype victuals" "type = volatile unsigned char.*"
 113
 114 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 115 gdb_test "ptype vixen" "type = volatile short.*"
 116
 117 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 118 gdb_test "ptype vitriol" "type = volatile unsigned short.*"
 119
 120 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 121 gdb_test "ptype vellum" "type = volatile long.*"
 122
 123 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 124 gdb_test "ptype valve" "type = volatile unsigned long.*"
 125
 126 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 127 gdb_test "ptype vacuity" "type = volatile float.*"
 128
 129 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 130 gdb_test "ptype vertigo" "type = volatile double.*"
 131
 132 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 133 gdb_test "ptype vampire" "type = volatile char \\*.*"
 134
 135 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 136 gdb_test "ptype viper" "type = volatile unsigned char \\*.*"
 137
 138 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 139 gdb_test "ptype vigour" "type = volatile short \\*.*"
 140
 141 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 142 gdb_test "ptype vapour" "type = volatile unsigned short \\*.*"
 143
 144 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 145 gdb_test "ptype ventricle" "type = volatile long \\*.*"
 146
 147 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 148 gdb_test "ptype vigintillion" "type = volatile unsigned long \\*.*"
 149
 150 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 151 gdb_test "ptype vocation" "type = volatile float \\*.*"
 152
 153 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 154 gdb_test "ptype veracity" "type = volatile double \\*.*"
 155
 156 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 157 gdb_test "ptype vapidity" "type = volatile char \\* volatile.*"
 158
 159 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 160 gdb_test "ptype velocity" "type = volatile unsigned char \\* volatile.*"
 161
 162 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 163 gdb_test "ptype veneer" "type = volatile short \\* volatile.*"
 164
 165 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 166 gdb_test "ptype video" "type = volatile unsigned short \\* volatile.*"
 167
 168 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 169 gdb_test "ptype vacuum" "type = volatile long \\* volatile.*"
 170
 171 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 172 gdb_test "ptype veniality" "type = volatile unsigned long \\* volatile.*"
 173
 174 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 175 gdb_test "ptype vitality" "type = volatile float \\* volatile.*"
 176
 177 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 178 gdb_test "ptype voracity" "type = volatile double \\* volatile.*"
 179
 180 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 181 gdb_test "ptype victor" "type = const volatile char.*"
 182
 183 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 184 gdb_test "ptype vicar" "type = const volatile unsigned char.*"
 185
 186 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 187 gdb_test "ptype victory" "type = const volatile char \\*.*"
 188
 189 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 190 gdb_test "ptype vicarage" "type = const volatile unsigned char \\*.*"
 191
 192 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 193 gdb_test "ptype vein" "type = volatile char \\* const.*"
 194
 195 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 196 gdb_test "ptype vogue" "type = volatile unsigned char \\* const.*"
 197
 198 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 199 gdb_test "ptype cavern" "type = const volatile char \\* const.*"
 200
 201 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 202 gdb_test "ptype coverlet" "type = const volatile unsigned char \\* const.*"
 203
 204 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 205 gdb_test "ptype caveat" "type = const char \\* volatile.*"
 206
 207 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 208 gdb_test "ptype covenant" "type = const unsigned char \\* volatile.*"
 209
 210 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 211 gdb_test "ptype vizier" "type = const volatile char \\* volatile.*"
 212
 213 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 214 gdb_test "ptype vanadium" "type = const volatile unsigned char \\* volatile.*"
 215
 216 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 217 gdb_test "ptype vane" "type = char \\* const volatile.*"
 218
 219 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 220 gdb_test "ptype veldt" "type = unsigned char \\* const volatile.*"
 221
 222 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 223 gdb_test "ptype cove" "type = const char \\* const volatile.*"
 224
 225 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 226 gdb_test "ptype cavity" "type = const unsigned char \\* const volatile.*"
 227
 228 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 229 gdb_test "ptype vagus" "type = volatile char \\* const volatile.*"
 230
 231 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 232 gdb_test "ptype vagrancy" "type = volatile unsigned char \\* const volatile.*"
 233
 234 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 235 gdb_test "ptype vagary" "type = const volatile char \\* const volatile.*"
 236
 237 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 238 gdb_test "ptype vendor" "type = const volatile unsigned char \\* const volatile.*"
 239
 240 # test function parameters
 241 if {$gcc_compiled} then { setup_xfail "*-*-*" }
 242 send_gdb "ptype qux2\n"
 243 gdb_expect {
 244     -re "type = int \\(volatile unsigned char, const volatile int, volatile short, volatile long \\*, float \\* volatile, const volatile signed char \\* const volatile\\).*$gdb_prompt $" {
 245         pass "ptype qux2"
 246     }
 247     -re ".*$gdb_prompt $" { fail "ptype qux2" }
 248     timeout           { fail "(timeout) ptype qux2" }
 249   }