From: sof <unknown>
Date: Mon, 24 Aug 1998 10:02:08 +0000 (+0000)
Subject: [project @ 1998-08-24 10:02:08 by sof]
X-Git-Tag: Approx_2487_patches~298
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=16c698fde1e20d7cd909f8e2ce7ea1503fe94b4a;p=ghc-hetmet.git

[project @ 1998-08-24 10:02:08 by sof]
add_syslib: turn off -syslib loop checking
---

diff --git a/ghc/driver/ghc.lprl b/ghc/driver/ghc.lprl
index aeb6698..8691e7f 100644
--- a/ghc/driver/ghc.lprl
+++ b/ghc/driver/ghc.lprl
@@ -2649,7 +2649,19 @@ sub add_syslib {
        return;
     }
 
-    return if ( exists $Syslibs_added{$syslib} );
+    # This check is here to avoid syslib loops from
+    # spoiling the party. A side-effect of it is that
+    # it disallows multiple mentions of a syslib on a command-line,
+    # explicit *and* implicit ones (i.e., "-syslib exts -syslib misc"
+    # is not equal to "-syslib exts -syslib misc -syslib exts",
+    # which it needs to be)
+    # 
+    # Since our current collection of syslibs don't have any
+    # loops, this test is disabled.
+    #
+    # ToDo: loop avoidance scheme when the need arises
+    #
+    #return if ( exists $Syslibs_added{$syslib} );
     	
     $Syslibs_added{$syslib} = 1;