diff options
| -rw-r--r-- | rts/Sparks.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Sparks.c b/rts/Sparks.c index 75464d925b..7e89d46c66 100644 --- a/rts/Sparks.c +++ b/rts/Sparks.c @@ -91,7 +91,7 @@ newSpark (StgRegTable *reg, StgClosure *p) cap->sparks_created++; - postEvent(cap, EVENT_CREATE_SPARK, reg->rCurrentTSO->id, 0); + postEvent(cap, EVENT_CREATE_SPARK, cap->r.rCurrentTSO->id, 0); return 1; } |