gdb/testsuite/gdb.base/jump.exp

   1 #   Copyright 1998, 1999, 2007, 2008, 2009, 2010
   2 #   Free Software Foundation, Inc.
   3
   4 # This program is free software; you can redistribute it and/or modify
   5 # it under the terms of the GNU General Public License as published by
   6 # the Free Software Foundation; either version 3 of the License, or
   7 # (at your option) any later version.
   8 #
   9 # This program is distributed in the hope that it will be useful,
  10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12 # GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License
  15 # along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  16
  17 if $tracelevel then {
  18         strace $tracelevel
  19         }
  20
  21
  22 clear_xfail "*-*-*"
  23
  24 set testfile "jump"
  25 set srcfile ${testfile}.c
  26 set binfile ${objdir}/${subdir}/${testfile}
  27
  28 # Build the test case
  29 if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug nowarnings}] != "" } {
  30      untested jump.exp
  31      return -1
  32     }
  33
  34
  35 # Start with a fresh gdb
  36
  37 gdb_exit
  38 gdb_start
  39 gdb_reinitialize_dir $srcdir/$subdir
  40 gdb_load ${binfile}
  41
  42 if ![runto_main] then {
  43   perror "Couldn't run to main"
  44   return -1
  45 }
  46
  47 # Set a breakpoint on the statement that we're about to jump to.
  48 # The statement doesn't contain a function call.
  49 #
  50 send_gdb "break 22\n"
  51 set bp_on_non_call 0
  52 gdb_expect {
  53   -re "\[Bb\]reakpoint (\[0-9\]*) at 0x\[0-9a-fA-F\]*: file .*${srcfile}, line 22.*$gdb_prompt $"\
  54           {set bp_on_non_call $expect_out(1,string)
  55            pass "break before jump to non-call"}
  56   -re "$gdb_prompt $"\
  57           {fail "break before jump to non-call"}
  58   timeout {fail "(timeout) break before jump to non-call"}
  59 }
  60
  61 # Can we jump to the statement?  Do we stop there?
  62 #
  63 send_gdb "jump 22\n"
  64 gdb_expect {
  65   -re "Breakpoint \[0-9\]*, .*${srcfile}:22.*$gdb_prompt $"\
  66           {pass "jump to non-call"}
  67   -re "$gdb_prompt $"\
  68           {fail "jump to non-call"}
  69   timeout {fail "(timeout) jump to non-call"}
  70 }
  71
  72 # Set a breakpoint on the statement that we're about to jump to.
  73 # The statement does contain a function call.
  74 #
  75 send_gdb "break 21\n"
  76 set bp_on_call 0
  77 gdb_expect {
  78   -re "\[Bb\]reakpoint (\[0-9\]*) at 0x\[0-9a-fA-F\]*: file .*${srcfile}, line 21.*$gdb_prompt $"\
  79           {set bp_on_call $expect_out(1,string)
  80            pass "break before jump to call"}
  81   -re "$gdb_prompt $"\
  82           {fail "break before jump to call"}
  83   timeout {fail "(timeout) break before jump to call"}
  84 }
  85
  86 # Can we jump to the statement?  Do we stop there?
  87 #
  88 send_gdb "jump 21\n"
  89 gdb_expect {
  90   -re "Breakpoint \[0-9\]*, .*${srcfile}:21.*$gdb_prompt $"\
  91           {pass "jump to call"}
  92   -re "$gdb_prompt $"\
  93           {fail "jump to call"}
  94   timeout {fail "(timeout) jump to call"}
  95 }
  96
  97 # If we disable the breakpoint at the function call, and then
  98 # if we jump to that statement, do we not stop there, but at
  99 # the following breakpoint?
 100 #
 101 send_gdb "disable $bp_on_call\n"
 102 gdb_expect {
 103   -re "$gdb_prompt $"\
 104           {pass "disable breakpoint on call"}
 105   timeout {fail "(timeout) disable breakpoint on call"}
 106 }
 107
 108 send_gdb "jump 21\n"
 109 gdb_expect {
 110   -re "Breakpoint \[0-9\]*, .*${srcfile}:22.*$gdb_prompt $"\
 111           {pass "jump to call with disabled breakpoint"}
 112   -re "$gdb_prompt $"\
 113           {fail "jump to call with disabled breakpoint"}
 114   timeout {fail "(timeout) jump to call with disabled breakpoint"}
 115 }
 116
 117 # Verify that GDB responds gracefully to the "jump" command without
 118 # an argument.
 119 #
 120 send_gdb "jump\n"
 121 gdb_expect {
 122   -re "Argument required .starting address..*$gdb_prompt $"\
 123           {pass "jump without argument disallowed"}
 124   -re "$gdb_prompt $"\
 125           {fail "jump without argument disallowed"}
 126   timeout {fail "(timeout) jump without argument disallowed"}
 127 }
 128
 129 # Verify that GDB responds gracefully to the "jump" command with
 130 # trailing junk.
 131 #
 132 send_gdb "jump 21 100\n"
 133 gdb_expect {
 134   -re "Junk at end of line specification: 100.*$gdb_prompt $"\
 135           {pass "jump with trailing argument junk"}
 136   -re "$gdb_prompt $"\
 137           {fail "jump with trailing argument junk"}
 138   timeout {fail "(timeout) jump with trailing argument junk"}
 139 }
 140
 141 # Verify that GDB responds gracefully to a request to jump out of
 142 # the current function.  (Note that this will very likely cause the
 143 # inferior to die.  Be prepared to rerun the inferior, if further
 144 # testing is desired.)
 145 #
 146 # Try it both ways: confirming and not confirming the jump.
 147 #
 148 send_gdb "jump 12\n"
 149 gdb_expect {
 150   -re "Line 12 is not in `main'.  Jump anyway.*y or n. $"\
 151           {send_gdb "n\n"
 152            gdb_expect {
 153              -re "Not confirmed.*$gdb_prompt $"\
 154                      {pass "aborted jump out of current function"}
 155              -re "$gdb_prompt $"\
 156                      {fail "aborted jump out of current function"}
 157              timeout {fail "(timeout) aborted jump out of current function"}
 158            }
 159           }
 160   -re "$gdb_prompt $"\
 161           {fail "aborted jump out of current function"}
 162   timeout {fail "(timeout) aborted jump out of current function"}
 163 }
 164
 165 send_gdb "jump 12\n"
 166 gdb_expect {
 167   -re "Line 12 is not in `main'.  Jump anyway.*y or n. $"\
 168           {send_gdb "y\n"
 169            gdb_expect {
 170              -re "Continuing at.*$gdb_prompt $"\
 171                      {pass "jump out of current function"}
 172              -re "$gdb_prompt $"\
 173                      {fail "jump out of current function"}
 174              timeout {fail "(timeout) jump out of current function"}
 175            }
 176           }
 177   -re "$gdb_prompt $"\
 178           {fail "jump out of current function"}
 179   timeout {fail "(timeout) jump out of current function"}
 180 }
 181
 182 gdb_exit
 183 return 0