Toolchain/binutils-gdb
1
0
Fork 0
forked from Imagelibrary/binutils-gdb
Code Pull Requests Activity

Further revisions (for xcoff mostly) to test case logged in ChangeLog yesterday

Browse Source
This commit is contained in:
Jim Kingdon
1993-05-21 16:40:05 +00:00
parent 1a8b566849
commit b1285bd9eb
2 changed files with 40 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
gdb/testsuite/gdb.stabs/wierd-xcoff.S
View File

@@ -3,10 +3,13 @@
#define VAR(name) \
.globl name; \
.csect .data[RW]; \
.align 1; \
name:; \
.long 42; \
.csect [PR]
#define STAB(string,type,value) .stabx string,value,type
.long 42;
#define STAB(string,type,value) .stabx string,value,type,0
/* Put everything in this csect, which seems to make things work.
The compiler actually puts the stabs in .csect [PR], but that didn't
work here (I guess because there is no text section). */
.csect .data[RW]
#include "wierd.def"

33
gdb/testsuite/gdb.stabs/wierd.exp
View File

@@ -18,6 +18,8 @@ if ![file exists $binfile] then {
alldone
}
# xcoffread.c wrongly bitches about the lack of a text section.
setup_xfail "rs*-*-aix*"
send "file $binfile\n"
expect {
-re "^file $binfile\r*\nReading symbols from $binfile\.\.\.done\.\r*\n$prompt $" {
@@ -54,6 +56,23 @@ proc print_wierd_var { var } {
}
timeout { fail "variable $var not printed (timeout)" }
}
# Currently one of these symbols gives an error() in symbol
# reading, which causes any attempt to read (full, not
# partial) symbols for the file to lose.
setup_xfail "*-*-*"
# 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.
send "whatis $var\n"
expect {
-re "type = unsigned int.*$prompt $" {pass "whatis on $var"}
-re "type = inttype.*$prompt $" {pass "whatis on $var"}
-re "$prompt $" {fail "whatis on $var"}
timeout {fail "whatis on $var"}
}
}
print_wierd_var var0
@@ -144,6 +163,20 @@ print_wierd_var attr124
print_wierd_var attr125
print_wierd_var attr126
# Currently one of these symbols gives an error() in symbol
# reading, which causes any attempt to read (full, not
# partial) symbols for the file to lose.
setup_xfail "*-*-*"
# One last test, while we're at it.
send "ptype inttype\n"
expect {
-re "type = unsigned int.*$prompt $" {pass "ptype on inttype"}
-re "type = inttype.*$prompt $" {pass "ptype on inttype"}
-re "$prompt $" {fail "ptype on inttype"}
timeout {fail "ptype on inttype"}
}
#Prevent some failures in default.exp, which are probably GDB bugs
# (but trivial ones).
gdb_exit