X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FThreadPaused.c;fp=rts%2FThreadPaused.c;h=94a5a15f4653c9442f87dd0ecfaa0d6996de2d7f;hb=12ec40c5c2b51e826477c557922297f105a41fdb;hp=7aee59dcd5f55af964275b9df09b1a997c0e4386;hpb=dc1deadaafcb7b4ced8a6a072382b07c39999327;p=ghc-hetmet.git

diff --git a/rts/ThreadPaused.c b/rts/ThreadPaused.c
index 7aee59d..94a5a15 100644
--- a/rts/ThreadPaused.c
+++ b/rts/ThreadPaused.c
@@ -252,7 +252,7 @@ threadPaused(Capability *cap, StgTSO *tso)
 
 		// And continue with threadPaused; there might be
 		// yet more computation to suspend.
-                frame = (StgClosure *)tso->sp + 2;
+                frame = (StgClosure *)(tso->sp + 2);
                 prev_was_update_frame = rtsFalse;
                 continue;
 	    }