From 5762d8c6f39cb9e5b1767aac565c87cecf025c91 Mon Sep 17 00:00:00 2001 From: Fred Fish Date: Mon, 28 Aug 1995 09:44:14 +0000 Subject: [PATCH] * gdb.base/callfuncs.exp (do_function_calls): Add alpha-dec-osf2* clear_xfail for "p t_float_values2(3.14159,float_val2)" for gcc compiled test. * gdb.base/opaque.exp (setup_xfail_on_opaque_pointer): Add mips-sgi-irix5* xfail for not gcc compiled. * gdb.base/Makefile.in (nodebug.o): Also create nodebug.ci. * gdb.base/nodebug.exp: Add mips-sgi-irix5 xfail when not gcc compiled for "p top", "whatis top", "p middle", and "whatis middle". * gdb.base/whatis.exp: Add mips-sgi-irix* xfail for "whatis signed char" for not gcc compiled. * gdb.base/setvar.exp: Add mips-sgi-irix4* xfail (works on irix5) for "set variable signed char=-1 (-1)" and "set variable signed char=0xFF (0xFF)" for not gcc compiled. * gdb.base/funcargs.exp (float_and_integral_args): Add mips-sgi-irix5* xfail for "run to call2a" for not gcc compiled. Add mips-sgi-irix* xfail when not gcc compiled for "continue to call2b". Add mips-sgi-irix4* xfail (works with irix5) when gcc compiled for "continue to call2g". (discard_and_shuffle): Add mips-sgi-irix5* xfail whn not gcc compiled for "backtrace from call6a" (shuffle_round_robin): Add mips-sgi-irix* xfail when not gcc compiled for "backtrace from call7k". Add mips-sgi-irix5* xfail when not gcc compiled for "backtrace from call7a". (localvars_after_alloca): Fix gdb_test cmds for "print * after runto ...". Remove rs6000-*-* xfails for "print i after runto localvars_after_alloca" and "print l after runto localvars_after_alloca" for all compilers. * gdb.base/exprs.exp: Add mips-sgi-irix4* xfails (works with irix5), when not compiled with gcc, for: "print signed char == (minus)", "print signed char != (minus)", "print signed char < (minus)", "print signed char > (minus)". * gdb.base/callfuncs.exp (do_function_calls): Add mips-sgi-irix* xfail, when compiled with native compiler, for "call inferior func with struct - returns char *". * gdb.base/return.exp (return_tests): Change xfail for "correct value returned double test" to include Solaris 2.4. * gdb.base/funcargs.exp (float_and_integral_args): Add sparc-sun-solaris2* xfail for "print f1 after run to call2a". --- gdb/testsuite/ChangeLog | 47 ++++++++++++++++++++++++++++++++++++ gdb/testsuite/gdb.base/Makefile.in | 2 ++ gdb/testsuite/gdb.base/callfuncs.exp | 2 ++ gdb/testsuite/gdb.base/funcargs.exp | 10 ++++++-- gdb/testsuite/gdb.base/nodebug.exp | 5 ++++ gdb/testsuite/gdb.base/opaque.exp | 2 +- gdb/testsuite/gdb.base/setvar.exp | 2 ++ gdb/testsuite/gdb.base/signals.exp | 1 + 8 files changed, 68 insertions(+), 3 deletions(-) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index fef87d8..9b4a1eb 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,50 @@ +Sun Aug 27 23:35:35 1995 Fred Fish + + * gdb.base/callfuncs.exp (do_function_calls): Add alpha-dec-osf2* + clear_xfail for "p t_float_values2(3.14159,float_val2)" for gcc + compiled test. + * gdb.base/opaque.exp (setup_xfail_on_opaque_pointer): + Add mips-sgi-irix5* xfail for not gcc compiled. + * gdb.base/Makefile.in (nodebug.o): Also create nodebug.ci. + * gdb.base/nodebug.exp: Add mips-sgi-irix5 xfail when not gcc compiled for + "p top", "whatis top", "p middle", and "whatis middle". + * gdb.base/whatis.exp: Add mips-sgi-irix* xfail for + "whatis signed char" for not gcc compiled. + * gdb.base/setvar.exp: Add mips-sgi-irix4* xfail (works on irix5) for + "set variable signed char=-1 (-1)" and + "set variable signed char=0xFF (0xFF)" for not gcc compiled. + * gdb.base/funcargs.exp (float_and_integral_args): + Add mips-sgi-irix5* xfail for "run to call2a" for not gcc compiled. + Add mips-sgi-irix* xfail when not gcc compiled for + "continue to call2b". + Add mips-sgi-irix4* xfail (works with irix5) when gcc compiled for + "continue to call2g". + (discard_and_shuffle): Add mips-sgi-irix5* xfail whn not gcc compiled for + "backtrace from call6a" + (shuffle_round_robin): Add mips-sgi-irix* xfail when not gcc compiled for + "backtrace from call7k". + Add mips-sgi-irix5* xfail when not gcc compiled for + "backtrace from call7a". + (localvars_after_alloca): Fix gdb_test cmds for + "print * after runto ...". + Remove rs6000-*-* xfails for + "print i after runto localvars_after_alloca" and + "print l after runto localvars_after_alloca" + for all compilers. + * gdb.base/exprs.exp: Add mips-sgi-irix4* xfails (works with irix5), + when not compiled with gcc, for: + "print signed char == (minus)", + "print signed char != (minus)", + "print signed char < (minus)", + "print signed char > (minus)". + * gdb.base/callfuncs.exp (do_function_calls): + Add mips-sgi-irix* xfail, when compiled with native compiler, for + "call inferior func with struct - returns char *". + * gdb.base/return.exp (return_tests): Change xfail for + "correct value returned double test" to include Solaris 2.4. + * gdb.base/funcargs.exp (float_and_integral_args): + Add sparc-sun-solaris2* xfail for "print f1 after run to call2a". + Sat Aug 26 00:26:11 1995 Peter Schauer (pes@regent.e-technik.tu-muenchen.de) * gdb.base/setvar.c, gdb.base/setvar.exp: Add new tests for diff --git a/gdb/testsuite/gdb.base/Makefile.in b/gdb/testsuite/gdb.base/Makefile.in index 18832c9..874fb8f 100644 --- a/gdb/testsuite/gdb.base/Makefile.in +++ b/gdb/testsuite/gdb.base/Makefile.in @@ -183,6 +183,8 @@ nodebug: nodebug.o nodebug.o: nodebug.c $(CC) -c $(srcdir)/nodebug.c + $(CC) -E $(srcdir)/compiler.c >nodebug.tmp + mv nodebug.tmp nodebug.ci # For VPATH and Sun Make, we have to make explicit dependencies. # DEC make doesn't seem to understand the ".u" dependency w/VPATH either. diff --git a/gdb/testsuite/gdb.base/callfuncs.exp b/gdb/testsuite/gdb.base/callfuncs.exp index 3e03274..7dca116 100644 --- a/gdb/testsuite/gdb.base/callfuncs.exp +++ b/gdb/testsuite/gdb.base/callfuncs.exp @@ -119,6 +119,7 @@ proc do_function_calls {} { if $prototypes then { setup_xfail "*-*-*" 5318 clear_xfail "rs6000-*-*" + if {$gcc_compiled} then { clear_xfail "alpha-dec-osf2*" } } gdb_test "p t_float_values2(3.14159,float_val2)" " = 1" gdb_test "p t_small_values(1,2,3,4,5,6,7,8,9,10)" " = 55" @@ -195,6 +196,7 @@ proc do_function_calls {} { setup_xfail "i*86-*-*" gdb_test "p t_structs_d(struct_val1)" "= 9.87.*" \ "call inferior func with struct - returns double" + if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix*" } gdb_test "p t_structs_a(struct_val1)" "= \"foo\"" \ "call inferior func with struct - returns char *" diff --git a/gdb/testsuite/gdb.base/funcargs.exp b/gdb/testsuite/gdb.base/funcargs.exp index e5fd12e..56240af 100644 --- a/gdb/testsuite/gdb.base/funcargs.exp +++ b/gdb/testsuite/gdb.base/funcargs.exp @@ -178,7 +178,7 @@ proc float_and_integral_args {} { # The a29k fails all of these tests, perhaps because the prologue # code is broken. setup_xfail "a29k-*-udi" - if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" } + if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" "mips-sgi-irix5*" } gdb_run_cmd expect { -re ".* call2a \\(c=97 'a', f1=4, s=1, d1=5, i=2, f2=4, l=3, d2=5\\) .*$prompt $" { pass "run to call2a" } @@ -188,6 +188,7 @@ proc float_and_integral_args {} { # Print each arg as a double check to see if we can print gdb_test "print c" ".* = 97 'a'" "print c after run to call2a" + setup_xfail "sparc-sun-solaris2*" gdb_test "print f1" ".* = 4" "print f1 after run to call2a" gdb_test "print s" ".* = 1" "print s after run to call2a" gdb_test "print d1" ".* = 5" "print d1 after run to call2a" @@ -197,6 +198,7 @@ proc float_and_integral_args {} { gdb_test "print d2" ".* = 5" "print d2 after run to call2a" setup_xfail "rs6000-*-*" + if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix*" } # Continue; should stop at call2b and print actual arguments. if [gdb_test "cont" ".* call2b \\(f1=4, s=1, d1=5, i=2, f2=4, l=3, d2=5, c=97 'a'\\) .*" "continue to call2b"] { return @@ -222,6 +224,7 @@ proc float_and_integral_args {} { return } + if {$gcc_compiled} then { setup_xfail "mips-sgi-irix4*" } # Continue; should stop at call2g and print actual arguments. if [gdb_test "cont" ".* call2g \\(l=3, d2=5, c=97 'a', f1=4, s=1, d1=5, i=2, f2=4\\) .*" "continue to call2g"] { return @@ -388,6 +391,7 @@ proc discard_and_shuffle {} { global hex global decimal global det_file + global gcc_compiled delete_breakpoints @@ -414,6 +418,7 @@ proc discard_and_shuffle {} { } setup_xfail "rs6000-*-*" + if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix5*" } send "backtrace 100\n" expect { -re "backtrace 100\[\r\n\]+ @@ -729,7 +734,7 @@ proc shuffle_round_robin {} { } setup_xfail "i960-*-*" 1813 - if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" } + if {!$gcc_compiled} then { setup_xfail "rs6000-*-*" "mips-sgi-irix5*" } send "backtrace 100\n" expect { -re "backtrace 100\[\r\n\]+ @@ -983,6 +988,7 @@ $prompt $" { pass "backtrace from call7j" } timeout { fail "(timeout) continue to call7k" ; return } } + if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix*" } send "backtrace 100\n" expect { -re "backtrace 100\[\r\n\]+ diff --git a/gdb/testsuite/gdb.base/nodebug.exp b/gdb/testsuite/gdb.base/nodebug.exp index 551156c..98b4c9f 100644 --- a/gdb/testsuite/gdb.base/nodebug.exp +++ b/gdb/testsuite/gdb.base/nodebug.exp @@ -15,6 +15,7 @@ if ![file exists $binfile] then { } else { gdb_reinitialize_dir $srcdir/$subdir gdb_load $binfile + source gdb.base/nodebug.ci if [runto inner] then { @@ -38,14 +39,18 @@ if ![file exists $binfile] then { # Irix5, even though it is ELF, counts as "ecoff" because it # encapsulates ecoff debugging info in a .mdebug section. + if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix5*" } gdb_test "p top" \ "{(<(text variable|function), no debug info>|short \\(\\))} \[0-9a-fx]* " + if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix5*" } gdb_test "whatis top" \ "(<(text variable|function), no debug info>|short \\(\\))" gdb_test "ptype top" "(short|int) \\((||, )\\)" + if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix5*" } gdb_test "p middle" \ "{(<(text variable|function), no debug info>|short \\(\\))} \[0-9a-fx]* " + if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix5*" } gdb_test "whatis middle" \ "(<(text variable|function), no debug info>|short \\(\\))" gdb_test "ptype middle" "(short|int) \\((||, )\\)" diff --git a/gdb/testsuite/gdb.base/opaque.exp b/gdb/testsuite/gdb.base/opaque.exp index 88dd103..3e7e0f4 100644 --- a/gdb/testsuite/gdb.base/opaque.exp +++ b/gdb/testsuite/gdb.base/opaque.exp @@ -70,7 +70,7 @@ proc setup_xfail_on_opaque_pointer {} { setup_xfail "a29k-*-udi" "vax-*-*" "i*86-sequent-bsd*" if {!$gcc_compiled} then { - setup_xfail "alpha-*-*" + setup_xfail "alpha-*-*" "mips-sgi-irix5*" } } diff --git a/gdb/testsuite/gdb.base/setvar.exp b/gdb/testsuite/gdb.base/setvar.exp index e5f270c..367378d 100644 --- a/gdb/testsuite/gdb.base/setvar.exp +++ b/gdb/testsuite/gdb.base/setvar.exp @@ -338,10 +338,12 @@ expect { gdb_test "set variable v_signed_char=-1" "" +if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix4*" } gdb_test "print v_signed_char" ".\[0-9\]* = -1 \'.377\'" \ "set variable signed char=-1 (-1)" gdb_test "set variable v_signed_char=0xFF" "" +if {!$gcc_compiled} then { setup_xfail "mips-sgi-irix4*" } gdb_test "print v_signed_char" ".\[0-9\]* = -1 \'.377\'" \ "set variable signed char=0xFF (0xFF)" diff --git a/gdb/testsuite/gdb.base/signals.exp b/gdb/testsuite/gdb.base/signals.exp index 50ed0fe..a99b2e4 100644 --- a/gdb/testsuite/gdb.base/signals.exp +++ b/gdb/testsuite/gdb.base/signals.exp @@ -292,6 +292,7 @@ gdb_start # TARGET_SIGNAL_UNKNOWN are skipped. setup_xfail "i*86-unknown-bsdi2.0" gdb_test "handle all print" "Signal Stop Print Pass to program Description\r\nSIGHUP Yes Yes Yes Hangup.*SIG63 Yes Yes Yes Real-time event 63" +gdb_test "handle all print" "Signal Stop Print Pass to program Description\r\nSIGHUP Yes Yes Yes Hangup.*SIG63 Yes Yes Yes Real-time event 63" gdb_exit gdb_start -- 2.7.4