diff options
| -rw-r--r-- | ghc/runtime/storage/SMmark.lhc | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/runtime/storage/SMmark.lhc b/ghc/runtime/storage/SMmark.lhc index c2a703d0d2..026e809b88 100644 --- a/ghc/runtime/storage/SMmark.lhc +++ b/ghc/runtime/storage/SMmark.lhc @@ -1200,7 +1200,7 @@ STGFUN(_PRIn_TSO) default: /* update the register we just did; save the old mstack */ mstack = r->rR[oldpos - 2].p; - r->rR[oldpos - 2] = Mark; + r->rR[oldpos - 2].p = Mark; break; } |