[project @ 2002-03-02 17:51:22 by sof]

re-introduce dataToTagzh macro (unreg builds only)

diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h
index e6eeaf4..60a2ac6 100644 (file)
--- a/ghc/includes/PrimOps.h
+++ b/ghc/includes/PrimOps.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PrimOps.h,v 1.90 2001/12/18 15:23:16 sewardj Exp $
+ * $Id: PrimOps.h,v 1.91 2002/03/02 17:51:22 sof Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -342,6 +342,18 @@ EXTFUN_RTS(mkForeignObjzh_fast);
 
 
 /* -----------------------------------------------------------------------------
+   Constructor tags
+   -------------------------------------------------------------------------- */
+
+/*
+ * This macro is only used when compiling unregisterised code (see 
+ * AbsCUtils.dsCOpStmt for motivation & the Story).
+ */
+#ifndef TABLES_NEXT_TO_CODE
+# define dataToTagzh(r,a)  r=(GET_TAG(((StgClosure *)a)->header.info))
+#endif
+
+/* -----------------------------------------------------------------------------
    BCOs and BCO linkery
    -------------------------------------------------------------------------- */