From e030f38cc248616fb3bcefd9c424fdffed98c963 Mon Sep 17 00:00:00 2001 From: simonmar Date: Mon, 9 Oct 2000 11:41:43 +0000 Subject: [PATCH] [project @ 2000-10-09 11:41:43 by simonmar] fix heap check bogons in mci_make_constr* --- ghc/rts/StgMiscClosures.hc | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 */ -- 1.7.10.4