Pointer Tagging

[ghc-hetmet.git] / includes / Closures.h

diff --git a/includes/Closures.h b/includes/Closures.h
index 64582ba..df53cee 100644 (file)
--- a/includes/Closures.h
+++ b/includes/Closures.h
@@ -306,7 +306,8 @@ typedef struct {
  */
 typedef struct {
     const struct _StgInfoTable* info;
-    StgWord        size;
+    StgHalfWord    size;
+    StgHalfWord    tag;
     StgClosure *   fun;
     StgClosure *   payload[FLEXIBLE_ARRAY];
 } StgRetFun;