+2001-08-14 David Billinghurst <David.Billinghurst@riotinto.com>
+
+ * lib/g77-dg.exp: Use prune.exp for common procedures
+ (g77-dg-prune): Replace prune_g77_output with prune_gcc_output
+ * lib/g77.exp: (g77-dg-prune) Remove
+
2001-08-13 Jason Merrill <jason_merrill@redhat.com>
* lib/scanasm.exp (scan-assembler*): Use expr instead of concat.
load_lib file-format.exp
load_lib target-supports.exp
load_lib scanasm.exp
+load_lib prune.exp
if ![info exists TORTURE_OPTIONS] {
# It is theoretically beneficial to group all of the O2/O3 options together,
}
proc g77-dg-prune { system text } {
- set text [prune_g77_output $text]
+ set text [prune_gcc_output $text]
# If we see "region xxx is full" then the testcase is too big for ram.
# This is tricky to deal with in a large testsuite like c-torture so
return [target_compile $source $dest $type $options]
}
-# Provide a definition of this if missing (delete after next dejagnu release).
-
-if { [info procs prune_warnings] == "" } then {
- proc prune_warnings { text } {
- return $text
- }
-}
-
-# Prune messages from g77 that aren't useful.
-
-proc prune_g77_output { text } {
- #send_user "Before:$text\n"
- regsub -all "(^|\n)\[^\n\]*: In (function|method) \[^\n\]*" $text "" text
- regsub -all "(^|\n)\[^\n\]*: At top level:\[^\n\]*" $text "" text
-
- # It would be nice to avoid passing anything to g77 that would cause it to
- # issue these messages (since ignoring them seems like a hack on our part),
- # but that's too difficult in the general case. For example, sometimes
- # you need to use -B to point g77 at crt0.o, but there are some targets
- # that don't have crt0.o.
- regsub -all "(^|\n)\[^\n\]*file path prefix \[^\n\]* never used" $text "" text
- regsub -all "(^|\n)\[^\n\]*linker input file unused since linking not done" $text "" text
-
- #send_user "After:$text\n"
-
- return $text
-}
-