libjava.exp (test_libjava_from_javac): Fixed typo.

	* lib/libjava.exp (test_libjava_from_javac): Fixed typo.  Always
	make class_files a list.

From-SVN: r27772

diff --git a/libjava/testsuite/ChangeLog b/libjava/testsuite/ChangeLog
index d7fe22c39ddc6abd8f0d4713b57aacadf42b85eb..feff365b360ef08e5ad262e7fd135e2e5f92f41b 100644 (file)
--- a/libjava/testsuite/ChangeLog
+++ b/libjava/testsuite/ChangeLog
@@ -1,5 +1,8 @@
 1999-06-25  Tom Tromey  <tromey@cygnus.com>
 
+       * lib/libjava.exp (test_libjava_from_javac): Fixed typo.  Always
+       make class_files a list.
+
        * lib/libjava.exp (test_libjava_from_javac): Prepend `$objdir/' to
        class file names.
 

diff --git a/libjava/testsuite/lib/libjava.exp b/libjava/testsuite/lib/libjava.exp
index 88380d14b741cae9a94117eeebe2386a61815c46..8c95fb3782ec5cdc69c29eadaf13c550b834f794 100644 (file)
--- a/libjava/testsuite/lib/libjava.exp
+++ b/libjava/testsuite/lib/libjava.exp
@@ -366,12 +366,13 @@ proc test_libjava_from_javac { options srcfile compile_args inpfile resultfile e
     # nothing if the file contains an interface and not a class.  I
     # believe this is a jv-scan bug.
     if {$class_out == ""} then {
-       set class_files $objdir/[file rootname [file tail $srcfile]].class
+       set class_files \
+         [list $objdir/[file rootname [file tail $srcfile]].class]
     } else {
        # Turn "a b" into "a.class b.class".
        set class_files {}
         foreach file [split [string trim $class_out]] {
-           lappend class_out $objdir/$file.class
+           lappend class_files $objdir/$file.class
        }
     }