From: sewardj <unknown>
Date: Tue, 19 Oct 1999 15:11:31 +0000 (+0000)
Subject: [project @ 1999-10-19 15:11:31 by sewardj]
X-Git-Tag: Approximately_9120_patches~5685
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c9cd97a0ae2ee74bbdd4aedfbe6ad0d7eb0b5e71;p=ghc-hetmet.git

[project @ 1999-10-19 15:11:31 by sewardj]
Increase default cutoff limit from 16 to 60.  nofib/real/anna
won't compile even with this value set to 50.  Presumably the
same problem afflicts Hugs98-Sept98 ?
---

diff --git a/ghc/interpreter/preds.c b/ghc/interpreter/preds.c
index c159bb2..612dfa3 100644
--- a/ghc/interpreter/preds.c
+++ b/ghc/interpreter/preds.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: preds.c,v $
- * $Revision: 1.6 $
- * $Date: 1999/10/15 21:40:54 $
+ * $Revision: 1.7 $
+ * $Date: 1999/10/19 15:11:31 $
  * ------------------------------------------------------------------------*/
 
 /* --------------------------------------------------------------------------
@@ -174,7 +174,7 @@ Cell ev; {
  *
  * ------------------------------------------------------------------------*/
 
-Int cutoff = 16;                        /* Used to limit depth of recursion*/
+Int cutoff = 60;                        /* Used to limit depth of recursion*/
 
 static Void local cutoffExceeded(pi,o,pi1,o1,ps)
 Cell pi, pi1;                           /* Display error msg when cutoff   */