From 40ee1402e099134c54c5f25da1e0e67193a22489 Mon Sep 17 00:00:00 2001 From: Kung Hsu Date: Thu, 23 Mar 1995 02:38:39 +0000 Subject: [PATCH] * config/mt-slite: add LIBS and -nostdlib. * config/slite-gdb.exp: add this new file to support sparclite target. --- gdb/testsuite/ChangeLog | 5 + gdb/testsuite/config/mt-slite | 5 +- gdb/testsuite/config/slite-gdb.exp | 259 +++++++++++++++++++++++++++++ 3 files changed, 267 insertions(+), 2 deletions(-) create mode 100644 gdb/testsuite/config/slite-gdb.exp diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 83bf398660b..d5b1bc7897e 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +Wed Mar 22 18:36:05 1995 Kung Hsu + + * config/mt-slite: add LIBS and -nostdlib. + * config/slite-gdb.exp: add this new file to support sparclite target. + Tue Mar 21 21:41:04 1995 Doug Evans * config/vx-gdb.exp (gdb_load): Update test of vxworks_ld return code. diff --git a/gdb/testsuite/config/mt-slite b/gdb/testsuite/config/mt-slite index 4f5868864ff..74e75a25c5c 100644 --- a/gdb/testsuite/config/mt-slite +++ b/gdb/testsuite/config/mt-slite @@ -1,7 +1,8 @@ +LIBS = -lc -lg -lgcc CFLAGS = -g -Dusestubs LDFLAGS = ` \ if [ -f $${rootme}/../../newlib/Makefile ]; then \ - echo -L$${rootsrc}/../../libgloss/ex93x -L$${rootme}/../../libgloss/ex93x -Tex93x.ld -nostartfiles -N; \ + echo -L$${rootsrc}/../../libgloss/ex93x -L$${rootme}/../../libgloss/ex93x -Tex93x.ld -nostartfiles -nostdlib -N; \ else \ - echo -Tex93x.ld -nostartfiles -N; \ + echo -Tex93x.ld -nostartfiles -nostdlib -N; \ fi` diff --git a/gdb/testsuite/config/slite-gdb.exp b/gdb/testsuite/config/slite-gdb.exp new file mode 100644 index 00000000000..cbab074f9cd --- /dev/null +++ b/gdb/testsuite/config/slite-gdb.exp @@ -0,0 +1,259 @@ +# Copyright (C) 1993 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 +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */ + +# Please email any bugs, comments, and/or additions to this file to: +# DejaGnu@cygnus.com + +# This file was written by Ian Lance Taylor . + +# GDB support routines for a board using the MIPS remote debugging +# protocol. These are actually pretty generic. + +# DejaGnu currently assumes that debugging is being done over the main +# console port. It would probably be more convenient for people using +# IDT boards to permit the debugging port and the connected port to be +# different, since an IDT board has two ports. This would require +# extending some of the tests in a fashion similar to that done for +# VxWorks, because the test output would appear on the other port, +# rather than being displayed by gdb. + +load_lib remote.exp +load_lib gdb.exp + +# +# gdb_version -- extract and print the version number of gdb +# +proc gdb_version {} { + global GDB + global GDBFLAGS + global prompt + set tmp [exec echo "q" | $GDB] + set version [lindex $tmp [lsearch $tmp "\[0-9\]*"]] + set version [string range $version 0 [expr [string length $version]-2]] + clone_output "[which $GDB] version $version $GDBFLAGS\n" +} + +# +# gdb_load -- load a file into the GDB. +# Returns a 0 if there was an error, +# 1 if it load successfully. +# +proc gdb_load { arg } { + global verbose + global loadpath + global loadfile + global prompt + global spawn_id + global GDB + global expect_out + global targetname + + set loadfile [file tail $arg] + set loadpath [file dirname $arg] + + send "file $arg\n" + expect { + -re "A program is being debugged already..*Kill it.*y or n. $" { + send "y\n" + exp_continue + } + -re "Reading symbols from.*done..*$prompt $" {} + -re "$prompt $" { perror "GDB couldn't read file" } + timeout { perror "(timeout) read symbol file" ; return -1 } + } + + send "target sparclite $targetname\n" + set timeout 60 + expect { + -re ".*SPARClite appears to be alive.*$prompt $" { + if $verbose>1 then { + send_user "Set target to $targetname\n" + } + } + timeout { + perror "Couldn't set SLITE target." + set timeout 10 + return -1 + } + } + + send "load $arg\n" + if $verbose>1 then { + send_user "Loading $arg into $GDB\n" + } + set timeout 2400 + expect { + -re "Loading.*$prompt $" { + if $verbose>1 then { + send_user "Loaded $arg into $GDB\n" + } + set timeout 30 + } + -re "$prompt $" { + if $verbose>1 then { + perror "GDB couldn't load." + } + } + timeout { + if $verbose>1 then { + perror "Timed out trying to load $arg." + } + } + } + set timeout 10 + + send "target remote $targetname\n" + set timeout 60 + expect { + -re ".*$prompt $" { + if $verbose>1 then { + send_user "Set remote target to $targetname\n" + } + } + timeout { + perror "Couldn't set remote target." + set timeout 10 + return -1 + } + } + + if [info exists expect_out(buffer)] then { + send_log $expect_out(buffer) + } + return 0 +} + +# +# gdb_start -- start GDB running. +# +proc gdb_start { } { + global GDB + global GDBFLAGS + global spawn_id + global shell_id + global prompt + global verbose + global targetname + global connectmode + global reboot + global baud + + # reboot the board to get a clean start + if $reboot then { + if ![info exists connectmode] then { + set connectmode "kermit" + } + if ![info exists baud] then { + set baud 9600 + } + set shell_id [ eval $connectmode "$targetname" ] + send -i $shell_id "\n" + expect { + -i $shell_id -re ">$" { } + timeout { + send -i $shell_id "\CC" + expect { + -i $shell_id -re ">$" { } + timeout { + perror "(timeout) board did not come up."; return -1 + } + } + } + } + send -i $shell_id "go 0xbfc00000\n" + expect { + -i $shell_id -re ">$" { } + timeout { perror "(timeout) board did not come up."; return -1 } + } + verbose "about to exit kermit" + exit_remote_shell $shell_id + } + + set GDB [which $GDB] + # start GDB + if [ llength $GDBFLAGS ] then { + spawn $GDB $GDBFLAGS + } else { + spawn $GDB + } + expect { + -re ".*\r\n$prompt $" { + verbose "GDB initialized." + } + -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 $" {} + + # Don't use floating point instructions, in case the board doesn't + # support them. + # send "set mipsfpu off\n" + # expect -re ".*$prompt $" {} + +# if $verbose>1 then { +# send_user "Setting up target, please wait...\n" +# } +# send "target mips $targetname\n" +# set timeout 60 +# expect { +# -re "Remote MIPS debugging.*$prompt $" { +# if $verbose>1 then { +# send_user "Set target to $targetname\n" +# } +# } +# timeout { +# perror "Couldn't set MIPS target." +# set timeout 10 +# return -1 +# } +# } + set timeout 10 +} + +expect_after { + "" { send "\n"; perror "Window too small." } + -re "\(y or n\) " { send "n\n"; perror "Got interactive prompt." } + buffer_full { perror "internal buffer is full." } + eof { perror "eof -- pty is hosed." } + timeout { perror "timeout." } + "virtual memory exhausted" { perror "virtual memory exhausted." } + "Undefined command" { perror "send string probably wrong." } +} + +proc gdb_exit { } { + catch default_gdb_exit +} + +gdb_start + +# make sure gdb has actually started, otherwise if the first test +# timesout, DejaGnu crashes +send "\n" +expect { + -re "$prompt" + } -- 2.30.2