X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FStgStartup.cmm;h=2d83a676c079cb11c913a88fd5282b5c30b5ebab;hb=cbeb99efd4a117de5b028341dc41bc8f50717383;hp=33345cfcc5dd28fd21c6d70e66efe2e4b1cc2fca;hpb=9ff76535edb25ab7434284adddb5c64708ecb547;p=ghc-hetmet.git

diff --git a/rts/StgStartup.cmm b/rts/StgStartup.cmm
index 33345cf..2d83a67 100644
--- a/rts/StgStartup.cmm
+++ b/rts/StgStartup.cmm
@@ -128,6 +128,13 @@ stg_returnToSchedButFirst
   jump R2;
 }
 
+stg_threadFinished
+{
+  StgRegTable_rRet(BaseReg) = ThreadFinished;
+  R1 = BaseReg;
+  jump StgReturn;
+}  
+
 /* -----------------------------------------------------------------------------
     Strict IO application - performing an IO action and entering its result.