From fc9051dd437312fd701a517aa8552e3a1ca844e3 Mon Sep 17 00:00:00 2001 From: "H.J. Lu" Date: Tue, 14 Sep 2004 21:16:29 +0000 Subject: [PATCH] re PR libffi/17465 (Testsuite in libffi overrides LD_LIBRARY_PATH) 2004-09-14 H.J. Lu PR libgcj/17465 * testsuite/lib/libffi-dg.exp: Don't use global ld_library_path. Set up LD_LIBRARY_PATH, SHLIB_PATH, LD_LIBRARYN32_PATH, LD_LIBRARY64_PATH, LD_LIBRARY_PATH_32, LD_LIBRARY_PATH_64 and DYLD_LIBRARY_PATH. From-SVN: r87511 --- libffi/ChangeLog | 8 ++++++++ libffi/testsuite/lib/libffi-dg.exp | 25 ++++++++++++++++--------- 2 files changed, 24 insertions(+), 9 deletions(-) diff --git a/libffi/ChangeLog b/libffi/ChangeLog index 82cbd8cdaf9..a172ea187e4 100644 --- a/libffi/ChangeLog +++ b/libffi/ChangeLog @@ -1,3 +1,11 @@ +2004-09-14 H.J. Lu + + PR libgcj/17465 + * testsuite/lib/libffi-dg.exp: Don't use global ld_library_path. + Set up LD_LIBRARY_PATH, SHLIB_PATH, LD_LIBRARYN32_PATH, + LD_LIBRARY64_PATH, LD_LIBRARY_PATH_32, LD_LIBRARY_PATH_64 and + DYLD_LIBRARY_PATH. + 2004-09-05 Andreas Tobler * testsuite/libffi.call/many_win32.c: Remove whitespaces. diff --git a/libffi/testsuite/lib/libffi-dg.exp b/libffi/testsuite/lib/libffi-dg.exp index f7dd5fd97a8..abeb47676b8 100644 --- a/libffi/testsuite/lib/libffi-dg.exp +++ b/libffi/testsuite/lib/libffi-dg.exp @@ -73,7 +73,7 @@ proc libffi-init { args } { global blddirffi global blddircxx global TOOL_OPTIONS - global ld_library_path + global tool global libffi_include global libffi_link_flags global tool_root_dir @@ -133,13 +133,21 @@ proc libffi-init { args } { # The same applies to darwin (DYLD_LIBRARY_PATH), solaris 32 bit # (LD_LIBRARY_PATH_32), solaris 64 bit (LD_LIBRARY_PATH_64), and HP-UX # (SHLIB_PATH). - setenv LD_LIBRARY_PATH $ld_library_path - setenv SHLIB_PATH $ld_library_path - setenv LD_LIBRARYN32_PATH $ld_library_path - setenv LD_LIBRARY64_PATH $ld_library_path - setenv LD_LIBRARY_PATH_32 $ld_library_path - setenv LD_LIBRARY_PATH_64 $ld_library_path - setenv DYLD_LIBRARY_PATH $ld_library_path + if {![is_remote target]} { + set ld_path "LD_LIBRARY_PATH SHLIB_PATH LD_LIBRARYN32_PATH LD_LIBRARY64_PATH LD_LIBRARY_PATH_32 LD_LIBRARY_PATH_64 DYLD_LIBRARY_PATH" + foreach path $ld_path { + if [info exists env($path)] { + # If we've already added these directories once, keep + # the existing path. + if {$ld_library_path != $env($path) + && [string first $ld_library_path: $env($path)] != 0} { + setenv $path "$ld_library_path:$env($path)" + } + } else { + setenv $path "$ld_library_path" + } + } + } } proc libffi_target_compile { source dest type options } { @@ -147,7 +155,6 @@ proc libffi_target_compile { source dest type options } { global srcdir global blddirffi global TOOL_OPTIONS - global ld_library_path global libffi_link_flags global libffi_include global target_triplet -- 2.30.2