X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FMachDeps.h;h=7b71f7c37821b16ff5cb983b3ff95308b136d2cf;hb=9131f4adaf4db771a0a628f9e043693ff90a104b;hp=abe4405d5ed9bf6e793bd7e168dd5da2dfd5d40b;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git

diff --git a/includes/MachDeps.h b/includes/MachDeps.h
index abe4405..7b71f7c 100644
--- a/includes/MachDeps.h
+++ b/includes/MachDeps.h
@@ -105,4 +105,14 @@
 #endif
 #endif
 
+#ifndef TAG_BITS
+#if SIZEOF_HSWORD == 4
+#define TAG_BITS                2
+#else 
+#define TAG_BITS                3
+#endif
+#endif
+
+#define TAG_MASK ((1 << TAG_BITS) - 1)
+
 #endif /* MACHDEPS_H */