X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FClosureFlags.c;h=5a34c5eabc4f80638246a6832309690ea567d54a;hp=c282cf3a8846c27025600edb684d82ee5285ad7b;hb=9ff76535edb25ab7434284adddb5c64708ecb547;hpb=6a7778b95a726f460288123d0539310bb66302f4 diff --git a/rts/ClosureFlags.c b/rts/ClosureFlags.c index c282cf3..5a34c5e 100644 --- a/rts/ClosureFlags.c +++ b/rts/ClosureFlags.c @@ -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