From: sewardj <unknown>
Date: Tue, 9 Mar 1999 14:27:06 +0000 (+0000)
Subject: [project @ 1999-03-09 14:27:06 by sewardj]
X-Git-Tag: Approximately_9120_patches~6408
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a41d833a9b8377b6c03d86a7b023c1def41d97d1;p=ghc-hetmet.git

[project @ 1999-03-09 14:27:06 by sewardj]
#ifdeffery to make it work with interpreter.
---

diff --git a/ghc/rts/RtsStartup.c b/ghc/rts/RtsStartup.c
index fc31f16..5155d66 100644
--- a/ghc/rts/RtsStartup.c
+++ b/ghc/rts/RtsStartup.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: RtsStartup.c,v 1.8 1999/03/03 19:10:37 sof Exp $
+ * $Id: RtsStartup.c,v 1.9 1999/03/09 14:27:06 sewardj Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -30,6 +30,7 @@
 #include "LLC.h"
 #endif
 
+#ifdef COMPILER
 #ifndef aix_TARGET_OS /* AIX gives link errors with this as a const (RO assembler section) */
 const 
 #endif 
@@ -42,6 +43,7 @@ const
     &dummy_ret_closure
 #endif
 };
+#endif
 
 /*
  * Flag Structure