]> git.ipfire.org Git - thirdparty/binutils-gdb.git/blame - gdb/testsuite/config/sim.exp
Copyright updates for 2007.
[thirdparty/binutils-gdb.git] / gdb / testsuite / config / sim.exp
CommitLineData
c906108c 1# Test Framework Driver for GDB driving a builtin simulator
6aba47ca 2# Copyright 1994, 1997, 1998, 2004, 2007 Free Software Foundation, Inc.
c906108c
SS
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
18load_lib gdb.exp
19
20#
21# gdb_target_sim
22# Set gdb to target the simulator
23#
24proc gdb_target_sim { } {
25 global gdb_prompt
26 global exit_status
27
28 set target_sim_options "[board_info target gdb,target_sim_options]";
29
30 send_gdb "target sim $target_sim_options\n"
31 set timeout 60
32 verbose "Timeout is now $timeout seconds" 2
33 gdb_expect {
34 -re "Connected to the simulator.*$gdb_prompt $" {
35 verbose "Set target to sim"
36 }
37 timeout {
38 perror "Couldn't set target for simulator."
39 cleanup
40 exit $exit_status
41 }
42 }
43 set timeout 10
44 verbose "Timeout is now $timeout seconds" 2
45}
46
47#
48# gdb_load -- load a file into the debugger.
49# return a -1 if anything goes wrong.
50#
51proc gdb_load { arg } {
52 global verbose
53 global loadpath
54 global loadfile
55 global GDB
56 global gdb_prompt
57
83f66e8f
DJ
58 if { $arg != "" } {
59 if [gdb_file_cmd $arg] then { return -1 }
60 }
c906108c
SS
61
62 gdb_target_sim
63
64 send_gdb "load\n"
65 set timeout 2400
66 verbose "Timeout is now $timeout seconds" 2
67 gdb_expect {
68 -re ".*$gdb_prompt $" {
69 if $verbose>1 then {
70 send_user "Loaded $arg into $GDB\n"
71 }
72 set timeout 30
73 verbose "Timeout is now $timeout seconds" 2
954269c2 74 return 0
c906108c
SS
75 }
76 -re "$gdb_prompt $" {
77 if $verbose>1 then {
78 perror "GDB couldn't load."
79 }
80 }
81 timeout {
82 if $verbose>1 then {
83 perror "Timed out trying to load $arg."
84 }
85 }
86 }
954269c2 87 return -1
c906108c 88}