panic in ghci for lseek ffi import statement

{-# OPTIONS_GHC -fglasgow-exts #-}

import System.Posix.Types
import Foreign.C

foreign import ccall safe "unistd.h lseek" foo :: CInt -> COff -> CInt -> IO COff

{-
  save as bug.hs, then run ghci bug.hs
  my results:
   ___         ___ _
  / _ \ /\  /\/ __(_)
 / /_\// /_/ / /  | |      GHC Interactive, version 6.4.2, for Haskell 98.
/ /_\\/ __  / /___| |      http://www.haskell.org/ghc/
\____/\/ /_/\____/|_|      Type :? for help.

Loading package base-1.0 ... linking ... done.
Compiling Main             ( bug.hs, interpreted )
ghc-6.4.2: panic! (the `impossible' happened, GHC version 6.4.2):
        ByteCodeFFI.mkMarshalCode_wrk(x86) L_

bonus information:
- uname:
Linux nora 2.6.15-gentoo-r1 #9 PREEMPT Sun Feb 5 02:47:05 CET 2006 i686 AMD Athlon(tm) 64 Processor 3200+ GNU/Linux

- gcc:
Reading specs from /usr/lib/gcc/i386-pc-linux-gnu/3.4.6/specs
Configured with: /var/tmp/portage/gcc-3.4.6-r1/work/gcc-3.4.6/configure --prefix=/usr --bindir=/usr/i386-pc-linux-gnu/gcc-bin/3.4.6 --includedir=/usr/lib/gcc/i386-pc-linux-gnu/3.4.6/include --datadir=/usr/share/gcc-data/i386-pc-linux-gnu/3.4.6 --mandir=/usr/share/gcc-data/i386-pc-linux-gnu/3.4.6/man --infodir=/usr/share/gcc-data/i386-pc-linux-gnu/3.4.6/info --with-gxx-include-dir=/usr/lib/gcc/i386-pc-linux-gnu/3.4.6/include/g++-v3 --host=i386-pc-linux-gnu --build=i386-pc-linux-gnu --disable-altivec --enable-nls --without-included-gettext --with-system-zlib --disable-checking --disable-werror --disable-libunwind-exceptions --disable-multilib --disable-libgcj --enable-languages=c,c++,f77 --enable-shared --enable-threads=posix --enable-__cxa_atexit --enable-clocale=gnu
Thread model: posix
gcc version 3.4.6 (Gentoo 3.4.6-r1, ssp-3.4.5-1.0, pie-8.7.9)

-}

Trac metadata

Trac field	Value
Version	6.4.2
Type	Bug
TypeOfFailure	OtherFailure
Priority	normal
Resolution	Unresolved
Component	GHCi
Test case
Differential revisions
BlockedBy
Related
Blocking
CC
Operating system
Architecture

changed weight to 5

added GHCi Tbug Trac import labels

mentioned in commit 31836e4b

changed milestone to %6.6.1

Also happens with 6.6 on x86, but not on amd64.

Trac metadata

Trac field	Value
Test case	→ ffi017

assigned to @trac-igloo

closed

I've fixed this in the HEAD and 6.6 branch.

Thanks Ian

Trac metadata

Trac field	Value
Resolution	Unresolved → ResolvedFixed
Test case	ffi017 → ffi017 ffi018

added Pnormal label