+2004-11-25 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
+
+ * testsuite/lib/libjava.exp (libjava_arguments): Add new global
+ variable libjava_ld_library_path.
+ (gcj_invoke, libjava_invoke): Use it to set ld_library_path.
+
2004-11-25 Bryce McKinlay <mckinlay@redhat.com>
* java/util/ResourceBundle.java (BundleKey): Don't implement
global tool_root_dir
global libgcj_jar
global libjava_libgcc_s_path
+ global libjava_ld_library_path
global ld_library_path
global target_triplet
# Basically we want to build up a colon separated path list from
# the value of $libjava.
- set lpath {}
+ set lpath "."
foreach dir [list $libjava] {
foreach item [split $dir " "] {
switch -glob -- $item {
set lpath [concat $lpath $libjava_libgcc_s_path]
verbose "lpath = $lpath ; libgcc_s_path = $libjava_libgcc_s_path"
set ld_library_path [join $lpath :]
+ set libjava_ld_library_path "$ld_library_path"
# That's enough to make things work for the normal case.
# If we wanted to handle an arbitrary value of libjava,
# Invoke the program and see what happens. Return 0 on failure.
proc gcj_invoke {program expectFile ld_library_additions} {
global env
+ global libjava_ld_library_path
global ld_library_path
- set ld_library_path .
+ set ld_library_path "$libjava_ld_library_path"
if {[llength $ld_library_additions] > 0} {
append ld_library_path :[join $ld_library_additions :]
}
proc libjava_invoke {errname testName optName executable inpfile resultfile
ld_library_additions args} {
global env
+ global libjava_ld_library_path
global ld_library_path
- set ld_library_path .
+ set ld_library_path "$libjava_ld_library_path"
if {[llength $ld_library_additions] > 0} {
append ld_library_path :[join $ld_library_additions :]
}