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

diff --git a/gdb/testsuite/gdb.stabs/wierd-xcoff.S b/gdb/testsuite/gdb.stabs/wierd-xcoff.S
index cdb5c130c407846869ba420d5ac1ce7300fedfe3..b4d3a24d9dfcedb8561d63a6fb6af9402e9e291f 100644 (file)
--- a/gdb/testsuite/gdb.stabs/wierd-xcoff.S
+++ b/gdb/testsuite/gdb.stabs/wierd-xcoff.S
@@ -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"

diff --git a/gdb/testsuite/gdb.stabs/wierd.exp b/gdb/testsuite/gdb.stabs/wierd.exp
index 03256a0877e9b55f459d09689f3cf024bce8b464..f0af04922548b605c9c957e23d6a9424abb8f04c 100644 (file)
--- a/gdb/testsuite/gdb.stabs/wierd.exp
+++ b/gdb/testsuite/gdb.stabs/wierd.exp
@@ -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