From: sewardj <unknown>
Date: Tue, 3 Apr 2001 16:35:12 +0000 (+0000)
Subject: [project @ 2001-04-03 16:35:12 by sewardj]
X-Git-Tag: Approximately_9120_patches~2210
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=17219e16788255f934b518d1549aac92bdce7a8c;p=ghc-hetmet.git

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

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: