diff options
| author | sof <unknown> | 1997-10-02 19:45:12 +0000 |
|---|---|---|
| committer | sof <unknown> | 1997-10-02 19:45:12 +0000 |
| commit | 4665d67e17f12f179f01b679bbdec11d0bb33d8c (patch) | |
| tree | 7bbb19b48ae2e1b1c8224344b74048547696c6b5 /ghc/runtime | |
| parent | e510674aeef05e37b13b6ebb8af7a98a0bb16211 (diff) | |
| download | haskell-4665d67e17f12f179f01b679bbdec11d0bb33d8c.tar.gz | |
[project @ 1997-10-02 19:45:12 by sof]
Cleanup
Diffstat (limited to 'ghc/runtime')
| -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; } |