From: simonmar Date: Mon, 7 May 2001 11:42:31 +0000 (+0000) Subject: [project @ 2001-05-07 11:42:31 by simonmar] X-Git-Tag: Approximately_9120_patches~1987 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=af32621e837d1a751abd2cb23e7163e362e003c9;p=ghc-hetmet.git [project @ 2001-05-07 11:42:31 by simonmar] typo in Word64 code pointed out by Alastair Reid. --- diff --git a/ghc/lib/std/PrelWord.lhs b/ghc/lib/std/PrelWord.lhs index 7848de2..d2e44de 100644 --- a/ghc/lib/std/PrelWord.lhs +++ b/ghc/lib/std/PrelWord.lhs @@ -629,7 +629,7 @@ foreign import "stg_shiftRL64" unsafe shiftRL64# :: Word64# -> Int# -> W #else -data Word32 = W64# Word# deriving (Eq, Ord) +data Word64 = W64# Word# deriving (Eq, Ord) instance Num Word64 where (W64# x#) + (W64# y#) = W64# (x# `plusWord#` y#)