From: simonm <unknown>
Date: Tue, 2 Feb 1999 14:19:49 +0000 (+0000)
Subject: [project @ 1999-02-02 14:19:49 by simonm]
X-Git-Tag: Approximately_9120_patches~6632
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=85b5aeed7f50174dc14fac382390c70534954199;p=ghc-hetmet.git

[project @ 1999-02-02 14:19:49 by simonm]
Remove warnings in deRefWeakzh.
---

diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h
index 2a7ce94..50e0317 100644
--- a/ghc/includes/PrimOps.h
+++ b/ghc/includes/PrimOps.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: PrimOps.h,v 1.13 1999/02/01 18:05:30 simonm Exp $
+ * $Id: PrimOps.h,v 1.14 1999/02/02 14:19:49 simonm Exp $
  *
  * Macros for primitive operations in STG-ish C code.
  *
@@ -687,13 +687,13 @@ EF_(seqzh_fast);
 EF_(mkWeakzh_fast);
 EF_(finaliseWeakzh_fast);
 
-#define deRefWeakzh(code,val,w) 			\
+#define deRefWeakzh(code,val,w)				\
   if (((StgWeak *)w)->header.info == &WEAK_info) {	\
 	code = 1;					\
-	val = ((StgWeak *)w)->value;			\
+	val = (P_)((StgWeak *)w)->value;		\
   } else {						\
 	code = 0;					\
-	val = (StgClosure *)w;				\
+	val = (P_)w;					\
   }
 
 #define sameWeakzh(w1,w2)  ((w1)==(w2))