From 4f87f8cad56c8430b0f2e665f78c3158a0577ee7 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 3 Sep 2007 10:19:12 +0000 Subject: [PATCH] bump MAX_THUNK_SELECTOR_DEPTH from 8 to 16 this "fixes" #1038, in that the example runs in constant space, but it's really only working around the problem. I have a better patch, attached to ticket #1038, but I'm wary about tinkering with this notorious bug farm so close to the release, so I'll push it after 6.8.1. --- rts/sm/Evac.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c index d533e5d..687ac10 100644 --- a/rts/sm/Evac.c +++ b/rts/sm/Evac.c @@ -24,7 +24,7 @@ /* 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 ); -- 1.7.10.4