1#   Copyright 1999
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 2 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, write to the Free Software
16# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
17
18# Please email any bugs, comments, and/or additions to this file to:
19# bug-gdb@prep.ai.mit.edu
20
21
22if $tracelevel then {
23    strace $tracelevel
24}
25
26#
27# test running programs
28#
29set prms_id 0
30set bug_id 0
31
32set testfile "async"
33set srcfile ${testfile}.c
34set binfile ${objdir}/${subdir}/${testfile}
35
36if  { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug additional_flags=-w}] != "" } {
37    gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
38}
39
40if [get_compiler_info ${binfile}] {
41    return -1
42}
43
44########################################
45##
46## Don't do any of these tests until we reach consensus on this file.
47##
48return 0
49########################################
50
51set board [target_info name]
52set current_target [target_info gdb_protocol]
53if { $current_target == "remote" } {
54  unset_board_info "gdb_protocol"
55  set_board_info "gdb_protocol" "async"
56  } else {
57      return 0
58  }
59
60gdb_exit
61gdb_start
62gdb_reinitialize_dir $srcdir/$subdir
63gdb_load ${binfile}
64if [target_info exists gdb_stub] {
65    gdb_step_for_stub;
66}
67
68#
69# set it up at a breakpoint so we can play with it
70#
71if ![runto_main] then {
72    perror "couldn't run to breakpoint"
73    continue
74}
75
76gdb_test "break baz" "" ""
77
78#
79# Make sure we get a 'completed' message when the target is done.
80#
81gdb_test "set display-exec-done on" "" ""
82
83
84send_gdb "next&\n"
85gdb_expect {
86    -re "^next&\r\n$gdb_prompt.*z = 9.*completed\.\r\n" { pass "next &" }
87    -re "$gdb_prompt.*completed\.$" { fail "next &" }
88    timeout  { fail "(timeout) next &" }
89}
90
91send_gdb "step&\n"
92gdb_expect {
93    -re "^step&\r\n$gdb_prompt.*y = foo \\(\\).*completed\.\r\n" { pass "step &" }
94    -re "$gdb_prompt.*completed\.$" { fail "step &" }
95    timeout  { fail "(timeout) step &" }
96}
97
98send_gdb "step&\n"
99gdb_expect {
100    -re "^step&\r\n$gdb_prompt foo \\(\\) at .*async.c.*x = 5.*completed\.\r\n" \
101	    { pass "step &" }
102    -re "$gdb_prompt.*completed\.$" { fail "step &" }
103    timeout  { fail "(timeout) step &" }
104}
105
106send_gdb "stepi&\n"
107gdb_expect {
108    -re "^stepi&\r\n$gdb_prompt.*$hex.*x = 5.*completed\.\r\n" { pass "stepi &" }
109    -re "$gdb_prompt.*completed\.$" { fail "stepi &" }
110    timeout  { fail "(timeout) stepi &" }
111}
112
113send_gdb "nexti&\n"
114gdb_expect {
115    -re "^nexti&\r\n$gdb_prompt.*y = 3.*completed\.\r\n" { pass "nexti &" }
116    -re "$gdb_prompt.*completed\.$" { fail "nexti &" }
117    timeout  { fail "(timeout) nexti &" }
118}
119
120send_gdb "finish&\n"
121gdb_expect {
122    -re "^finish&\r\nRun till exit from #0  foo \\(\\) at.*async.c.*\r\n$gdb_prompt.*$hex in main \\(\\) at.*async.c.*y = foo \\(\\).*Value returned is.*= 8.*completed\.\r\n" \
123	    { pass "finish &" }
124    -re "$gdb_prompt.*completed\.$" { fail "finish &" }
125    timeout  { fail "(timeout) finish &" }
126}
127
128send_gdb "jump 33&\n"
129gdb_expect {
130    -re "^jump 33&.*Continuing at $hex.*$gdb_prompt.*Breakpoint 2, baz \\(\\) at.*async.c.*return 5.*completed\.\r\n" \
131	    { pass "jump &" }
132    -re ".*$gdb_prompt.*completed\.$" { fail "jump &" }
133    timeout  { fail "(timeout) jump &" }
134}
135
136send_gdb "until 35&\n"
137gdb_expect {
138    -re "^until 35&.*$gdb_prompt.*$hex in main \\(\\) at.*async.c.*y = baz \\(\\).*completed\.\r\n" \
139	    { pass "until &" }
140    -re "$gdb_prompt.*completed\.$" { fail "until &" }
141    timeout  { fail "(timeout) until &" }
142}
143
144gdb_test "set display-exec-done off" "" ""
145
146unset_board_info "gdb_protocol"
147set_board_info "gdb_protocol" "remote"
148
149
150
151
152
153
154