Commit 8e86d601 authored by simonmar's avatar simonmar
Browse files

[project @ 2005-11-30 16:56:51 by simonmar]

fix bug in the case of an uncaught exception
parent b27a416b
......@@ -384,7 +384,11 @@ retry_pop_stack:
Sp(0) = R1; /* save the exception */
StgTSO_what_next(CurrentTSO) = ThreadKilled::I16;
SAVE_THREAD_STATE(); /* inline! */
R1 = ThreadFinished;
/* The return code goes in BaseReg->rRet, and BaseReg is returned in R1 */
StgRegTable_rRet(BaseReg) = ThreadFinished;
R1 = BaseReg;
jump StgReturn;
}
......
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