X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FClosures.h;h=05cf7baaf87a2a5133c7607e9527f907fa194025;hb=393f26621b762225b204b3dc78b05a3ecf08871e;hp=df53ceedd36698b9f892bfa223e86c143ff96c09;hpb=6015a94f9108a502150565577b66c23650796639;p=ghc-hetmet.git

diff --git a/includes/Closures.h b/includes/Closures.h
index df53cee..05cf7ba 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;
@@ -306,8 +301,7 @@ typedef struct {
  */
 typedef struct {
     const struct _StgInfoTable* info;
-    StgHalfWord    size;
-    StgHalfWord    tag;
+    StgWord        size;
     StgClosure *   fun;
     StgClosure *   payload[FLEXIBLE_ARRAY];
 } StgRetFun;