diff options
Diffstat (limited to 'gdb/testsuite/lib/gdb.exp')
-rw-r--r-- | gdb/testsuite/lib/gdb.exp | 40 |
1 files changed, 3 insertions, 37 deletions
diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 9c87cc7..4c44024 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -1142,22 +1142,6 @@ proc default_gdb_start { } { return 0; } -# Examine the output of compilation to determine whether compilation -# failed or not. If it failed determine whether it is due to missing -# compiler or due to compiler error. Report pass, fail or unsupported -# as appropriate - -proc gdb_compile_test {src output} { - if { $output == "" } { - pass "compilation [file tail $src]" - } elseif { [regexp {^[a-zA-Z_0-9]+: Can't find [^ ]+\.$} $output] } { - unsupported "compilation [file tail $src]" - } else { - verbose -log "compilation failed: $output" 2 - fail "compilation [file tail $src]" - } -} - # Return a 1 for configurations for which we don't even want to try to # test C++. @@ -1168,6 +1152,7 @@ proc skip_cplus_tests {} { if { [istarget "h8300-*-*"] } { return 1 } + # The C++ IO streams are too large for HC11/HC12 and are thus not # available. The gdb C++ tests use them and don't compile. if { [istarget "m6811-*-*"] } { @@ -1185,18 +1170,6 @@ proc skip_fortran_tests {} { return 0 } -# Return a 1 if I don't even want to try to test ada. - -proc skip_ada_tests {} { - return 0 -} - -# Return a 1 if I don't even want to try to test java. - -proc skip_java_tests {} { - return 0 -} - # Run a test on the target to see if it supports vmx hardware. Return 0 if so, # 1 if it does not. Based on 'check_vmx_hw_available' from the GCC testsuite. @@ -1547,15 +1520,8 @@ proc gdb_compile {source dest type options} { set result [target_compile $source $dest $type $options]; regsub "\[\r\n\]*$" "$result" "" result; regsub "^\[\r\n\]*" "$result" "" result; - - if {[lsearch $options quiet] < 0} { - # We shall update this on a per language basis, to avoid - # changing the entire testsuite in one go. - if {[lsearch $options f77] >= 0} { - gdb_compile_test $source $result - } elseif { $result != "" } { - clone_output "gdb compile failed, $result" - } + if { $result != "" && [lsearch $options quiet] == -1} { + clone_output "gdb compile failed, $result" } return $result; } |