X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FClosures.h;h=15955fdcbaf0f13c8ddcbd4b0af8404816678f63;hb=6efacfe8bcbe66dfc3b52397ccbd34a58890520d;hp=64582ba6b5bd66b772589951f72f993ff7c9bec3;hpb=e7c08550be472eb94a383d4c6115c83e103fcd28;p=ghc-hetmet.git

diff --git a/includes/Closures.h b/includes/Closures.h
index 64582ba..15955fd 100644
--- a/includes/Closures.h
+++ b/includes/Closures.h
@@ -174,11 +174,6 @@ typedef struct {
 } StgStopFrame;  
 
 typedef struct {
-    StgHeader   header;
-    StgClosure *evacuee;
-} StgEvacuated;
-
-typedef struct {
   StgHeader header;
   StgWord data;
 } StgIntCharlikeClosure;
@@ -195,6 +190,7 @@ typedef struct _StgStableName {
 
 typedef struct _StgWeak {	/* Weak v */
   StgHeader header;
+  StgClosure *cfinalizer;
   StgClosure *key;
   StgClosure *value;		/* v */
   StgClosure *finalizer;