summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
68b932d)
nullAddr: avoid the use of a lit-lit
showsPrec p (A# a) = showsPrec p (I# (addr2Int# a))
nullAddr :: Addr
showsPrec p (A# a) = showsPrec p (I# (addr2Int# a))
nullAddr :: Addr
+nullAddr = A# (int2Addr# 0#)
plusAddr :: Addr -> Int -> Addr
plusAddr (A# addr) (I# off) = A# (int2Addr# (addr2Int# addr +# off))
plusAddr :: Addr -> Int -> Addr
plusAddr (A# addr) (I# off) = A# (int2Addr# (addr2Int# addr +# off))