From 50afe9ae83c2613c59a3f3d2e91bf49c297698a6 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 7 Aug 1998 09:20:19 +0000
Subject: [PATCH] [project @ 1998-08-07 09:20:19 by sof] exitSM: free foreign
 objects on old generation list too!

---
 ghc/runtime/storage/SMinit.lc |    8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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);
-- 
1.7.10.4