GHC panic!

[Tim Sauerwein]

Thanks for making the world a better place by
creating and supporting GHC.

T i m   /  Galois Connections, Inc.

---------------------------------------------------

Linux rover 2.2.14-6.0.1 #1 Fri Apr 14 10:44:40 EDT 2000 i686 unknown

gcc version egcs-2.91.66 19990314/Linux (egcs-1.1.2 release)

-----------------------------------------------------

Script started on Sat Jan  6 14:29:37 2001
[tim at rover tim]$ ghc -v -fglasgow-exts Main.hs
The Glorious Glasgow Haskell Compilation System, version 4.08.1

Effective command line: -v -fglasgow-exts

Ineffective C pre-processor:
 echo '{-# LINE 1 "Main.hs" -}' > /tmp/ghc2958.cpp && cat Main.hs >>
/tmp/ghc2958.cpp
0.00user 0.00system 0:00.00elapsed 0%CPU (0avgtext+0avgdata
0maxresident)k
0inputs+0outputs (107major+15minor)pagefaults 0swaps
ghc:recompile:Input file Main.hs newer than Main.o

Haskell compiler:
 /usr/lib/ghc-4.08.1/hsc /tmp/ghc2958.cpp  -fglasgow-exts
-fignore-interface-pragmas -fomit-interface-pragmas -fsimplify [
-fmax-simplifier-iterations4 ]   -fwarn-overlapping-patterns
-fwarn-missing-methods -fwarn-missing-fields -fwarn-deprecations
-fwarn-duplicate-exports -fhi-version=408 -static
"-himap=.%.hi:/usr/lib/ghc-4.08.1/imports/lang%.hi:/usr/lib/ghc-4.08.1/imports/lang%.hi:/usr/lib/ghc-4.08.1/imports/std%.hi"
"-himap-sep=:"    -v -hifile=/tmp/ghc2958.hi -olang=asm
-ofile=/tmp/ghc2958.s -F=/tmp/ghc2958_stb.c -FH=/tmp/ghc2958_stb.h +RTS
-H6000000 -K1000000
Glasgow Haskell Compiler, version 4.08, for Haskell 98, compiled by GHC
version 4.08

panic! (the `impossible' happened):
 tcLookupGlobalValue: <THIS>.PrelIOBase.returnIO{-0B,s-}

Please report it as a compiler bug to glasgow-haskell-bugs at haskell.org.


Command exited with non-zero status 1
0.49user 0.02system 0:00.51elapsed 98%CPU (0avgtext+0avgdata
0maxresident)k
0inputs+0outputs (1368major+1673minor)pagefaults 0swaps
deleting... /tmp/ghc2958.cpp /tmp/ghc2958.hi /tmp/ghc2958.s
/tmp/ghc2958_stb.c /tmp/ghc2958_stb.h

rm -f /tmp/ghc2958*
[tim at rover tim]$
Script done on Sat Jan  6 14:29:50 2001

------------------------------------------------

Contents of Main.hs:


module Main where

main = putStrLn (show (glark 55))

foreign import "glark" glark :: Int -> Int
foreign export ccall "div2" div2 :: Int -> Int

div2 x = x `div` 2