From: sof <unknown>
Date: Thu, 2 Oct 1997 19:45:12 +0000 (+0000)
Subject: [project @ 1997-10-02 19:45:12 by sof]
X-Git-Tag: Approx_2487_patches~1449
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4665d67e17f12f179f01b679bbdec11d0bb33d8c;p=ghc-hetmet.git

[project @ 1997-10-02 19:45:12 by sof]
Cleanup
---

diff --git a/ghc/runtime/storage/SMmark.lhc b/ghc/runtime/storage/SMmark.lhc
index c2a703d..026e809 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;
     }