projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
af0bcf9
)
[project @ 1997-03-14 03:10:29 by sof]
author
sof
<unknown>
Fri, 14 Mar 1997 03:10:29 +0000
(
03:10
+0000)
committer
sof
<unknown>
Fri, 14 Mar 1997 03:10:29 +0000
(
03:10
+0000)
ghc/runtime/storage/SMap.lc
patch
|
blob
|
history
diff --git
a/ghc/runtime/storage/SMap.lc
b/ghc/runtime/storage/SMap.lc
index
a4ce382
..
802c296
100644
(file)
--- a/
ghc/runtime/storage/SMap.lc
+++ b/
ghc/runtime/storage/SMap.lc
@@
-260,7
+260,7
@@
collect2s(W_ reqsize, smInfo *sm)
#ifdef PAR
RebuildGAtables(rtsTrue);
#else
#ifdef PAR
RebuildGAtables(rtsTrue);
#else
- reportDeadForeignObjs( sm->ForeignObjList, NULL, &(sm->ForeignObjList) );
+ reportDeadForeignObjs( sm->ForeignObjList, NULL, &(sm->ForeignObjList));
#endif /* PAR */
/* TIDY UP AND RETURN */
#endif /* PAR */
/* TIDY UP AND RETURN */
@@
-521,7
+521,7
@@
collectHeap(reqsize, sm, do_full_collection)
RebuildGAtables(rtsFalse);
#else
reportDeadForeignObjs(sm->ForeignObjList,
RebuildGAtables(rtsFalse);
#else
reportDeadForeignObjs(sm->ForeignObjList,
- sm->OldForeignObjList,
+ sm->OldForeignObjList,
&(sm->OldForeignObjList));
sm->ForeignObjList = NULL; /* all (new) ForeignObjs have been promoted */
#endif /* PAR */
&(sm->OldForeignObjList));
sm->ForeignObjList = NULL; /* all (new) ForeignObjs have been promoted */
#endif /* PAR */