From: sof <unknown>
Date: Fri, 14 Mar 1997 03:10:29 +0000 (+0000)
Subject: [project @ 1997-03-14 03:10:29 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~809
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c2489556cf9db128fc83ac85403054fbac27118e;p=ghc-hetmet.git

[project @ 1997-03-14 03:10:29 by sof]
---

diff --git a/ghc/runtime/storage/SMap.lc b/ghc/runtime/storage/SMap.lc
index a4ce382..802c296 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 */