Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/a7c70e961208ceffd6a3a4626624740ea58dac0f

>---------------------------------------------------------------

commit a7c70e961208ceffd6a3a4626624740ea58dac0f
Author: Ian Lynagh <[email protected]>
Date:   Sun Oct 14 01:31:20 2012 +0100

    Move the RPATH computation into the build rules
    
    It doesn't really belong in package-data.mk

>---------------------------------------------------------------

 rules/build-prog.mk     |    2 +-
 utils/ghc-cabal/Main.hs |    4 ----
 2 files changed, 1 insertions(+), 5 deletions(-)

diff --git a/rules/build-prog.mk b/rules/build-prog.mk
index 239f55c..a0cb9e6 100644
--- a/rules/build-prog.mk
+++ b/rules/build-prog.mk
@@ -175,7 +175,7 @@ ifneq "$3" "0"
 ifeq "$$(DYNAMIC_BY_DEFAULT)" "YES"
 $1_$2_GHC_LD_OPTS = \
     -fno-use-rpaths \
-    $$(addprefix -optl-Wl$$(comma)-rpath -optl-Wl$$(comma),$$($1_$2_RPATHS))
+    $$(foreach d,$$($1_$2_TRANSITIVE_DEPS),-optl-Wl$$(comma)-rpath 
-optl-Wl$$(comma)'$$$$ORIGIN/../$$d')
 endif
 endif
 
diff --git a/utils/ghc-cabal/Main.hs b/utils/ghc-cabal/Main.hs
index 001e474..e179fc8 100644
--- a/utils/ghc-cabal/Main.hs
+++ b/utils/ghc-cabal/Main.hs
@@ -372,9 +372,6 @@ generate config_args distdir directory
           transitive_dep_ids = map Installed.sourcePackageId dep_pkgs
       wrappedIncludeDirs <- wrap $ forDeps Installed.includeDirs
       wrappedLibraryDirs <- wrap libraryDirs
-      let depDynlibDirName d = display (Installed.sourcePackageId d)
-          rpaths = map (\d -> "'$$ORIGIN/../" ++ depDynlibDirName d ++ "'")
-                       dep_pkgs
 
       let variablePrefix = directory ++ '_':distdir
       let xs = [variablePrefix ++ "_VERSION = " ++ display (pkgVersion 
(package pd)),
@@ -386,7 +383,6 @@ generate config_args distdir directory
                 variablePrefix ++ "_DEP_NAMES = " ++ unwords (map (display . 
packageName) dep_ids),
                 variablePrefix ++ "_TRANSITIVE_DEPS = " ++ unwords (map 
display transitive_dep_ids),
                 variablePrefix ++ "_TRANSITIVE_DEP_NAMES = " ++ unwords (map 
(display . packageName) transitive_dep_ids),
-                variablePrefix ++ "_RPATHS = " ++ unwords rpaths,
                 variablePrefix ++ "_INCLUDE_DIRS = " ++ unwords (includeDirs 
bi),
                 variablePrefix ++ "_INCLUDES = " ++ unwords (includes bi),
                 variablePrefix ++ "_INSTALL_INCLUDES = " ++ unwords 
(installIncludes bi),



_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc

Reply via email to