Commit | Line | Data |
---|---|---|
0fba9aa2 | 1 | # Copyright (C) 1988, 1990, 1991, 1992, 1994 Free Software Foundation, Inc. |
19fa4a0a MW |
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 | |
5 | # the Free Software Foundation; either version 2 of the License, or | |
6 | # (at your option) any later version. | |
7 | # | |
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. | |
12 | # | |
13 | # You should have received a copy of the GNU General Public License | |
14 | # along with this program; if not, write to the Free Software | |
15 | # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
16 | ||
17 | # Please email any bugs, comments, and/or additions to this file to: | |
415e6208 | 18 | # bug-gdb@prep.ai.mit.edu |
19fa4a0a MW |
19 | |
20 | # This file was written by Rob Savoye. (rob@cygnus.com) | |
21 | ||
7e7cb02f RS |
22 | load_lib gdb.exp |
23 | ||
19fa4a0a MW |
24 | # variables that need to set up |
25 | # | |
26 | if ![info exists prompt] then { | |
70dbc751 | 27 | set prompt "\[(\]gdb\[)\]" |
19fa4a0a MW |
28 | } |
29 | # some convenience abbreviations | |
30 | # | |
31 | if ![info exists hex] then { | |
32 | set hex "0x\[0-9A-Fa-f\]+" | |
33 | } | |
34 | if ![info exists decimal] then { | |
35 | set decimal "\[0-9\]+" | |
36 | } | |
37 | ||
38 | # | |
39 | # gdb_version -- extract and print the version number of gcc | |
40 | # | |
41 | proc gdb_version {} { | |
1c65406f | 42 | default_gdb_version |
19fa4a0a MW |
43 | } |
44 | ||
45 | # | |
46 | # gdb_unload -- unload a file if one is loaded | |
47 | # | |
48 | ||
19fa4a0a MW |
49 | # |
50 | # gdb_load -- load a file into the debugger. | |
05a291bb | 51 | # return a -1 if anything goes wrong. |
19fa4a0a MW |
52 | # |
53 | proc gdb_load { arg } { | |
54 | global verbose | |
55 | global loadpath | |
56 | global loadfile | |
57 | global GDB | |
58 | global prompt | |
eea578da | 59 | upvar timeout timeout |
19fa4a0a | 60 | |
954f33cf | 61 | return [gdb_file_cmd $arg] |
19fa4a0a MW |
62 | } |
63 | ||
0fba9aa2 SS |
64 | proc gdb_start { } { |
65 | default_gdb_start | |
19fa4a0a | 66 | } |
0fba9aa2 | 67 | |
7e7cb02f | 68 | proc gdb_exit { } { |
006f1ea2 | 69 | catch default_gdb_exit |
7e7cb02f RS |
70 | } |
71 | ||
19fa4a0a MW |
72 | set binpath /s1/users/rob/vxworks/bin/somewhere-bogus-that-needs-configuring |
73 | set bin $GDB | |
74 | ||
75 | gdb_start | |
76 | ||
a309ee82 RS |
77 | |
78 | ||
79 | ||
80 | ||
81 | ||
82 |