From: Eric Botcazou <ebotcazou@adacore.com>
Date: Sat, 15 Dec 2012 19:16:24 +0000 (+0000)
Subject: * lib/scanasm.exp (get_ada_spec_filename): Use procedural form.
X-Git-Tag: releases/gcc-4.8.0~1362
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=25293279b2461d483999e3ffd9b1a1401d5dc64d;p=thirdparty%2Fgcc.git

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

From-SVN: r194524
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 67fa5537378b..0360b7c407bc 100644
--- 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 598948e81474..a7d4f43b1a6b 100644
--- 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"]
 }