summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
f9843fc)
oops, forgot to thread the link and global_link fields of a large
TSO. Fixes a potential crash with the compacting collector.
/* -----------------------------------------------------------------------------
/* -----------------------------------------------------------------------------
- * $Id: GCCompact.c,v 1.6 2001/08/02 15:33:35 ken Exp $
+ * $Id: GCCompact.c,v 1.7 2001/08/08 13:44:13 simonmar Exp $
*
* (c) The GHC Team 2001
*
*
* (c) The GHC Team 2001
*
{
StgTSO *tso = (StgTSO *)p;
thread_stack(tso->sp, &(tso->stack[tso->stack_size]));
{
StgTSO *tso = (StgTSO *)p;
thread_stack(tso->sp, &(tso->stack[tso->stack_size]));
+ thread((StgPtr)&tso->link);
+ thread((StgPtr)&tso->global_link);