From 59cc2b33284e3fb3c5c35f5ca38d2292031ad52d Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 19 Sep 1999 19:10:54 +0000
Subject: [PATCH] [project @ 1999-09-19 19:10:54 by sof] nullAddr: avoid the
 use of a lit-lit

---
 ghc/lib/std/PrelAddr.lhs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/lib/std/PrelAddr.lhs b/ghc/lib/std/PrelAddr.lhs
index 80740d3ea65f..b334fd0bc5d3 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 = ``(W_)NULL''
+nullAddr = A# (int2Addr# 0#)
 
 plusAddr :: Addr -> Int -> Addr
 plusAddr (A# addr) (I# off) = A# (int2Addr# (addr2Int# addr +# off))
-- 
GitLab