Re: eval_thunk_selector: strange selectee 29

I can confirm that this happens on my solaris machine as well. Moreover it
crashes my computer! I have seen the same crash when working with the ffi
on solaris but haven't been able to reproduce it. What happens is this:
In the window I'm running ghci/my ffi application gets filled with
prompts. I'm guessing something has started forking like crazy. Anyway
this eats up all the computer resources and all I can do is restart the
computer.

It would be Very Nice if you could fix the crashing bug as this sometimes
crashes programs running for example wxHaskell. I get very uneasy as soon
as I start to program with the ffi.

Cheers,

        /Josef

On Wed, 5 Nov 2003, Yitzchak Gale wrote:

> Hi,
>
> As requested, I am reporting the following bug that appeared
> during a ghci session on a Debian testing box.
>
> Regards,
> Yitz
>    ___         ___ _
>   / _ \ /\  /\/ __(_)
>  / /_\// /_/ / /  | |      GHC Interactive, version 6.0.1, for Haskell 98.
> / /_\\/ __  / /___| |      http://www.haskell.org/ghc/
> \____/\/ /_/\____/|_|      Type :? for help.
>
> Loading package base ... linking ... done.
> Prelude> replicate 5 "foo"
> ["foo","foo","foo","foo","foo"]
> Prelude> do {a <- sequence (replicate 10 (System.Random.getStdRandom
> (System.Random.randomR (1::Int, 5)))); print a}
> [2,1,1,4,3,3,2,4,4,3]
> Prelude> do {a <- sequence (replicate 10 (System.Random.getStdRandom
> (System.Random.randomR (1::Int, 5)))); print a}
> [1,2,2,2,1,4,2,1,4,3]
> Prelude> do {a <- sequence (replicate 10 (System.Random.getStdRandom
> (System.Random.randomR (1::Int, 5)))); print a}
> [4,1,3,4,2,4,4,2,4,2]
> Prelude> do {a <- sequence (replicate 10 (System.Random.getStdRandom
> (System.Random.randomR (1::Int, 5)))); print a}
> [3,4,4,1,5,1,4,2,1,1]
> Prelude> do {a <- sequence (replicate 10 (System.Random.getStdRandom
> (System.Random.randomR (1::Int, 5)))); print a}
> [2,4,3,2,2,4,1,4,4,2]
> Prelude> do {a <- sequence (replicate 10 (System.Random.getStdRandom
> (System.Random.randomR (1::Int, 5)))); print a}
> [5,4,2,3,4,1,5,3,3,1]
> Prelude> do {a <- sequence (repeat (System.Random.getStdRandom
> (System.Random.randomR (1::Int, 5)))); print (take 10 a)}
> Interrupted.
> Prelude> do {a <- sequence (replicate 10 (System.Random.randomRIO
> (1::Int, 5))); print a}
> [*** Exception: stack overflow
> Prelude> do {a <- sequence (replicate 10 (System.Random.randomRIO
> (1::Int, 5))); print a}
> <interactive>: internal error: eval_thunk_selector: strange selectee 29
>     Please report this as a bug to glasgow-haskell-bugs@xxxxxxxxxxx,
>     or http://www.sourceforge.net/projects/ghc/
>
> _______________________________________________
> Glasgow-haskell-bugs mailing list
> Glasgow-haskell-bugs@xxxxxxxxxxx
> http://www.haskell.org/mailman/listinfo/glasgow-haskell-bugs
>