Initial creation of sourceware repository

1 files changed, 0 insertions, 518 deletions

diff --git a/gdb/testsuite/gdb.base/list.exp b/gdb/testsuite/gdb.base/list.exp
deleted file mode 100644
index f38a1dd..0000000
--- a/gdb/testsuite/gdb.base/list.exp
+++ /dev/null
@@ -1,518 +0,0 @@
-# Copyright (C) 1992, 1994, 1995, 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)
-
-if $tracelevel then {
-	strace $tracelevel
-}
-
-set prms_id 0
-set bug_id 0
-
-set testfile "list"
-set binfile ${objdir}/${subdir}/${testfile}
-
-# Need to download the header to the host.
-remote_download host ${srcdir}/${subdir}/list0.h list0.h
-
-if { [gdb_compile "${srcdir}/${subdir}/list0.c ${srcdir}/${subdir}/list1.c" ${binfile} executable {debug}] != "" } {
-    perror "Couldn't compile list0.c list1.c to executable ${binfile}"
-    return -1
-}
-
-# Create and source the file that provides information about the compiler
-# used to compile the test case.
-if [get_compiler_info ${binfile}] {
-    return -1;
-}
-
-#
-# Local utility proc just to set and verify listsize
-# Return 1 if success, 0 if fail.
-#
-
-proc set_listsize { arg } {
-    global gdb_prompt
-
-    if [gdb_test "set listsize $arg" "" "setting listsize to $arg"] {
-	return 0;
-    }
-    if { $arg <= 0 } {
-	set arg "unlimited";
-    }
-
-    if [gdb_test "show listsize" "Number of source lines.* is ${arg}.*" "show listsize $arg"] {
-	return 0;
-    }
-    return 1
-}
-
-#
-# Test display of listsize lines around a given line number.
-#
-
-proc test_listsize {} {
-    global gdb_prompt
-
-    # Show default size
-
-    gdb_test "show listsize" "Number of source lines gdb will list by default is 10.*" "show default list size"
-    
-    # Show the default lines
-    # The second case is for optimized code, it is still correct.
-    
-    # This doesn't work for COFF targets.
-    setup_xfail "a29k-*-udi"
-    if ![isnative] {
-	if [target_info exists gdb,start_symbol] {
-	    set startsym [target_info gdb,start_symbol];
-	} else {
-	    set startsym "start";
-	}
-	gdb_test "set \$pc=$startsym" "" ""
-    }
-    gdb_test "list" "(1\[ \t\]+#include \"list0.h\".*10\[ \t\]+x = 0;|2.*11\[ \t\]+foo .x\[+)\]+;)" "list default lines around main"
-
-    # Ensure we can limit printouts to one line
-
-    if [ set_listsize 1 ] then {
-	setup_xfail "*-*-*"
-	gdb_test "list 1" "1\[ \t\]+#include \"list0.h\"" "list line 1 with listsize 1"
-	setup_xfail "*-*-*"
-	gdb_test "list 2" "2\[ \t\]+" "list line 2 with listsize 1"
-    }    
-
-    # Try just two lines
-    
-    if [ set_listsize 2 ] {
-	gdb_test "list 1" "1\[ \t\]+#include \"list0.h\"" "list line 1 with listsize 2"
-	gdb_test "list 2" "1\[ \t\]+#include \"list0.h\"\r\n2\[ \t\]+" "list line 2 with listsize 2"
-	gdb_test "list 3" "2\[ \t\]+\r\n3\[ \t\]+main \[)(\]+" "list line 3 with listsize 2"
-    }
-
-    # Try small listsize > 1 that is an odd number
-
-    if [ set_listsize 3 ] {
-	setup_xfail "*-*-*"
-	gdb_test "list 1" "1\[ \t\]+#include \"list0.h\"2\[ \t\]+" "list line 1 with listsize 3"
-	setup_xfail "*-*-*"
-	gdb_test "list 2" "1\[ \t\]+#include \"list0.h\".*3\[ \t\]+main \[)(\]+" "list line 2 with listsize 3"
-	
-	setup_xfail "*-*-*"
-	gdb_test "list 3" "2\[ \t\]+\r\n3\[ \t\]+main \[(\]+\[)\]+\r\n4\[ \t\]+\{" "list line 3 with listsize 3"
-    }
-
-    # Try small listsize > 2 that is an even number.
-
-    if [ set_listsize 4 ] then {
-	gdb_test "list 1" "1\[ \t\]+#include \"list0.h\"\r\n2\[ \t\]+" "list line 1 with listsize 4"
-	gdb_test "list 2" "1\[ \t\]+#include \"list0.h\".*3\[ \t\]+main \[)(\]+" "list line 2 with listsize 4"
-	
-	gdb_test "list 3" "1\[ \t\]+#include \"list0.h\".*4\[ \t\]+\{" "list line 3 with listsize 4"
-	gdb_test "list 4" "2\[ \t\]+\r\n.*5\[ \t\]+int x;.*" "list line 4 with listsize 4"
-    }
-
-    # Try a size larger than the entire file.
-
-    if [ set_listsize 100 ] then {
-	gdb_test "list 1" "1\[ \t\]+#include \"list0.h\".*\r\n42\[ \t\]+\}" "list line 1 with listsize 100"
-	
-	gdb_test "list 10" "1\[ \t\]+#include \"list0.h\".*\r\n42\[ \t\]+\}" "list line 10 with listsize 100"
-    }
-
-    # Try listsize of 0 which suppresses printing.
-
-    set_listsize 0
-    gdb_test "list 1" "" "listsize of 0 suppresses output"
-
-    # Try listsize of -1 which is special, and means unlimited.
-
-    set_listsize -1
-    setup_xfail "*-*-*"
-    gdb_test "list 1" "1\[ \t\]+#include .*\r\n39\[ \t\]+\}" "list line 1 with unlimited listsize"
-}
-
-#
-# Test "list filename:number" for C include file
-#
-
-proc test_list_include_file {} {
-    global gdb_prompt
-
-    setup_xfail "a29k-*-udi"
-    setup_xfail_format "DWARF 1"
-    setup_xfail_format "COFF"
-    gdb_test "list list0.h:1" "1\[ \t\]+/\[*\]+ An include file .*5\[ \t\]+foo \[(\]+x\[)\]+" "list line 1 in include file"
-
-    setup_xfail "a29k-*-udi"
-    setup_xfail_format "DWARF 1"
-    setup_xfail_format "COFF"
-    gdb_test "list list0.h:100" "Line number 95 out of range; .*list0.h has 36 lines." "list message for lines past EOF"
-}
-
-#
-# Test "list filename:number" for C source file
-#
-
-proc test_list_filename_and_number {} {
-    global gdb_prompt
-
-    set testcnt 0
-
-    send_gdb "list list0.c:1\n"
-    gdb_expect {
-	-re "1\[ \t\]+#include \"list0.h\".*5\[ \t\]+int x;\r\n$gdb_prompt $" {
-	    incr testcnt 
-	}
-	-re ".*$gdb_prompt $" { fail "list list0.c:1" ; gdb_suppress_tests }
-	timeout { fail "list list0.c:1 (timeout)" ; gdb_suppress_tests }
-    }
-    send_gdb "list list0.c:10\n"
-    gdb_expect {
-	-re "5\[ \t\]+int x;.*14\[ \t\]+foo .x\[+)\]+;\r\n$gdb_prompt $" {
-	    incr testcnt 
-	}
-	-re ".*$gdb_prompt $" { fail "list list.c:10" ; gdb_suppress_tests }
-	timeout { fail "list list.c:10 (timeout)" ; gdb_suppress_tests }
-    }
-    send_gdb "list list1.c:1\n"
-    gdb_expect {
-	-re "1\[ \t\]+void.*5\[ \t\]+printf \[(\]+.*\[)\]+;\r\n$gdb_prompt $" {
-	    incr testcnt 
-	}
-	-re ".*$gdb_prompt $" { fail "list list1.c:1" ; gdb_suppress_tests }
-	timeout { fail "list list1.c:1 (timeout)" ; gdb_suppress_tests }
-    }
-    send_gdb "list list1.c:12\n"
-    gdb_expect {
-	-re "7\[ \t\]+long_line \[(\]+.*\[)\]+;.*14\[ \t\]+\}\r\n.*$gdb_prompt $" {
-	    incr testcnt 
-	}
-	-re ".*$gdb_prompt $" { fail "list list1.c:12" ; gdb_suppress_tests }
-	timeout { fail "list list1.c:12 (timeout)" ; gdb_suppress_tests }
-    }
-    pass "list filename:number ($testcnt tests)"
-    gdb_stop_suppressing_tests;
-}
-
-#
-# Test "list function" for C source file
-#
-
-proc test_list_function {} {
-    global gdb_prompt
-    global gcc_compiled
-
-    # gcc appears to generate incorrect debugging information for code
-    # in include files, which breaks this test.
-    # SunPRO cc is the second case below, it's also correct.
-    setup_xfail "a29k-*-udi"
-    gdb_test "list main" "(5\[ \t\]+int x;.*14\[ \t\]+foo \[(\]+.*\[)\]+;|1\[ \t\]+#include .*8\[ \t\]+breakpoint\[(\]\[)\]+;)" "list function in source file 1"
-
-    # Ultrix gdb takes the second case below; it's also correct.
-    # SunPRO cc is the third case.
-    gdb_test "list bar" "(1\[ \t\]+void.*7\[ \t\]*long_line ..;.*9\[ \t\]*|1\[ \t\]+void.*8\[ \t\]+\}|1\[ \t\]+void.*7\[ \t\]*long_line ..;)" "list function in source file 2"
-
-    # Test "list function" for C include file
-    # Ultrix gdb is the second case, still correct.
-    # SunPRO cc is the third case.
-    setup_xfail "powerpc-*-*"
-    setup_xfail_format "DWARF 1"
-    gdb_test "list foo" "(3\[ \t\]+.*12\[ \t\]+bar \[(\]+.*\[)\]+;|2\[ \t\]+including file.*11\[ \t\]+bar \[(\]+.*\[)\]+;|1\[ \t\]+/. An include file.*10\[ \t\]+bar \[(\]+.*\[)\]+;)" "list function in include file"
-}
-
-proc test_list_forward {} {
-    global gdb_prompt
-
-    set testcnt 0
-
-    send_gdb "list list0.c:10\n"
-    gdb_expect {
-	-re "5\[ \t\]+int x;.*14\[ \t\]+foo \[(\]+.*\[)\]+;\r\n$gdb_prompt $" { incr testcnt }
-	-re ".*$gdb_prompt $" { fail "list list0.c:10" ; gdb_suppress_tests }
-	timeout { fail "list list0.c:10 (timeout)" ; gdb_suppress_tests }
-    }
-
-    send_gdb "list\n"
-    gdb_expect {
-	-re "15\[ \t\]+foo \[(\]+.*\[)\]+;.*24\[ \t\]+foo \[(\]+.*\[)\]+;\r\n$gdb_prompt $" { incr testcnt }
-	-re ".*$gdb_prompt $" { fail "list 15-24" ; gdb_suppress_tests }
-	timeout { fail "list 15-24 (timeout)" ; gdb_suppress_tests }
-    }
-
-    send_gdb "list\n"
-    gdb_expect {
-	-re "25\[ \t\]+foo \[(\]+.*\[)\]+;.*34\[ \t\]+foo \[(\]+.*\[)\]+;\r\n$gdb_prompt $" { incr testcnt }
-	-re ".*$gdb_prompt $" { fail "list 25-34" ; gdb_suppress_tests }
-	timeout { fail "list 25-34 (timeout)" ; gdb_suppress_tests }
-    }
-
-    send_gdb "list\n"
-    gdb_expect {
-	-re "35\[ \t\]+foo \[(\]+.*\[)\]+;.*42\[ \t\]+\}\r\n$gdb_prompt $" { incr testcnt }
-	-re ".*$gdb_prompt $" { fail "list 35-42" ; gdb_suppress_tests }
-	timeout { fail "list 35-42 (timeout)" ; gdb_suppress_tests }
-    }
-
-    pass "successive list commands to page forward ($testcnt tests)"
-    gdb_stop_suppressing_tests;
-}
-
-proc test_list_backwards {} {
-    global gdb_prompt
-
-    set testcnt 0
-
-    send_gdb "list list0.c:33\n"
-    gdb_expect {
-	-re "28\[ \t\]+foo \[(\]+.*\[)\]+;.*37\[ \t\]+\r\n$gdb_prompt $" { incr testcnt }
-	-re ".*$gdb_prompt $" { fail "list list0.c:33" ; gdb_suppress_tests }
-	timeout { fail "list list0.c:33 (timeout)" ; gdb_suppress_tests }
-    }
-
-    send_gdb "list -\n"
-    gdb_expect {
-	-re "18\[ \t\]+foo \[(\]+.*\[)\]+;.*27\[ \t\]+foo \[(\]+.*\[)\]+;\r\n$gdb_prompt $" { incr testcnt }
-	-re ".*$gdb_prompt $" { fail "list 18-27" ; gdb_suppress_tests }
-	timeout { fail "list 18-27 (timeout)" ; gdb_suppress_tests }
-    }
-
-    send_gdb "list -\n"
-    gdb_expect {
-	-re "8\[ \t\]+breakpoint\[(\]\[)\];.*17\[ \t\]+foo \[(\]+.*\[)\]+;\r\n$gdb_prompt $" { incr testcnt }
-	-re ".*$gdb_prompt $" { fail "list 8-17" ; gdb_suppress_tests }
-	timeout { fail "list 8-17 (timeout)" ; gdb_suppress_tests }
-    }
-
-    send_gdb "list -\n"
-    gdb_expect {
-	-re "1\[ \t\]+#include .*7\[ \t\]+set_debug_traps\[(\]\[)\]+;\r\n$gdb_prompt $" { incr testcnt }
-	-re ".*$gdb_prompt $" { fail "list 1-7" ; gdb_suppress_tests }
-	timeout { fail "list 1-7 (timeout)" ; gdb_suppress_tests }
-    }
-
-    pass "$testcnt successive \"list -\" commands to page backwards"
-    gdb_stop_suppressing_tests;
-}
-
-#
-# Test "list first,last"
-#
-
-proc test_list_range {} {
-    global gdb_prompt
-
-    gdb_test "list list0.c:2,list0.c:5" "2\[ \t\]+\r\n3\[ \t\]+main \[)(\]+.*5\[ \t\]+int x;" "list range; filename:line1,filename:line2"
-
-    gdb_test "list 2,5" "2\[ \t\]+\r\n3\[ \t\]+main \[)(\]+.*5\[ \t\]+int x;" "list range; line1,line2"
-
-#    gdb_test     "list -1,6" 	"Line number 0 out of range; .*list0.c has 39 lines." "list range; lower bound negative"
-
-#    gdb_test     "list -100,-40" 	"Line number -60 out of range; .*list0.c has 39 lines." "list range; both bounds negative"
-
-    gdb_test "list 30,43" "30\[ \t\]+foo \[(\]+.*\[)\]+;.*42\[ \t\]+\}" "list range; upper bound past EOF"
-
-    gdb_test "list 43,100" "Line number 43 out of range; .*list0.c has 42 lines." "list range; both bounds past EOF"
-
-    gdb_test "list list0.c:2,list1.c:17" "Specified start and end are in different files." "list range, must be same files"
-}
-
-#
-# Test "list filename:function"
-#
-
-proc test_list_filename_and_function {} {
-    global gdb_prompt
-
-    set testcnt 0
-
-    # gcc appears to generate incorrect debugging information for code
-    # in include files, which breaks this test.
-    # SunPRO cc is the second case below, it's also correct.
-    setup_xfail "a29k-*-udi"
-    send_gdb "list list0.c:main\n"
-    gdb_expect {
-	-re "1\[ \t\]+#include .*8\[ \t\]+breakpoint\[(\]\[)\]+;\r\n$gdb_prompt $" {
-	    incr testcnt
-	}
-	-re "5\[ \t\]+int x;.*14\[ \t\]+foo \[(\]+.*\[)\]+;\r\n$gdb_prompt $" {
-	    pass "list function in source file 1"
-	}
-	-re ".*$gdb_prompt $" { fail "list list0.c:main" }
-	timeout { fail "list list0.c:main (timeout)" }
-    }
-
-    # The i960 and a29k-amd-udi are the second case
-
-    # Not sure what the point of having this function be unused is.
-    # AIX is legitimately removing it.
-    setup_xfail "rs6000-*-aix*"
-    send_gdb "list list0.c:unused\n"
-    gdb_expect {
-	-re "36\[ \t\]+\}.*42\[ \t\]+\}\r\n$gdb_prompt $" {
-	    incr testcnt
-	}
-	-re "37.*42\[ \t\]+\}\r\n$gdb_prompt $" {
-	    incr testcnt
-	}
-	-re ".*$gdb_prompt $" { fail "list list0.c:unused" }
-	timeout { fail "list list0.c:unused (timeout)" }
-    }
-    clear_xfail "rs6000-*-aix*"
-
-    # gcc appears to generate incorrect debugging information for code
-    # in include files, which breaks this test.
-    # Ultrix gdb is the second case, one line different but still correct.
-    # SunPRO cc is the third case.
-    setup_xfail "rs6000-*-*" 1804
-    setup_xfail "powerpc-*-*" 1804
-    setup_xfail "a29k-*-udi"
-    setup_xfail_format "DWARF 1"
-    setup_xfail_format "COFF"
-    send_gdb "list list0.h:foo\n"
-    gdb_expect {
-	-re "2\[ \t\]+including file.  This.*11\[ \t\]+bar \[(\]+.*\[)\]+;\r\n$gdb_prompt $" {
-	    incr testcnt
-	}
-	-re "1\[ \t\]+/. An include file.*10\[ \t\]+bar \[(\]+.*\[)\]+;\r\n$gdb_prompt $" {
-	    incr testcnt
-	}
-	-re "3\[ \t\]+.*12\[ \t\]+bar \[(\]+.*\[)\]+;\r\n$gdb_prompt $" {
-	    incr testcnt
-	}
-	-re "No source file named list0.h.\r\n$gdb_prompt $" {
-	    fail "list list0.h:foo"
-	}
-	-re ".*$gdb_prompt $" { fail "list list0.h:foo" }
-	timeout { fail "list list0.h:foo (timeout)" }
-    }
-
-    # Ultrix gdb is the second case.
-    # a29k-amd-udi is the third case.
-    send_gdb "list list1.c:bar\n"
-    gdb_expect {
-	-re "1\[ \t\]+void.*8\[ \t\]+\}\r\n$gdb_prompt $" {
-	    incr testcnt
-	}
-	-re "1\[ \t\]+void.*7\[ \t\]*long_line ..;\r\n$gdb_prompt $" {
-	    incr testcnt
-	}
-	-re "1\[ \t\]+void.*9\[ \t\]*\r\n$gdb_prompt $" {
-	    incr testcnt
-	}
-	-re ".*$gdb_prompt $" { fail "list list1.c:bar" }
-	timeout { fail "list list1.c:bar (timeout)" }
-    }
-
-    # The i960 and a29k-amd-udi are the second case
-
-    # Not sure what the point of having this function be unused is.
-    # AIX is legitimately removing it.
-    setup_xfail "rs6000-*-aix*"
-    send_gdb "list list1.c:unused\n"
-    gdb_expect {
-	-re "7\[ \t\]+long_line \[(\]\[)\];.*14\[ \t\]+\}\r\n.*$gdb_prompt $" {
-	    incr testcnt
-	}
-	-re "9.*14\[ \t\]+\}\r\n.*$gdb_prompt $" {
-	    incr testcnt
-	}
-	-re ".*$gdb_prompt $" { fail "list list1.c:unused" }
-	timeout { fail "list list1.c:unused (timeout)" }
-    }
-    clear_xfail "rs6000-*-aix*"
-
-    pass "list filename:function ($testcnt tests)"
-
-    # Test some invalid specs
-    # The following test takes the FIXME result on most systems using
-    # DWARF.  It fails to notice that main() is not in the file requested.
-   
-    setup_xfail "*-*-*"
-
-# Does this actually work ANYWHERE?  I believe not, as this is an `aspect' of
-# lookup_symbol(), where, when it is given a specific symtab which does not
-# contain the requested symbol, it will subsequently search all of the symtabs
-# for the requested symbol.
-
-    gdb_test "list list0.c:foo" "Function \"foo\" not defined in .*list0.c" "list filename:function; wrong filename rejected"
-
-    gdb_test "list foobar.c:main" "No source file named foobar.c." "list filename:function; nonexistant file"
-
-    setup_xfail_format "DWARF 1"
-    gdb_test "list list0.h:foobar" "Function \"foobar\" not defined." "list filename:function; nonexistant function"
-
-}
-
-proc test_forward_search {} {
-	global timeout
-
-	gdb_test "set listsize 4" ""
-	# On SunOS4, this gives us lines 19-22.  On AIX, it gives us
-	# lines 20-23.  This depends on whether the line number of a function
-	# is considered to be the openbrace or the first statement--either one
-	# is acceptable.
-	gdb_test "list long_line" "20\[ \t\]+long_line .*"
-
-	gdb_test "search 4321" " not found"
-
-	gdb_test "search 6789" "24\[ \t\]+oof .6789.;"
-
-	# Test that GDB won't crash if the line being searched is extremely long.
-
-	set oldtimeout $timeout
-	set timeout [expr "$timeout + 300"]
-	verbose "Timeout is now $timeout seconds" 2
-	gdb_test "search 1234" ".*1234.*" "search extremely long line (> 5000 chars)"
-	set timeout $oldtimeout
-	verbose "Timeout is now $timeout seconds" 2
-}
-
-# Start with a fresh gdb.
-
-gdb_exit
-gdb_start
-gdb_reinitialize_dir $srcdir/$subdir
-gdb_load ${binfile}
-
-if [target_info exists gdb_stub] {
-    send_gdb "step\n"
-    # if use stubs step out of the breakpoint() function.
-    gdb_expect {
-        -re "main.* at .*$gdb_prompt $" {}
-	-re ".*in .*start.*$gdb_prompt $" {}
-        timeout { fail "single step at breakpoint() (timeout)" }
-    }
-}
-
-gdb_test "set width 0" "" "set width 0"
-
-test_listsize
-get_debug_format
-if [ set_listsize 10 ] then {
-    test_list_include_file
-    test_list_filename_and_number
-    test_list_function
-    test_list_forward
-    test_list_backwards
-    test_list_range
-    test_list_filename_and_function
-    test_forward_search
-}