Initial creation of sourceware repository

1 files changed, 0 insertions, 321 deletions

diff --git a/gdb/testsuite/gdb.stabs/weird.exp b/gdb/testsuite/gdb.stabs/weird.exp
deleted file mode 100644
index aa0bcbc..0000000
--- a/gdb/testsuite/gdb.stabs/weird.exp
+++ /dev/null
@@ -1,321 +0,0 @@
-#   Copyright (C) 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
-
-# Test that GDB properly ignores invalid stabs.
-# Also test that GDB can debug a .o file, and that it doesn't mind
-# a file that's more minimal than what a compiler normally puts out.
-if $tracelevel then {
-	strace $tracelevel
-}
-
-# If the test directory was not created by configure then skip
-# this test.
-if ![file isdirectory ${objdir}/${subdir}] then {
-    return 0
-}
-
-set prms_id 0
-set bug_id 0
-
-proc do_tests {} {
-	global binfile
-	global gdb_prompt
-
-	# Mips/alpha targets that use gcc with mips-tfile put out the stabs
-	# assembler directives embedded in comments. If the assembler
-	# file is then processed with native cc, all stabs directives
-	# will be lost.
-	# Skip the rest of the stabs tests for this case.
-	send_gdb "ptype inttype\n"
-	gdb_expect {
-		-re "^ptype inttype\r*\ntype = inttype.*$gdb_prompt $" {
-			pass "stabs found"
-		}
-		-re ".*$gdb_prompt $" {
-			setup_xfail "mips-*-*"
-			setup_xfail "alpha-*-*"
-			fail "stabs not found"
-			return
-		}
-		default { fail "checking for stabs" }
-	}
-
-	print_weird_var var0
-	print_weird_var var1
-	print_weird_var var2
-	print_weird_var var3
-
-	print_weird_var attr32
-	print_weird_var attr33
-	print_weird_var attr35
-	print_weird_var attr36
-	print_weird_var attr37
-	print_weird_var attr38
-	print_weird_var attr39
-	print_weird_var attr41
-	print_weird_var attr42
-	print_weird_var attr43
-	print_weird_var attr44
-	print_weird_var attr46
-	print_weird_var attr47
-	print_weird_var attr58
-	print_weird_var attr59
-	print_weird_var attr60
-	print_weird_var attr61
-	print_weird_var attr62
-	print_weird_var attr63
-	print_weird_var attr64
-	print_weird_var attr65
-	print_weird_var attr66
-	print_weird_var attr67
-	print_weird_var attr68
-	print_weird_var attr69
-	print_weird_var attr70
-	print_weird_var attr71
-	print_weird_var attr72
-	print_weird_var attr73
-	print_weird_var attr74
-	print_weird_var attr75
-	print_weird_var attr76
-	print_weird_var attr77
-	print_weird_var attr78
-	print_weird_var attr79
-	print_weird_var attr80
-	print_weird_var attr81
-	print_weird_var attr82
-	print_weird_var attr83
-	print_weird_var attr84
-	print_weird_var attr85
-	print_weird_var attr86
-	print_weird_var attr87
-	print_weird_var attr88
-	print_weird_var attr89
-	print_weird_var attr90
-	print_weird_var attr91
-	print_weird_var attr92
-	print_weird_var attr93
-	print_weird_var attr94
-	print_weird_var attr95
-	print_weird_var attr96
-	print_weird_var attr97
-	print_weird_var attr98
-	print_weird_var attr99
-	print_weird_var attr100
-	print_weird_var attr101
-	print_weird_var attr102
-	print_weird_var attr103
-	print_weird_var attr104
-	print_weird_var attr105
-	print_weird_var attr106
-	print_weird_var attr107
-	print_weird_var attr108
-	print_weird_var attr109
-	print_weird_var attr110
-	print_weird_var attr111
-	print_weird_var attr112
-	print_weird_var attr113
-	print_weird_var attr114
-	print_weird_var attr115
-	print_weird_var attr116
-	print_weird_var attr117
-	print_weird_var attr118
-	print_weird_var attr119
-	print_weird_var attr120
-	print_weird_var attr121
-	print_weird_var attr122
-	print_weird_var attr123
-	print_weird_var attr124
-	print_weird_var attr125
-	print_weird_var attr126
-
-	gdb_test "p const69" " = 69" "'e' constant on non-enum type"
-	gdb_test "whatis const69" "type = (unsigned int|inttype)" "whatis const69"
-
-	gdb_test "p sizeof (const70)" " = 2" "'e' constant with embedded type"
-
-	gdb_test "p bad_neg0" " = \{field0 = 42, field2 =.*field3 = 45\}" "p bad_neg0"
-
-	gdb_test "ptype inttype" "type = (unsigned int|inttype)" "ptype on inttype"
-	gdb_test "p sizeof (float72type)" " = 9" "unrecognized floating point type"
-
-	# This big number needs to be kept as one piece
-	gdb_test "p/x int256var" " = 0x0*2a0000002b0000002c0000002d0000002d0000002c0000002b0000002a" "print very big integer"
-
-	gdb_test "whatis consth" "type = inttype" "whatis consth"
-	gdb_test "whatis consth2" "type = inttype" "whatis consth2"
-
-	# GDB does not yet understand S constants
-	setup_xfail "*-*-*"
-	gdb_test "p/x bad_neg0const" " = \{field0 = 0x11222211, field2 =.*\
-field3 = 0x77888877\}" "print struct constant"
-
-	gdb_test "ptype bad_type0" "type = .*" "print bad_type0"
-	gdb_test "ptype bad_type1" "type = .*" "print bad_type1"
-
-	# GDB does not yet support arrays indexed by anything at all unusual
-	setup_xfail "*-*-*"
-	gdb_test "p array0" " = \{42, 43, 44, 45, 46, 47\}" "array0 with strange index"
-	setup_xfail "*-*-*"
-	gdb_test "p array1" " = \{42, 43, 44\}" "array1 with strange index"
-
-	# GDB does not yet support this feature
-	gdb_test "whatis one_var" "type = inttype_one" \
-	    "whatis one_var (known failure in gdb 4.10)"
-	# But do make sure that it prints as something reasonable
-	gdb_test "whatis one_var" "type = inttype(|_one)" \
-	    "whatis one_var test 2"
-
-	gdb_test "whatis two_var" "type = inttype_two" \
-	    "whatis two_var (known failure in gdb 4.10)"
-	# But do make sure that it prints as something reasonable
-	gdb_test "whatis two_var" "type = inttype(|_two)" \
-	    "whatis two_var test 2"
-
-	setup_xfail "*-*-*"
-	gdb_test "whatis pointer_to_int_var" "type = int \[*\]"
-	setup_xfail "*-*-*"
-	gdb_test "whatis intp_var" "type = intp"
-
-	gdb_test "p common0var0" "= 42"
-	# GDB seems to only understand common blocks local to a function.
-	# These variables never get relocated to be relative to the common 
-	# block.
-	# I'm not sure whether it is valid to have a common block which
-	# is not local to a function.
-	setup_xfail "*-*-*"
-	gdb_test "p common0var1" "= 24"
-	setup_xfail "*-*-*"
-	gdb_test "p common0var2" "= 22"
-
-	# this long line must be continous, not with "/" escaping the newline
-	gdb_test "p v_comb" "{<> = {<> = {x = 42}, \[_a-zA-Z$.\]* = \[0-9xa-fA-F\]*, a = 43}, <> = {\[_a-zA-Z$.\]* = \[0-9xa-fA-F\]*, b = 44}, comb = 45}"
-}
-
-proc print_weird_var { var } {
-	global gdb_prompt
-
-	# Make sure that the variable gets printed out correctly, without
-	# any sort of warning message.
-	send_gdb "print $var\n"
-	gdb_expect {
-		-re "^print $var\r*\n.\[0-9\]* = 42.*$gdb_prompt $" {
-			pass "variable $var printed properly"
-		}
-		-re ".*$gdb_prompt $" {
-			fail "variable $var not printed properly"
-		}
-		timeout { fail "variable $var not printed (timeout)" }
-		eof { fail "(eof) variable $var not printed" }
-	}
-
-	# Make sure that the stabs did get loaded in a sensible way.
-	# If somehow the stabs got skipped, then the above test can
-	# pass because GDB assumes int for variables without a stab.
-
-	# This doesn't work because 32=45 doesn't preserve the name in
-	# gdb (as of 14 Sep 93 anyway).
-	#gdb_test "whatis $var" "type = (unsigned int|inttype)"
-
-	# But the size should be right.
-	gdb_test "print sizeof ($var)" "= 4"
-}
-
-# Start with a fresh gdb
-
-gdb_exit
-gdb_start
-gdb_reinitialize_dir $srcdir/$subdir
-
-# Don't use gdb_load; it doesn't bitch if the loading produced some
-# error messages during symbol reading.
-set testfile weird
-set srcfile ${objdir}/${subdir}/weird.s
-set binfile ${objdir}/${subdir}/weirdx.o
-
-global target_os
-set sedscript ${srcdir}/${subdir}/aout.sed
-switch -glob ${target_triplet} {
-    "hppa*-*-*" {
-	set sedscript ${srcdir}/${subdir}/hppa.sed
-    }
-    "mips-*-ecoff" {
-	set sedscript ${srcdir}/${subdir}/ecoff.sed
-    }
-    "powerpc-*-aix*" {
-	set sedscript ${srcdir}/${subdir}/xcoff.sed
-    }
-    "rs6000-*-aix*" {
-	set sedscript ${srcdir}/${subdir}/xcoff.sed
-    }
-    "*-*-aout" {
-	set sedscript ${srcdir}/${subdir}/aout.sed
-    }
-    "*-*-xcoff" {
-	set sedscript ${srcdir}/${subdir}/xcoff.sed
-    }
-    "alpha-*-*" {
-	set sedscript ${srcdir}/${subdir}/ecoff.sed
-    }
-}
-
-
-# Hope this is a Unix box.
-set exec_output [remote_exec build "sed" "-f ${sedscript}" "${srcdir}/${subdir}/weird.def" "${srcfile}"]
-if { [lindex $exec_output 0] != 0 } {
-    perror "Couldn't make test case. $exec_output"
-    return -1
-}
-
-if  { [gdb_compile "${srcfile}" "${binfile}" object ""] != "" } {
-     gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
-}
-
-remote_file build delete ${srcfile}
-set binfile [remote_download host ${binfile} object.o]
-send_gdb "file $binfile\n"
-# If $binfile is very long, a \r (but not a \n) will echo in the
-# middle of the echo of the command.  So to match the echo, we
-# would like to match anything not containing \n
-# (we would prefer to be sure not to match any warning message).
-# But \[^\n\]* doesn't seem to work, so instead use the heuristic
-# that a filename won't contain a space and a warning message will.
-# But spaces following by backspaces aren't really spaces.
-gdb_expect {
-    -re "^file (\[^ \]| +\008)*\r*\nReading symbols from $binfile\.\.\.done\.\r*\n$gdb_prompt $" {
-	pass "weirdx.o read without error"
-    }
-    -re "A program is being debugged already.  Kill it\? \(y or n\)" {
-	send_gdb "y\n"
-	exp_continue
-    }
-    -re ".*$gdb_prompt $" {
-	fail "Errors reading weirdx.o"
-    }
-    timeout {
-	perror "couldn't load $binfile into $GDB (timed out)."
-	return -1
-    }
-    eof { fail "(eof) cannot read weirdx.o" }
-}
-
-do_tests
-
-remote_file host delete ${binfile}
-
-return 0