g77-dg.exp: Use prune.exp for common procedures

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

From-SVN: r44916

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/lib/g77-dg.exp

@@ -18,6 +18,7 @@ load_lib dg.exp
 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,
@@ -100,7 +101,7 @@ proc g77-dg-test { prog do_what extra_tool_flags } {
 }
 
 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

gcc/testsuite/lib/g77.exp

@@ -153,31 +153,3 @@ proc g77_target_compile { source dest type options } {
     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
-}
-