From: Simon Marlow <simonmar@microsoft.com>
Date: Mon, 3 Sep 2007 10:19:12 +0000 (+0000)
Subject: bump MAX_THUNK_SELECTOR_DEPTH from 8 to 16
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4f87f8cad56c8430b0f2e665f78c3158a0577ee7

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.
---

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 );