From 1690f928b379e8dac07832d25865ffe37d3c858b Mon Sep 17 00:00:00 2001 From: Hans-Peter Nilsson Date: Fri, 3 Mar 2023 21:18:05 +0100 Subject: [PATCH] testsuite: Support scanning tree-dumps No planned usage. * lib/target-supports.exp (check_compile): Support scanning tree-dumps. --- gcc/testsuite/lib/target-supports.exp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/gcc/testsuite/lib/target-supports.exp b/gcc/testsuite/lib/target-supports.exp index 4bad4da..a4fbc19 100644 --- 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. -- 2.7.4