[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

gcc/testsuite/ChangeLog

+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

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
 }