testsuite: Support scanning tree-dumps

No planned usage.

	* lib/target-supports.exp (check_compile): Support scanning tree-dumps.

diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp
index 4bad4dae582fa1901732d481abfea268125e6be5..a4fbc1998c708b7f97bff9d3201412cb149d36c9 100644 (file)
--- a/gcc/testsuite/lib/target-supports.exp
+++ b/gcc/testsuite/lib/target-supports.exp
@@ -87,6 +87,7 @@ proc check_compile {basename type contents args} {
        assembly { set output ${basename}[pid].s }
        object { set output ${basename}[pid].o }
        executable { set output ${basename}[pid].exe }
+       "tree-*" -
        "rtl-*" {
            set output ${basename}[pid].s
            lappend options "additional_flags=-fdump-$type"
@@ -108,6 +109,9 @@ proc check_compile {basename type contents args} {
     if [regexp "rtl-(.*)" $type dummy rtl_type] {
        set scan_output "[glob $src.\[0-9\]\[0-9\]\[0-9\]r.$rtl_type]"
        file delete $output
+    } elseif [regexp "tree-(.*)" $type dummy tree_type] {
+       set scan_output "[glob $src.\[0-9\]\[0-9\]\[0-9\]t.$tree_type]"
+       file delete $output
     }
 
     # Restore additional_sources.