projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix Win32 build
[ghc-hetmet.git]
/
ghc
/
includes
/
ClosureTypes.h
diff --git
a/ghc/includes/ClosureTypes.h
b/ghc/includes/ClosureTypes.h
index
3e2b7cf
..
f884026
100644
(file)
--- a/
ghc/includes/ClosureTypes.h
+++ b/
ghc/includes/ClosureTypes.h
@@
-1,16
+1,24
@@
/* ----------------------------------------------------------------------------
/* ----------------------------------------------------------------------------
- * $Id: ClosureTypes.h,v 1.20 2005/02/10 13:02:02 simonmar Exp $
*
*
- * (c) The GHC Team, 1998-1999
+ * (c) The GHC Team, 1998-2005
*
*
- * Closure Type Constants
+ * Closure Type Constants: out here because the native code generator
+ * needs to get at them.
*
* -------------------------------------------------------------------------- */
#ifndef CLOSURETYPES_H
#define CLOSURETYPES_H
*
* -------------------------------------------------------------------------- */
#ifndef CLOSURETYPES_H
#define CLOSURETYPES_H
-/* Out here because the native code generator needs to get at them. */
+/*
+ * WARNING WARNING WARNING
+ *
+ * Keep the closure tags contiguous: rts/ClosureFlags.c relies on
+ * this.
+ *
+ * If you add or delete any closure types, don't forget to update
+ * the closure flags table in rts/ClosureFlags.c.
+ */
/* Object tag 0 raises an internal error */
#define INVALID_OBJECT 0
/* Object tag 0 raises an internal error */
#define INVALID_OBJECT 0
@@
-60,17
+68,17
@@
#define STOP_FRAME 44
#define CAF_BLACKHOLE 45
#define BLACKHOLE 46
#define STOP_FRAME 44
#define CAF_BLACKHOLE 45
#define BLACKHOLE 46
-#define BLACKHOLE_BQ 47
-#define SE_BLACKHOLE 48
-#define SE_CAF_BLACKHOLE 49
-#define MVAR 50
-#define ARR_WORDS 51
-#define MUT_ARR_PTRS 52
+#define SE_BLACKHOLE 47
+#define SE_CAF_BLACKHOLE 48
+#define MVAR 49
+#define ARR_WORDS 50
+#define MUT_ARR_PTRS_CLEAN 51
+#define MUT_ARR_PTRS_DIRTY 52
#define MUT_ARR_PTRS_FROZEN0 53
#define MUT_ARR_PTRS_FROZEN 54
#define MUT_ARR_PTRS_FROZEN0 53
#define MUT_ARR_PTRS_FROZEN 54
-#define MUT_VAR 55
-#define WEAK 56
-#define FOREIGN 57
+#define MUT_VAR_CLEAN 55
+#define MUT_VAR_DIRTY 56
+#define WEAK 57
#define STABLE_NAME 58
#define TSO 59
#define BLOCKED_FETCH 60
#define STABLE_NAME 58
#define TSO 59
#define BLOCKED_FETCH 60