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

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