gdb/testsuite/gdb.base/miscexprs.exp

   1 # Copyright (C) 1998 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
  21 # This file is part of the gdb testsuite
  22 # file written by Elena Zannoni (ezannoni@cygnus.com)
  23
  24 #
  25 # tests for expressions with struct/array elements and mixed operator types
  26 # with elementary types
  27 #
  28
  29 if $tracelevel then {
  30         strace $tracelevel
  31         }
  32
  33 #
  34 # test running programs
  35 #
  36 set prms_id 0
  37 set bug_id 0
  38
  39 set testfile "miscexprs"
  40 set srcfile ${testfile}.c
  41 set binfile ${objdir}/${subdir}/${testfile}
  42
  43 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-w}] != "" } {
  44     gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
  45 }
  46
  47
  48 gdb_exit
  49 gdb_start
  50 gdb_reinitialize_dir $srcdir/$subdir
  51 gdb_load ${binfile}
  52
  53
  54 #
  55 # set it up at a breakpoint so we can play with the variable values
  56 #
  57 if ![runto_main] then {
  58     perror "couldn't run to breakpoint"
  59     continue
  60 }
  61
  62 send_gdb "break marker1\n" ; gdb_expect -re ".*$gdb_prompt $"
  63
  64     send_gdb "cont\n"
  65     gdb_expect {
  66         -re "Break.* marker1 \\(\\) at .*:$decimal.*$gdb_prompt $" {
  67             send_gdb "up\n"
  68             gdb_expect {
  69                 -re ".*$gdb_prompt $" {}
  70                 timeout { fail "up from marker1" }
  71             }
  72         }
  73         -re "$gdb_prompt $" { fail "continue to marker1"  }
  74         timeout { fail "(timeout) continue to marker1"  }
  75     }
  76
  77 global hex
  78
  79 send_gdb "print &ibig.i\[0\]\n"
  80 gdb_expect {
  81     -re ".\[0-9\]* = \\(int \\*\\) $hex.*$gdb_prompt $" {
  82         pass "print value of &ibig.i\[0\]"
  83       }
  84     -re ".*$gdb_prompt $" { fail "print value of &ibig.i\[0\]" }
  85     timeout           { fail "(timeout) print value of &ibig.i\[0\]" }
  86   }
  87
  88 send_gdb "print &cbig.c\[0\]\n"
  89 gdb_expect {
  90     -re ".\[0-9\]* = $hex \"\".*$gdb_prompt $" {
  91         pass "print value of &cbig.c\[0\]"
  92       }
  93     -re ".*$gdb_prompt $" { fail "print value of &cbig.c\[0\]" }
  94     timeout           { fail "(timeout) print value of &cbig.c\[0\]" }
  95   }
  96
  97 send_gdb "print &fbig.f\[0\]\n"
  98 gdb_expect {
  99     -re ".\[0-9\]* = \\(float \\*\\) $hex.*$gdb_prompt $" {
 100         pass "print value of &fbig.f\[0\]"
 101       }
 102     -re ".*$gdb_prompt $" { fail "print value of &fbig.f\[0\]" }
 103     timeout           { fail "(timeout) print value of &fbig.f\[0\]" }
 104   }
 105
 106 send_gdb "print &dbig.d\[0\]\n"
 107 gdb_expect {
 108     -re ".\[0-9\]* = \\(double \\*\\) $hex.*$gdb_prompt $" {
 109         pass "print value of &dbig.d\[0\]"
 110       }
 111     -re ".*$gdb_prompt $" { fail "print value of &dbig.d\[0\]" }
 112     timeout           { fail "(timeout) print value of &dbig.d\[0\]" }
 113   }
 114
 115 send_gdb "print &sbig.s\[0\]\n"
 116 gdb_expect {
 117     -re ".\[0-9\]* = \\(short \\*\\) $hex.*$gdb_prompt $" {
 118         pass "print value of &sbig.s\[0\]"
 119     }
 120     -re ".\[0-9\]* = \\(short int \\*\\) $hex.*$gdb_prompt $" {
 121         pass "print value of &sbig.s\[0\]"
 122     }
 123     -re ".*$gdb_prompt $" { fail "print value of &sbig.s\[0\]" }
 124     timeout           { fail "(timeout) print value of &sbig.s\[0\]" }
 125   }
 126
 127 send_gdb "print &lbig.l\[0\]\n"
 128 gdb_expect {
 129     -re ".\[0-9\]* = \\(long \\*\\) $hex.*$gdb_prompt $" {
 130         pass "print value of &lbig.l\[0\]"
 131     }
 132     -re ".\[0-9\]* = \\(long int \\*\\) $hex.*$gdb_prompt $" {
 133         pass "print value of &lbig.l\[0\]"
 134     }
 135     -re ".*$gdb_prompt $" { fail "print value of &lbig.l\[0\]" }
 136     timeout           { fail "(timeout) print value of &lbig.l\[0\]" }
 137   }
 138
 139
 140 send_gdb "print ibig.i\[100\] | 1\n"
 141 gdb_expect {
 142     -re ".\[0-9\]* = 5.*$gdb_prompt $" {
 143         pass "print value of ibig.i\[100\] | 1"
 144       }
 145     -re ".*$gdb_prompt $" { fail "print value of ibig.i\[100\] | 1" }
 146     timeout           { fail "(timeout) print value of ibig.i\[100\] | 1" }
 147   }
 148
 149
 150 send_gdb "print sbig.s\[90\] & 127\n"
 151 gdb_expect {
 152     -re ".\[0-9\]* = 127.*$gdb_prompt $" {
 153         pass "print value of sbig.s\[90\] & 127"
 154       }
 155     -re ".*$gdb_prompt $" { fail "print value of sbig.s\[90\] & 127" }
 156     timeout           { fail "(timeout) print value of sbig.s\[90\] & 127" }
 157   }
 158
 159 send_gdb "print !ibig.i\[100\]\n"
 160 gdb_expect {
 161     -re ".\[0-9\]* = 0.*$gdb_prompt $" {
 162         pass "print value of !ibig.i\[100\]"
 163       }
 164     -re ".*$gdb_prompt $" { fail "print value of !ibig.i\[100\]" }
 165     timeout           { fail "(timeout) print value of !ibig.i\[100\]" }
 166   }
 167
 168 send_gdb "print !sbig.s\[90\]\n"
 169 gdb_expect {
 170     -re ".\[0-9\]* = 0.*$gdb_prompt $" {
 171         pass "print value of !sbig.s\[90\]"
 172       }
 173     -re ".*$gdb_prompt $" { fail "print value of !sbig.s\[90\]" }
 174     timeout           { fail "(timeout) print value of !sbig.s\[90\]" }
 175   }
 176
 177
 178 send_gdb "print !fbig.f\[100\]\n"
 179 gdb_expect {
 180     -re ".\[0-9\]* = 0.*$gdb_prompt $" {
 181         pass "print value of !ibig.i\[100\]"
 182       }
 183     -re ".*$gdb_prompt $" { fail "print value of !ibig.i\[100\]" }
 184     timeout           { fail "(timeout) print value of !ibig.i\[100\]" }
 185   }
 186
 187 send_gdb "print !dbig.d\[202\]\n"
 188 gdb_expect {
 189     -re ".\[0-9\]* = 0.*$gdb_prompt $" {
 190         pass "print value of !ibig.i\[100\]"
 191       }
 192     -re ".*$gdb_prompt $" { fail "print value of !ibig.i\[100\]" }
 193     timeout           { fail "(timeout) print value of !ibig.i\[100\]" }
 194   }
 195
 196
 197
 198 send_gdb "print sbig.s\[90\] * 10\n"
 199 gdb_expect {
 200     -re ".\[0-9\]* = 2550.*$gdb_prompt $" {
 201         pass "print value of !sbig.s\[90\] * 10"
 202       }
 203     -re ".*$gdb_prompt $" { fail "print value of !sbig.s\[90\] * 10" }
 204     timeout           { fail "(timeout) print value of !sbig.s\[90\] * 10" }
 205   }
 206
 207 send_gdb "print ibig.i\[100\] * sbig.s\[90\]\n"
 208 gdb_expect {
 209     -re ".\[0-9\]* = 1275.*$gdb_prompt $" {
 210         pass "print value of ibig.i\[100\] * sbig.s\[90\]"
 211       }
 212     -re ".*$gdb_prompt $" { fail "print value of ibig.i\[100\] * sbig.s\[90\]" }
 213     timeout           { fail "(timeout) print value of ibig.i\[100\] * sbig.s\[90\]" }
 214   }
 215
 216 send_gdb "print fbig.f\[100\] * dbig.d\[202\]\n"
 217 gdb_expect {
 218     -re ".\[0-9\]* = 119.99\[0-9\]*.*$gdb_prompt $" {
 219         pass "print value of fbig.f\[100\] * dbig.d\[202\]"
 220       }
 221     -re ".*$gdb_prompt $" { fail "print value of fbig.f\[100\] * dbig.d\[202\]" }
 222     timeout           { fail "(timeout) print value of fbig.f\[100\] * dbig.d\[202\]" }
 223   }
 224
 225 send_gdb "print !(sbig.s\[90\] * 2)\n"
 226 gdb_expect {
 227     -re ".\[0-9\]* = 0.*$gdb_prompt $" {
 228         pass "print value of !(sbig.s\[90\] * 2)"
 229       }
 230     -re ".*$gdb_prompt $" { fail "print value of !(sbig.s\[90\] * 2)" }
 231     timeout           { fail "(timeout) print value of !(sbig.s\[90\] * 2)" }
 232   }
 233
 234
 235 send_gdb "print sizeof(sbig)\n"
 236 gdb_expect {
 237     -re ".\[0-9\]* = 800.*$gdb_prompt $" {
 238         pass "print value of sizeof(sbig)"
 239       }
 240     -re ".*$gdb_prompt $" { fail "print value of sizeof(sbig)" }
 241     timeout           { fail "(timeout) print value of sizeof(sbig)" }
 242   }
 243
 244
 245 send_gdb "print sizeof(cbig)\n"
 246 gdb_expect {
 247     -re ".\[0-9\]* = 100.*$gdb_prompt $" {
 248         pass "print value of sizeof(cbig)"
 249       }
 250     -re ".*$gdb_prompt $" { fail "print value of sizeof(cbig)" }
 251     timeout           { fail "(timeout) print value of sizeof(cbig)" }
 252   }
 253
 254
 255 send_gdb "print sizeof(lbig)\n"
 256 gdb_expect {
 257     -re ".\[0-9\]* = 3600.*$gdb_prompt $" {
 258         pass "print value of sizeof(lbig)"
 259       }
 260     -re ".*$gdb_prompt $" { fail "print value of sizeof(lbig)" }
 261     timeout           { fail "(timeout) print value of sizeof(lbig)" }
 262   }
 263
 264 send_gdb "print ibig.i\[100\] << 2\n"
 265 gdb_expect {
 266     -re ".\[0-9\]* = 20.*$gdb_prompt $" {
 267         pass "print value of ibig.i\[100\] << 2"
 268       }
 269     -re ".*$gdb_prompt $" { fail "print value of ibig.i\[100\] << 2" }
 270     timeout           { fail "(timeout) print value of ibig.i\[100\] << 2" }
 271   }
 272
 273 send_gdb "print sbig.s\[90\] >> 4\n"
 274 gdb_expect {
 275     -re ".\[0-9\]* = 15.*$gdb_prompt $" {
 276         pass "print value of sbig.s\[90\] >> 4"
 277       }
 278     -re ".*$gdb_prompt $" { fail "print value of sbig.s\[90\] >> 4" }
 279     timeout           { fail "(timeout) print value of sbig.s\[90\] >> 4" }
 280   }
 281
 282 send_gdb "print lbig.l\[333\] >> 6\n"
 283 gdb_expect {
 284     -re ".\[0-9\]* = 15624999.*$gdb_prompt $" {
 285         pass "print value of lbig.l\[333\] >> 6"
 286       }
 287     -re ".*$gdb_prompt $" { fail "print value of lbig.l\[333\] >> 6" }
 288     timeout           { fail "(timeout) print value of lbig.l\[333\] >> 6" }
 289   }