Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/d9806821c86fef6eff845cd699646d8e4ec92a00 >--------------------------------------------------------------- commit d9806821c86fef6eff845cd699646d8e4ec92a00 Author: Ian Lynagh <[email protected]> Date: Wed Oct 12 17:21:41 2011 +0100 Whitespace only in cgrun044.hs >--------------------------------------------------------------- tests/codeGen/should_run/cgrun044.hs | 32 ++++++++++++++++---------------- 1 files changed, 16 insertions(+), 16 deletions(-) diff --git a/tests/codeGen/should_run/cgrun044.hs b/tests/codeGen/should_run/cgrun044.hs index cc2c5d6..b2509dd 100644 --- a/tests/codeGen/should_run/cgrun044.hs +++ b/tests/codeGen/should_run/cgrun044.hs @@ -43,15 +43,15 @@ double_numbers = , mkDouble (reverse_if_bigendian [0,0,0,0,0,0, 0xf0, 0x7f]) -- +inf , encodeFloat 1 2047 -- +Inf , encodeFloat 1 2048 - , encodeFloat 1 2047 -- signalling NaN + , encodeFloat 1 2047 -- signalling NaN , encodeFloat 0xf000000000000 2047 -- quiet NaN , 0/(0::Double) -- misc , 1.82173691287639817263897126389712638972163e-300 , 1.82173691287639817263897126389712638972163e+300 , 4.9406564558412465e-324 -- smallest possible denorm number - -- (as reported by enquire running - -- on a i686-pc-linux.) + -- (as reported by enquire running + -- on a i686-pc-linux.) , 2.2250738585072014e-308 , 0.11 , 0.100 @@ -59,12 +59,12 @@ double_numbers = -- smallest , let (l, _) = floatRange x x = encodeFloat 1 (l-1) - in x + in x -- largest , let (_, u) = floatRange x - d = floatDigits x - x = encodeFloat (floatRadix x ^ d - 1) (u - d) - in x + d = floatDigits x + x = encodeFloat (floatRadix x ^ d - 1) (u - d) + in x ] float_numbers :: [Float] @@ -73,7 +73,7 @@ float_numbers = , encodeFloat 0 0 -- 0 using encodeFloat method , encodeFloat 1 255 -- +Inf , encodeFloat 1 256 - , encodeFloat 11 255 -- signalling NaN + , encodeFloat 11 255 -- signalling NaN , encodeFloat 0xf00000 255 -- quiet NaN , 0/(0::Float) -- misc @@ -88,12 +88,12 @@ float_numbers = -- smallest , let (l, _) = floatRange x x = encodeFloat 1 (l-1) - in x + in x -- largest , let (_, u) = floatRange x - d = floatDigits x - x = encodeFloat (floatRadix x ^ d - 1) (u - d) - in x + d = floatDigits x + x = encodeFloat (floatRadix x ^ d - 1) (u - d) + in x ] ------------- @@ -185,10 +185,10 @@ mkDouble ls = ) :: ST s Double ) showAndPerform :: (Show a, Show b) - => (a -> b) - -> String - -> a - -> String + => (a -> b) + -> String + -> a + -> String showAndPerform fun name_fun val = name_fun ++ ' ':show val ++ " = " ++ show (fun val) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
