From: Simon Marlow <marlowsd@gmail.com>
Date: Thu, 1 Jul 2010 08:50:46 +0000 (+0000)
Subject: threadPaused: fix pointer arithmetic
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=12ec40c5c2b51e826477c557922297f105a41fdb

threadPaused: fix pointer arithmetic
Noticed by Henrique Ferreiro <hferreiro@udc.es>, thanks!
---

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;
 	    }