From: sof <unknown>
Date: Thu, 14 Jan 1999 18:36:18 +0000 (+0000)
Subject: [project @ 1999-01-14 18:36:18 by sof]
X-Git-Tag: Approx_2487_patches~103
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1922b5a9d9b2fb939334d4095ae139ded25d7e27;p=ghc-hetmet.git

[project @ 1999-01-14 18:36:18 by sof]
added isEmptyMVarZh macro
---

diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h
index 5a241b1..8bf3c36 100644
--- a/ghc/includes/PrimOps.h
+++ b/ghc/includes/PrimOps.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PrimOps.h,v 1.4 1999/01/14 11:57:48 sewardj Exp $
+ * $Id: PrimOps.h,v 1.5 1999/01/14 18:36:18 sof Exp $
  *
  * Macros for primitive operations in STG-ish C code.
  *
@@ -607,6 +607,9 @@ EF_(newMutVarZh_fast);
    -------------------------------------------------------------------------- */
 
 #define sameMVarZh(r,a,b)        r=(I_)((a)==(b))
+
+/* Assume external decl of EMPTY_MVAR_info is in scope by now */
+#define isEmptyMVarZh(r,a)       r=(I_)((GET_INFO((StgMVar*)(a))) == &EMPTY_MVAR_info )
 EF_(newMVarZh_fast);
 EF_(takeMVarZh_fast);
 EF_(putMVarZh_fast);