Commit 290e7896 authored by simonmar's avatar simonmar
Browse files

[project @ 2000-03-23 16:01:16 by simonmar]

Work around the slightly deranged way we deal with thunks and
MIN_UPD_SIZE at the moment.
parent e752aaea
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $Id: ProfHeap.c,v 1.7 2000/03/23 13:13:29 simonmar Exp $ * $Id: ProfHeap.c,v 1.8 2000/03/23 16:01:16 simonmar Exp $
* *
* (c) The GHC Team, 1998-2000 * (c) The GHC Team, 1998-2000
* *
...@@ -396,8 +396,6 @@ heapCensus(void) ...@@ -396,8 +396,6 @@ heapCensus(void)
case FUN_1_1: case FUN_1_1:
case FUN_0_2: case FUN_0_2:
case FUN_2_0: case FUN_2_0:
case THUNK_1_0:
case THUNK_0_1:
case THUNK_1_1: case THUNK_1_1:
case THUNK_0_2: case THUNK_0_2:
case THUNK_2_0: case THUNK_2_0:
...@@ -409,6 +407,8 @@ heapCensus(void) ...@@ -409,6 +407,8 @@ heapCensus(void)
size = sizeW_fromITBL(info); size = sizeW_fromITBL(info);
break; break;
case THUNK_1_0: /* ToDo - shouldn't be here */
case THUNK_0_1: /* " ditto " */
case THUNK_SELECTOR: case THUNK_SELECTOR:
size = sizeofW(StgHeader) + MIN_UPD_SIZE; size = sizeofW(StgHeader) + MIN_UPD_SIZE;
break; break;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment