I did not see my previous email in the archives, so I am resending.

Alexander

---------- Forwarded message ----------
From: Alexander Kjeldaas
Date: 1 August 2011 08:53
Subject: [PATCH] Make ghc bug-compatible with the GNU gold linker
To: [email protected]


This is required for me to build ghc with GNU gold.

Thanks,
Alexander
From 617b5448cc11d97a4097915fa821f7c568921a93 Mon Sep 17 00:00:00 2001
From: Alexander Kjeldaas <[email protected]>
Date: Fri, 29 Jul 2011 23:35:47 +0200
Subject: [PATCH] Make ghc bug-compatible with the GNU gold linker wrt interpreting
 the INPUT option command. For gold, this requires using absolute
 paths.

---
 compiler/main/DriverPipeline.hs |    7 ++++++-
 1 files changed, 6 insertions(+), 1 deletions(-)

diff --git a/compiler/main/DriverPipeline.hs b/compiler/main/DriverPipeline.hs
index b1f50ac..959242e 100644
--- a/compiler/main/DriverPipeline.hs
+++ b/compiler/main/DriverPipeline.hs
@@ -2022,7 +2022,12 @@ joinObjectFiles dflags o_files output_fn = do
   if cLdIsGNULd == "YES"
      then do
           script <- newTempName dflags "ldscript"
-          writeFile script $ "INPUT(" ++ unwords o_files ++ ")"
+          -- The GNU gold linker does not seem to search through the
+          -- archive-library search path (given by the -L
+          -- option). This should be revisited at some point in the
+          -- future 20110729 gold 2.20.1-3ubuntu7.1
+          pwd <- getCurrentDirectory
+          writeFile script $ "INPUT(" ++ unwords (map (combine pwd) o_files) ++ ")"
           ld_r [SysTools.FileOption "" script]
      else do
           ld_r (map (SysTools.FileOption "") o_files)
-- 
1.7.3.1

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

Reply via email to