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

From-SVN: r194524

gcc/testsuite/ChangeLog

 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
 	* gnat.dg/nested_generic1.adb: New test.
 	* gnat.dg/nested_generic1_pkg.ad[sb]: New helper.

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"]
 }