[testsuite] Minor tweak to get_ada_spec_filename

[Eric Botcazou]

This changes get_ada_spec_filename to use the procedural form of regsub 
instead of the functional form, which is apparently not supported on older 
versions of DejaGNU.

Tested on x86_64-suse-linux, applied on the mainline as obvious.


2012-12-15  Eric Botcazou  <ebotca...@adacore.com>

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


-- 
Eric Botcazou
Index: lib/scanasm.exp
===================================================================
--- lib/scanasm.exp	(revision 194517)
+++ lib/scanasm.exp	(working copy)
@@ -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"]
 }