X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FClosures.h;h=15955fdcbaf0f13c8ddcbd4b0af8404816678f63;hb=9a4ef343a46e823bcf949af8501c13cc8ca98fb1;hp=d5458f44517d69b706b3f18d8d4db75a2e4c49a5;hpb=9cef40bd4dd2536c7a370a1a9b78461c152805cc;p=ghc-hetmet.git

diff --git a/includes/Closures.h b/includes/Closures.h
index d5458f4..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;
@@ -232,7 +228,6 @@ typedef struct {
     StgArrWords   *instrs;	/* a pointer to an ArrWords */
     StgArrWords   *literals;	/* a pointer to an ArrWords */
     StgMutArrPtrs *ptrs;	/* a pointer to a  MutArrPtrs */
-    StgArrWords   *itbls;	/* a pointer to an ArrWords */
     StgHalfWord   arity;        /* arity of this BCO */
     StgHalfWord   size;         /* size of this BCO (in words) */
     StgWord       bitmap[FLEXIBLE_ARRAY];  /* an StgLargeBitmap */