2003-12-02 Michael Chastain <mec.gnu@mindspring.com>

	Partial fix for PR testsuite/1456.
	* gdb.base/mips_pro.exp: Replace references to gcc_compiled with calls
	to test_compiler_info.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index e519b7a2e2c9ee4d31f4e9dab75b043fca7b9727..c1f7e480629be3944bb31456a03c38eef8ef92fb 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2003-12-02  Michael Chastain  <mec.gnu@mindspring.com>
+
+       Partial fix for PR testsuite/1456.
+       * gdb.base/mips_pro.exp: Replace references to gcc_compiled with calls
+       to test_compiler_info.
+
 2003-11-28  Michael Chastain  <mec.gnu@mindspring.com>
 
        * gdb.objc/objcdecode.exp: Match and KFAIL the output that comes

diff --git a/gdb/testsuite/gdb.base/mips_pro.exp b/gdb/testsuite/gdb.base/mips_pro.exp
index a860e6335d077f4b6c605e0734043a1248c0c9d5..53ea9fdee2160eeddc3432dd03bf0b226366ac58 100644 (file)
--- a/gdb/testsuite/gdb.base/mips_pro.exp
+++ b/gdb/testsuite/gdb.base/mips_pro.exp
@@ -37,7 +37,7 @@ if [get_compiler_info ${binfile}] {
 
 # This test must be compiled with -O2 if using gcc.
 
-if {$gcc_compiled} then {
+if { [test_compiler_info gcc-*-*] } then {
     if  { [gdb_compile "${srcdir}/$subdir/${srcfile}" "${binfile}" executable {debug additional_flags=-O2}] != "" } {
      gdb_suppress_entire_file "Testcase compile failed, so all tests in this file will automatically fail."
     }
@@ -56,7 +56,7 @@ if [runto middle] then {
     # PR 3016
     #   warning: Hit heuristic-fence-post without finding
     #   warning: enclosing function for pc 0x1006ead0
-    if {$gcc_compiled} then { 
+    if { [test_compiler_info gcc-*-*] } then {
        setup_xfail "mips*-sgi-irix4*" "mips64*-*-elf"
     }
     # The call chain is main -> top -> middle.  But gcc can optimize a tail