X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fincludes%2FClosureTypes.h;h=3e2b7cfe6e5352cd5c64cd6e29adaec7b88ee5b3;hb=e7c3f957fd36fd9f6369183b7a31e2a4a4c21b43;hp=f727fc7202addf1dff1eb2334afd86bb446b9ddc;hpb=0c4c660645d31c7f8054b044854e6e84b1566cf5;p=ghc-hetmet.git diff --git a/ghc/includes/ClosureTypes.h b/ghc/includes/ClosureTypes.h index f727fc7..3e2b7cf 100644 --- a/ghc/includes/ClosureTypes.h +++ b/ghc/includes/ClosureTypes.h @@ -1,5 +1,5 @@ /* ---------------------------------------------------------------------------- - * $Id: ClosureTypes.h,v 1.19 2004/11/18 09:56:17 tharris Exp $ + * $Id: ClosureTypes.h,v 1.20 2005/02/10 13:02:02 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -66,9 +66,9 @@ #define MVAR 50 #define ARR_WORDS 51 #define MUT_ARR_PTRS 52 -#define MUT_ARR_PTRS_FROZEN 53 -#define MUT_VAR 54 -#define MUT_CONS 55 +#define MUT_ARR_PTRS_FROZEN0 53 +#define MUT_ARR_PTRS_FROZEN 54 +#define MUT_VAR 55 #define WEAK 56 #define FOREIGN 57 #define STABLE_NAME 58 @@ -87,5 +87,5 @@ #define CATCH_RETRY_FRAME 71 #define CATCH_STM_FRAME 72 #define N_CLOSURE_TYPES 73 - + #endif /* CLOSURETYPES_H */