From: sewardj <unknown>
Date: Thu, 14 Dec 2000 10:36:49 +0000 (+0000)
Subject: [project @ 2000-12-14 10:36:49 by sewardj]
X-Git-Tag: Approximately_9120_patches~3103
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b0879363f6c27d06992568a51feb1f7dd4f782ec;p=ghc-hetmet.git

[project @ 2000-12-14 10:36:49 by sewardj]
Wrap entire file in #ifdef GHCI, to create link errors if malconfigured
---

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index fa60810..de9897f 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.3 2000/12/12 12:19:57 simonmar Exp $
+ * $Id: Linker.c,v 1.4 2000/12/14 10:36:49 sewardj Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -21,6 +21,8 @@
 /* ToDo: configure this */
 #include <dlfcn.h>
 
+#ifdef GHCI /* endif is right at end of file */
+
 /* A bucket in the symbol hash-table.  Primarily, maps symbol names to
  * absolute addresses.  All symbols from a given module are linked
  * together, so they can be freed at the same time.  There's also a
@@ -1443,3 +1445,4 @@ is_not_dynamically_loaded_ptr ( char* p )
    return (sk == SECTIONKIND_OTHER);
 }
 
+#endif /* GHCI */