From 7e7b4a0209094e9e48689041eeb99d5369feb3b9 Mon Sep 17 00:00:00 2001 From: Stu Grossman Date: Thu, 11 May 1995 01:03:50 +0000 Subject: [PATCH] * config/cpu32bug.exp, config/est.exp, config/hppro.exp, config/rom68k.exp: New tcl glue for the appropriate monitors. These all just end up calling monitor.exp. * config/monitor.exp (gdb_target_monitor): Handle `Connection refused' by retrying. Cleanup some timeout issues. * (gdb_load): Reduce timeout. Cleanup some timeout issues. * lib/gdb.exp (gdb_test gdb_test_exact): Upvar timeout so that callers don't have to set/restore global timeout variable. * The following set of changes centralizes management of the global timeout variable. This way, it can be set in one target dependent place instead of dozens of places scattered throughout the test suite. If you need to lengthen a timeout, then you should either set timeout in one of the config/{target}.exp files, or multiply it by a factor. Setting it to an absolute value is always going to lose for some targets. * gdb.base/a1-selftest.exp (test_with_self): Only use local timeout. * gdb.base/callfuncs.exp (do_function_calls): Don't set timeout. * gdb.base/funcargs.exp: Don't set timeout. * gdb.base/list.exp (test_forward_search): Only use local timeout. * gdb.base/printcmds.exp (test_print_string_constants test_print_array_constants): Don't set timeout. * gdb.base/ptype.exp: Don't set timeout. * gdb.base/recurse.exp: Don't set timeout. * gdb.base/return.exp: Don't set timeout. * gdb.base/watchpoint.exp: Don't set timeout. * gdb.c++/classes.exp (do_tests): Don't set timeout. * gdb.c++/virtfunc.exp (test_virtual_calls): Don't set timeout. --- gdb/testsuite/ChangeLog | 31 +++++++ gdb/testsuite/config/cpu32bug.exp | 1 + gdb/testsuite/config/est.exp | 1 + gdb/testsuite/config/hppro.exp | 4 + gdb/testsuite/config/monitor.exp | 111 +++++++++++++++++++++++++ gdb/testsuite/gdb.base/a1-selftest.exp | 3 - gdb/testsuite/gdb.base/watchpoint.exp | 73 +++++++--------- 7 files changed, 178 insertions(+), 46 deletions(-) create mode 100644 gdb/testsuite/config/cpu32bug.exp create mode 100644 gdb/testsuite/config/est.exp create mode 100644 gdb/testsuite/config/hppro.exp create mode 100644 gdb/testsuite/config/monitor.exp diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 36ba992be84..bf77410c6a3 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,34 @@ +Wed May 10 17:57:35 1995 Stu Grossman (grossman@andros.cygnus.com) + + * config/cpu32bug.exp, config/est.exp, config/hppro.exp, + config/rom68k.exp: New tcl glue for the appropriate monitors. + These all just end up calling monitor.exp. + * config/monitor.exp (gdb_target_monitor): Handle `Connection + refused' by retrying. Cleanup some timeout issues. + * (gdb_load): Reduce timeout. Cleanup some timeout issues. + * lib/gdb.exp (gdb_test gdb_test_exact): Upvar timeout so that + callers don't have to set/restore global timeout variable. + + * The following set of changes centralizes management of the global + timeout variable. This way, it can be set in one target dependent + place instead of dozens of places scattered throughout the test suite. + If you need to lengthen a timeout, then you should either set timeout + in one of the config/{target}.exp files, or multiply it by a factor. + Setting it to an absolute value is always going to lose for some + targets. + * gdb.base/a1-selftest.exp (test_with_self): Only use local timeout. + * gdb.base/callfuncs.exp (do_function_calls): Don't set timeout. + * gdb.base/funcargs.exp: Don't set timeout. + * gdb.base/list.exp (test_forward_search): Only use local timeout. + * gdb.base/printcmds.exp (test_print_string_constants + test_print_array_constants): Don't set timeout. + * gdb.base/ptype.exp: Don't set timeout. + * gdb.base/recurse.exp: Don't set timeout. + * gdb.base/return.exp: Don't set timeout. + * gdb.base/watchpoint.exp: Don't set timeout. + * gdb.c++/classes.exp (do_tests): Don't set timeout. + * gdb.c++/virtfunc.exp (test_virtual_calls): Don't set timeout. + Wed May 10 16:03:23 1995 Torbjorn Granlund * Makefile.in: Make clean targets work also when SUBDIRS is empty. diff --git a/gdb/testsuite/config/cpu32bug.exp b/gdb/testsuite/config/cpu32bug.exp new file mode 100644 index 00000000000..1a2f7a9bc39 --- /dev/null +++ b/gdb/testsuite/config/cpu32bug.exp @@ -0,0 +1 @@ +load_lib ../config/monitor.exp diff --git a/gdb/testsuite/config/est.exp b/gdb/testsuite/config/est.exp new file mode 100644 index 00000000000..1a2f7a9bc39 --- /dev/null +++ b/gdb/testsuite/config/est.exp @@ -0,0 +1 @@ +load_lib ../config/monitor.exp diff --git a/gdb/testsuite/config/hppro.exp b/gdb/testsuite/config/hppro.exp new file mode 100644 index 00000000000..d71a398c13d --- /dev/null +++ b/gdb/testsuite/config/hppro.exp @@ -0,0 +1,4 @@ +load_lib ../config/monitor.exp + +# Hppro monitor is very slow... +set timeout 540 diff --git a/gdb/testsuite/config/monitor.exp b/gdb/testsuite/config/monitor.exp new file mode 100644 index 00000000000..c977e1451ba --- /dev/null +++ b/gdb/testsuite/config/monitor.exp @@ -0,0 +1,111 @@ +# Test Framework Driver for GDB driving a ROM monitor (via monitor.c). +# Copyright 1995 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. */ + +load_lib gdb.exp + +# +# gdb_version -- extract and print the version number of gdb +# +proc gdb_version {} { + default_gdb_version +} + +# +# gdb_target_monitor +# Set gdb to target the monitor +# +proc gdb_target_monitor { } { + global prompt + global exit_status + global targetname + global serialport + global baud + + set timeout 60 + for {set i 1} {$i <= 3} {incr i -1} { + send "target $targetname $serialport\n" + expect { + -re "Remote target $targetname connected to.*$prompt $" { + verbose "Set target to $targetname" + break + } + -re "Connection refused" { + verbose "Connection refused by remote target. Pausing, and trying again." + sleep 30 + continue + } + timeout { + perror "Couldn't set target for $targetname." + cleanup + exit $exit_status + } + } + } +} + +# +# 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_monitor + + send "load\n" + set timeout 600 + expect { + -re ".*$prompt $" { + if $verbose>1 then { + send_user "Loaded $arg into $GDB\n" + } + return 1 + } + -re "$prompt $" { + if $verbose>1 then { + perror "GDB couldn't load." + } + } + timeout { + if $verbose>1 then { + perror "Timed out trying to load $arg." + } + } + } +} + +# +# gdb_start -- start GDB running. +# +proc gdb_start { } { + default_gdb_start +} + +# +# gdb_exit -- exit gdb +# +proc gdb_exit { } { + catch default_gdb_exit +} + +gdb_start diff --git a/gdb/testsuite/gdb.base/a1-selftest.exp b/gdb/testsuite/gdb.base/a1-selftest.exp index 0c9c986c07f..380991d233c 100644 --- a/gdb/testsuite/gdb.base/a1-selftest.exp +++ b/gdb/testsuite/gdb.base/a1-selftest.exp @@ -43,7 +43,6 @@ proc test_with_self {} { global prompt global tool global det_file - global timeout global decimal # load yourself into the debugger @@ -56,7 +55,6 @@ proc test_with_self {} { # After gdb is loaded, set the timeout to 30 seconds for the duration # of this test, and then back to the original value. - set oldtimeout $timeout set timeout 600 if {[gdb_load "./x$tool"] <0} then { return -1 @@ -470,7 +468,6 @@ GDB.*Copyright \[0-9\]+ Free Software Foundation, Inc..*$prompt $"\ gdb_exit # Set the timeout back to the value it had when we were called. - set timeout $oldtimeout # Restart gdb in case next test expects it to be started already. gdb_start diff --git a/gdb/testsuite/gdb.base/watchpoint.exp b/gdb/testsuite/gdb.base/watchpoint.exp index 74d98f2f6b2..86877def87a 100644 --- a/gdb/testsuite/gdb.base/watchpoint.exp +++ b/gdb/testsuite/gdb.base/watchpoint.exp @@ -426,8 +426,6 @@ proc test_watchpoint_triggered_in_syscall {} { global prompt global timeout - set saved_timeout $timeout - # Run until we get to the first marker function. set x 0 set y 0 @@ -442,57 +440,55 @@ proc test_watchpoint_triggered_in_syscall {} { gdb_test "set doread = 1" "" - # Sometimes our string never gets to GDB?!? dejagnu bug? Whatever - # the cause we'll set a reasonably short timeout and resend our - # string again if we timeout. - set timeout 10 + # If we send "123\n" before gdb has switched the tty, then it goes + # to gdb, not the inferior, and we lose. So that is why we have + # watchpoint.c prompt us, so we can wait for that prompt. send "continue\n" + expect { + -re "Continuing\\.\r\ntype stuff for buf now:" { + pass "continue to read" + } + default { fail "continue to read"; return } + } send "123\n" expect { -re ".*\[Ww\]atchpoint.*buf\\\[0\\\].*Old value = 0.*New value = 49\[^\n\]*\n" { set x [expr $x+1] ; exp_continue } -re ".*\[Ww\]atchpoint.*buf\\\[1\\\].*Old value = 0.*New value = 50\[^\n\]*\n" { set x [expr $x+1] ; exp_continue } -re ".*\[Ww\]atchpoint.*buf\\\[2\\\].*Old value = 0.*New value = 51\[^\n\]*\n" { set x [expr $x+1] ; exp_continue } -re ".*\[Ww\]atchpoint.*buf\\\[3\\\].*Old value = 0.*New value = 10\[^\n\]*\n" { set x [expr $x+1] ; exp_continue } - -re ".*$prompt $" { } - timeout { - set timeout $saved_timeout - send "123\n" - exp_continue - } + -re ".*$prompt $" { pass "sent 123" } + timeout { fail "sent 123" } } - # Restore the timeout value. - set timeout $saved_timeout - # Examine the values in buf to see how many watchpoints we # should have printed. send "print buf\[0\]\n" expect { - -re ".*= 49.*$prompt $" { set y [expr $y+1] } - -re ".*= 0" { } - default { } - timeout { } + -re ".*= 49.*$prompt $" { set y [expr $y+1]; pass "print buf\[0\]"} + -re ".*= 0.*$prompt $" { pass "print buf\[0\]"} + -re ".*$prompt $" { fail "print buf\[0\]"} + default { fail "print buf\[0\]"} } send "print buf\[1\]\n" expect { - -re ".*= 50.*$prompt $" { set y [expr $y+1] } - -re ".*= 0" { } - default { } - timeout { } + -re ".*= 50.*$prompt $" { set y [expr $y+1]; pass "print buf\[1\]"} + -re ".*= 0.*$prompt $" { pass "print buf\[1\]"} + -re ".*$prompt $" { fail "print buf\[1\]"} + default { fail "print buf\[1\]"} } send "print buf\[2\]\n" expect { - -re ".*= 51.*$prompt $" { set y [expr $y+1] } - -re ".*= 0" { } - default { } - timeout { } + -re ".*= 51.*$prompt $" { set y [expr $y+1]; pass "print buf\[2\]"} + -re ".*= 0.*$prompt $" { pass "print buf\[2\]"} + -re ".*$prompt $" { fail "print buf\[2\]"} + default { fail "print buf\[2\]"} } send "print buf\[3\]\n" expect { - -re ".*= 10.*$prompt $" { set y [expr $y+1] } - -re ".*= 0" { } - default { } - timeout { } + -re ".*= 10.*$prompt $" { set y [expr $y+1]; pass "print buf\[3\]"} + -re ".*= 0.*$prompt $" { pass "print buf\[3\]"} + -re ".*$prompt $" { fail "print buf\[3\]" } + default { fail "print buf\[3\]" } } # Did we find what we were looking for? If not, flunk it. @@ -546,13 +542,6 @@ gdb_load $objdir/$subdir/$binfile if [initialize] then { - # Preserve the old timeout, and set a new one that should be - # sufficient to step from marker1 to marker2 with watchpoints - # set anywhere. - - set timeoutsave $timeout - set timeout 60 - test_simple_watchpoint # The IDT/sim monitor only has 8 (!) open files, of which it uses @@ -590,7 +579,9 @@ if [initialize] then { # Only enabled for some targets merely because it has not been tested # elsewhere. - if {[istarget "hppa*-*-*"] || [istarget "sparc*-*-sunos*"]} then { + # On sparc-sun-sunos4.1.3, GDB was running all the way to the marker4 + # breakpoint before stopping for the watchpoint. I don't know why. + if {[istarget "hppa*-*-*"]} then { test_watchpoint_triggered_in_syscall } @@ -608,8 +599,4 @@ if [initialize] then { if {[istarget "hppa*-*-*"] || [istarget "sparc*-*-sunos*"]} then { test_complex_watchpoint } - - # Restore the preserved old timeout value. - - set timeout $timeoutsave } -- 2.30.2