diff options
| -rw-r--r-- | rts/Exception.cmm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/rts/Exception.cmm b/rts/Exception.cmm index 43f53c7ad3..cf24ef5b49 100644 --- a/rts/Exception.cmm +++ b/rts/Exception.cmm @@ -187,6 +187,7 @@ killThreadzh_fast target = R1; exception = R2; + /* Needs 3 words because throwToSingleThreaded uses some stack */ STK_CHK_GEN( WDS(3), R1_PTR & R2_PTR, killThreadzh_fast); /* @@ -215,8 +216,8 @@ killThreadzh_fast } else { W_ out; W_ retcode; - out = BaseReg + OFFSET_StgRegTable_rmp_tmp_w; - + out = Sp - WDS(1); /* ok to re-use stack space here */ + (retcode) = foreign "C" throwTo(MyCapability() "ptr", CurrentTSO "ptr", target "ptr", |