testsuite/lib/scanipa.exp

17 # Various utilities for scanning ipa dump output, used by gcc-dg.exp and
26 # Argument 1 is the name of the dumped ipa pass
28 proc scan-ipa-dump { args } {
31 	error "scan-ipa-dump: too few arguments"
35 	error "scan-ipa-dump: too many arguments"
39 	scan-dump "ipa" [lindex $args 0] "i\[0-9\]\[0-9\].[lindex $args 1]" [lindex $args 2]
41 	scan-dump "ipa" [lindex $args 0] "i\[0-9\]\[0-9\].[lindex $args 1]"
48 # Argument 2 is the name of the dumped ipa pass
50 proc scan-ipa-dump-times { args } {
53 	error "scan-ipa-dump: too few arguments"
57 	error "scan-ipa-dump: too many arguments"
61 	scan-dump-times "ipa" [lindex $args 0] [lindex $args 1] \
64 	scan-dump-times "ipa" [lindex $args 0] [lindex $args 1] \
72 # Argument 1 is the name of the dumped ipa pass
74 proc scan-ipa-dump-not { args } {
77 	error "scan-ipa-dump-not: too few arguments"
81 	error "scan-ipa-dump-not: too many arguments"
85 	scan-dump-not "ipa" [lindex $args 0] \
88 	scan-dump-not "ipa" [lindex $args 0] \
97 # Argument 1 is the name of the dumped ipa pass
99 proc scan-ipa-dump-dem { args } {
102 	error "scan-ipa-dump-dem: too few arguments"
106 	error "scan-ipa-dump-dem: too many arguments"
110 	scan-dump-dem "ipa" [lindex $args 0] \
113 	scan-dump-dem "ipa" [lindex $args 0] \
121 # Argument 1 is the name of the dumped ipa pass
123 proc scan-ipa-dump-dem-not { args } {
126 	error "scan-ipa-dump-dem-not: too few arguments"
130 	error "scan-ipa-dump-dem-not: too many arguments"
134 	scan-dump-dem-not "ipa" [lindex $args 0] \
138 	scan-dump-dem-not "ipa" [lindex $args 0] \