Commit 37ed96e4 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-11-14 11:46:12 by simonmar]

Fix up the interpreter following the recent modifications to
suspendThread/resumeThread.  Someone should test that foreign imports
in the interpreter still work.
parent 9bd3b5f3
......@@ -5,8 +5,8 @@
* Copyright (c) 1994-2000.
*
* $RCSfile: Interpreter.c,v $
* $Revision: 1.31 $
* $Date: 2001/11/08 12:46:31 $
* $Revision: 1.32 $
* $Date: 2001/11/14 11:46:12 $
* ---------------------------------------------------------------------------*/
#include "PosixSource.h"
......@@ -775,9 +775,9 @@ StgThreadReturnCode interpretBCO ( Capability* cap )
int o_itbl = BCO_NEXT;
void(*marshall_fn)(void*) = (void (*)(void*))BCO_LIT(o_itbl);
SAVE_STACK_POINTERS;
tok = suspendThread(cap);
tok = suspendThread(&cap->r);
marshall_fn ( (void*)(& StackWord(0) ) );
cap = resumeThread(tok);
cap = (Capability *)((void *)resumeThread(tok) - sizeof(StgFunTable));
LOAD_STACK_POINTERS;
goto nextInsn;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment