diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2010-07-01 08:50:46 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2010-07-01 08:50:46 +0000 |
| commit | 12ec40c5c2b51e826477c557922297f105a41fdb (patch) | |
| tree | b9fb1ca2f160d491bd2f1883d2a0b6b53b253bcc /rts/ThreadPaused.c | |
| parent | dc1deadaafcb7b4ced8a6a072382b07c39999327 (diff) | |
| download | haskell-12ec40c5c2b51e826477c557922297f105a41fdb.tar.gz | |
threadPaused: fix pointer arithmetic
Noticed by Henrique Ferreiro <hferreiro@udc.es>, thanks!
Diffstat (limited to 'rts/ThreadPaused.c')
| -rw-r--r-- | rts/ThreadPaused.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/ThreadPaused.c b/rts/ThreadPaused.c index 7aee59dcd5..94a5a15f46 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; } |