gdb/testsuite/
* Makefile.in (ALL_SUBDIRS): Add gdb.gdbserver. * configure.ac: Create gdb.gdbserver/Makefile. * configure: Regenerated. * lib/gdbserver-support.exp: New file, derived from config/gdbserver.exp. * config/gdbserver.exp: Use gdbserver-support.exp. * gdb.gdbserver/Makefile.in: New file. * gdb.gdbserver/server.c: New file. * gdb.gdbserver/server-run.exp: New file. gdb/ * config/fnchange.lst: Add testsuite/gdb.gdbserver entries.
This commit is contained in:
parent
0228dfb97d
commit
6f8eac0e51
|
@ -1,3 +1,7 @@
|
||||||
|
2005-04-08 Daniel Jacobowitz <dan@codesourcery.com>
|
||||||
|
|
||||||
|
* config/fnchange.lst: Add testsuite/gdb.gdbserver entries.
|
||||||
|
|
||||||
2005-04-08 Daniel Jacobowitz <dan@codesourcery.com>
|
2005-04-08 Daniel Jacobowitz <dan@codesourcery.com>
|
||||||
|
|
||||||
* dwarf2-frame.c (struct dwarf2_frame_cache): New field
|
* dwarf2-frame.c (struct dwarf2_frame_cache): New field
|
||||||
|
|
|
@ -206,6 +206,9 @@
|
||||||
@V@/gdb/testsuite/gdb.base/coremaker2.c @V@/gdb/testsuite/gdb.base/core2maker.c
|
@V@/gdb/testsuite/gdb.base/coremaker2.c @V@/gdb/testsuite/gdb.base/core2maker.c
|
||||||
@V@/gdb/testsuite/gdb.cp/m-static1.cc @V@/gdb/testsuite/gdb.cp/m-stat1.cc
|
@V@/gdb/testsuite/gdb.cp/m-static1.cc @V@/gdb/testsuite/gdb.cp/m-stat1.cc
|
||||||
@V@/gdb/testsuite/gdb.cp/namespace1.cc @V@/gdb/testsuite/gdb.cp/namesp1.cc
|
@V@/gdb/testsuite/gdb.cp/namespace1.cc @V@/gdb/testsuite/gdb.cp/namesp1.cc
|
||||||
|
@V@/gdb/testsuite/gdb.gdbserver/Makefile.in @V@/gdb/testsuite/gdb.srv/Makefile.in
|
||||||
|
@V@/gdb/testsuite/gdb.gdbserver/server-run.exp @V@/gdb/testsuite/gdb.srv/server-run.exp
|
||||||
|
@V@/gdb/testsuite/gdb.gdbserver/server.c @V@/gdb/testsuite/gdb.srv/server.c
|
||||||
@V@/gdb/testsuite/gdb.gdbtk/ChangeLog @V@/gdb/testsuite/gdb.tk/ChangeLog
|
@V@/gdb/testsuite/gdb.gdbtk/ChangeLog @V@/gdb/testsuite/gdb.tk/ChangeLog
|
||||||
@V@/gdb/testsuite/gdb.gdbtk/Makefile.in @V@/gdb/testsuite/gdb.tk/Makefile.in
|
@V@/gdb/testsuite/gdb.gdbtk/Makefile.in @V@/gdb/testsuite/gdb.tk/Makefile.in
|
||||||
@V@/gdb/testsuite/gdb.gdbtk/browser.exp @V@/gdb/testsuite/gdb.tk/browser.exp
|
@V@/gdb/testsuite/gdb.gdbtk/browser.exp @V@/gdb/testsuite/gdb.tk/browser.exp
|
||||||
|
|
|
@ -1,3 +1,15 @@
|
||||||
|
2005-04-08 Daniel Jacobowitz <dan@codesourcery.com>
|
||||||
|
|
||||||
|
* Makefile.in (ALL_SUBDIRS): Add gdb.gdbserver.
|
||||||
|
* configure.ac: Create gdb.gdbserver/Makefile.
|
||||||
|
* configure: Regenerated.
|
||||||
|
* lib/gdbserver-support.exp: New file, derived from
|
||||||
|
config/gdbserver.exp.
|
||||||
|
* config/gdbserver.exp: Use gdbserver-support.exp.
|
||||||
|
* gdb.gdbserver/Makefile.in: New file.
|
||||||
|
* gdb.gdbserver/server.c: New file.
|
||||||
|
* gdb.gdbserver/server-run.exp: New file.
|
||||||
|
|
||||||
2005-04-06 Paul Gilliam <pgilliam@us.ibm.com>
|
2005-04-06 Paul Gilliam <pgilliam@us.ibm.com>
|
||||||
|
|
||||||
* lib/gdb.exp (test_compiler_info): Return compiler_info
|
* lib/gdb.exp (test_compiler_info): Return compiler_info
|
||||||
|
|
|
@ -1,5 +1,6 @@
|
||||||
# Makefile for regression testing the GNU debugger.
|
# Makefile for regression testing the GNU debugger.
|
||||||
# Copyright 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2002, 2003, 2004
|
# Copyright 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2002, 2003, 2004,
|
||||||
|
# 2005
|
||||||
# Free Software Foundation, Inc.
|
# Free Software Foundation, Inc.
|
||||||
|
|
||||||
# This file is part of GDB.
|
# This file is part of GDB.
|
||||||
|
@ -37,7 +38,8 @@ SUBDIRS = @subdirs@
|
||||||
RPATH_ENVVAR = @RPATH_ENVVAR@
|
RPATH_ENVVAR = @RPATH_ENVVAR@
|
||||||
ALL_SUBDIRS = gdb.ada gdb.arch gdb.asm gdb.base gdb.cp gdb.disasm \
|
ALL_SUBDIRS = gdb.ada gdb.arch gdb.asm gdb.base gdb.cp gdb.disasm \
|
||||||
gdb.dwarf2 \
|
gdb.dwarf2 \
|
||||||
gdb.fortran gdb.java gdb.mi gdb.objc gdb.threads gdb.trace \
|
gdb.fortran gdb.gdbserver gdb.java gdb.mi \
|
||||||
|
gdb.objc gdb.threads gdb.trace \
|
||||||
$(SUBDIRS)
|
$(SUBDIRS)
|
||||||
|
|
||||||
EXPECT = `if [ -f $${rootme}/../../expect/expect ] ; then \
|
EXPECT = `if [ -f $${rootme}/../../expect/expect ] ; then \
|
||||||
|
|
|
@ -1,7 +1,3 @@
|
||||||
# Test framework for GDB (remote protocol) using a "gdbserver",
|
|
||||||
# ie. a debug agent running as a native process on the same or
|
|
||||||
# a different host.
|
|
||||||
|
|
||||||
# Copyright 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
|
# Copyright 2000, 2002, 2003, 2004, 2005 Free Software Foundation, Inc.
|
||||||
|
|
||||||
# This program is free software; you can redistribute it and/or modify
|
# This program is free software; you can redistribute it and/or modify
|
||||||
|
@ -18,19 +14,15 @@
|
||||||
# along with this program; if not, write to the Free Software
|
# along with this program; if not, write to the Free Software
|
||||||
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||||
|
|
||||||
# Please email any bugs, comments, and/or additions to this file to:
|
# Test framework for GDB (remote protocol) using a "gdbserver",
|
||||||
# bug-gdb@prep.ai.mit.edu
|
# ie. a debug agent running as a native process on the same or
|
||||||
|
# a different host.
|
||||||
# This file was written by Michael Snyder. (msnyder@redhat.com)
|
|
||||||
|
|
||||||
#
|
#
|
||||||
# This module to be used for testing gdb with a "gdbserver"
|
# This module to be used for testing gdb with a "gdbserver"
|
||||||
# built either from libremote or from gdb/gdbserver.
|
# built either from libremote or from gdb/gdbserver.
|
||||||
#
|
#
|
||||||
|
|
||||||
# Load the basic testing library, and the remote stuff.
|
|
||||||
load_lib ../config/monitor.exp
|
|
||||||
|
|
||||||
#
|
#
|
||||||
# To be addressed or set in your baseboard config file:
|
# To be addressed or set in your baseboard config file:
|
||||||
#
|
#
|
||||||
|
@ -73,148 +65,19 @@ load_lib ../config/monitor.exp
|
||||||
# Defaults to "localhost". Note: old gdbserver requires
|
# Defaults to "localhost". Note: old gdbserver requires
|
||||||
# that you define this, but libremote/gdbserver does not.
|
# that you define this, but libremote/gdbserver does not.
|
||||||
#
|
#
|
||||||
# set_board_info socketport
|
# set_board_info gdb,socketport
|
||||||
# Port id to use for socket connection. If not set explicitly,
|
# Port id to use for socket connection. If not set explicitly,
|
||||||
# it will start at "2345" and increment for each use.
|
# it will start at "2345" and increment for each use.
|
||||||
#
|
#
|
||||||
|
|
||||||
|
# The guts live in gdbserver-support.exp now.
|
||||||
|
|
||||||
|
load_lib gdbserver-support.exp
|
||||||
|
|
||||||
#
|
proc gdbserver_gdb_load { arg } {
|
||||||
# gdb_load -- load a file into the debugger.
|
return [gdbserver_spawn $arg ""]
|
||||||
# return a -1 if anything goes wrong.
|
|
||||||
#
|
|
||||||
|
|
||||||
global server_exec;
|
|
||||||
global portnum;
|
|
||||||
set portnum "2345";
|
|
||||||
|
|
||||||
proc gdbserver_gdb_load { server_exec } {
|
|
||||||
global portnum
|
|
||||||
|
|
||||||
# Port id -- either specified in baseboard file, or managed here.
|
|
||||||
if [target_info exists gdb,socketport] {
|
|
||||||
set portnum [target_info gdb,socketport];
|
|
||||||
} else {
|
|
||||||
# Bump the port number to avoid conflicts with hung ports.
|
|
||||||
incr portnum;
|
|
||||||
}
|
|
||||||
|
|
||||||
# Extract the local and remote host ids from the target board struct.
|
|
||||||
|
|
||||||
if [target_info exists sockethost] {
|
|
||||||
set debughost [target_info sockethost];
|
|
||||||
} else {
|
|
||||||
set debughost "localhost:";
|
|
||||||
}
|
|
||||||
# Extract the protocol
|
|
||||||
if [target_info exists gdb_protocol] {
|
|
||||||
set protocol [target_info gdb_protocol];
|
|
||||||
} else {
|
|
||||||
set protocol "remote";
|
|
||||||
}
|
|
||||||
|
|
||||||
# Extract the name of the gdbserver, if known (default 'gdbserver').
|
|
||||||
if [target_info exists gdb_server_prog] {
|
|
||||||
set gdbserver [target_info gdb_server_prog];
|
|
||||||
} else {
|
|
||||||
set gdbserver "gdbserver";
|
|
||||||
}
|
|
||||||
# Extract the socket hostname
|
|
||||||
if [target_info exists sockethost] {
|
|
||||||
set sockethost [target_info sockethost];
|
|
||||||
} else {
|
|
||||||
set sockethost ""
|
|
||||||
}
|
|
||||||
|
|
||||||
# Export the host:port pair.
|
|
||||||
set gdbport $debughost$portnum;
|
|
||||||
|
|
||||||
# Fire off the debug agent
|
|
||||||
if [target_info exists gdb_server_args] {
|
|
||||||
# This flavour of gdbserver takes as arguments those specified
|
|
||||||
# in the board configuration file
|
|
||||||
set custom_args [target_info gdb_server_args];
|
|
||||||
set server_spawn_id [remote_spawn target \
|
|
||||||
"$gdbserver $custom_args"]
|
|
||||||
} else {
|
|
||||||
# This flavour of gdbserver takes as arguments the port information
|
|
||||||
# and the name of the executable file to be debugged.
|
|
||||||
set server_spawn_id [remote_spawn target \
|
|
||||||
"$gdbserver $sockethost$portnum $server_exec"]
|
|
||||||
}
|
|
||||||
|
|
||||||
# Wait for the server to produce at least one line and an additional
|
|
||||||
# character of output. This will wait until any TCP socket has been
|
|
||||||
# created, so that GDB can connect.
|
|
||||||
expect {
|
|
||||||
-i $server_spawn_id
|
|
||||||
-notransfer
|
|
||||||
-re ".*\n." { }
|
|
||||||
}
|
|
||||||
|
|
||||||
# We can't just call close, because if gdbserver is local then that means
|
|
||||||
# that it will get a SIGHUP. Doing it this way could also allow us to
|
|
||||||
# get at the inferior's input or output if necessary, and means that we
|
|
||||||
# don't need to redirect output.
|
|
||||||
expect_background {
|
|
||||||
-i $server_spawn_id
|
|
||||||
-re "." { }
|
|
||||||
eof {
|
|
||||||
# The spawn ID is already closed now (but not yet waited for).
|
|
||||||
wait -i $expect_out(spawn_id)
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
return [list $protocol $gdbport];
|
|
||||||
}
|
|
||||||
|
|
||||||
proc infer_host_exec { } {
|
|
||||||
set host_exec ""
|
|
||||||
|
|
||||||
send_gdb "info files\n";
|
|
||||||
gdb_expect 30 {
|
|
||||||
-re "Symbols from \"(\[^\"\]+)\"" {
|
|
||||||
set host_exec $expect_out(1,string);
|
|
||||||
exp_continue;
|
|
||||||
}
|
|
||||||
-re "Local exec file:\[\r\n\]+\[ \t\]*`(\[^'\]+)'," {
|
|
||||||
set host_exec $expect_out(1,string);
|
|
||||||
exp_continue;
|
|
||||||
}
|
|
||||||
-re "$gdb_prompt $" { }
|
|
||||||
}
|
|
||||||
|
|
||||||
return $host_exec
|
|
||||||
}
|
}
|
||||||
|
|
||||||
proc gdb_load { arg } {
|
proc gdb_load { arg } {
|
||||||
global host_exec
|
return [gdbserver_load $arg ""]
|
||||||
global server_exec
|
|
||||||
|
|
||||||
if { $arg == "" && $host_exec == "" } {
|
|
||||||
set host_exec [infer_host_exec]
|
|
||||||
} elseif { $arg != "" } {
|
|
||||||
set host_exec $arg
|
|
||||||
if [info exists server_exec] { unset server_exec }
|
|
||||||
}
|
|
||||||
|
|
||||||
if { ! [info exists server_exec] } {
|
|
||||||
if [is_remote target] {
|
|
||||||
set server_exec [remote_download target $host_exec /tmp/[file tail $host_exec].[pid]]
|
|
||||||
} else {
|
|
||||||
set server_exec $host_exec
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
set res [gdbserver_gdb_load $server_exec]
|
|
||||||
set protocol [lindex $res 0]
|
|
||||||
set gdbport [lindex $res 1]
|
|
||||||
|
|
||||||
if { $arg != "" } {
|
|
||||||
if [gdb_file_cmd $arg] {
|
|
||||||
return -1
|
|
||||||
}
|
|
||||||
}
|
|
||||||
gdb_target_cmd $protocol $gdbport
|
|
||||||
}
|
}
|
||||||
|
|
|
@ -956,7 +956,7 @@ esac
|
||||||
else
|
else
|
||||||
echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2
|
echo "$as_me: WARNING: no configuration information is in $ac_dir" >&2
|
||||||
fi
|
fi
|
||||||
cd $ac_popdir
|
cd "$ac_popdir"
|
||||||
done
|
done
|
||||||
fi
|
fi
|
||||||
|
|
||||||
|
@ -2080,8 +2080,7 @@ if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
|
||||||
cat conftest.err >&5
|
cat conftest.err >&5
|
||||||
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
||||||
(exit $ac_status); } &&
|
(exit $ac_status); } &&
|
||||||
{ ac_try='test -z "$ac_c_werror_flag"
|
{ ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err'
|
||||||
|| test ! -s conftest.err'
|
|
||||||
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
||||||
(eval $ac_try) 2>&5
|
(eval $ac_try) 2>&5
|
||||||
ac_status=$?
|
ac_status=$?
|
||||||
|
@ -2139,8 +2138,7 @@ if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
|
||||||
cat conftest.err >&5
|
cat conftest.err >&5
|
||||||
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
||||||
(exit $ac_status); } &&
|
(exit $ac_status); } &&
|
||||||
{ ac_try='test -z "$ac_c_werror_flag"
|
{ ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err'
|
||||||
|| test ! -s conftest.err'
|
|
||||||
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
||||||
(eval $ac_try) 2>&5
|
(eval $ac_try) 2>&5
|
||||||
ac_status=$?
|
ac_status=$?
|
||||||
|
@ -2256,8 +2254,7 @@ if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
|
||||||
cat conftest.err >&5
|
cat conftest.err >&5
|
||||||
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
||||||
(exit $ac_status); } &&
|
(exit $ac_status); } &&
|
||||||
{ ac_try='test -z "$ac_c_werror_flag"
|
{ ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err'
|
||||||
|| test ! -s conftest.err'
|
|
||||||
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
||||||
(eval $ac_try) 2>&5
|
(eval $ac_try) 2>&5
|
||||||
ac_status=$?
|
ac_status=$?
|
||||||
|
@ -2311,8 +2308,7 @@ if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
|
||||||
cat conftest.err >&5
|
cat conftest.err >&5
|
||||||
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
||||||
(exit $ac_status); } &&
|
(exit $ac_status); } &&
|
||||||
{ ac_try='test -z "$ac_c_werror_flag"
|
{ ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err'
|
||||||
|| test ! -s conftest.err'
|
|
||||||
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
||||||
(eval $ac_try) 2>&5
|
(eval $ac_try) 2>&5
|
||||||
ac_status=$?
|
ac_status=$?
|
||||||
|
@ -2357,8 +2353,7 @@ if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
|
||||||
cat conftest.err >&5
|
cat conftest.err >&5
|
||||||
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
||||||
(exit $ac_status); } &&
|
(exit $ac_status); } &&
|
||||||
{ ac_try='test -z "$ac_c_werror_flag"
|
{ ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err'
|
||||||
|| test ! -s conftest.err'
|
|
||||||
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
||||||
(eval $ac_try) 2>&5
|
(eval $ac_try) 2>&5
|
||||||
ac_status=$?
|
ac_status=$?
|
||||||
|
@ -2402,8 +2397,7 @@ if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
|
||||||
cat conftest.err >&5
|
cat conftest.err >&5
|
||||||
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
||||||
(exit $ac_status); } &&
|
(exit $ac_status); } &&
|
||||||
{ ac_try='test -z "$ac_c_werror_flag"
|
{ ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err'
|
||||||
|| test ! -s conftest.err'
|
|
||||||
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
||||||
(eval $ac_try) 2>&5
|
(eval $ac_try) 2>&5
|
||||||
ac_status=$?
|
ac_status=$?
|
||||||
|
@ -2726,8 +2720,7 @@ if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
|
||||||
cat conftest.err >&5
|
cat conftest.err >&5
|
||||||
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
||||||
(exit $ac_status); } &&
|
(exit $ac_status); } &&
|
||||||
{ ac_try='test -z "$ac_c_werror_flag"
|
{ ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err'
|
||||||
|| test ! -s conftest.err'
|
|
||||||
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
||||||
(eval $ac_try) 2>&5
|
(eval $ac_try) 2>&5
|
||||||
ac_status=$?
|
ac_status=$?
|
||||||
|
@ -2897,8 +2890,7 @@ if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
|
||||||
cat conftest.err >&5
|
cat conftest.err >&5
|
||||||
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
||||||
(exit $ac_status); } &&
|
(exit $ac_status); } &&
|
||||||
{ ac_try='test -z "$ac_c_werror_flag"
|
{ ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err'
|
||||||
|| test ! -s conftest.err'
|
|
||||||
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
||||||
(eval $ac_try) 2>&5
|
(eval $ac_try) 2>&5
|
||||||
ac_status=$?
|
ac_status=$?
|
||||||
|
@ -2965,8 +2957,7 @@ if { (eval echo "$as_me:$LINENO: \"$ac_compile\"") >&5
|
||||||
cat conftest.err >&5
|
cat conftest.err >&5
|
||||||
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
echo "$as_me:$LINENO: \$? = $ac_status" >&5
|
||||||
(exit $ac_status); } &&
|
(exit $ac_status); } &&
|
||||||
{ ac_try='test -z "$ac_c_werror_flag"
|
{ ac_try='test -z "$ac_c_werror_flag" || test ! -s conftest.err'
|
||||||
|| test ! -s conftest.err'
|
|
||||||
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
{ (eval echo "$as_me:$LINENO: \"$ac_try\"") >&5
|
||||||
(eval $ac_try) 2>&5
|
(eval $ac_try) 2>&5
|
||||||
ac_status=$?
|
ac_status=$?
|
||||||
|
@ -3084,7 +3075,7 @@ done
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
ac_config_files="$ac_config_files Makefile gdb.ada/Makefile gdb.arch/Makefile gdb.asm/Makefile gdb.base/Makefile gdb.cp/Makefile gdb.disasm/Makefile gdb.dwarf2/Makefile gdb.fortran/Makefile gdb.java/Makefile gdb.mi/Makefile gdb.objc/Makefile gdb.threads/Makefile gdb.trace/Makefile"
|
ac_config_files="$ac_config_files Makefile gdb.ada/Makefile gdb.arch/Makefile gdb.asm/Makefile gdb.base/Makefile gdb.cp/Makefile gdb.disasm/Makefile gdb.dwarf2/Makefile gdb.fortran/Makefile gdb.gdbserver/Makefile gdb.java/Makefile gdb.mi/Makefile gdb.objc/Makefile gdb.threads/Makefile gdb.trace/Makefile"
|
||||||
cat >confcache <<\_ACEOF
|
cat >confcache <<\_ACEOF
|
||||||
# This file is a shell script that caches the results of configure
|
# This file is a shell script that caches the results of configure
|
||||||
# tests run on this system so they can be shared between configure
|
# tests run on this system so they can be shared between configure
|
||||||
|
@ -3644,6 +3635,7 @@ do
|
||||||
"gdb.disasm/Makefile" ) CONFIG_FILES="$CONFIG_FILES gdb.disasm/Makefile" ;;
|
"gdb.disasm/Makefile" ) CONFIG_FILES="$CONFIG_FILES gdb.disasm/Makefile" ;;
|
||||||
"gdb.dwarf2/Makefile" ) CONFIG_FILES="$CONFIG_FILES gdb.dwarf2/Makefile" ;;
|
"gdb.dwarf2/Makefile" ) CONFIG_FILES="$CONFIG_FILES gdb.dwarf2/Makefile" ;;
|
||||||
"gdb.fortran/Makefile" ) CONFIG_FILES="$CONFIG_FILES gdb.fortran/Makefile" ;;
|
"gdb.fortran/Makefile" ) CONFIG_FILES="$CONFIG_FILES gdb.fortran/Makefile" ;;
|
||||||
|
"gdb.gdbserver/Makefile" ) CONFIG_FILES="$CONFIG_FILES gdb.gdbserver/Makefile" ;;
|
||||||
"gdb.java/Makefile" ) CONFIG_FILES="$CONFIG_FILES gdb.java/Makefile" ;;
|
"gdb.java/Makefile" ) CONFIG_FILES="$CONFIG_FILES gdb.java/Makefile" ;;
|
||||||
"gdb.mi/Makefile" ) CONFIG_FILES="$CONFIG_FILES gdb.mi/Makefile" ;;
|
"gdb.mi/Makefile" ) CONFIG_FILES="$CONFIG_FILES gdb.mi/Makefile" ;;
|
||||||
"gdb.objc/Makefile" ) CONFIG_FILES="$CONFIG_FILES gdb.objc/Makefile" ;;
|
"gdb.objc/Makefile" ) CONFIG_FILES="$CONFIG_FILES gdb.objc/Makefile" ;;
|
||||||
|
@ -3919,11 +3911,6 @@ esac
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
if test x"$ac_file" != x-; then
|
|
||||||
{ echo "$as_me:$LINENO: creating $ac_file" >&5
|
|
||||||
echo "$as_me: creating $ac_file" >&6;}
|
|
||||||
rm -f "$ac_file"
|
|
||||||
fi
|
|
||||||
# Let's still pretend it is `configure' which instantiates (i.e., don't
|
# Let's still pretend it is `configure' which instantiates (i.e., don't
|
||||||
# use $as_me), people would be surprised to read:
|
# use $as_me), people would be surprised to read:
|
||||||
# /* config.h. Generated by config.status. */
|
# /* config.h. Generated by config.status. */
|
||||||
|
@ -3962,6 +3949,12 @@ echo "$as_me: error: cannot find input file: $f" >&2;}
|
||||||
fi;;
|
fi;;
|
||||||
esac
|
esac
|
||||||
done` || { (exit 1); exit 1; }
|
done` || { (exit 1); exit 1; }
|
||||||
|
|
||||||
|
if test x"$ac_file" != x-; then
|
||||||
|
{ echo "$as_me:$LINENO: creating $ac_file" >&5
|
||||||
|
echo "$as_me: creating $ac_file" >&6;}
|
||||||
|
rm -f "$ac_file"
|
||||||
|
fi
|
||||||
_ACEOF
|
_ACEOF
|
||||||
cat >>$CONFIG_STATUS <<_ACEOF
|
cat >>$CONFIG_STATUS <<_ACEOF
|
||||||
sed "$ac_vpsub
|
sed "$ac_vpsub
|
||||||
|
@ -4193,7 +4186,7 @@ echo "$as_me: error: $ac_sub_configure failed for $ac_dir" >&2;}
|
||||||
{ (exit 1); exit 1; }; }
|
{ (exit 1); exit 1; }; }
|
||||||
fi
|
fi
|
||||||
|
|
||||||
cd $ac_popdir
|
cd "$ac_popdir"
|
||||||
done
|
done
|
||||||
fi
|
fi
|
||||||
|
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
# -*- Autoconf -*-
|
# -*- Autoconf -*-
|
||||||
# Process this file with autoconf to produce a configure script.
|
# Process this file with autoconf to produce a configure script.
|
||||||
|
|
||||||
# Copyright 2002, 2003, 2004
|
# Copyright 2002, 2003, 2004, 2005
|
||||||
# Free Software Foundation, Inc.
|
# Free Software Foundation, Inc.
|
||||||
#
|
#
|
||||||
# This program is free software; you can redistribute it and/or modify
|
# This program is free software; you can redistribute it and/or modify
|
||||||
|
@ -112,5 +112,6 @@ AC_OUTPUT([Makefile \
|
||||||
gdb.ada/Makefile \
|
gdb.ada/Makefile \
|
||||||
gdb.arch/Makefile gdb.asm/Makefile gdb.base/Makefile \
|
gdb.arch/Makefile gdb.asm/Makefile gdb.base/Makefile \
|
||||||
gdb.cp/Makefile gdb.disasm/Makefile gdb.dwarf2/Makefile \
|
gdb.cp/Makefile gdb.disasm/Makefile gdb.dwarf2/Makefile \
|
||||||
gdb.fortran/Makefile gdb.java/Makefile gdb.mi/Makefile \
|
gdb.fortran/Makefile gdb.gdbserver/Makefile \
|
||||||
|
gdb.java/Makefile gdb.mi/Makefile \
|
||||||
gdb.objc/Makefile gdb.threads/Makefile gdb.trace/Makefile])
|
gdb.objc/Makefile gdb.threads/Makefile gdb.trace/Makefile])
|
||||||
|
|
|
@ -0,0 +1,24 @@
|
||||||
|
VPATH = @srcdir@
|
||||||
|
srcdir = @srcdir@
|
||||||
|
|
||||||
|
EXECUTABLES =
|
||||||
|
|
||||||
|
MISCELLANEOUS =
|
||||||
|
|
||||||
|
all info install-info dvi install uninstall installcheck check:
|
||||||
|
@echo "Nothing to be done for $@..."
|
||||||
|
|
||||||
|
clean mostlyclean:
|
||||||
|
-find . -name '*.o' -print | xargs rm -f
|
||||||
|
-find . -name '*.ali' -print | xargs rm -f
|
||||||
|
-find . -name 'b~*.ad[sb]' -print | xargs rm -f
|
||||||
|
-rm -f *~ a.out xgdb *.x *.ci *.tmp
|
||||||
|
-rm -f *~ *.o a.out xgdb *.x *.ci *.tmp
|
||||||
|
-rm -f core core.coremaker coremaker.core corefile $(EXECUTABLES)
|
||||||
|
-rm -f $(MISCELLANEOUS) twice-tmp.c
|
||||||
|
|
||||||
|
distclean maintainer-clean realclean: clean
|
||||||
|
-rm -f *~ core
|
||||||
|
-rm -f Makefile config.status config.log
|
||||||
|
-rm -f *-init.exp
|
||||||
|
-rm -fr *.log summary detail *.plog *.sum *.psum site.*
|
|
@ -0,0 +1,42 @@
|
||||||
|
# This testcase is part of GDB, the GNU debugger.
|
||||||
|
|
||||||
|
# Copyright 2005 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||||
|
|
||||||
|
# Test the basic functionality of gdbserver.
|
||||||
|
|
||||||
|
load_lib gdbserver-support.exp
|
||||||
|
|
||||||
|
set testfile "server"
|
||||||
|
set srcfile ${testfile}.c
|
||||||
|
set binfile ${objdir}/${subdir}/${testfile}
|
||||||
|
|
||||||
|
if { [skip_gdbserver_tests] } {
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
|
||||||
|
if { [gdb_compile "${srcdir}/${subdir}/${srcfile}" "${binfile}" executable {debug}] != "" } {
|
||||||
|
return -1
|
||||||
|
}
|
||||||
|
|
||||||
|
gdb_exit
|
||||||
|
gdb_start
|
||||||
|
|
||||||
|
gdbserver_load $binfile ""
|
||||||
|
gdb_reinitialize_dir $srcdir/$subdir
|
||||||
|
|
||||||
|
gdb_breakpoint main
|
||||||
|
gdb_test "continue" "Breakpoint.* main .*" "continue to main"
|
|
@ -0,0 +1,24 @@
|
||||||
|
/* This testcase is part of GDB, the GNU debugger.
|
||||||
|
|
||||||
|
Copyright 2005 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
|
||||||
|
USA. */
|
||||||
|
|
||||||
|
int
|
||||||
|
main (int argc, char **argv)
|
||||||
|
{
|
||||||
|
return 0;
|
||||||
|
}
|
|
@ -0,0 +1,250 @@
|
||||||
|
# Copyright 2000, 2002, 2003, 2004, 2005 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., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||||
|
|
||||||
|
# This file is based on config/gdbserver.exp, which was written by
|
||||||
|
# Michael Snyder (msnyder@redhat.com).
|
||||||
|
|
||||||
|
#
|
||||||
|
# To be addressed or set in your baseboard config file:
|
||||||
|
#
|
||||||
|
# set_board_info gdb_protocol "remote"
|
||||||
|
# Unles you have a gdbserver that uses a different protocol...
|
||||||
|
#
|
||||||
|
# set_board_info gdb_server_prog
|
||||||
|
# This will be the path to the gdbserver program you want to test.
|
||||||
|
# Defaults to "gdbserver".
|
||||||
|
#
|
||||||
|
# set_board_info sockethost
|
||||||
|
# The name of the host computer whose socket is being used.
|
||||||
|
# Defaults to "localhost". Note: old gdbserver requires
|
||||||
|
# that you define this, but libremote/gdbserver does not.
|
||||||
|
#
|
||||||
|
# set_board_info gdb,socketport
|
||||||
|
# Port id to use for socket connection. If not set explicitly,
|
||||||
|
# it will start at "2345" and increment for each use.
|
||||||
|
#
|
||||||
|
|
||||||
|
#
|
||||||
|
# gdb_target_cmd
|
||||||
|
# Send gdb the "target" command
|
||||||
|
#
|
||||||
|
proc gdb_target_cmd { targetname serialport } {
|
||||||
|
global gdb_prompt
|
||||||
|
|
||||||
|
for {set i 1} {$i <= 3} {incr i} {
|
||||||
|
send_gdb "target $targetname $serialport\n"
|
||||||
|
gdb_expect 60 {
|
||||||
|
-re "A program is being debugged already.*ill it.*y or n. $" {
|
||||||
|
send_gdb "y\n"
|
||||||
|
exp_continue
|
||||||
|
}
|
||||||
|
-re "Couldn't establish connection to remote.*$gdb_prompt" {
|
||||||
|
verbose "Connection failed"
|
||||||
|
}
|
||||||
|
-re "Remote MIPS debugging.*$gdb_prompt" {
|
||||||
|
verbose "Set target to $targetname"
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
-re "Remote debugging using .*$serialport.*$gdb_prompt" {
|
||||||
|
verbose "Set target to $targetname"
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
-re "Remote target $targetname connected to.*$gdb_prompt" {
|
||||||
|
verbose "Set target to $targetname"
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
-re "Connected to.*$gdb_prompt" {
|
||||||
|
verbose "Set target to $targetname"
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
-re "Ending remote.*$gdb_prompt" { }
|
||||||
|
-re "Connection refused.*$gdb_prompt" {
|
||||||
|
verbose "Connection refused by remote target. Pausing, and trying again."
|
||||||
|
sleep 30
|
||||||
|
continue
|
||||||
|
}
|
||||||
|
-re "Timeout reading from remote system.*$gdb_prompt" {
|
||||||
|
verbose "Got timeout error from gdb."
|
||||||
|
}
|
||||||
|
timeout {
|
||||||
|
send_gdb ""
|
||||||
|
break
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return 1
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
global portnum
|
||||||
|
set portnum "2345"
|
||||||
|
|
||||||
|
# Locate the gdbserver binary. Returns "" if gdbserver could not be found.
|
||||||
|
|
||||||
|
proc find_gdbserver { } {
|
||||||
|
global GDB
|
||||||
|
|
||||||
|
if [target_info exists gdb_server_prog] {
|
||||||
|
return [target_info gdb_server_prog]
|
||||||
|
}
|
||||||
|
|
||||||
|
set gdbserver "${GDB}server"
|
||||||
|
if { [file isdirectory $gdbserver] } {
|
||||||
|
append gdbserver "/gdbserver"
|
||||||
|
}
|
||||||
|
|
||||||
|
if { [file executable $gdbserver] } {
|
||||||
|
return $gdbserver
|
||||||
|
}
|
||||||
|
|
||||||
|
return ""
|
||||||
|
}
|
||||||
|
|
||||||
|
# Return non-zero if we should skip gdbserver-specific tests.
|
||||||
|
|
||||||
|
proc skip_gdbserver_tests { } {
|
||||||
|
if { [find_gdbserver] == "" } {
|
||||||
|
return 1
|
||||||
|
}
|
||||||
|
|
||||||
|
return 0
|
||||||
|
}
|
||||||
|
|
||||||
|
# Start a gdbserver process running SERVER_EXEC, and connect GDB
|
||||||
|
# to it. CHILD_ARGS are passed to the inferior.
|
||||||
|
#
|
||||||
|
# Returns the target protocol and socket to connect to.
|
||||||
|
|
||||||
|
proc gdbserver_spawn { server_exec child_args } {
|
||||||
|
global portnum
|
||||||
|
|
||||||
|
# Port id -- either specified in baseboard file, or managed here.
|
||||||
|
if [target_info exists gdb,socketport] {
|
||||||
|
set portnum [target_info gdb,socketport]
|
||||||
|
} else {
|
||||||
|
# Bump the port number to avoid conflicts with hung ports.
|
||||||
|
incr portnum
|
||||||
|
}
|
||||||
|
|
||||||
|
# Extract the local and remote host ids from the target board struct.
|
||||||
|
if [target_info exists sockethost] {
|
||||||
|
set debughost [target_info sockethost]
|
||||||
|
} else {
|
||||||
|
set debughost "localhost:"
|
||||||
|
}
|
||||||
|
|
||||||
|
# Extract the protocol
|
||||||
|
if [target_info exists gdb_protocol] {
|
||||||
|
set protocol [target_info gdb_protocol]
|
||||||
|
} else {
|
||||||
|
set protocol "remote"
|
||||||
|
}
|
||||||
|
|
||||||
|
set gdbserver [find_gdbserver]
|
||||||
|
|
||||||
|
# Export the host:port pair.
|
||||||
|
set gdbport $debughost$portnum
|
||||||
|
|
||||||
|
# Fire off the debug agent. This flavour of gdbserver takes as
|
||||||
|
# arguments the port information, the name of the executable file to
|
||||||
|
# be debugged, and any arguments.
|
||||||
|
set gdbserver_command "$gdbserver :$portnum $server_exec"
|
||||||
|
if { $child_args != "" } {
|
||||||
|
append gdbserver_command " $child_args"
|
||||||
|
}
|
||||||
|
|
||||||
|
set server_spawn_id [remote_spawn target $gdbserver_command]
|
||||||
|
|
||||||
|
# Wait for the server to produce at least one line and an additional
|
||||||
|
# character of output. This will wait until any TCP socket has been
|
||||||
|
# created, so that GDB can connect.
|
||||||
|
expect {
|
||||||
|
-i $server_spawn_id
|
||||||
|
-notransfer
|
||||||
|
-re ".*\n." { }
|
||||||
|
}
|
||||||
|
|
||||||
|
# We can't just call close, because if gdbserver is local then that means
|
||||||
|
# that it will get a SIGHUP. Doing it this way could also allow us to
|
||||||
|
# get at the inferior's input or output if necessary, and means that we
|
||||||
|
# don't need to redirect output.
|
||||||
|
expect_background {
|
||||||
|
-i $server_spawn_id
|
||||||
|
-re "." { }
|
||||||
|
eof {
|
||||||
|
# The spawn ID is already closed now (but not yet waited for).
|
||||||
|
wait -i $expect_out(spawn_id)
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
return [list $protocol $gdbport]
|
||||||
|
}
|
||||||
|
|
||||||
|
proc infer_host_exec { } {
|
||||||
|
set host_exec ""
|
||||||
|
|
||||||
|
send_gdb "info files\n"
|
||||||
|
gdb_expect 30 {
|
||||||
|
-re "Symbols from \"(\[^\"\]+)\"" {
|
||||||
|
set host_exec $expect_out(1,string)
|
||||||
|
exp_continue
|
||||||
|
}
|
||||||
|
-re "Local exec file:\[\r\n\]+\[ \t\]*`(\[^'\]+)'," {
|
||||||
|
set host_exec $expect_out(1,string)
|
||||||
|
exp_continue
|
||||||
|
}
|
||||||
|
-re "$gdb_prompt $" { }
|
||||||
|
}
|
||||||
|
|
||||||
|
return $host_exec
|
||||||
|
}
|
||||||
|
|
||||||
|
# Start a gdbserver process running HOST_EXEC and pass CHILD_ARGS
|
||||||
|
# to it. Return 0 on success, or non-zero on failure.
|
||||||
|
|
||||||
|
proc gdbserver_load { host_exec child_args } {
|
||||||
|
global gdbserver_host_exec
|
||||||
|
global gdbserver_server_exec
|
||||||
|
|
||||||
|
# If we weren't passed an explicit binary, try to reuse the current
|
||||||
|
# one. If we were, be sure to redownload it.
|
||||||
|
|
||||||
|
if { $host_exec == "" && $gdbserver_host_exec == "" } {
|
||||||
|
set gdbserver_host_exec [infer_host_exec]
|
||||||
|
} elseif { $host_exec != "" } {
|
||||||
|
set gdbserver_host_exec $host_exec
|
||||||
|
if [info exists gdbserver_server_exec] { unset gdbserver_server_exec }
|
||||||
|
}
|
||||||
|
|
||||||
|
if { ! [info exists gdbserver_server_exec] } {
|
||||||
|
if [is_remote target] {
|
||||||
|
set gdbserver_server_exec [remote_download target $host_exec /tmp/[file tail $gdbserver_host_exec].[pid]]
|
||||||
|
} else {
|
||||||
|
set gdbserver_server_exec $gdbserver_host_exec
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
set res [gdbserver_spawn $gdbserver_server_exec $child_args]
|
||||||
|
set protocol [lindex $res 0]
|
||||||
|
set gdbport [lindex $res 1]
|
||||||
|
|
||||||
|
if { $host_exec != "" } {
|
||||||
|
if [gdb_file_cmd $host_exec] {
|
||||||
|
return -1
|
||||||
|
}
|
||||||
|
}
|
||||||
|
gdb_target_cmd $protocol $gdbport
|
||||||
|
}
|
Loading…
Reference in New Issue