Mercurial > hg > CbC > CbC_gcc
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 |