+2006-02-03 Jeff Law <law@redhat.com>
+
+ * lib/gcc-dg.exp (cleanup-rtl-dump): Fix dump file regexp to
+ handle more than 100 dump files.
+ (cleanup-tree-dump, cleanup-ipa-dump): Likewise.
+ * lib/scantree.exp (scan-tree-dump): Likewise.
+ (scan-tree-dump-times, scan-tree-dump-not): Likewise.
+ (scan-tree-dump-dem, scan-tree-dump-dem-not): Likewise.
+ * lib/scanipa.exp (scan-ipa-dump): Likewise.
+ (scan-ipa-dump-times, scan-ipa-dump-not): Likewise.
+ (scan-ipa-dump-dem, scan-ipa-dump-dem-not): Likewise.
+
2006-02-03 Diego Novillo <dnovillo@redhat.com>
* gcc.dg/gomp/pr25990.c: Replace with pre-processed version.
#
# SUFFIX is the filename suffix pattern.
proc cleanup-rtl-dump { suffix } {
- cleanup-dump "\[0-9\]\[0-9\].$suffix"
+ cleanup-dump "\[0-9\]\*.$suffix"
}
# Remove a specific tree dump file for the current test.
#
# SUFFIX is the tree dump file suffix pattern.
proc cleanup-tree-dump { suffix } {
- cleanup-dump "t\[0-9\]\[0-9\].$suffix"
+ cleanup-dump "t\[0-9\]\*.$suffix"
}
# Remove a specific ipa dump file for the current test.
#
# SUFFIX is the ipa dump file suffix pattern.
proc cleanup-ipa-dump { suffix } {
- cleanup-dump "i\[0-9\]\[0-9\].$suffix"
+ cleanup-dump "i\[0-9\]\*.$suffix"
}
# Remove all dump files with the provided suffix.
return
}
if { [llength $args] >= 3 } {
- scan-dump "ipa" [lindex $args 0] "i\[0-9\]\[0-9\].[lindex $args 1]" [lindex $args 2]
+ scan-dump "ipa" [lindex $args 0] "i\[0-9\]\*.[lindex $args 1]" [lindex $args 2]
} else {
- scan-dump "ipa" [lindex $args 0] "i\[0-9\]\[0-9\].[lindex $args 1]"
+ scan-dump "ipa" [lindex $args 0] "i\[0-9\]\*.[lindex $args 1]"
}
}
}
if { [llength $args] >= 4 } {
scan-dump-times "ipa" [lindex $args 0] [lindex $args 1] \
- "i\[0-9\]\[0-9\].[lindex $args 2]" [lindex $args 3]
+ "i\[0-9\]\*.[lindex $args 2]" [lindex $args 3]
} else {
scan-dump-times "ipa" [lindex $args 0] [lindex $args 1] \
- "i\[0-9\]\[0-9\].[lindex $args 2]"
+ "i\[0-9\]\*.[lindex $args 2]"
}
}
}
if { [llength $args] >= 3 } {
scan-dump-not "ipa" [lindex $args 0] \
- "i\[0-9\]\[0-9\].[lindex $args 1]" [lindex $args 2]
+ "i\[0-9\]\*.[lindex $args 1]" [lindex $args 2]
} else {
scan-dump-not "ipa" [lindex $args 0] \
- "i\[0-9\]\[0-9\].[lindex $args 1]"
+ "i\[0-9\]\*.[lindex $args 1]"
}
}
}
if { [llength $args] >= 3 } {
scan-dump-dem "ipa" [lindex $args 0] \
- "i\[0-9\]\[0-9\].[lindex $args 1]" [lindex $args 2]
+ "i\[0-9\]\*.[lindex $args 1]" [lindex $args 2]
} else {
scan-dump-dem "ipa" [lindex $args 0] \
- "i\[0-9\]\[0-9\].[lindex $args 1]"
+ "i\[0-9\]\*.[lindex $args 1]"
}
}
}
if { [llength $args] >= 3 } {
scan-dump-dem-not "ipa" [lindex $args 0] \
- "i\[0-9\]\[0-9\].[lindex $args 1]" \
+ "i\[0-9\]\*.[lindex $args 1]" \
[lindex $args 2]
} else {
scan-dump-dem-not "ipa" [lindex $args 0] \
- "i\[0-9\]\[0-9\].[lindex $args 1]"
+ "i\[0-9\]\*.[lindex $args 1]"
}
}
return
}
if { [llength $args] >= 3 } {
- scan-dump "tree" [lindex $args 0] "t\[0-9\]\[0-9\].[lindex $args 1]" [lindex $args 2]
+ scan-dump "tree" [lindex $args 0] "t\[0-9\]\*.[lindex $args 1]" [lindex $args 2]
} else {
- scan-dump "tree" [lindex $args 0] "t\[0-9\]\[0-9\].[lindex $args 1]"
+ scan-dump "tree" [lindex $args 0] "t\[0-9\]\*.[lindex $args 1]"
}
}
}
if { [llength $args] >= 4 } {
scan-dump-times "tree" [lindex $args 0] [lindex $args 1] \
- "t\[0-9\]\[0-9\].[lindex $args 2]" [lindex $args 3]
+ "t\[0-9\]\*.[lindex $args 2]" [lindex $args 3]
} else {
scan-dump-times "tree" [lindex $args 0] [lindex $args 1] \
- "t\[0-9\]\[0-9\].[lindex $args 2]"
+ "t\[0-9\]\*.[lindex $args 2]"
}
}
}
if { [llength $args] >= 3 } {
scan-dump-not "tree" [lindex $args 0] \
- "t\[0-9\]\[0-9\].[lindex $args 1]" [lindex $args 2]
+ "t\[0-9\]\*.[lindex $args 1]" [lindex $args 2]
} else {
scan-dump-not "tree" [lindex $args 0] \
- "t\[0-9\]\[0-9\].[lindex $args 1]"
+ "t\[0-9\]\*.[lindex $args 1]"
}
}
}
if { [llength $args] >= 3 } {
scan-dump-dem "tree" [lindex $args 0] \
- "t\[0-9\]\[0-9\].[lindex $args 1]" [lindex $args 2]
+ "t\[0-9\]\*.[lindex $args 1]" [lindex $args 2]
} else {
scan-dump-dem "tree" [lindex $args 0] \
- "t\[0-9\]\[0-9\].[lindex $args 1]"
+ "t\[0-9\]\*.[lindex $args 1]"
}
}
}
if { [llength $args] >= 3 } {
scan-dump-dem-not "tree" [lindex $args 0] \
- "t\[0-9\]\[0-9\].[lindex $args 1]" \
+ "t\[0-9\]\*.[lindex $args 1]" \
[lindex $args 2]
} else {
scan-dump-dem-not "tree" [lindex $args 0] \
- "t\[0-9\]\[0-9\].[lindex $args 1]"
+ "t\[0-9\]\*.[lindex $args 1]"
}
}