X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FCmm.h;fp=includes%2FCmm.h;h=7a68a517fe2f4943b27f5e9ddb772af199e5b78d;hb=04cddd339c000df6d02c90ce59dbffa58d2fe166;hp=4cfb432811f6da84f719f06b150772e1454da34c;hpb=9de1ad504a0a12dabd42b206f06ca04fa0e7009a;p=ghc-hetmet.git

diff --git a/includes/Cmm.h b/includes/Cmm.h
index 4cfb432..7a68a51 100644
--- a/includes/Cmm.h
+++ b/includes/Cmm.h
@@ -544,9 +544,6 @@
 #define END_TSO_QUEUE             stg_END_TSO_QUEUE_closure
 #define END_INVARIANT_CHECK_QUEUE stg_END_INVARIANT_CHECK_QUEUE_closure
 
-#define dirtyTSO(tso) \
-    StgTSO_flags(tso) = StgTSO_flags(tso) | TSO_DIRTY::I32;
-
 #define recordMutableCap(p, gen, regs)					\
   W_ __bd;								\
   W_ mut_list;								\