From: simonmar <unknown>
Date: Wed, 4 Aug 1999 10:29:25 +0000 (+0000)
Subject: [project @ 1999-08-04 10:29:25 by simonmar]
X-Git-Tag: Approximately_9120_patches~5911
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=909e46f5b462d2e704744120753c419dc7183a42;p=ghc-hetmet.git

[project @ 1999-08-04 10:29:25 by simonmar]
Cast NULL to (W_) to avoid warning.
---

diff --git a/ghc/lib/std/PrelAddr.lhs b/ghc/lib/std/PrelAddr.lhs
index c0b5939..80740d3 100644
--- a/ghc/lib/std/PrelAddr.lhs
+++ b/ghc/lib/std/PrelAddr.lhs
@@ -34,7 +34,7 @@ instance Show Addr where
    showsPrec p (A# a) = showsPrec p (I# (addr2Int# a))
 
 nullAddr :: Addr
-nullAddr = ``NULL''
+nullAddr = ``(W_)NULL''
 
 plusAddr :: Addr -> Int -> Addr
 plusAddr (A# addr) (I# off) = A# (int2Addr# (addr2Int# addr +# off))