@@ -229,11 +229,11 @@ proc scan-ada-spec-not { args } {
# Call pass if pattern is present given number of times, otherwise fail.
proc scan-assembler-times { args } {
if { [llength $args] < 2 } {
- error "scan-assembler: too few arguments"
+ error "scan-assembler-times: too few arguments"
return
}
if { [llength $args] > 3 } {
- error "scan-assembler: too many arguments"
+ error "scan-assembler-times: too many arguments"
return
}
if { [llength $args] >= 3 } {
@@ -52,11 +52,11 @@ proc scan-ipa-dump { args } {
proc scan-ipa-dump-times { args } {
if { [llength $args] < 3 } {
- error "scan-ipa-dump: too few arguments"
+ error "scan-ipa-dump-times: too few arguments"
return
}
if { [llength $args] > 4 } {
- error "scan-ipa-dump: too many arguments"
+ error "scan-ipa-dump-times: too many arguments"
return
}
if { [llength $args] >= 4 } {
@@ -54,11 +54,11 @@ force_conventional_output_for scan-rtl-dump
proc scan-rtl-dump-times { args } {
if { [llength $args] < 3 } {
- error "scan-rtl-dump: too few arguments"
+ error "scan-rtl-dump-times: too few arguments"
return
}
if { [llength $args] > 4 } {
- error "scan-rtl-dump: too many arguments"
+ error "scan-rtl-dump-times: too many arguments"
return
}
if { [llength $args] >= 4 } {
@@ -52,11 +52,11 @@ proc scan-tree-dump { args } {
proc scan-tree-dump-times { args } {
if { [llength $args] < 3 } {
- error "scan-tree-dump: too few arguments"
+ error "scan-tree-dump-times: too few arguments"
return
}
if { [llength $args] > 4 } {
- error "scan-tree-dump: too many arguments"
+ error "scan-tree-dump-times: too many arguments"
return
}
if { [llength $args] >= 4 } {