mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-14 23:10:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

libjava.exp (libjava_arguments): Add new global variable libjava_ld_library_path.

Browse Source 
* 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.

From-SVN: r91314
This commit is contained in:
John David Anglin 2004-11-26 00:18:02 +00:00 committed by John David Anglin
parent 3a4e7e8f5d
commit f7fdebfbf6
2 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
libjava/ChangeLog
View File

@ -1,3 +1,9 @@
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

10
libjava/testsuite/lib/libjava.exp
View File

@ -323,6 +323,7 @@ proc libjava_arguments {{mode compile}} {
global tool_root_dir
global libgcj_jar
global libjava_libgcc_s_path
global libjava_ld_library_path
global ld_library_path
global target_triplet
@ -338,7 +339,7 @@ proc libjava_arguments {{mode compile}} {
# 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 {
@ -352,6 +353,7 @@ proc libjava_arguments {{mode compile}} {
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,
@ -453,9 +455,10 @@ proc gcj_link {program main files {options {}}} {
# 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 :]
}
@ -498,9 +501,10 @@ proc gcj_invoke {program expectFile 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 :]
}