Bugs item #815511, was opened at 2003-09-30 23:48
Message generated for change (Comment added) made by simonmar
You can respond by visiting:
https://sourceforge.net/tracker/?func=detailatid=108032aid=815511group_id=8032
Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Bugs item #815511, was opened at 2003-09-30 16:48
Message generated for change (Comment added) made by nobody
You can respond by visiting:
https://sourceforge.net/tracker/?func=detailatid=108032aid=815511group_id=8032
Category: None
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted
Bugs item #792761, was opened at 2003-08-21 20:46
Message generated for change (Comment added) made by simonmar
You can respond by visiting:
https://sourceforge.net/tracker/?func=detailatid=108032aid=792761group_id=8032
Category: None
Group: None
Status: Closed
Resolution: None
Priority: 5
Bugs item #815511, was opened at 2003-09-30 23:48
Message generated for change (Settings changed) made by simonmar
You can respond by visiting:
https://sourceforge.net/tracker/?func=detailatid=108032aid=815511group_id=8032
Category: None
Group: None
Status: Closed
Resolution: None
Priority: 5
The following program gives me a stack overflow for a file big.tex
15 bytes long.
-- Cut here --
module Main where
import Foreign.C.String
import Foreign.Ptr
import qualified GHC.IO
main =
do
(ptr,len) - GHC.IO.slurpFile big.tex
peekCStringLen (castPtr ptr,len)
return ()
The following program gives me a stack overflow for a file big.tex
15 bytes long.
-- Cut here --
module Main where
import Foreign.C.String
import Foreign.Ptr
import qualified GHC.IO
main =
do
(ptr,len) - GHC.IO.slurpFile big.tex
peekCStringLen (castPtr
Yes, I've run into this before. In fact this is one of those tricky
problems where you can't quite get tail-recursion where you want it:
(pseudo-ish code follows)
peekCString ptr = do
x - peek ptr
if x == '\0' then return [] else do
xs - peekCString (ptr + 1)
On Wed, Oct 01, 2003 at 05:34:47PM +0100, Alastair Reid wrote:
Yes, I've run into this before. In fact this is one of those tricky
problems where you can't quite get tail-recursion where you want it:
(pseudo-ish code follows)
peekCString ptr = do
x - peek ptr
if x ==