MERGE: Fix a few uses of the wrong return convention for the scheduler

[ghc-hetmet.git] / rts / PrimOps.cmm

diff --git a/rts/PrimOps.cmm b/rts/PrimOps.cmm
index 437ce55..31f58d1 100644 (file)
--- a/rts/PrimOps.cmm
+++ b/rts/PrimOps.cmm
@@ -2142,8 +2142,7 @@ noDuplicatezh_fast
     foreign "C" threadPaused (MyCapability() "ptr", CurrentTSO "ptr") [];
     
     if (StgTSO_what_next(CurrentTSO) == ThreadKilled::I16) {
-        R1 = ThreadFinished;
-        jump StgReturn;
+        jump stg_threadFinished;
     } else {
         LOAD_THREAD_STATE();
         ASSERT(StgTSO_what_next(CurrentTSO) == ThreadRunGHC::I16);