Skip to content

GHC
GHC
Commit a1f9036c authored by simonmar's avatar simonmar
Browse files
Options

[project @ 2005-07-26 14:44:22 by simonmar] 

add missing MUT_ARR_PTRS_FROZEN0 cases
parent 37ee58b0
Hide whitespace changes
Inline Side-by-side
Showing with 5 additions and 0 deletions
ghc/rts/LdvProfile.c
View file @ a1f9036c
......@@ -128,6 +128,7 @@ processHeapClosureForDead( StgClosure *c )
case MUT_ARR_PTRS:
case MUT_ARR_PTRS_FROZEN:
case MUT_ARR_PTRS_FROZEN0:
size = mut_arr_ptrs_sizeW((StgMutArrPtrs *)c);
return size;
......
ghc/rts/RetainerProfile.c
View file @ a1f9036c
......@@ -523,6 +523,7 @@ push( StgClosure *c, retainer c_child_r, StgClosure **first_child )
// StgMutArrPtr.ptrs, no SRT
case MUT_ARR_PTRS:
case MUT_ARR_PTRS_FROZEN:
case MUT_ARR_PTRS_FROZEN0:
init_ptrs(&se.info, ((StgMutArrPtrs *)c)->ptrs,
(StgPtr)(((StgMutArrPtrs *)c)->payload));
*first_child = find_ptrs(&se.info);
......@@ -821,6 +822,7 @@ pop( StgClosure **c, StgClosure **cp, retainer *r )
// StgMutArrPtr.ptrs, no SRT
case MUT_ARR_PTRS:
case MUT_ARR_PTRS_FROZEN:
case MUT_ARR_PTRS_FROZEN0:
*c = find_ptrs(&se->info);
if (*c == NULL) {
popOff();
......@@ -990,6 +992,7 @@ isRetainer( StgClosure *c )
case MUT_VAR:
case MUT_ARR_PTRS:
case MUT_ARR_PTRS_FROZEN:
case MUT_ARR_PTRS_FROZEN0:
// thunks are retainers.
case THUNK:
......@@ -2071,6 +2074,7 @@ sanityCheckHeapClosure( StgClosure *c )
case MUT_ARR_PTRS:
case MUT_ARR_PTRS_FROZEN:
case MUT_ARR_PTRS_FROZEN0:
return mut_arr_ptrs_sizeW((StgMutArrPtrs *)c);
case AP:
......
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