aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite
diff options
context:
space:
mode:
authorJim Kingdon <jkingdon@engr.sgi.com>1994-02-07 01:50:51 +0000
committerJim Kingdon <jkingdon@engr.sgi.com>1994-02-07 01:50:51 +0000
commit2558ba5dd651c733b86b9ea4320d6ea091ee9d71 (patch)
tree4e383723de90cf4377da6d31fac66c856748bdff /gdb/testsuite
parent1dd29bef1b0e38573a41c985428a7f29e71f19eb (diff)
downloadgdb-2558ba5dd651c733b86b9ea4320d6ea091ee9d71.zip
gdb-2558ba5dd651c733b86b9ea4320d6ea091ee9d71.tar.gz
gdb-2558ba5dd651c733b86b9ea4320d6ea091ee9d71.tar.bz2
* config/udi-gdb.exp (gdb_load): Use "file", not "load" command,
since "run" automatically loads if necessary. Call gdb_target_udi after the "file" since "file" kills any execution target.
Diffstat (limited to 'gdb/testsuite')
-rw-r--r--gdb/testsuite/ChangeLog5
-rw-r--r--gdb/testsuite/config/udi-gdb.exp30
2 files changed, 20 insertions, 15 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index d5a5809..cde27de 100644
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,5 +1,7 @@
Sun Feb 6 15:36:13 1994 Jim Kingdon (kingdon@lioth.cygnus.com)
+ * gdb.t03/ptype.exp: For UDI, skip tests which call malloc.
+
* gdb.t02/whatis.exp: Remove xfails for PRs 1838 and 2417; they
are fixed.
@@ -13,7 +15,8 @@ Sun Feb 6 15:36:13 1994 Jim Kingdon (kingdon@lioth.cygnus.com)
* gdb.t01/run.exp: Only run shell test if isnative.
* config/udi-gdb.exp (gdb_load): Use "file", not "load" command,
- since "run" automatically loads if necessary.
+ since "run" automatically loads if necessary. Call gdb_target_udi
+ after the "file" since "file" kills any execution target.
* config/udi-gdb.exp (gdb_start): Don't send "set args main" to
GDB. GDB doesn't work that way (not anymore at least) on UDI.
diff --git a/gdb/testsuite/config/udi-gdb.exp b/gdb/testsuite/config/udi-gdb.exp
index 0a78b31..e12ed6f 100644
--- a/gdb/testsuite/config/udi-gdb.exp
+++ b/gdb/testsuite/config/udi-gdb.exp
@@ -42,20 +42,6 @@ proc gdb_version {} {
}
#
-# gdb_load -- load a file into the debugger.
-# return a -1 if anything goes wrong.
-#
-proc gdb_load { arg } {
- global verbose
- global loadpath
- global loadfile
- global GDB
- global prompt
-
- return [gdb_file_cmd $arg]
-}
-
-#
# gdb_target_udi
# Set gdb to the desired UDI target
#
@@ -95,6 +81,22 @@ proc gdb_target_udi { } {
}
#
+# gdb_load -- load a file into the debugger.
+# return a -1 if anything goes wrong.
+#
+proc gdb_load { arg } {
+ global verbose
+ global loadpath
+ global loadfile
+ global GDB
+ global prompt
+
+ if [gdb_file_cmd $arg] then { return -1 }
+
+ gdb_target_udi
+}
+
+#
# gdb_start -- start GDB running. This assumes that there the
# UDICONF enviroment variable is set.
#