/* ----------------------------------------------------------------------------
- * $Id: InfoTables.h,v 1.24 2001/12/18 19:42:41 sebc Exp $
+ * $Id: InfoTables.h,v 1.27 2002/05/14 08:15:49 matthewc Exp $
*
* (c) The GHC Team, 1998-1999
*
#endif /* 0 */
-typedef struct {
- /* empty */
-} StgParInfo;
-
-
/*
Copied from ghc-0.29; ToDo: check this code -- HWL
#endif /* DEBUG_CLOSURE */
+/* -----------------------------------------------------------------------------
+ Closure flags
+ -------------------------------------------------------------------------- */
+
/* The type flags provide quick access to certain properties of a closure. */
#define _HNF (1<<0) /* head normal form? */
* stack. We distinguish the two by checking whether the pointer is
* into text-space or not.
*/
-
+
+#if ia64_TARGET_ARCH
+/* We need to give the compiler a gentle hint to put it in text-space */
+#define INFO_TBL_CONST const __attribute__((section (".text")))
+#else
#define INFO_TBL_CONST const
+#endif
#endif /* INFOTABLES_H */