From fcd4823055f358f830a73e0499683a68c688dc5b Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Thu, 18 May 2000 17:17:55 +0000 Subject: [PATCH] * lib/libjava.exp (bytecompile_file): Use exec, not system. From-SVN: r33989 --- libjava/testsuite/ChangeLog | 4 ++++ libjava/testsuite/lib/libjava.exp | 9 +++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/libjava/testsuite/ChangeLog b/libjava/testsuite/ChangeLog index 5abc88e5796..bad4daa2315 100644 --- a/libjava/testsuite/ChangeLog +++ b/libjava/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2000-05-18 Tom Tromey + + * lib/libjava.exp (bytecompile_file): Use exec, not system. + 2000-05-17 Tom Tromey * libjava.mauve/mauve.exp (test_mauve): Call `prune_warnings'. diff --git a/libjava/testsuite/lib/libjava.exp b/libjava/testsuite/lib/libjava.exp index 3d1e8c8b5a1..cf9b9a95ba2 100644 --- a/libjava/testsuite/lib/libjava.exp +++ b/libjava/testsuite/lib/libjava.exp @@ -49,7 +49,7 @@ proc find_gcjh {} { proc bytecompile_file { file objdir {classpath {}} } { global env global SUN_JAVAC - set dirname [file dirname $file]; + set dirname [file dirname $file] # If JDK doesn't run on your platform but some other # JDK-compatible javac does, you may set SUN_JAVAC to point to it. @@ -72,7 +72,12 @@ proc bytecompile_file { file objdir {classpath {}} } { set env(CLASSPATH) $classpath } if {[catch { - system "cd $dirname; $SUN_JAVAC $file -d $objdir 2>&1" + set here [pwd] + cd $dirname + set q [eval exec "$SUN_JAVAC [list $file] -d $objdir 2>@ stdout"] + cd $here + # "return" a result + set q $q } msg]} then { verbose "couldn't compile $file: $msg" set r 0 -- 2.30.2