comparison libmudflap/testsuite/lib/libmudflap.exp @ 63:b7f97abdc517 gcc-4.6-20100522

update gcc from gcc-4.5.0 to gcc-4.6
author ryoma <e075725@ie.u-ryukyu.ac.jp>
date Mon, 24 May 2010 12:47:05 +0900
parents a06113de4d67
children f6334be47118
comparison
equal deleted inserted replaced
56:3c8a44c06a95 63:b7f97abdc517
185 185
186 global mfconfig_libs 186 global mfconfig_libs
187 lappend options "libs=$mfconfig_libs" 187 lappend options "libs=$mfconfig_libs"
188 188
189 set comp_output [libmudflap_target_compile "$prog" "$output_file" "$compile_type" $options]; 189 set comp_output [libmudflap_target_compile "$prog" "$output_file" "$compile_type" $options];
190 set comp_output [prune_gcc_output $comp_output ];
191 190
192 return [list $comp_output $output_file] 191 return [list $comp_output $output_file]
193 } 192 }
194 193
195 194
276 return $res 275 return $res
277 } 276 }
278 } 277 }
279 278
280 279
280 proc libmudflap-dg-prune { system text } {
281 global additional_prunes
282
283 set text [prune_gcc_output $text]
284
285 foreach p $additional_prunes {
286 if { [string length $p] > 0 } {
287 # Following regexp matches a complete line containing $p.
288 regsub -all "(^|\n)\[^\n\]*$p\[^\n\]*" $text "" text
289 }
290 }
291
292 return $text
293 }
294
295
281 proc prune_gcc_output { text } { 296 proc prune_gcc_output { text } {
282 regsub -all {(^|\n)[^\n]*ld: warning: libgcc_s[^\n]*not found[^\n]*try using[^\n]*} $text "" text 297 regsub -all {(^|\n)[^\n]*ld: warning: libgcc_s[^\n]*not found[^\n]*try using[^\n]*} $text "" text
283 regsub -all {(^|\n)[^\n]*In function.*pthread_create[^\n]*} $text "" text 298 regsub -all {(^|\n)[^\n]*In function.*pthread_create[^\n]*} $text "" text
284 regsub -all {(^|\n)[^\n]*the use of .pthread.*is deprecated[^\n]*} $text "" text 299 regsub -all {(^|\n)[^\n]*the use of .pthread.*is deprecated[^\n]*} $text "" text
285 regsub -all {(^|\n)[^\n]*Dwarf Error:.*FORM value: 14[^\n]*} $text "" text 300 regsub -all {(^|\n)[^\n]*Dwarf Error:.*FORM value: 14[^\n]*} $text "" text