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

[project @ 1998-08-07 09:19:12 by sof]
typo fix
---

diff --git a/ghc/runtime/storage/SMextn.lc b/ghc/runtime/storage/SMextn.lc
index 556e9a1..8c97177 100644
--- a/ghc/runtime/storage/SMextn.lc
+++ b/ghc/runtime/storage/SMextn.lc
@@ -394,7 +394,7 @@ freeForeigns(foList)
     P_ FOptr, temp;
     I_ FO_deaths = 0;
 
-    /* At this point, exitSSM() has been calledthe ForeignObjList is in an invalid state (since
+    /* At this point, exitSM() has been called, the ForeignObjList is in an invalid state (since
        some info ptrs will have been mangled) so we can't validate
        it. ADR */
 
@@ -408,7 +408,6 @@ freeForeigns(foList)
        while(IS_INDIRECTION(INFO_PTR(FOptr))) {
     	   FOptr = (P_) IND_CLOSURE_PTR(FOptr);
        }
-
        if ((P_) INFO_PTR(FOptr) == ForeignObj_info ) {
           TRACE_ForeignObj(FOptr);
           TRACE_FOdies(FOptr);