/* ---------------------------------------------------------------------------
- * $Id: Schedule.c,v 1.83 2000/12/04 12:31:21 simonmar Exp $
+ * $Id: Schedule.c,v 1.84 2000/12/14 15:19:48 sewardj Exp $
*
* (c) The GHC Team, 1998-2000
*
char *whatNext_strs[] = {
"ThreadEnterGHC",
"ThreadRunGHC",
- "ThreadEnterHugs",
+ "ThreadEnterInterp",
"ThreadKilled",
"ThreadComplete"
};
case ThreadRunGHC:
ret = StgRun((StgFunPtr) stg_returnToStackTop, cap);
break;
- case ThreadEnterHugs:
-#ifdef INTERPRETER
+ case ThreadEnterInterp:
+#ifdef GHCI
{
- StgClosure* c;
- IF_DEBUG(scheduler,sched_belch("entering Hugs"));
- c = (StgClosure *)(cap->rCurrentTSO->sp[0]);
- cap->rCurrentTSO->sp += 1;
- ret = enter(cap,c);
+ IF_DEBUG(scheduler,sched_belch("entering interpreter"));
+ ret = interpretBCO(cap);
break;
}
#else
* GC is finished.
*/
IF_DEBUG(scheduler,
- if (t->what_next == ThreadEnterHugs) {
+ if (t->what_next == ThreadEnterInterp) {
/* ToDo: or maybe a timer expired when we were in Hugs?
* or maybe someone hit ctrl-C
*/