Commit a1f9036c authored by simonmar's avatar simonmar

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

add missing MUT_ARR_PTRS_FROZEN0 cases
parent 37ee58b0
...@@ -128,6 +128,7 @@ processHeapClosureForDead( StgClosure *c ) ...@@ -128,6 +128,7 @@ processHeapClosureForDead( StgClosure *c )
case MUT_ARR_PTRS: case MUT_ARR_PTRS:
case MUT_ARR_PTRS_FROZEN: case MUT_ARR_PTRS_FROZEN:
case MUT_ARR_PTRS_FROZEN0:
size = mut_arr_ptrs_sizeW((StgMutArrPtrs *)c); size = mut_arr_ptrs_sizeW((StgMutArrPtrs *)c);
return size; return size;
......
...@@ -523,6 +523,7 @@ push( StgClosure *c, retainer c_child_r, StgClosure **first_child ) ...@@ -523,6 +523,7 @@ push( StgClosure *c, retainer c_child_r, StgClosure **first_child )
// StgMutArrPtr.ptrs, no SRT // StgMutArrPtr.ptrs, no SRT
case MUT_ARR_PTRS: case MUT_ARR_PTRS:
case MUT_ARR_PTRS_FROZEN: case MUT_ARR_PTRS_FROZEN:
case MUT_ARR_PTRS_FROZEN0:
init_ptrs(&se.info, ((StgMutArrPtrs *)c)->ptrs, init_ptrs(&se.info, ((StgMutArrPtrs *)c)->ptrs,
(StgPtr)(((StgMutArrPtrs *)c)->payload)); (StgPtr)(((StgMutArrPtrs *)c)->payload));
*first_child = find_ptrs(&se.info); *first_child = find_ptrs(&se.info);
...@@ -821,6 +822,7 @@ pop( StgClosure **c, StgClosure **cp, retainer *r ) ...@@ -821,6 +822,7 @@ pop( StgClosure **c, StgClosure **cp, retainer *r )
// StgMutArrPtr.ptrs, no SRT // StgMutArrPtr.ptrs, no SRT
case MUT_ARR_PTRS: case MUT_ARR_PTRS:
case MUT_ARR_PTRS_FROZEN: case MUT_ARR_PTRS_FROZEN:
case MUT_ARR_PTRS_FROZEN0:
*c = find_ptrs(&se->info); *c = find_ptrs(&se->info);
if (*c == NULL) { if (*c == NULL) {
popOff(); popOff();
...@@ -990,6 +992,7 @@ isRetainer( StgClosure *c ) ...@@ -990,6 +992,7 @@ isRetainer( StgClosure *c )
case MUT_VAR: case MUT_VAR:
case MUT_ARR_PTRS: case MUT_ARR_PTRS:
case MUT_ARR_PTRS_FROZEN: case MUT_ARR_PTRS_FROZEN:
case MUT_ARR_PTRS_FROZEN0:
// thunks are retainers. // thunks are retainers.
case THUNK: case THUNK:
...@@ -2071,6 +2074,7 @@ sanityCheckHeapClosure( StgClosure *c ) ...@@ -2071,6 +2074,7 @@ sanityCheckHeapClosure( StgClosure *c )
case MUT_ARR_PTRS: case MUT_ARR_PTRS:
case MUT_ARR_PTRS_FROZEN: case MUT_ARR_PTRS_FROZEN:
case MUT_ARR_PTRS_FROZEN0:
return mut_arr_ptrs_sizeW((StgMutArrPtrs *)c); return mut_arr_ptrs_sizeW((StgMutArrPtrs *)c);
case AP: 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