2006-03-07 Paul Brook <paul@codesourcery.com>

[deliverable/binutils-gdb.git] / gdb / testsuite / lib / gdb.exp

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index cfddc99dbd7dc496785a905f8488e380ca195611..4bb4b0577891f853ce1b33ff4addd213c5c8acdb 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -1183,7 +1183,7 @@ proc skip_altivec_tests {} {
     }
 
     # Make sure we have a compiler that understands altivec.
-    set compile_flags {debug additional_flags=-w}
+    set compile_flags {debug nowarnings}
     if [get_compiler_info not-used] {
        warning "Could not get compiler info"
        return 1
@@ -1497,6 +1497,18 @@ proc gdb_compile {source dest type options} {
        lappend options "ldflags=${gdb_wrapper_flags}"
     }
 
+    # Replace the "nowarnings" option with the appropriate additional_flags
+    # to disable compiler warnings.
+    set nowarnings [lsearch -exact $options nowarnings]
+    if {$nowarnings != -1} {
+       if [target_info exists gdb,nowarnings_flag] {
+           set flag "additional_flags=[target_info gdb,nowarnings_flag]"
+       } else {
+           set flag "additional_flags=-w"
+       }
+       set options [lreplace $options $nowarnings $nowarnings $flag]
+    }
+
     set result [target_compile $source $dest $type $options];
     regsub "\[\r\n\]*$" "$result" "" result;
     regsub "^\[\r\n\]*" "$result" "" result;