projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 1998-08-07 09:19:12 by sof]
[ghc-hetmet.git]
/
ghc
/
runtime
/
storage
/
SMextn.lc
diff --git
a/ghc/runtime/storage/SMextn.lc
b/ghc/runtime/storage/SMextn.lc
index
556e9a1
..
8c97177
100644
(file)
--- 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;
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 */
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);
}
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);
if ((P_) INFO_PTR(FOptr) == ForeignObj_info ) {
TRACE_ForeignObj(FOptr);
TRACE_FOdies(FOptr);