* config/{udi-gdb.exp, gdb-unix.exp}: Replace calls to obsolete
authorFred Fish <fnf@specifix.com>
Thu, 26 Aug 1993 00:36:15 +0000 (00:36 +0000)
committerFred Fish <fnf@specifix.com>
Thu, 26 Aug 1993 00:36:15 +0000 (00:36 +0000)
"alldone" proc with call to cleanup and exit.
* {gdb.t01/run.exp, gdb.t01/term.exp, gdb.t02/whatis.exp,
gdb.t03/ptype.exp, gdb.t04/setvar.exp, gdb.t05/expr.exp,
gdb.t06/break.exp, gdb.t07/watchpoint.exp, gdb.t08/opaque.exp,
gdb.t09/corefile.exp, gdb.t10/crossload.exp, gdb.t11/list.exp,
gdb.t12/scope.exp, gdb.t13/bitfields.exp}:  Replace calls to
"alldone" proc with simple returns that suppress remaining
tests.  The alldone proc went away many months ago.

gdb/testsuite/ChangeLog
gdb/testsuite/config/udi-gdb.exp
gdb/testsuite/config/unix-gdb.exp

index 452e6b95431563f57d03d51d3c45ad64a21fb8c9..6bd456de5a014154c6741de8654f61c8b310110d 100644 (file)
@@ -1,3 +1,17 @@
+Wed Aug 25 16:48:05 1993  Fred Fish  (fnf@deneb.cygnus.com)
+
+       * configure.in (configdirs):  Restore gdb.t04, which mysteriously
+       disappeared from list.
+       * config/{udi-gdb.exp, gdb-unix.exp}:  Replace calls to obsolete
+       "alldone" proc with call to cleanup and exit.
+       * {gdb.t01/run.exp, gdb.t01/term.exp, gdb.t02/whatis.exp,
+       gdb.t03/ptype.exp, gdb.t04/setvar.exp, gdb.t05/expr.exp,
+       gdb.t06/break.exp, gdb.t07/watchpoint.exp, gdb.t08/opaque.exp,
+       gdb.t09/corefile.exp, gdb.t10/crossload.exp, gdb.t11/list.exp,
+       gdb.t12/scope.exp, gdb.t13/bitfields.exp}:  Replace calls to
+       "alldone" proc with simple returns that suppress remaining
+       tests.  The alldone proc went away many months ago.
+
 Tue Aug 24 11:04:06 1993  Jim Kingdon  (kingdon@lioth.cygnus.com)
 
        * gdb.t10/nodebug.exp: Comment out "maint print msymbols" tests.
index a59ff43cc23ffa6bd14a39819b998102990acbd7..df64531a745e8c46e2692a16722a7f498dca1c93 100644 (file)
@@ -94,6 +94,7 @@ proc gdb_target_udi { } {
     global targetname
     global prompt
     global verbose
+    global exit_status
 
     # set targets hostname
     send "target udi $targetname\n"
@@ -110,7 +111,8 @@ proc gdb_target_udi { } {
        }
        timeout { 
            error "Couldn't set target for UDI."
-           alldone
+           cleanup
+           exit $exit_status
        }
     }
     set timeout 10
index f3aed9f318ce80a9500c1bc3a53878326b8ed756..68c1a729cf39936d53d77f25c92c583dfbd2e26f 100644 (file)
@@ -284,7 +284,7 @@ proc gdb_start {} {
 #    "<return>"                   { send "\n"; error "Window too small." }
 #    -re "\(y or n\) "            { send "n\n"; error "Got interactive prompt." }
 #    buffer_full                  { error "internal buffer is full." }
-#    eof                          { error "eof -- there is no child process" ; alldone}
+#    eof                          { error "eof -- there is no child process" ; cleanup ; exit $exit_status}
 #    timeout                      { error "timeout." }
 #    "virtual memory exhausted" { error "virtual memory exhausted." }
 #    "Undefined command"          { error "send string probably wrong." }