--- Begin Message ---
- To: submit@bugs.debian.org
- Subject: hugs: Segfaults with long Lists as argument for the function attached
- From: Malte Schirmacher <thana@thana.ath.cx>
- Date: Sat, 19 Jan 2008 16:42:54 +0100
- Message-id: <47921A7E.60408@thana.ath.cx>
Package: hugs
Version: 98.200609.21-5
Severity: normal
Doing my homework for university i stumbled over this problem. This is
the sourcecode:
times :: Int -> Int -> Int
times x 0 = 0
times x 1 = x
times x (y+1) = x + times x y
sumSquare :: [Int] -> Int
sumSquare [] = 0
sumSquare xs = sumSquare' 0 xs
where sumSquare' x [] = x
sumSquare' x ( y : ys ) = sumSquare' ( x + times y y ) ys
Now if i call
sumSquare [1..1000000]
in hugs it segfaults.
This should be reproducible so nothing more is attached.
-- System Information:
Debian Release: lenny/sid
APT prefers testing
APT policy: (500, 'testing'), (50, 'unstable')
Architecture: i386 (i686)
Kernel: Linux 2.6.22-3-686 (SMP w/2 CPU cores)
Locale: LANG=de_DE.UTF-8, LC_CTYPE=de_DE.UTF-8 (charmap=UTF-8)
Shell: /bin/sh linked to /bin/bash
Versions of packages hugs depends on:
ii libc6 2.7-5 GNU C Library: Shared libraries
ii libhugs-base-bundled [lib 98.200609.21-5 Basic libraries
ii libhugs-haskell98-bundled 98.200609.21-5 Compatibility with Haskell 98
ii libncurses5 5.6+20071215-1 Shared libraries for
terminal hand
ii libreadline5 5.2-3 GNU readline and history
libraries
Versions of packages hugs recommends:
pn libhugs-alut <none> (no description available)
pn libhugs-cabal <none> (no description available)
pn libhugs-fgl <none> (no description available)
pn libhugs-glut <none> (no description available)
pn libhugs-haskell-src <none> (no description available)
pn libhugs-haxml <none> (no description available)
pn libhugs-hgl <none> (no description available)
pn libhugs-hunit <none> (no description available)
pn libhugs-mtl <none> (no description available)
pn libhugs-network <none> (no description available)
pn libhugs-openal <none> (no description available)
pn libhugs-opengl <none> (no description available)
pn libhugs-parsec <none> (no description available)
pn libhugs-quickcheck <none> (no description available)
pn libhugs-stm <none> (no description available)
pn libhugs-time <none> (no description available)
pn libhugs-unix <none> (no description available)
pn libhugs-x11 <none> (no description available)
pn libhugs-xhtml <none> (no description available)
-- no debconf information
(END)
--- End Message ---