[project @ 1999-09-19 19:10:54 by sof]

nullAddr: avoid the use of a lit-lit

[project @ 1999-09-19 19:10:54 by sof]
nullAddr: avoid the use of a lit-lit
59cc2b33 · sof · 68b932d7 · 59cc2b33
Commit 59cc2b33 authored 25 years ago by sof
--- 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))