From 4665d67e17f12f179f01b679bbdec11d0bb33d8c Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 2 Oct 1997 19:45:12 +0000
Subject: [PATCH] [project @ 1997-10-02 19:45:12 by sof] Cleanup
---
ghc/runtime/storage/SMmark.lhc | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/ghc/runtime/storage/SMmark.lhc b/ghc/runtime/storage/SMmark.lhc
index c2a703d0d249..026e809b88ec 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;
}
--
GitLab