Fix building RTS with gcc 2.*; declare all variables at the top of a block

[ghc-hetmet.git] / rts / ClosureFlags.c

diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c
index c282cf3..08b4dd3 100644 (file)
--- a/rts/ClosureFlags.c
+++ b/rts/ClosureFlags.c
@@ -23,8 +23,8 @@ StgWord16 closure_flags[] = {
  *  to thunks.)
  */
 
-/*                              0    1    2    3    4   5   6   7 */
-/*                           HNF  BTM   NS  STA  THU MUT UPT SRT */
+/*                              0    1    2    3    4   5   6   7     8 */
+/*                           HNF  BTM   NS  STA  THU MUT UPT SRT   IND */
 
 /* INVALID_OBJECT       = */ ( 0                                        ),
 /* CONSTR              = */ (_HNF|     _NS                              ),
@@ -61,9 +61,7 @@ StgWord16 closure_flags[] = {
 /* IND_STATIC          = */ (          _NS|_STA|                   _IND ),
 /* RET_BCO             = */ (     _BTM                                  ),
 /* RET_SMALL           = */ (     _BTM|                       _SRT      ),
-/* RET_VEC_SMALL       = */ (     _BTM|                       _SRT      ),
 /* RET_BIG             = */ (                                 _SRT      ),
-/* RET_VEC_BIG         = */ (                                 _SRT      ),
 /* RET_DYN             = */ (                                 _SRT      ),
 /* RET_FUN             = */ ( 0                                         ),
 /* UPDATE_FRAME                = */ (     _BTM                                  ),
@@ -101,6 +99,6 @@ StgWord16 closure_flags[] = {
 /* CATCH_STM_FRAME      = */ (     _BTM                                  )
 };
 
-#if N_CLOSURE_TYPES != 73
+#if N_CLOSURE_TYPES != 71
 #error Closure types changed: update ClosureFlags.c!
 #endif