[testsuite] Fix error message in scan-hidden/scan-not-hidden

2018-05-29  Tom de Vries  <tom@codesourcery.com>

	* lib/scanasm.exp (scan-hidden, scan-not-hidden): Handle being called
	with no arguments.

From-SVN: r260857

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e3766bcf4d9782eee76de75dd0442036476cc8f6..43210ab82486a85d1e4efd69844b20694a7defc6 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2018-05-29  Tom de Vries  <tom@codesourcery.com>
+
+       * lib/scanasm.exp (scan-hidden, scan-not-hidden): Handle being called
+       with no arguments.
+
 2018-05-28  Richard Biener  <rguenther@suse.de>
 
        PR tree-optimization/85934

diff --git a/gcc/testsuite/lib/scanasm.exp b/gcc/testsuite/lib/scanasm.exp
index 61e0f3f48aeea5785689c5df7a15dc2ccbc71029..5c574d550cb1719404575c8cae021a5a78de6ccc 100644 (file)
--- a/gcc/testsuite/lib/scanasm.exp
+++ b/gcc/testsuite/lib/scanasm.exp
@@ -125,11 +125,13 @@ proc scan-hidden { args } {
     set filename [lindex $testcase 0]
     set output_file "[file rootname [file tail $filename]].s"
 
-    set symbol [lindex $args 0]
+    if { [llength $args] > 0 } {
+       set symbol [lindex $args 0]
 
-    set hidden_scan [hidden-scan-for $symbol]
+       set hidden_scan [hidden-scan-for $symbol]
 
-    set args [lreplace $args 0 0 "$hidden_scan"]
+       set args [lreplace $args 0 0 "$hidden_scan"]
+    }
 
     dg-scan "scan-hidden" 1 $testcase $output_file $args
 }
@@ -143,10 +145,12 @@ proc scan-not-hidden { args } {
     set filename [lindex $testcase 0]
     set output_file "[file rootname [file tail $filename]].s"
 
-    set symbol [lindex $args 0]
-    set hidden_scan [hidden-scan-for $symbol]
+    if { [llength $args] > 0 } {
+       set symbol [lindex $args 0]
+       set hidden_scan [hidden-scan-for $symbol]
 
-    set args [lreplace $args 0 0 "$hidden_scan"]
+       set args [lreplace $args 0 0 "$hidden_scan"]
+    }
 
     dg-scan "scan-not-hidden" 0 $testcase $output_file $args
 }