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
This commit is contained in:
Mark Wielaard 2003-02-15 16:39:28 +00:00 committed by Mark Wielaard
parent c68c712ec3
commit 6ff741aa6c
3 changed files with 11 additions and 3 deletions

View file

@ -788,7 +788,7 @@ proc test_libjava_from_javac { options srcfile compile_args inpfile resultfile e
foreach c_file $class_files {
set executable [file rootname [file tail $c_file]].o
# Don't write files which contain $ chars.
set executable [string map {$ ^} $executable]
regsub -all "\\$" $executable "\^" executable
set x [libjava_prune_warnings \
[libjava_tcompile '$c_file' "$executable" $type $args]]
lappend removeList $executable