diff options
Diffstat (limited to 'gdb/testsuite/config/udi-gdb.exp')
| -rw-r--r-- | gdb/testsuite/config/udi-gdb.exp | 45 |
1 files changed, 2 insertions, 43 deletions
diff --git a/gdb/testsuite/config/udi-gdb.exp b/gdb/testsuite/config/udi-gdb.exp index 5d44efc..0914446 100644 --- a/gdb/testsuite/config/udi-gdb.exp +++ b/gdb/testsuite/config/udi-gdb.exp @@ -1,5 +1,5 @@ # Test Framework Driver for GDB driving Universal Debug Interface on 29K -# Copyright 1988, 1990, 1991, 1992, 1993 Free Software Foundation, Inc. +# Copyright 1988, 1990, 1991, 1992, 1993, 1994 Free Software Foundation, Inc. # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by @@ -24,13 +24,6 @@ # NOTE: these test assume that there is a udi_soc file in th # -# these need to be initialized only if site.exp doesn't set them -set prompt "\(gdb\)" - -if ![info exists prompt] then { - set prompt "\(gdb\)" -} - load_lib gdb.exp load_lib udi.exp @@ -101,42 +94,8 @@ proc gdb_load { arg } { # UDICONF enviroment variable is set. # proc gdb_start { } { - global GDB - global GDBFLAGS - global spawn_id - global prompt - global verbose - - set GDB [which $GDB] - # start GDB - if [ llength $GDBFLAGS ] then { - spawn $GDB $GDBFLAGS - } else { - spawn $GDB - } - expect { - -re "GDB.*$prompt $" { - verbose "$GDB initialized for cross mode\n" - } - -re "$prompt $" { - perror "GDB never initialized." - return -1 - } - timeout { - perror "(timeout) GDB never initialized." - return -1 - } - } - - # force the height to "unlimited", so no pagers get used - send "set height 0\n" - expect -re ".*$prompt $" {} - # force the width to "unlimited", so no wraparound occurs - send "set width 0\n" - expect -re ".*$prompt $" {} - + default_gdb_start verbose "Setting up target, Please wait..." - gdb_target_udi } |