X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fruntime%2Fstorage%2FSMextn.lc;fp=ghc%2Fruntime%2Fstorage%2FSMextn.lc;h=8c97177901cf53602637178148348f257bf9e2a6;hb=b315df38aa2a35b648b273bdcd68cc2d2c7d3529;hp=556e9a15f44eb3fda56b9e89674b4ab402f2c21b;hpb=11fa96cce1df9687fd76a8fd59a20778270e473d;p=ghc-hetmet.git

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