From c2489556cf9db128fc83ac85403054fbac27118e Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Mar 1997 03:10:29 +0000
Subject: [PATCH] [project @ 1997-03-14 03:10:29 by sof]
---
ghc/runtime/storage/SMap.lc | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/ghc/runtime/storage/SMap.lc b/ghc/runtime/storage/SMap.lc
index a4ce38219fb8..802c296f5a56 100644
--- a/ghc/runtime/storage/SMap.lc
+++ b/ghc/runtime/storage/SMap.lc
@@ -260,7 +260,7 @@ collect2s(W_ reqsize, smInfo *sm)
#ifdef PAR
RebuildGAtables(rtsTrue);
#else
- reportDeadForeignObjs( sm->ForeignObjList, NULL, &(sm->ForeignObjList) );
+ reportDeadForeignObjs( sm->ForeignObjList, NULL, &(sm->ForeignObjList));
#endif /* PAR */
/* TIDY UP AND RETURN */
@@ -521,7 +521,7 @@ collectHeap(reqsize, sm, do_full_collection)
RebuildGAtables(rtsFalse);
#else
reportDeadForeignObjs(sm->ForeignObjList,
- sm->OldForeignObjList,
+ sm->OldForeignObjList,
&(sm->OldForeignObjList));
sm->ForeignObjList = NULL; /* all (new) ForeignObjs have been promoted */
#endif /* PAR */
--
GitLab