X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FClosureFlags.c;h=eea609eff7a17d7f2f9163e94fc11b01d7795ea4;hb=66579ff945831c5fc9a17c58c722ff01f2268d76;hp=12e6632f240c2f41770d6c2d6278cceb9a3797ff;hpb=1ed01a871030f05905a9595e4837dfffc087ef64;p=ghc-hetmet.git

diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c
index 12e6632..eea609e 100644
--- a/rts/ClosureFlags.c
+++ b/rts/ClosureFlags.c
@@ -97,9 +97,10 @@ StgWord16 closure_flags[] = {
 /* TREC_HEADER          = */ (          _NS|         _MUT|_UPT           ),
 /* ATOMICALLY_FRAME     = */ (     _BTM                                  ),
 /* CATCH_RETRY_FRAME    = */ (     _BTM                                  ),
-/* CATCH_STM_FRAME      = */ (     _BTM                                  )
+/* CATCH_STM_FRAME      = */ (     _BTM                                  ),
+/* WHITEHOLE		= */ ( 0                                         )
 };
 
-#if N_CLOSURE_TYPES != 72
+#if N_CLOSURE_TYPES != 73
 #error Closure types changed: update ClosureFlags.c!
 #endif