Update copyright year in most headers.
[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.mi / mi-stepi.exp
1 # Copyright 1999, 2000, 2001, 2002, 2004, 2005, 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 # Test Machine interface (MI) operations
18 # Verify that, using the MI, we can run a simple program and perform
19 # exec-step-instruction and exec-next-instruction.
20
21 # The goal is not to
22 # test gdb functionality, which is done by other tests, but to verify
23 # the correct output response to MI operations.
24 #
25
26 load_lib mi-support.exp
27 set MIFLAGS "-i=mi"
28
29 gdb_exit
30 if [mi_gdb_start] {
31 continue
32 }
33
34 set testfile "basics"
35 set srcfile ${testfile}.c
36 set binfile ${objdir}/${subdir}/mi-stepi
37 if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-DFAKEARGV}] != "" } {
38 untested mi-stepi.exp
39 return -1
40 }
41
42 proc test_stepi_nexti {} {
43 global mi_gdb_prompt
44 global hex fullname_syntax srcfile
45
46 set line_main_head [gdb_get_line_number "main ("]
47 set line_main_body [expr $line_main_head + 2]
48 set line_main_hello [gdb_get_line_number "Hello, World!"]
49
50 set line [mi_execute_to "exec-step-instruction" "end-stepping-range" "main" "" \
51 ".*basics.c" "\[0-9\]+" "" "step-instruction at main"]
52 if { $line >= $line_main_body && $line <= $line_main_hello } {
53 pass "step-instruction at main (line check)"
54 } else {
55 fail "step-instruction at main (line check)"
56 }
57
58 set line [mi_execute_to "exec-next-instruction" "end-stepping-range" "main" "" \
59 ".*basics.c" "\[0-9\]+" "" "next-instruction at main"]
60 if { $line >= $line_main_body && $line <= $line_main_hello } {
61 pass "next-instruction at main (line check)"
62 } else {
63 fail "next-instruction at main (line check)"
64 }
65
66 set line [mi_execute_to "exec-next-instruction" "end-stepping-range" "main" "" \
67 ".*basics.c" "\[0-9\]+" "" "next-instruction at main 2"]
68 if { $line >= $line_main_body && $line <= $line_main_hello } {
69 pass "next-instruction at main 2 (line check)"
70 } else {
71 fail "next-instruction at main 2 (line check)"
72 }
73 }
74
75 mi_run_to_main
76 test_stepi_nexti
77
78 mi_gdb_exit
79 return 0
This page took 0.031111 seconds and 4 git commands to generate.