[prev in list] [next in list] [prev in thread] [next in thread] 

List:       hugs-bugs
Subject:    Re: "dodo" bug
From:       "Sigbjorn Finne" <sof () galois ! com>
Date:       2002-05-13 13:57:36
Message-ID: 00a101c1fa86$232d0840$1e32a8c0 () sofxp
[Download RAW message or body]

Thanks for a fine report - turned out to be a code generation
bug that has now been fixed.

--sigbjorn

----- Original Message ----- 
From: "Edmund GRIMLEY EVANS" <Edmund.Grimley-Evans@arm.com>
To: <hugs-bugs@haskell.org>
Sent: Wednesday, May 01, 2002 12:34
Subject: "dodo" bug


> The following program prints 16843011 when I run it (version December
> 2001 of Hugs, compiled with gcc-3.0 or gcc-2.95.1).
> 
> Replace "else x" by "else True" to get the expected result.
> 
> Can you reproduce this, or is my system broken?
> 
> Edmund
> 
> 
> jj [] = 0
> jj (x:xs) = x + (jj xs) * 256
> 
> dodo :: Int
> dodo = jj (map f [0..3]) where
> 
> f k = y where
> 
> y = case True of
> _ -> (if (if True then True else x) then id else id) 0
> 
> x = True
> 
> main = print dodo



[prev in list] [next in list] [prev in thread] [next in thread]