FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

target-libpath.exp: New file defining set_ld_library_path_env_vars and restore_ld_library_path_env_vars.

Browse source 
* lib/target-libpath.exp: New file defining set_ld_library_path_env_vars
	and restore_ld_library_path_env_vars.
	* g++.dg/compat/compat.exp, lib/g++.exp, lib/gcc-dg.exp,
	lib/gfortran.exp, lib/objc.exp, lib/treelang.exp: Use new procs.
	* ada/acats/run_acats (LD_LIBRARY_PATH): Add previous LD_LIBRARY_PATH
	to LD_LIBRARY_PATH.  Export LD_LIBRARY_PATH.

	* testsuite/lib/libffi-dg.exp: Use new procs in target-libpath.exp.

	* testsuite/lib/libjava.exp,
	testsuite/libjava.jacks/jacks.exp: Use new procs in target-libpath.exp.

	* testsuite/lib/libmudflap.exp: Use new procs in target-libpath.exp.

	* testsuite/lib/libstdc++.exp: Use new procs in target-libpath.exp.

From-SVN: r91137
This commit is contained in:
John David Anglin 2004-11-24 04:39:41 +00:00
parent be6601c384
commit 1df8e83465
17 changed files with 2367 additions and 282 deletions
Download patch file Download diff file Expand all files Collapse all files

12
libjava/testsuite/libjava.jacks/jacks.exp
View file

@ -1,6 +1,13 @@
# Run the Jacks test suite.
# See http://www-124.ibm.com/developerworks/oss/cvs/jikes/~checkout~/jacks/jacks.html
proc load_gcc_lib { filename } {
global srcdir
load_file $srcdir/../../gcc/testsuite/lib/$filename
}
load_gcc_lib target-libpath.exp
proc gcj_jacks_setup_xfail {ary} {
upvar $ary array
global srcdir
@ -16,7 +23,7 @@ proc gcj_jacks_write {filename} {
global GCJ_UNDER_TEST
global libgcj_jar
global libjava_libgcc_s_path
global original_ld_library_path
global ld_library_path
set gcjl [split $GCJ_UNDER_TEST]
set gcj_cmd [lindex $gcjl 0]
@ -43,7 +50,8 @@ proc gcj_jacks_write {filename} {
# puts $fd "set tcltest::testConstraints(jvm) 1"
close $fd
setenv LD_LIBRARY_PATH $libjava_libgcc_s_path:$original_ld_library_path
set ld_library_path $libjava_libgcc_s_path
set_ld_library_path_env_vars
}
proc gcj_jacks_parse {file} {