Fix for PR gdb/1543.
[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.base / until.exp
CommitLineData
9b254dd1 1# Copyright 2003, 2007, 2008 Free Software Foundation, Inc.
82025e13
EZ
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
e22f8b7c 5# the Free Software Foundation; either version 3 of the License, or
82025e13 6# (at your option) any later version.
e22f8b7c 7#
82025e13
EZ
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.
e22f8b7c 12#
82025e13 13# You should have received a copy of the GNU General Public License
e22f8b7c 14# along with this program. If not, see <http://www.gnu.org/licenses/>. */
82025e13 15
82025e13
EZ
16# until.exp -- Expect script to test 'until' in gdb
17
18if $tracelevel then {
19 strace $tracelevel
20}
21
a1dea79a 22set testfile "break"
f2dd3617 23set srcfile ${testfile}.c
a1dea79a 24set srcfile1 ${testfile}1.c
82025e13
EZ
25set binfile ${objdir}/${subdir}/${testfile}
26
fc91c6c2 27if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}0.o" object {debug nowarnings}] != "" } {
b60f0898
JB
28 untested until.exp
29 return -1
a1dea79a
FF
30}
31
fc91c6c2 32if { [gdb_compile "${srcdir}/${subdir}/${srcfile1}" "${binfile}1.o" object {debug nowarnings}] != "" } {
b60f0898
JB
33 untested until.exp
34 return -1
a1dea79a
FF
35}
36
fc91c6c2 37if { [gdb_compile "${binfile}0.o ${binfile}1.o" "${binfile}" executable {debug nowarnings}] != "" } {
b60f0898
JB
38 untested until.exp
39 return -1
82025e13
EZ
40}
41
42gdb_exit
43gdb_start
44gdb_reinitialize_dir $srcdir/$subdir
45gdb_load ${binfile}
46
a1dea79a
FF
47set bp_location1 [gdb_get_line_number "set breakpoint 1 here"]
48set bp_location19 [gdb_get_line_number "set breakpoint 19 here"]
49set bp_location20 [gdb_get_line_number "set breakpoint 20 here"]
50set bp_location21 [gdb_get_line_number "set breakpoint 21 here"]
51
82025e13
EZ
52if ![runto_main] then {
53 fail "Can't run to main"
54 return 0
55}
56
57# Verify that "until <location>" works. (This is really just syntactic
58# sugar for "tbreak <location>; continue".)
59#
a1dea79a
FF
60gdb_test "until $bp_location1" \
61 "main .* at .*:$bp_location1.*" \
82025e13
EZ
62 "until line number"
63
64# Verify that a malformed "advance" is gracefully caught.
65#
66gdb_test "until 80 then stop" \
67 "Junk at end of arguments." "malformed until"
68
69# Rerun up to factorial, outer invocation
70if { ![runto factorial] } then { gdb_suppress_tests; }
71delete_breakpoints
72
73# At this point, 'until' should continue the inferior up to when all the
74# inner invocations of factorial() are completed and we are back at this
75# frame.
76#
a1dea79a
FF
77gdb_test "until $bp_location19" \
78 "factorial.*value=720.*at.*${srcfile}:$bp_location19.*return \\(value\\).*" \
82025e13
EZ
79 "until factorial, recursive function"
80
81# Run to a function called by main
82#
83if { ![runto marker2] } then { gdb_suppress_tests; }
84delete_breakpoints
85
86# Now issue an until with another function, not called by the current
87# frame, as argument. This should not work, i.e. the program should
88# stop at main, the caller, where we put the 'guard' breakpoint.
89#
90gdb_test "until marker3" \
a1dea79a 91 "($hex in |)main.*argc.*argv.*envp.*at.*${srcfile}:($bp_location20.*marker2 \\(43\\)|$bp_location21.*marker3 \\(.stack., .trace.\\)).*" \
82025e13
EZ
92 "until func, not called by current frame"
93
This page took 0.512044 seconds and 4 git commands to generate.