From: sewardj <unknown>
Date: Mon, 14 Feb 2000 10:58:05 +0000 (+0000)
Subject: [project @ 2000-02-14 10:58:05 by sewardj]
X-Git-Tag: Approximately_9120_patches~5140
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=d381d2096a5386031a62d9826b9cd57901fce68d;p=ghc-hetmet.git

[project @ 2000-02-14 10:58:05 by sewardj]
initStorage: remove #ifdef COMPILER around call to mp_set_memory_functions.
---

diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c
index c18bda6..3dd36f7 100644
--- a/ghc/rts/Storage.c
+++ b/ghc/rts/Storage.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Storage.c,v 1.22 2000/01/12 15:15:18 simonmar Exp $
+ * $Id: Storage.c,v 1.23 2000/02/14 10:58:05 sewardj Exp $
  *
  * (c) The GHC Team, 1998-1999
  *
@@ -179,10 +179,8 @@ initStorage (void)
   alloc_blocks = 0;
   alloc_blocks_lim = RtsFlags.GcFlags.minAllocAreaSize;
 
-#ifdef COMPILER
   /* Tell GNU multi-precision pkg about our custom alloc functions */
   mp_set_memory_functions(stgAllocForGMP, stgReallocForGMP, stgDeallocForGMP);
-#endif
 
 #ifdef SMP
   pthread_mutex_init(&sm_mutex, NULL);