From 85b5aeed7f50174dc14fac382390c70534954199 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Tue, 2 Feb 1999 14:19:49 +0000
Subject: [PATCH] [project @ 1999-02-02 14:19:49 by simonm] Remove warnings in
deRefWeakzh.
---
ghc/includes/PrimOps.h | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/ghc/includes/PrimOps.h b/ghc/includes/PrimOps.h
index 2a7ce94c6265..50e031741a55 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))
--
GitLab