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 @@ ...@@ -5,8 +5,8 @@
* Copyright (c) 1994-2000. * Copyright (c) 1994-2000.
* *
* $RCSfile: Interpreter.c,v $ * $RCSfile: Interpreter.c,v $
* $Revision: 1.31 $ * $Revision: 1.32 $
* $Date: 2001/11/08 12:46:31 $ * $Date: 2001/11/14 11:46:12 $
* ---------------------------------------------------------------------------*/ * ---------------------------------------------------------------------------*/
#include "PosixSource.h" #include "PosixSource.h"
...@@ -775,9 +775,9 @@ StgThreadReturnCode interpretBCO ( Capability* cap ) ...@@ -775,9 +775,9 @@ StgThreadReturnCode interpretBCO ( Capability* cap )
int o_itbl = BCO_NEXT; int o_itbl = BCO_NEXT;
void(*marshall_fn)(void*) = (void (*)(void*))BCO_LIT(o_itbl); void(*marshall_fn)(void*) = (void (*)(void*))BCO_LIT(o_itbl);
SAVE_STACK_POINTERS; SAVE_STACK_POINTERS;
tok = suspendThread(cap); tok = suspendThread(&cap->r);
marshall_fn ( (void*)(& StackWord(0) ) ); marshall_fn ( (void*)(& StackWord(0) ) );
cap = resumeThread(tok); cap = (Capability *)((void *)resumeThread(tok) - sizeof(StgFunTable));
LOAD_STACK_POINTERS; LOAD_STACK_POINTERS;
goto nextInsn; 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