X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FInterpreter.c;fp=ghc%2Frts%2FInterpreter.c;h=b31ade08fbd3404b402ac8240fdbfacbbee6efdd;hb=c5cd2343c5a86c8cb5349823a9699b30a269f3e8;hp=f007c4abd9212c05dfbc409c6d5ca982418dc65c;hpb=6c17d627e08e03f2b107bb9ab5d9259c7739c0d6;p=ghc-hetmet.git

diff --git a/ghc/rts/Interpreter.c b/ghc/rts/Interpreter.c
index f007c4a..b31ade0 100644
--- a/ghc/rts/Interpreter.c
+++ b/ghc/rts/Interpreter.c
@@ -57,7 +57,7 @@
 #define RETURN_TO_SCHEDULER(todo,retcode)	\
    SAVE_STACK_POINTERS;				\
    cap->r.rCurrentTSO->what_next = (todo);	\
-   threadPaused(cap->r.rCurrentTSO);		\
+   threadPaused(cap,cap->r.rCurrentTSO);		\
    cap->r.rRet = (retcode);			\
    return cap;