From 17219e16788255f934b518d1549aac92bdce7a8c Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 3 Apr 2001 16:35:12 +0000
Subject: [PATCH] [project @ 2001-04-03 16:35:12 by sewardj] Disable recursive
 selector-thunk machinery until we figure out why it
 sometimes makes programs loop forever.

---
 ghc/rts/GC.c |    8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/ghc/rts/GC.c b/ghc/rts/GC.c
index 9f32d3a..120f02a 100644
--- a/ghc/rts/GC.c
+++ b/ghc/rts/GC.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: GC.c,v 1.101 2001/04/02 14:18:05 simonmar Exp $
+ * $Id: GC.c,v 1.102 2001/04/03 16:35:12 sewardj Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -1487,6 +1487,11 @@ loop:
 	goto selector_loop;
 
       case THUNK_SELECTOR:
+#         if 0
+          /* Disabled 03 April 2001 by JRS; it seems to cause the GC (or
+             something) to go into an infinite loop when the nightly
+             stage2 compiles PrelTup.lhs. */
+
 	  /* we can't recurse indefinitely in evacuate(), so set a
 	   * limit on the number of times we can go around this
 	   * loop.
@@ -1502,6 +1507,7 @@ loop:
 	      }
 	  }
 	  /* otherwise, fall through... */
+#         endif
 
       case AP_UPD:
       case THUNK:
-- 
1.7.10.4