Commit 93eab3e9 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-08-08 13:44:13 by simonmar]

oops, forgot to thread the link and global_link fields of a large
TSO.  Fixes a potential crash with the compacting collector.
parent f9843fcd
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $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
* *
...@@ -306,6 +306,8 @@ update_fwd_large( bdescr *bd ) ...@@ -306,6 +306,8 @@ update_fwd_large( bdescr *bd )
{ {
StgTSO *tso = (StgTSO *)p; StgTSO *tso = (StgTSO *)p;
thread_stack(tso->sp, &(tso->stack[tso->stack_size])); thread_stack(tso->sp, &(tso->stack[tso->stack_size]));
thread((StgPtr)&tso->link);
thread((StgPtr)&tso->global_link);
continue; continue;
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment