From: rrt <unknown>
Date: Tue, 17 Jul 2001 14:51:53 +0000 (+0000)
Subject: [project @ 2001-07-17 14:51:53 by rrt]
X-Git-Tag: Approximately_9120_patches~1526
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e1d82082439399c35c8dcb5a65c886abe5447f84;p=ghc-hetmet.git

[project @ 2001-07-17 14:51:53 by rrt]
Make -u's and symbols into separate args
---

diff --git a/ghc/driver/PackageSrc.hs b/ghc/driver/PackageSrc.hs
index 11b4cbf..52f453c 100644
--- a/ghc/driver/PackageSrc.hs
+++ b/ghc/driver/PackageSrc.hs
@@ -82,11 +82,13 @@ package_details installing
         extra_cc_opts  = [],
                 -- the RTS forward-references to a bunch of stuff in the prelude,
                 -- so we force it to be included with special options to ld.
-        extra_ld_opts  = map (
+        extra_ld_opts  =
+	   foldr (\ x xs -> "-u" : x : xs) []
+                 (map (
 #ifndef LEADING_UNDERSCORE
-		          "-u "
+		          ""
 #else
-			  "-u _"
+			  "_"
 #endif
                           ++ ) [
            "PrelBase_Izh_static_info"
@@ -119,7 +121,7 @@ package_details installing
          , "PrelIOBase_BlockedOnDeadMVar_closure"
          , "PrelWeak_runFinalizzerBatch_closure"
          , "__init_Prelude"
-         ]
+         ])
         },
 
         Package {
@@ -183,9 +185,9 @@ package_details installing
          extra_cc_opts  = [],
          extra_ld_opts  = [
 #ifndef LEADING_UNDERSCORE
-		          "-u Addr_Azh_static_info"
+		          "-u", "Addr_Azh_static_info"
 #else
-			  "-u _Addr_Azh_static_info"
+			  "-u", "_Addr_Azh_static_info"
 #endif
 			]
         },