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.
This commit is contained in:
parent
9663f234c1
commit
f81f93f75e
2 changed files with 9 additions and 7 deletions
|
@ -1,3 +1,9 @@
|
||||||
|
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.
|
||||||
|
|
||||||
2003-11-27 Michael Chastain <mec.gnu@mindspring.com>
|
2003-11-27 Michael Chastain <mec.gnu@mindspring.com>
|
||||||
|
|
||||||
Partial fix for PR testsuite/1456.
|
Partial fix for PR testsuite/1456.
|
||||||
|
|
|
@ -82,9 +82,7 @@ if ![runto_main] then {
|
||||||
get_debug_format
|
get_debug_format
|
||||||
|
|
||||||
proc local_compiler_xfail_check { } {
|
proc local_compiler_xfail_check { } {
|
||||||
global gcc_compiled;
|
if { [test_compiler_info gcc-2-*] } then {
|
||||||
|
|
||||||
if {$gcc_compiled == 2} then {
|
|
||||||
if { ![test_debug_format "HP"] \
|
if { ![test_debug_format "HP"] \
|
||||||
&& ![test_debug_format "DWARF 2"] } then {
|
&& ![test_debug_format "DWARF 2"] } then {
|
||||||
setup_xfail "*-*-*"
|
setup_xfail "*-*-*"
|
||||||
|
@ -128,7 +126,7 @@ send_gdb "break marker1\n" ; gdb_expect -re ".*$gdb_prompt $"
|
||||||
# test function parameters
|
# test function parameters
|
||||||
|
|
||||||
local_compiler_xfail_check
|
local_compiler_xfail_check
|
||||||
if {$gcc_compiled == 3 && [test_debug_format "stabs"]} then {
|
if { [test_compiler_info gcc-3-*] && [test_debug_format "stabs"] } then {
|
||||||
# With stabs, even GCC 3 does not get the const char arguments correct.
|
# With stabs, even GCC 3 does not get the const char arguments correct.
|
||||||
setup_xfail "*-*-*"
|
setup_xfail "*-*-*"
|
||||||
}
|
}
|
||||||
|
@ -144,8 +142,6 @@ gdb_expect {
|
||||||
# test vars and pointers
|
# test vars and pointers
|
||||||
|
|
||||||
proc do_constvar_tests {} {
|
proc do_constvar_tests {} {
|
||||||
global gcc_compiled
|
|
||||||
|
|
||||||
gdb_test "print lave" " = 66 'B'"
|
gdb_test "print lave" " = 66 'B'"
|
||||||
gdb_test "ptype lave" "type = char"
|
gdb_test "ptype lave" "type = char"
|
||||||
gdb_test "print lavish" " = 10 '\\\\n'"
|
gdb_test "print lavish" " = 10 '\\\\n'"
|
||||||
|
@ -285,7 +281,7 @@ proc do_constvar_tests {} {
|
||||||
gdb_test "ptype locust" "type = double \\* const"
|
gdb_test "ptype locust" "type = double \\* const"
|
||||||
|
|
||||||
local_compiler_xfail_check
|
local_compiler_xfail_check
|
||||||
if {$gcc_compiled == 3 && [test_debug_format "stabs"]} then {
|
if { [test_compiler_info gcc-3-*] && [test_debug_format "stabs"] } then {
|
||||||
# With stabs, even GCC 3 does not get the constant structure member
|
# With stabs, even GCC 3 does not get the constant structure member
|
||||||
# correct.
|
# correct.
|
||||||
setup_xfail "*-*-*"
|
setup_xfail "*-*-*"
|
||||||
|
|
Loading…
Reference in a new issue