From 4305902299fa606d9e808a775dd86952e1c0c5cf Mon Sep 17 00:00:00 2001 From: bonzini Date: Wed, 8 Feb 2006 12:26:25 +0000 Subject: [PATCH] 2006-02-08 Paolo Bonzini * lib/scanrtl.exp: New. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@110754 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 5 +- gcc/testsuite/lib/scanrtl.exp | 141 ++++++++++++++++++++++++++++++++++++++++++ 2 files changed, 145 insertions(+), 1 deletion(-) create mode 100644 gcc/testsuite/lib/scanrtl.exp diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 12536c9..9276275 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -8,6 +8,10 @@ 2006-02-08 Paolo Bonzini + * lib/scanrtl.exp: New. + +2006-02-08 Paolo Bonzini + * lib/gcc-dg.exp (cleanup-rtl-dump, cleanup-tree-dump, cleanup-ipa-dump): Update dump file glob patterns. * lib/scantree.exp (scan-tree-dump, scan-tree-dump-times, @@ -15,7 +19,6 @@ * lib/scanipa.exp (scan-ipa-dump, scan-ipa-dump-times, scan-ipa-dump-not, scan-ipa-dump-dem): Likewise. - * lib/scanrtl.exp: New. * lib/gcc-dg.exp: Load it. * objc.dg/stubify-2.m: Use scan-rtl-dump-not. diff --git a/gcc/testsuite/lib/scanrtl.exp b/gcc/testsuite/lib/scanrtl.exp new file mode 100644 index 0000000..fb89f1b --- /dev/null +++ b/gcc/testsuite/lib/scanrtl.exp @@ -0,0 +1,141 @@ +# Copyright (C) 2006 Free Software Foundation, Inc. + +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2 of the License, or +# (at your option) any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. + +# Various utilities for scanning rtl dump output, used by gcc-dg.exp and +# g++-dg.exp. + +load_lib scandump.exp + +# Utility for scanning compiler result, invoked via dg-final. +# Call pass if pattern is present, otherwise fail. +# +# Argument 0 is the regexp to match +# Argument 1 is the name of the dumped rtl pass +# Argument 2 handles expected failures and the like +proc scan-rtl-dump { args } { + + if { [llength $args] < 2 } { + error "scan-rtl-dump: too few arguments" + return + } + if { [llength $args] > 3 } { + error "scan-rtl-dump: too many arguments" + return + } + if { [llength $args] >= 3 } { + scan-dump "rtl" [lindex $args 0] "\[0-9\]\[0-9\]\[0-9\]r.[lindex $args 1]" [lindex $args 2] + } else { + scan-dump "rtl" [lindex $args 0] "\[0-9\]\[0-9\]\[0-9\]r.[lindex $args 1]" + } +} + +# Call pass if pattern is present given number of times, otherwise fail. +# Argument 0 is the regexp to match +# Argument 1 is number of times the regexp must be found +# Argument 2 is the name of the dumped rtl pass +# Argument 3 handles expected failures and the like +proc scan-rtl-dump-times { args } { + + if { [llength $args] < 3 } { + error "scan-rtl-dump: too few arguments" + return + } + if { [llength $args] > 4 } { + error "scan-rtl-dump: too many arguments" + return + } + if { [llength $args] >= 4 } { + scan-dump-times "rtl" [lindex $args 0] [lindex $args 1] \ + "\[0-9\]\[0-9\]\[0-9\]r.[lindex $args 2]" [lindex $args 3] + } else { + scan-dump-times "rtl" [lindex $args 0] [lindex $args 1] \ + "\[0-9\]\[0-9\]\[0-9\]r.[lindex $args 2]" + } +} + +# Call pass if pattern is not present, otherwise fail. +# +# Argument 0 is the regexp to match +# Argument 1 is the name of the dumped rtl pass +# Argument 2 handles expected failures and the like +proc scan-rtl-dump-not { args } { + + if { [llength $args] < 2 } { + error "scan-rtl-dump-not: too few arguments" + return + } + if { [llength $args] > 3 } { + error "scan-rtl-dump-not: too many arguments" + return + } + if { [llength $args] >= 3 } { + scan-dump-not "rtl" [lindex $args 0] \ + "\[0-9\]\[0-9\]\[0-9\]r.[lindex $args 1]" [lindex $args 2] + } else { + scan-dump-not "rtl" [lindex $args 0] \ + "\[0-9\]\[0-9\]\[0-9\]r.[lindex $args 1]" + } +} + +# Utility for scanning demangled compiler result, invoked via dg-final. +# Call pass if pattern is present, otherwise fail. +# +# Argument 0 is the regexp to match +# Argument 1 is the name of the dumped rtl pass +# Argument 2 handles expected failures and the like +proc scan-rtl-dump-dem { args } { + + if { [llength $args] < 2 } { + error "scan-rtl-dump-dem: too few arguments" + return + } + if { [llength $args] > 3 } { + error "scan-rtl-dump-dem: too many arguments" + return + } + if { [llength $args] >= 3 } { + scan-dump-dem "rtl" [lindex $args 0] \ + "\[0-9\]\[0-9\]\[0-9\]r.[lindex $args 1]" [lindex $args 2] + } else { + scan-dump-dem "rtl" [lindex $args 0] \ + "\[0-9\]\[0-9\]\[0-9\]r.[lindex $args 1]" + } +} + +# Call pass if demangled pattern is not present, otherwise fail. +# +# Argument 0 is the regexp to match +# Argument 1 is the name of the dumped rtl pass +# Argument 2 handles expected failures and the like +proc scan-rtl-dump-dem-not { args } { + + if { [llength $args] < 2 } { + error "scan-rtl-dump-dem-not: too few arguments" + return + } + if { [llength $args] > 3 } { + error "scan-rtl-dump-dem-not: too many arguments" + return + } + if { [llength $args] >= 3 } { + scan-dump-dem-not "rtl" [lindex $args 0] \ + "\[0-9\]\[0-9\]\[0-9\]r.[lindex $args 1]" \ + [lindex $args 2] + } else { + scan-dump-dem-not "rtl" [lindex $args 0] \ + "\[0-9\]\[0-9\]\[0-9\]r.[lindex $args 1]" + } +} -- 2.7.4