/* Used to avoid long recursion due to selector thunks
*/
lnat thunk_selector_depth = 0;
-#define MAX_THUNK_SELECTOR_DEPTH 8
+#define MAX_THUNK_SELECTOR_DEPTH 16
static StgClosure * eval_thunk_selector ( nat field, StgSelector * p );
#ifdef PROFILING
// For the purposes of LDV profiling, we have destroyed
// the original selector thunk.
- SET_INFO(p, info_ptr);
+ SET_INFO(selectee, info_ptr);
LDV_RECORD_DEAD_FILL_SLOP_DYNAMIC(selectee);
#endif
((StgInd *)selectee)->indirectee = val;