diff options
| author | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-12-15 19:16:24 +0000 |
|---|---|---|
| committer | ebotcazou <ebotcazou@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-12-15 19:16:24 +0000 |
| commit | bb1e9188e84aa28b064f5e12a7f93132dfd6d333 (patch) | |
| tree | 60c6ab2956aa4b2bf9c80b97c9e61243d16b01ec | |
| parent | 0a114449891899825e90aa6dadfe1d7ca7e293f2 (diff) | |
| download | ppe42-gcc-bb1e9188e84aa28b064f5e12a7f93132dfd6d333.tar.gz ppe42-gcc-bb1e9188e84aa28b064f5e12a7f93132dfd6d333.zip | |
* lib/scanasm.exp (get_ada_spec_filename): Use procedural form.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@194524 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/lib/scanasm.exp | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 67fa5537378..0360b7c407b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,9 @@ 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. 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"] } |
