From 25293279b2461d483999e3ffd9b1a1401d5dc64d Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Sat, 15 Dec 2012 19:16:24 +0000 Subject: [PATCH] * lib/scanasm.exp (get_ada_spec_filename): Use procedural form. From-SVN: r194524 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/lib/scanasm.exp | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 67fa5537378..0360b7c407b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2012-12-15 Eric Botcazou + + * lib/scanasm.exp (get_ada_spec_filename): Use procedural form. + 2012-12-15 Eric Botcazou PR ada/52735 diff --git a/gcc/testsuite/lib/scanasm.exp b/gcc/testsuite/lib/scanasm.exp index 598948e8147..a7d4f43b1a6 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"] } -- 2.30.2