diff options
| author | Tom de Vries <tom@codesourcery.com> | 2018-05-29 07:08:11 +0000 |
|---|---|---|
| committer | Tom de Vries <vries@gcc.gnu.org> | 2018-05-29 07:08:11 +0000 |
| commit | b4d0b1a7e645712af72a6debc69f796e918169d6 (patch) | |
| tree | 3b1c8d5c8cb882e2f6a559e2d4e25373902cb33e | |
| parent | 240e12d031ad63550e9851aa4dd61f56f7d8f05b (diff) | |
| download | gcc-b4d0b1a7e645712af72a6debc69f796e918169d6.zip gcc-b4d0b1a7e645712af72a6debc69f796e918169d6.tar.gz gcc-b4d0b1a7e645712af72a6debc69f796e918169d6.tar.bz2 | |
[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
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/lib/scanasm.exp | 16 |
2 files changed, 15 insertions, 6 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e3766bc..43210ab 100644 --- 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 61e0f3f..5c574d5 100644 --- 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 } |