Hi, This is my first time using jhc; I installed the jhc-0.7.1 tarball. Below program gives a segfault at runtime:
module Main (main) where
data Tree = Leaf | Branch [Tree]
mkTree :: Int -> Tree mkTree 0 = Leaf mkTree _ = Branch [mkTree 0]
leaves :: Tree -> Int leaves Leaf = 1 leaves (Branch ts) = sum $ map leaves ts
main :: IO () main = print . leaves . mkTree $ 1
$ rm -R ~/.jhc/ && jhc -o jhctest Test.lhs && ./jhctest jhc 0.7.1 (0.7.0-13) <snip> Running: gcc '-std=gnu99' -D_GNU_SOURCE '-falign-functions=4' -ffast-math -Wshadow -Wextra -Wall -Wno-unused-parameter -o jhctest jhctest_code.c -DNDEBUG -O3 Segmentation fault $ uname -a Linux 2.6.30-gentoo-r4 #3 SMP x86_64 Intel(R) Core(TM)2 CPU 6300 @ 1.86GHz GenuineIntel GNU/Linux And with "-f debug -d c": $ ./jhctest jhctest: jhctest_code.c:809: promote: Assertion `!(((uintptr_t)(s)) & 0x1)' failed. Aborted It throws an exception: static inline wptr_t A_STD A_UNUSED A_HOT promote(sptr_t s) { assert(!ISLAZY(s)); // <- *HERE* assert(jhc_valid_whnf((wptr_t)s)); return (wptr_t)s; } -- Gökhan San