[commit/testsuite/obvious] constvars.exp: call test_compiler_info

[Michael Elizabeth Chastain]

This patch converts one more test script to test_compiler_info.

Testing: native i686-pc-linux-gnu, gcc v2 and v3, dwarf-2 and stabs+.

I am committing this now as an obvious fix.

Michael C

===

2003-11-28  Michael Chastain  <mec.gnu@mindspring.com>

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

Index: constvars.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/gdb.base/constvars.exp,v
retrieving revision 1.10
diff -c -3 -p -r1.10 constvars.exp
*** constvars.exp	29 Jun 2003 20:01:59 -0000	1.10
--- constvars.exp	29 Nov 2003 06:46:31 -0000
*************** if ![runto_main] then {
*** 82,90 ****
  get_debug_format
  
  proc local_compiler_xfail_check { } {
!     global gcc_compiled;
! 
!     if {$gcc_compiled == 2} then {
  	if { ![test_debug_format "HP"] \
  		&& ![test_debug_format "DWARF 2"] } then {
  	    setup_xfail "*-*-*" 
--- 82,88 ----
  get_debug_format
  
  proc local_compiler_xfail_check { } {
!     if { [test_compiler_info gcc-2-*] } then {
  	if { ![test_debug_format "HP"] \
  		&& ![test_debug_format "DWARF 2"] } then {
  	    setup_xfail "*-*-*" 
*************** send_gdb "break marker1\n" ; gdb_expect 
*** 128,134 ****
  # test function parameters
  
  local_compiler_xfail_check
! if {$gcc_compiled == 3 && [test_debug_format "stabs"]} then {
      # With stabs, even GCC 3 does not get the const char arguments correct.
      setup_xfail "*-*-*"
  }
--- 126,132 ----
  # test function parameters
  
  local_compiler_xfail_check
! if { [test_compiler_info gcc-3-*] && [test_debug_format "stabs"] } then {
      # With stabs, even GCC 3 does not get the const char arguments correct.
      setup_xfail "*-*-*"
  }
*************** gdb_expect {
*** 144,151 ****
  # test vars and pointers
  
  proc do_constvar_tests {} {
-     global gcc_compiled
- 
      gdb_test "print lave" " = 66 'B'"
      gdb_test "ptype lave" "type = char"
      gdb_test "print lavish" " = 10 '\\\\n'"
--- 142,147 ----
*************** proc do_constvar_tests {} {
*** 285,291 ****
      gdb_test "ptype locust" "type = double \\* const"
  
      local_compiler_xfail_check
!     if {$gcc_compiled == 3 && [test_debug_format "stabs"]} then {
  	# With stabs, even GCC 3 does not get the constant structure member
  	# correct.
  	setup_xfail "*-*-*"
--- 281,287 ----
      gdb_test "ptype locust" "type = double \\* const"
  
      local_compiler_xfail_check
!     if { [test_compiler_info gcc-3-*] && [test_debug_format "stabs"] } then {
  	# With stabs, even GCC 3 does not get the constant structure member
  	# correct.
  	setup_xfail "*-*-*"