381 lines
12 KiB
Plaintext
381 lines
12 KiB
Plaintext
# Copyright (C) 1992, 1997 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.
|
|
|
|
# Please email any bugs, comments, and/or additions to this file to:
|
|
# bug-gdb@prep.ai.mit.edu
|
|
|
|
# This file was written by Fred Fish. (fnf@cygnus.com)
|
|
# Rob Savoye changed it to use gdb_test (rob@cygnus.com)
|
|
|
|
if $tracelevel then {
|
|
strace $tracelevel
|
|
}
|
|
|
|
set prms_id 0
|
|
set bug_id 0
|
|
|
|
# FIXME: The configure.in for this test should look for --with-targets
|
|
# and deal accordingly. Until that has been done, skip the whole thing.
|
|
# With a minimal bfd (the default), few if any of these tests work.
|
|
|
|
verbose "FIXME: all the crossload tests ignored"
|
|
return
|
|
|
|
foreach i "m68k-elf m68k-aout m68k-aout2 mips-ecoff i486-elf sparc-aout i860-elf sparc-elf" {
|
|
remote_exec build "cd ${objdir}/${subdir} ; uudecode ${srcdir}/${subdir}/$i.u "
|
|
}
|
|
|
|
# FIXME: These tests don't work for the i960, because
|
|
# bfd/config/i960-bout.mt sets SELECT_VECS. I could use setup_xfail
|
|
# for each test, but rebooting the board between each one takes a long
|
|
# time so I'm just punting the whole file.
|
|
if [istarget "i960-*-*"] then {
|
|
if $verbose>1 then {
|
|
warning "FIXME: crossload test case doesn't run on the i960."
|
|
}
|
|
continue
|
|
}
|
|
|
|
# FIXME: These tests don't work for the a29k, because SELECT_VECS is
|
|
# used when compiling bfd. It would be nice if there were some better
|
|
# way of detecting this case.
|
|
if [istarget "a29k-*-*"] then {
|
|
if $verbose>1 then {
|
|
warning "FIXME: crossload test case doesn't run on the a29k."
|
|
}
|
|
continue
|
|
}
|
|
|
|
# Test if gdb can automatically determine the bfd format of an
|
|
# executable and read it's symbols.
|
|
|
|
proc bfddefault {} {
|
|
global GDB
|
|
global GDBFLAGS
|
|
global gdb_prompt
|
|
global objdir
|
|
global subdir
|
|
global binfile
|
|
global bfdformat
|
|
global file_loaded
|
|
|
|
gdb_unload
|
|
set file_loaded 0
|
|
send_gdb "file $objdir/$subdir/$binfile\n"
|
|
gdb_expect {
|
|
-re "A program is being debugged already. Kill it.*y or n." {
|
|
send_gdb "y\n"
|
|
exp_continue
|
|
}
|
|
-re "Reading symbols from $objdir/$subdir/$binfile\[.\]+done\..*$gdb_prompt $" {
|
|
pass "$binfile ($bfdformat) auto format"
|
|
}
|
|
-re "Reading symbols from $objdir/$subdir/$binfile\[.\]+.no debugging symbols found.\[.\]+done\..*$gdb_prompt $" {
|
|
pass "$binfile ($bfdformat) auto format (but no symbols found)"
|
|
}
|
|
-re "File format not recognized.*$gdb_prompt $" {
|
|
fail "$binfile ($bfdformat) auto format (format not recognized)"
|
|
return
|
|
}
|
|
-re "File format is ambiguous.*$gdb_prompt $" {
|
|
fail "$binfile ($bfdformat) auto format (format is ambiguous)"
|
|
return
|
|
}
|
|
-re "$gdb_prompt $" {
|
|
fail "$binfile ($bfdformat) auto format"
|
|
return
|
|
}
|
|
timeout {
|
|
fail "(timeout) $binfile ($bfdformat) auto format"
|
|
return
|
|
}
|
|
}
|
|
|
|
if [gdb_test "info target" ".*file type $bfdformat" ""]==0 then {
|
|
set file_loaded 1
|
|
} else {
|
|
fail "$binfile ($bfdformat) wrong format found"
|
|
}
|
|
}
|
|
|
|
# Test if gdb can read symbols from an executable when the bfd format
|
|
# is explicitly set via the environment variable GNUTARGET.
|
|
|
|
proc bfdexplicit {} {
|
|
global GDB
|
|
global GDBFLAGS
|
|
global gdb_prompt
|
|
global subdir
|
|
global objdir
|
|
global det_file
|
|
global binfile
|
|
global bfdformat
|
|
global file_loaded
|
|
|
|
gdb_unload
|
|
set file_loaded 0
|
|
|
|
# Once GDB 4.10 (the last to lack `set gnutarget') is forgotten,
|
|
# change this to use set gnutarget.
|
|
if [gdb_test "set env GNUTARGET=$bfdformat" "" ""]!=0 then {
|
|
fail "setting GNUTARGET=$bfdformat in environment"
|
|
return
|
|
}
|
|
|
|
send_gdb "file $objdir/$subdir/$binfile\n"
|
|
gdb_expect {
|
|
-re "A program is being debugged already. Kill it.*y or n." {
|
|
send_gdb "y\n"
|
|
exp_continue
|
|
}
|
|
-re "Reading symbols from $objdir/$subdir/$binfile\[.\]+done\..*$gdb_prompt $" {
|
|
pass "$binfile ($bfdformat) explicit format"
|
|
}
|
|
-re "Invalid target.*$gdb_prompt $" {
|
|
fail "$binfile ($bfdformat) explicit format (invalid target)"
|
|
return
|
|
}
|
|
-re "$gdb_prompt $" {
|
|
fail "$binfile ($bfdformat) explicit format"
|
|
return
|
|
}
|
|
timeout {
|
|
fail "(timeout) $binfile ($bfdformat) explicit format"
|
|
return
|
|
}
|
|
}
|
|
|
|
set file_loaded 1
|
|
}
|
|
|
|
proc test_ptype_functions {} {
|
|
global gdb_prompt
|
|
global binfile
|
|
global bfdformat
|
|
global det_file
|
|
send_gdb "ptype main\n"
|
|
gdb_expect {
|
|
-re "type = int \[)(\]+\r\n$gdb_prompt $" {}
|
|
timeout { fail "(timeout) $binfile ($bfdformat) function main" ; return }
|
|
}
|
|
|
|
# set up a list of lists of command and patterns
|
|
set command [list { "ptype v_char_func" "type =(\ unsigned\ |\ signed\ |\ )char \[)(\]+" }\
|
|
{ "ptype v_short_func" "type = (short|short int) \[)(\]+" } \
|
|
{ "ptype v_int_func" "type = int \[)(\]+" } \
|
|
{ "ptype v_long_func" "type = (long|long int|int) \[)(\]+" } \
|
|
{ "ptype v_float_func" "type = float \[)(\]+" } \
|
|
{ "ptype v_double_func" "type = double \[)(\]+" } ]
|
|
|
|
foreach i $command {
|
|
if [gdb_test [lindex $i 0] [lindex $i 1] ""] then {
|
|
fail "$binfile ($bfdformat) \"[lindex $i 0]\" function types"
|
|
return
|
|
}
|
|
}
|
|
pass "$binfile ($bfdformat) ptype function types"
|
|
}
|
|
|
|
# Note that plain chars can be either signed or unsigned.
|
|
|
|
proc test_ptype_plain_types {} {
|
|
global gdb_prompt
|
|
global binfile
|
|
global bfdformat
|
|
|
|
# set up a list of lists of command and patterns
|
|
set command [list { "ptype v_char" "type =(\ unsigned\ |\ signed\ |\ )char" }\
|
|
{ "ptype v_short" "type = short" } \
|
|
{ "ptype v_int" "type = int" } \
|
|
{ "ptype v_long" "type = long" } \
|
|
{ "ptype v_float" "type = float" } \
|
|
{ "ptype v_double" "type = double" } ]
|
|
|
|
foreach i $command {
|
|
if [gdb_test [lindex $i 0] [lindex $i 1] ""] then {
|
|
fail "$binfile ($bfdformat) \"[lindex $i 0]\" plain C types"
|
|
return
|
|
}
|
|
}
|
|
pass "$binfile ($bfdformat) ptype plain C types"
|
|
}
|
|
|
|
# Note that if compiled with pre-ANSI compilers, the "signed" keywords are
|
|
# defined away and the variables default to plain types. So accept either.
|
|
|
|
proc test_ptype_signed_types {} {
|
|
global gdb_prompt
|
|
global binfile
|
|
global bfdformat
|
|
global det_file
|
|
|
|
# set up a list of lists of command and patterns
|
|
set command [list { "ptype v_signed_char" "type =(\ signed\ |\ )char" }\
|
|
{ "ptype v_signed_short" "type =(\ signed\ |\ )short" } \
|
|
{ "ptype v_signed_int" "type =(\ signed\ |\ )int" } \
|
|
{ "ptype v_signed_long" "type =(\ signed\ |\ )long" } ]
|
|
|
|
foreach i $command {
|
|
if [gdb_test [lindex $i 0] [lindex $i 1] ""] then {
|
|
if [expr [string match "ecoff-bigmips" $bfdformat]+[string match "ptype v_signed_char" [lindex $i 0]]]==2 then {
|
|
setup_xfail "*-*-*"
|
|
}
|
|
fail "$binfile ($bfdformat) \"[lindex $i 0]\" signed C types"
|
|
return
|
|
}
|
|
}
|
|
pass "$binfile ($bfdformat) ptype signed C types"
|
|
}
|
|
|
|
proc test_ptype_unsigned_types {} {
|
|
global gdb_prompt
|
|
global binfile
|
|
global bfdformat
|
|
global det_file
|
|
|
|
# set up a list of lists of command and patterns
|
|
set command [list { "ptype v_unsigned_char" "type = unsigned char" }\
|
|
{ "ptype v_unsigned_short" \
|
|
"type = (unsigned short|short unsigned int)" } \
|
|
{ "ptype v_unsigned_int" "type = unsigned int" } \
|
|
{ "ptype v_unsigned_long" \
|
|
"type = (unsigned long|long unsigned int)" } ]
|
|
|
|
foreach i $command {
|
|
if [gdb_test [lindex $i 0] [lindex $i 1] ""] then {
|
|
fail "$binfile ($bfdformat) \"[lindex $i 0]\" unsigned C types"
|
|
return
|
|
}
|
|
}
|
|
pass "$binfile ($bfdformat) ptype unsigned C types"
|
|
}
|
|
|
|
# Note that plain chars can be either signed or unsigned.
|
|
|
|
proc test_ptype_array_types {} {
|
|
global gdb_prompt
|
|
global binfile
|
|
global bfdformat
|
|
global det_file
|
|
|
|
# set up a list of lists of command and patterns
|
|
set command [list { "ptype v_char_array" "type =(\ unsigned\ |\ signed\ |\ )char \\\[2\\\]" }\
|
|
{ "ptype v_short_array" \
|
|
"type = (short|short int) \\\[2\\\]" } \
|
|
{ "ptype v_int_array" "type = int \\\[2\\\]" } \
|
|
{ "ptype v_long_array" "type = (long|long int) \\\[2\\\]" } \
|
|
{ "ptype v_float_array" "type = float \\\[2\\\]" } \
|
|
{ "ptype v_double_array" "type = double \\\[2\\\]" } ]
|
|
|
|
foreach i $command {
|
|
if [gdb_test [lindex $i 0] [lindex $i 1] ""] then {
|
|
fail "$binfile ($bfdformat) \"[lindex $i 0]\" C array types"
|
|
return
|
|
}
|
|
}
|
|
pass "$binfile ($bfdformat) ptype C array types"
|
|
}
|
|
|
|
proc test_ptype_pointer_types {} {
|
|
global gdb_prompt
|
|
global binfile
|
|
global bfdformat
|
|
global det_file
|
|
|
|
# set up a list of lists of command and patterns
|
|
set command [list { "ptype v_char_pointer" "type =(\ unsigned\ |\ signed\ |\ )char \*" }\
|
|
{ "ptype v_short_pointer" "type = (short|short int) \*" } \
|
|
{ "ptype v_int_pointer" "type = int \*" } \
|
|
{ "ptype v_long_pointer" "type = (long|long int) \*" } \
|
|
{ "ptype v_float_pointer" "type = float \*" } \
|
|
{ "ptype v_double_pointer" "type = double \*" } ]
|
|
|
|
foreach i $command {
|
|
if [gdb_test [lindex $i 0] [lindex $i 1] ""] then {
|
|
fail "$binfile ($bfdformat) \"[lindex $i 0]\" C pointer types"
|
|
return
|
|
}
|
|
}
|
|
pass "$binfile ($bfdformat) ptype C pointer types"
|
|
}
|
|
|
|
proc loadandtest { args } {
|
|
global verbose
|
|
global GDB
|
|
global GDBFLAGS
|
|
global gdb_prompt
|
|
global subdir
|
|
global objdir
|
|
global binfile
|
|
global bfdformat
|
|
global file_loaded
|
|
|
|
set binfile [ lindex $args 0 ]
|
|
set bfdformat [ lindex $args 1 ]
|
|
set fixme [ lindex $args 2 ]
|
|
|
|
if ![file exists $objdir/$subdir/$binfile] then {
|
|
perror "$objdir/$subdir/$binfile does not exist"
|
|
return 0
|
|
}
|
|
gdb_exit
|
|
gdb_start
|
|
if $fixme then { setup_xfail "*-*-*" }
|
|
bfddefault
|
|
if $fixme then { setup_xfail "*-*-*" }
|
|
if [string match $bfdformat "elf-big"] then {
|
|
if [string match $binfile "i860-elf"] then {
|
|
setup_xfail "*-*-*"
|
|
}
|
|
}
|
|
bfdexplicit
|
|
if $file_loaded==1 then {
|
|
test_ptype_functions
|
|
if $fixme then { setup_xfail "*-*-*" }
|
|
test_ptype_plain_types
|
|
if $fixme then { setup_xfail "*-*-*" }
|
|
test_ptype_signed_types
|
|
if $fixme then { setup_xfail "*-*-*" }
|
|
test_ptype_unsigned_types
|
|
if $fixme then { setup_xfail "*-*-*" }
|
|
test_ptype_array_types
|
|
if $fixme then { setup_xfail "*-*-*" }
|
|
test_ptype_pointer_types
|
|
}
|
|
}
|
|
|
|
# Run tests for each of the test executables.
|
|
# If the third argument is 1, the tests will be expected to fail.
|
|
# We should extract the information about available tests and bfd formats
|
|
# from the makefile or some other control file (FIXME).
|
|
|
|
loadandtest m68k-elf "elf32-m68k" 0
|
|
|
|
# I'm getting an XPASS for explicit format on this one
|
|
loadandtest m68k-aout "a.out-newsos3" 1
|
|
|
|
loadandtest m68k-aout2 "a.out-sunos-big" 0
|
|
loadandtest mips-ecoff "ecoff-bigmips" 0
|
|
loadandtest i486-elf "elf32-i386" 0
|
|
loadandtest sparc-aout "a.out-sunos-big" 0
|
|
loadandtest sparc-elf "elf32-sparc" 0
|
|
|
|
#FIXME: i860 support is unlikely to be working in the near future
|
|
# so suppress this test until it is working. -fnf
|
|
#loadandtest i860-elf "elf32-i860" 0
|
|
|
|
gdb_test "set gnutarget auto" ""
|