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

	Partial fix for PR testsuite/1456.
	* gdb.base/callfuncs.exp (do_function_calls): Replace reference to
	gcc_compiled with call to test_compiler_info.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index f23f9f0cc24d9da997c85725fdababf10fa7e3ad..6abfa24997f203e70f0926ca4d307922670a80a0 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2003-12-01  Michael Chastain  <mec.gnu@mindspring.com>
+
+       Partial fix for PR testsuite/1456.
+       * gdb.base/callfuncs.exp (do_function_calls): Replace reference to
+       gcc_compiled with call to test_compiler_info.
+
 2003-11-30  Michael Chastain  <mec.gnu@mindspring.com>
 
        Partial fix for PR testsuite/1456.

diff --git a/gdb/testsuite/gdb.base/callfuncs.exp b/gdb/testsuite/gdb.base/callfuncs.exp
index 053de39514d969e7b290f93ff9f43eb6dfa1d9d3..4446058f111283a316a27857f081e78a732f4efd 100644 (file)
--- a/gdb/testsuite/gdb.base/callfuncs.exp
+++ b/gdb/testsuite/gdb.base/callfuncs.exp
@@ -95,7 +95,6 @@ proc set_lang_c {} {
 
 proc do_function_calls {} {
     global prototypes
-    global gcc_compiled
     global gdb_prompt
 
     # We need to up this because this can be really slow on some boards.
@@ -149,7 +148,7 @@ proc do_function_calls {} {
        # to be a generic problem on quite a few platforms.
        if $prototypes then {
            setup_xfail "sparc-*-*" "mips*-*-*" 5318
-           if {!$gcc_compiled} then {
+           if { ! [test_compiler_info gcc-*-*] } then {
                setup_xfail "alpha-dec-osf2*" "i*86-*-sysv4*" 5318
            }
        }