From b315df38aa2a35b648b273bdcd68cc2d2c7d3529 Mon Sep 17 00:00:00 2001 From: sof Date: Fri, 7 Aug 1998 09:19:12 +0000 Subject: [PATCH] [project @ 1998-08-07 09:19:12 by sof] typo fix --- ghc/runtime/storage/SMextn.lc | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) 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); -- 1.7.10.4