Skip to content

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
To upload designs, you'll need to enable LFS and have an admin enable hashed storage. More information