Disable recursive selector-thunk machinery until we figure out why it
sometimes makes programs loop forever.
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $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
*
*
* (c) The GHC Team 1998-1999
*
goto selector_loop;
case THUNK_SELECTOR:
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.
/* we can't recurse indefinitely in evacuate(), so set a
* limit on the number of times we can go around this
* loop.
}
}
/* otherwise, fall through... */
}
}
/* otherwise, fall through... */