diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-12-31 11:34:35 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-12-31 11:34:35 +0000 |
| commit | bfe90953c7700efb3b62a7c63a823608add077b8 (patch) | |
| tree | c8f5ead7c818d8aff8888a777081ce805c4f91b0 /rts/Interpreter.c | |
| parent | f2c58035f765712341399be2dcec871757f529e6 (diff) | |
| download | haskell-bfe90953c7700efb3b62a7c63a823608add077b8.tar.gz | |
Use local mut lists in UPD_IND(), also clean up Updates.h
Diffstat (limited to 'rts/Interpreter.c')
| -rw-r--r-- | rts/Interpreter.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Interpreter.c b/rts/Interpreter.c index d1b11aea53..9071912f2d 100644 --- a/rts/Interpreter.c +++ b/rts/Interpreter.c @@ -443,7 +443,7 @@ do_return: // to a PAP by the GC, violating the invariant that PAPs // always contain a tagged pointer to the function. INTERP_TICK(it_retto_UPDATE); - UPD_IND(((StgUpdateFrame *)Sp)->updatee, tagged_obj); + UPD_IND(cap, ((StgUpdateFrame *)Sp)->updatee, tagged_obj); Sp += sizeofW(StgUpdateFrame); goto do_return; |