diff options
author | sewardj <unknown> | 1999-03-09 14:24:46 +0000 |
---|---|---|
committer | sewardj <unknown> | 1999-03-09 14:24:46 +0000 |
commit | b75f6d049a3bad4c964087bd810ccca435912ae9 (patch) | |
tree | 42025190fa6b980e0b67c86a4fe5ea43fb2ac2b3 /ghc/includes/Closures.h | |
parent | c733b2d7d82b9c4f5d529460bd370dcf08a5b2e8 (diff) | |
download | haskell-b75f6d049a3bad4c964087bd810ccca435912ae9.tar.gz |
[project @ 1999-03-09 14:24:43 by sewardj]
Include CAF_ENTEREDs on the mutables list so they get scavenged correctly.
Diffstat (limited to 'ghc/includes/Closures.h')
-rw-r--r-- | ghc/includes/Closures.h | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/ghc/includes/Closures.h b/ghc/includes/Closures.h index 76aeecc568..cb2270a9a0 100644 --- a/ghc/includes/Closures.h +++ b/ghc/includes/Closures.h @@ -1,5 +1,5 @@ /* ---------------------------------------------------------------------------- - * $Id: Closures.h,v 1.10 1999/02/26 17:46:04 simonm Exp $ + * $Id: Closures.h,v 1.11 1999/03/09 14:24:46 sewardj Exp $ * * (c) The GHC Team, 1998-1999 * @@ -180,9 +180,10 @@ typedef struct { } StgIndStatic; typedef struct StgCAF_ { - StgHeader header; - StgClosure *body; - StgClosure *value; + StgHeader header; + StgClosure *body; + StgMutClosure *mut_link; + StgClosure *value; struct StgCAF_ *link; } StgCAF; |