* lib/scanasm.exp (get_ada_spec_filename): Use procedural form.

From-SVN: r194524

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 67fa5537378b08447afd237ace5118db6b0ac4b2..0360b7c407bca882512132fe50bc2727bd6faa59 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2012-12-15  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * lib/scanasm.exp (get_ada_spec_filename): Use procedural form.
+
 2012-12-15  Eric Botcazou  <ebotcazou@adacore.com>
 
        PR ada/52735

diff --git a/gcc/testsuite/lib/scanasm.exp b/gcc/testsuite/lib/scanasm.exp
index 598948e81474244527d85c864eff6f4a8f47d80e..a7d4f43b1a6b44a94b20f721f9363794ffe4096b 100644 (file)
--- a/gcc/testsuite/lib/scanasm.exp
+++ b/gcc/testsuite/lib/scanasm.exp
@@ -191,7 +191,7 @@ proc get_ada_spec_filename { testcase } {
     set filename  [lindex $testcase 0]
     set tailname  [file tail $filename]
     set extension [string trimleft [file extension $tailname] {.}]
-    set rootname  [regsub -all {\-} [file rootname $tailname] {_}]
+    regsub -all {\-} [file rootname $tailname] {_} rootname
 
     return [string tolower "${rootname}_${extension}.ads"]
 }