diff options
| author | Mark Wielaard <mark@klomp.org> | 2003-02-15 16:39:28 +0000 |
|---|---|---|
| committer | Mark Wielaard <mark@gcc.gnu.org> | 2003-02-15 16:39:28 +0000 |
| commit | 6ff741aa6c830df0ec7adbd3c4ccf79845b0853a (patch) | |
| tree | 4844bccc8331ea6b06800c3f1b85a8707b5bdb7e /libjava/testsuite/libjava.mauve | |
| parent | c68c712ec33eef6239647b669015ea9af737c939 (diff) | |
| download | gcc-6ff741aa6c830df0ec7adbd3c4ccf79845b0853a.zip gcc-6ff741aa6c830df0ec7adbd3c4ccf79845b0853a.tar.gz gcc-6ff741aa6c830df0ec7adbd3c4ccf79845b0853a.tar.bz2 | |
libjava.exp (test_libjava_from_javac): Use regsub not string map.
* lib/libjava.exp (test_libjava_from_javac): Use regsub not string map.
* libjava.mauve/mauve.exp (mauve_compute_uses): Likewise.
(test_mauve): Likewise.
From-SVN: r62937
Diffstat (limited to 'libjava/testsuite/libjava.mauve')
| -rw-r--r-- | libjava/testsuite/libjava.mauve/mauve.exp | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/libjava/testsuite/libjava.mauve/mauve.exp b/libjava/testsuite/libjava.mauve/mauve.exp index 5eefd5d..cdc7e21 100644 --- a/libjava/testsuite/libjava.mauve/mauve.exp +++ b/libjava/testsuite/libjava.mauve/mauve.exp @@ -49,7 +49,8 @@ proc mauve_compute_uses {aName} { # Now add all inner classes foreach inner [glob -nocomplain [file rootname $file]$*.class] { # Prevent excessive escaping by replacing $ with a ^ in the .o name - set inner [string map {$ ^} [file rootname $inner]].o + set inner [file rootname $inner].o + regsub -all "\\$" $inner "\^" inner lappend uses($item) $inner } } @@ -186,7 +187,8 @@ proc test_mauve {} { if {! [file exists $obj]} then { verbose "compiling $obj for test of $class" # The .class file does contain a $, but we can quote it between "'"s. - set srcfile [string map {^ $} [file rootname $obj]].class + set srcfile [file rootname $obj].class + regsub -all "\\^" $srcfile "\$" srcfile set x [libjava_prune_warnings \ [libjava_tcompile '[pwd]/$srcfile' $obj object $compile_args]] if {$x != ""} then { |