X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=libmudflap%2Ftestsuite%2Flib%2Flibmudflap.exp;h=588ecb5c86bd1ac1ece03287578815cf330089c3;hp=c69e84ade29d054a96562f0749a47294c8aefd5d;hb=d45b884a73402fb1589e08517911078aaba4ede0;hpb=afb3d3c49fad6249e0b85722105326e9031d9475;ds=sidebyside

diff --git a/libmudflap/testsuite/lib/libmudflap.exp b/libmudflap/testsuite/lib/libmudflap.exp
index c69e84ade29..588ecb5c86b 100644
--- a/libmudflap/testsuite/lib/libmudflap.exp
+++ b/libmudflap/testsuite/lib/libmudflap.exp
@@ -187,7 +187,6 @@ proc libmudflap-dg-test { prog do_what extra_tool_flags } {
     lappend options "libs=$mfconfig_libs"
 
     set comp_output [libmudflap_target_compile "$prog" "$output_file" "$compile_type" $options];
-    set comp_output [prune_gcc_output $comp_output ];
 
     return [list $comp_output $output_file]
 }
@@ -278,6 +277,22 @@ proc libmudflap-list-sourcefiles { } {
 }
 
 
+proc libmudflap-dg-prune { system text } {
+    global additional_prunes
+
+    set text [prune_gcc_output $text]
+
+    foreach p $additional_prunes {
+	if { [string length $p] > 0 } {
+	    # Following regexp matches a complete line containing $p.
+	    regsub -all "(^|\n)\[^\n\]*$p\[^\n\]*" $text "" text
+	}
+    }
+
+    return $text
+}
+
+
 proc prune_gcc_output { text } {
     regsub -all {(^|\n)[^\n]*ld: warning: libgcc_s[^\n]*not found[^\n]*try using[^\n]*} $text "" text
     regsub -all {(^|\n)[^\n]*In function.*pthread_create[^\n]*} $text "" text