[GHC] #5322: Windows build broken

[GHC]

#5322: Windows build broken
---------------------------------+------------------------------------------
    Reporter:  igloo             |        Owner:              
        Type:  bug               |       Status:  new         
    Priority:  highest           |    Milestone:  7.2.1       
   Component:  Compiler          |      Version:  7.1         
    Keywords:                    |     Testcase:              
   Blockedby:                    |   Difficulty:              
          Os:  Unknown/Multiple  |     Blocking:              
Architecture:  Unknown/Multiple  |      Failure:  None/Unknown
---------------------------------+------------------------------------------
Description changed by igloo:

Old description:

> Some time between the 17th June:
> http://darcs.haskell.org/ghcBuilder/builders/simonmar-
> win32-head/331/7.html
> and the 8th July: http://darcs.haskell.org/ghcBuilder/builders/simonmar-
> win32-head/331.html
> the Windows build broke.
>
> {{{
> $ cat q.hs
>
> module Main (main) where
>
> import Foreign
>
> foreign import ccall "wrapper" wrap_f_io :: IO () -> IO (FunPtr (IO ()))
> foreign import ccall "dynamic" call_io :: FunPtr (IO ()) -> IO ()
>
> fun :: IO ()
> fun = putStrLn "Foo"
>
> main :: IO ()
> main = do f <- wrap_f_io fun
>           call_io f
> }}}
>
> {{{
> $ ../../../../../../inplace/bin/ghc-stage1.exe --make q -debug -rtsopts
> -Wall -dcore-lint -dcmm-lint -fforce-recomp
> [1 of 1] Compiling Main             ( q.hs, q.o )
> Linking q.exe ...
>
> $ gdb q.exe
> GNU gdb 6.8.0.20080328-cvs (cygwin-special)
> Copyright (C) 2008 Free Software Foundation, Inc.
> License GPLv3+: GNU GPL version 3 or later
> <http://gnu.org/licenses/gpl.html>
> This is free software: you are free to change and redistribute it.
> There is NO WARRANTY, to the extent permitted by law.  Type "show
> copying"
> and "show warranty" for details.
> This GDB was configured as "i686-pc-cygwin"...
> (gdb) r +RTS -DS
> Starting program: /cygdrive/c/msys/1.0/home/ian/ghc/testsuite/tests/ghc-
> regress/ffi/should_run/q/q.exe +RTS -DS
> [New thread 208.0xd8]
> created capset 0 of type 2
> assigned cap 0 to capset 0
>
> Program received signal SIGSEGV, Segmentation fault.
> 0x005a87fc in stg_ap_p_info ()
> (gdb)
> }}}

New description:

 Some time between the 17th June:
 http://darcs.haskell.org/ghcBuilder/builders/simonmar-win32-head/323.html
 and the 8th July: http://darcs.haskell.org/ghcBuilder/builders/simonmar-
 win32-head/331.html
 the Windows build broke.

 {{{
 $ cat q.hs

 module Main (main) where

 import Foreign

 foreign import ccall "wrapper" wrap_f_io :: IO () -> IO (FunPtr (IO ()))
 foreign import ccall "dynamic" call_io :: FunPtr (IO ()) -> IO ()

 fun :: IO ()
 fun = putStrLn "Foo"

 main :: IO ()
 main = do f <- wrap_f_io fun
           call_io f
 }}}

 {{{
 $ ../../../../../../inplace/bin/ghc-stage1.exe --make q -debug -rtsopts
 -Wall -dcore-lint -dcmm-lint -fforce-recomp
 [1 of 1] Compiling Main             ( q.hs, q.o )
 Linking q.exe ...

 $ gdb q.exe
 GNU gdb 6.8.0.20080328-cvs (cygwin-special)
 Copyright (C) 2008 Free Software Foundation, Inc.
 License GPLv3+: GNU GPL version 3 or later
 <http://gnu.org/licenses/gpl.html>
 This is free software: you are free to change and redistribute it.
 There is NO WARRANTY, to the extent permitted by law.  Type "show copying"
 and "show warranty" for details.
 This GDB was configured as "i686-pc-cygwin"...
 (gdb) r +RTS -DS
 Starting program: /cygdrive/c/msys/1.0/home/ian/ghc/testsuite/tests/ghc-
 regress/ffi/should_run/q/q.exe +RTS -DS
 [New thread 208.0xd8]
 created capset 0 of type 2
 assigned cap 0 to capset 0

 Program received signal SIGSEGV, Segmentation fault.
 0x005a87fc in stg_ap_p_info ()
 (gdb)
 }}}

--

-- 
Ticket URL: <http://hackage.haskell.org/trac/ghc/ticket/5322#comment:1>
GHC <http://www.haskell.org/ghc/>
The Glasgow Haskell Compiler