* [testsuite] Minor tweak to get_ada_spec_filename
@ 2012-12-15 19:16 Eric Botcazou
0 siblings, 0 replies; only message in thread
From: Eric Botcazou @ 2012-12-15 19:16 UTC (permalink / raw)
To: gcc-patches
[-- Attachment #1: Type: text/plain, Size: 374 bytes --]
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 <ebotcazou@adacore.com>
* lib/scanasm.exp (get_ada_spec_filename): Use procedural form.
--
Eric Botcazou
[-- Attachment #2: p.diff --]
[-- Type: text/x-patch, Size: 566 bytes --]
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"]
}
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2012-12-15 19:16 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2012-12-15 19:16 [testsuite] Minor tweak to get_ada_spec_filename Eric Botcazou
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).