[testsuite] Use correct proc names in scanasm.exp

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

	* lib/scanasm.exp (scan-stack-usage, scan-stack-usage-not)
	(scan-ada-spec, scan-ada-spec-not, scan-lto-assembler):
	Use proc name as first argument to dg-scan.

From-SVN: r260858

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 43210ab82486a85d1e4efd69844b20694a7defc6..fd69566696baadb10815db051e428aa4a68f850c 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2018-05-29  Tom de Vries  <tom@codesourcery.com>
+
+       * lib/scanasm.exp (scan-stack-usage, scan-stack-usage-not)
+       (scan-ada-spec, scan-ada-spec-not, scan-lto-assembler):
+       Use proc name as first argument to dg-scan.
+
 2018-05-29  Tom de Vries  <tom@codesourcery.com>
 
        * lib/scanasm.exp (scan-hidden, scan-not-hidden): Handle being called

diff --git a/gcc/testsuite/lib/scanasm.exp b/gcc/testsuite/lib/scanasm.exp
index 5c574d550cb1719404575c8cae021a5a78de6ccc..701e1f6d8fb2b71f00b3df2ebf92ad4afa13375d 100644 (file)
--- a/gcc/testsuite/lib/scanasm.exp
+++ b/gcc/testsuite/lib/scanasm.exp
@@ -179,7 +179,7 @@ proc scan-stack-usage { args } {
     set filename [lindex $testcase 0]
     set output_file "[file rootname [file tail $filename]].su"
 
-    dg-scan "scan-file" 1 $testcase $output_file $args
+    dg-scan "scan-stack-usage" 1 $testcase $output_file $args
 }
 
 # Check that a pattern is not present in the .su file produced by the
@@ -191,7 +191,7 @@ proc scan-stack-usage-not { args } {
     set filename [lindex $testcase 0]
     set output_file "[file rootname [file tail $filename]].su"
 
-    dg-scan "scan-file-not" 0 $testcase $output_file $args
+    dg-scan "scan-stack-usage-not" 0 $testcase $output_file $args
 }
 
 # Return the filename of the Ada spec corresponding to the argument.
@@ -213,7 +213,7 @@ proc scan-ada-spec { args } {
     set testcase  [testname-for-summary]
     set output_file "[get_ada_spec_filename $testcase]"
 
-    dg-scan "scan-file" 1 $testcase $output_file $args
+    dg-scan "scan-ada-spec" 1 $testcase $output_file $args
 }
 
 # Check that a pattern is not present in the .ads file produced by the
@@ -223,7 +223,7 @@ proc scan-ada-spec-not { args } {
     set testcase  [testname-for-summary]
     set output_file "[get_ada_spec_filename $testcase]"
 
-    dg-scan "scan-file-not" 0 $testcase $output_file $args
+    dg-scan "scan-ada-spec-not" 0 $testcase $output_file $args
 }
 
 # Call pass if pattern is present given number of times, otherwise fail.
@@ -541,5 +541,5 @@ proc scan-lto-assembler { args } {
     set filename [lindex $testcase 0]
     set output_file "[file rootname [file tail $filename]].exe.ltrans0.s"
     verbose "output_file: $output_file"
-    dg-scan "scan-assembler" 1 $testcase $output_file $args
+    dg-scan "scan-lto-assembler" 1 $testcase $output_file $args
 }