X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FStgStartup.cmm;fp=ghc%2Frts%2FStgStartup.cmm;h=2f2a759c81b752b0f4c7f686b958ed82fb127f93;hb=c5cd2343c5a86c8cb5349823a9699b30a269f3e8;hp=3569a390bf5cc02a89d1d3f4d696f08dbf9e5e29;hpb=6c17d627e08e03f2b107bb9ab5d9259c7739c0d6;p=ghc-hetmet.git

diff --git a/ghc/rts/StgStartup.cmm b/ghc/rts/StgStartup.cmm
index 3569a39..2f2a759 100644
--- a/ghc/rts/StgStartup.cmm
+++ b/ghc/rts/StgStartup.cmm
@@ -118,7 +118,7 @@ stg_returnToStackTop
 stg_returnToSched
 {
   SAVE_THREAD_STATE();
-  foreign "C" threadPaused(CurrentTSO);
+  foreign "C" threadPaused(MyCapability() "ptr", CurrentTSO);
   jump StgReturn;
 }
 
@@ -139,7 +139,7 @@ stg_returnToSchedNotPaused
 stg_returnToSchedButFirst
 {
   SAVE_THREAD_STATE();
-  foreign "C" threadPaused(CurrentTSO);
+  foreign "C" threadPaused(MyCapability() "ptr", CurrentTSO);
   jump R2;
 }