summaryrefslogtreecommitdiff
path: root/ghc/includes/Closures.h
diff options
context:
space:
mode:
authorsewardj <unknown>1999-03-09 14:24:46 +0000
committersewardj <unknown>1999-03-09 14:24:46 +0000
commitb75f6d049a3bad4c964087bd810ccca435912ae9 (patch)
tree42025190fa6b980e0b67c86a4fe5ea43fb2ac2b3 /ghc/includes/Closures.h
parentc733b2d7d82b9c4f5d529460bd370dcf08a5b2e8 (diff)
downloadhaskell-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.h9
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;