From: simonmar <unknown>
Date: Mon, 9 Oct 2000 11:41:43 +0000 (+0000)
Subject: [project @ 2000-10-09 11:41:43 by simonmar]
X-Git-Tag: Approximately_9120_patches~3664
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e030f38cc248616fb3bcefd9c424fdffed98c963;p=ghc-hetmet.git

[project @ 2000-10-09 11:41:43 by simonmar]
fix heap check bogons in mci_make_constr*
---

diff --git a/ghc/rts/StgMiscClosures.hc b/ghc/rts/StgMiscClosures.hc
index a906387..609eba3 100644
--- a/ghc/rts/StgMiscClosures.hc
+++ b/ghc/rts/StgMiscClosures.hc
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: StgMiscClosures.hc,v 1.48 2000/09/11 11:17:09 sewardj Exp $
+ * $Id: StgMiscClosures.hc,v 1.49 2000/10/09 11:41:43 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -160,7 +160,7 @@ STGFUN(mci_make_constrI_entry)
     /* The total number of words to copy off the stack is np + nw.
        That doesn't include tag words, tho.
     */
-    HP_CHK_GEN_TICKY(size, NO_PTRS, mci_make_constr_entry, );
+    HP_CHK_GEN_TICKY(size, NO_PTRS, mci_make_constrI_entry, );
     TICK_ALLOC_PRIM(sizeofW(StgHeader), size-sizeofW(StgHeader), 0);
     CCS_ALLOC(CCCS,size); /* ccs prof */
 
@@ -206,7 +206,7 @@ STGFUN(mci_make_constrPP_entry)
     /* The total number of words to copy off the stack is np + nw.
        That doesn't include tag words, tho.
     */
-    HP_CHK_GEN_TICKY(size, NO_PTRS, mci_make_constr_entry, );
+    HP_CHK_GEN_TICKY(size, NO_PTRS, mci_make_constrPP_entry, );
     TICK_ALLOC_PRIM(sizeofW(StgHeader), size-sizeofW(StgHeader), 0);
     CCS_ALLOC(CCCS,size); /* ccs prof */