From: sof <unknown>
Date: Fri, 7 Aug 1998 09:20:19 +0000 (+0000)
Subject: [project @ 1998-08-07 09:20:19 by sof]
X-Git-Tag: Approx_2487_patches~478
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=50afe9ae83c2613c59a3f3d2e91bf49c297698a6;p=ghc-hetmet.git

[project @ 1998-08-07 09:20:19 by sof]
exitSM: free foreign objects on old generation list too!
---

diff --git a/ghc/runtime/storage/SMinit.lc b/ghc/runtime/storage/SMinit.lc
index 586c348..5f9459a 100644
--- a/ghc/runtime/storage/SMinit.lc
+++ b/ghc/runtime/storage/SMinit.lc
@@ -25,8 +25,14 @@ exitSM (smInfo *sm_info)
 {
 #ifndef PAR
     int rc;
-     /* Upon closing down the storage manager, we free all foreign objects */
+     /* Upon closing down the storage manager, we free all foreign objects 
+        (in new *and* old generations) 
+     */
     rc = freeForeigns(sm_info->ForeignObjList);
+# if defined(GCap) || defined(GCgn)
+    rc = freeForeigns(sm_info->OldForeignObjList);
+# endif
+
 #endif
      /* Return code ignored for now */
     stat_exit(sm_info->hp - hp_start);