#16166: Compiling with profiling on Windows can cause linker errors -------------------------------------+------------------------------------- Reporter: crockeea | Owner: (none) Type: bug | Status: new Priority: normal | Milestone: Component: Compiler | Version: 8.6.3 Resolution: | Keywords: Operating System: Windows | Architecture: Type of failure: Compile-time | Unknown/Multiple crash or panic | Test Case: Blocked By: | Blocking: Related Tickets: | Differential Rev(s): Wiki Page: | -------------------------------------+------------------------------------- Changes (by crockeea): * Attachment "wai.zip" added. bug demo -- Ticket URL: http://ghc.haskell.org/trac/ghc/ticket/16166 GHC http://www.haskell.org/ghc/ The Glasgow Haskell Compiler

#16166: Compiling with profiling on Windows can cause linker errors -------------------------------------+------------------------------------- Reporter: crockeea | Owner: (none) Type: bug | Status: new Priority: normal | Milestone: Component: Compiler | Version: 8.6.3 Resolution: | Keywords: Operating System: Windows | Architecture: Type of failure: Compile-time | Unknown/Multiple crash or panic | Test Case: Blocked By: | Blocking: Related Tickets: | Differential Rev(s): Wiki Page: | -------------------------------------+------------------------------------- Changes (by RyanGlScott): * cc: Phyx- (added) * status: closed => new * resolution: invalid => Comment: No need to file a `stack` bug, as your initial hunch was correct: this is a GHC bug. You can reproduce this issue using nothing but GHC and your repro case: {{{#!hs {-# LANGUAGE BangPatterns #-} -- NetworkRequestHeader.hs module NetworkRequestHeader (parseHeaderLines, parseRequestLine) where import Control.Exception import Control.Monad import Data.ByteString.Internal (ByteString(..), memchr) import Data.Word import Foreign.ForeignPtr (withForeignPtr) import Foreign.Ptr (Ptr, plusPtr, minusPtr, nullPtr) import Foreign.Storable (peek) -- | Error types for bad 'Request'. data InvalidRequest = NonHttp instance Show InvalidRequest where show _ = "" instance Exception InvalidRequest parseHeaderLines :: [ByteString] -> IO (ByteString ,ByteString -- Path ,ByteString -- Path, parsed ) parseHeaderLines [] = throwIO $ NonHttp parseHeaderLines (firstLine:_) = do (method, path') <- parseRequestLine firstLine let path = path' return (method, path', path) parseRequestLine :: ByteString -> IO (ByteString ,ByteString) parseRequestLine (PS fptr off len) = withForeignPtr fptr $ \ptr -> do when (len < 14) $ throwIO NonHttp let methodptr = ptr `plusPtr` off limptr = methodptr `plusPtr` len lim0 = fromIntegral len pathptr0 <- memchr methodptr 32 lim0 -- ' ' when (pathptr0 == nullPtr || (limptr `minusPtr` pathptr0) < 11) $ throwIO NonHttp let pathptr = pathptr0 `plusPtr` 1 lim1 = fromIntegral (limptr `minusPtr` pathptr0) httpptr0 <- memchr pathptr 32 lim1 -- ' ' when (httpptr0 == nullPtr || (limptr `minusPtr` httpptr0) < 9) $ throwIO NonHttp let httpptr = httpptr0 `plusPtr` 1 lim2 = fromIntegral (httpptr0 `minusPtr` pathptr) checkHTTP httpptr queryptr <- memchr pathptr 63 lim2 -- '?' let !method = bs ptr methodptr pathptr0 !path | queryptr == nullPtr = bs ptr pathptr httpptr0 | otherwise = bs ptr pathptr queryptr return (method,path) where check :: Ptr Word8 -> Int -> Word8 -> IO () check p n w = do w0 <- peek $ p `plusPtr` n when (w0 /= w) $ throwIO NonHttp checkHTTP httpptr = do check httpptr 0 72 -- 'H' check httpptr 1 84 -- 'T' check httpptr 2 84 -- 'T' check httpptr 3 80 -- 'P' check httpptr 4 47 -- '/' check httpptr 6 46 -- '.' bs ptr p0 p1 = PS fptr o l where o = p0 `minusPtr` ptr l = p1 `minusPtr` p0 }}} {{{#!hs $ more Main.hs {-# LANGUAGE BangPatterns #-} -- Main.hs module Main (main) where import Network.RequestHeader import Control.Monad main :: IO () main = void $ parseHeaderLines [] }}} {{{ $ ghc -O1 -fforce-recomp -prof -fprof-auto Main.hs [1 of 2] Compiling Network.RequestHeader ( Network\RequestHeader.hs, Network\RequestHeader.o ) [2 of 2] Compiling Main ( Main.hs, Main.o ) Linking Main.exe ... .\Network\RequestHeader.o:fake:(.text+0x920): undefined reference to `__chkstk_ms' .\Network\RequestHeader.o:fake:(.text+0xc10): undefined reference to `__chkstk_ms' .\Network\RequestHeader.o:fake:(.text+0xc70): undefined reference to `__chkstk_ms' .\Network\RequestHeader.o:fake:(.text+0xdd8): undefined reference to `__chkstk_ms' .\Network\RequestHeader.o:fake:(.text+0xe90): undefined reference to `__chkstk_ms' .\Network\RequestHeader.o:fake:(.text+0xee0): more undefined references to `__chkstk_ms' follow collect2.exe: error: ld returned 1 exit status `gcc.exe' failed in phase `Linker'. (Exit code: 1) }}} Note that both the `-O1` and `-fprof-auto` flags are required to trigger the linker errors. (This explains why you seemingly couldn't trigger the error with `cabal-install`, as `cabal-install`'s `--enable-profiling` option doesn't imply the `-fprof-auto` flag, whereas `stack`'s `--profile` option does.) Phyx-, any ideas as to what might be causing this? -- Ticket URL: http://ghc.haskell.org/trac/ghc/ticket/16166#comment:2 GHC http://www.haskell.org/ghc/ The Glasgow Haskell Compiler

#16166: Compiling with profiling on Windows can cause linker errors -------------------------------------+------------------------------------- Reporter: crockeea | Owner: (none) Type: bug | Status: new Priority: normal | Milestone: Component: Compiler | Version: 8.6.3 Resolution: | Keywords: Operating System: Windows | Architecture: Type of failure: Compile-time | Unknown/Multiple crash or panic | Test Case: Blocked By: | Blocking: Related Tickets: | Differential Rev(s): Wiki Page: | -------------------------------------+------------------------------------- Comment (by Phyx-): Hmm guess not, seems name mangling is wrong.. patch coming. -- Ticket URL: http://ghc.haskell.org/trac/ghc/ticket/16166#comment:4 GHC http://www.haskell.org/ghc/ The Glasgow Haskell Compiler

#16166: Compiling with profiling on Windows can cause linker errors -------------------------------------+------------------------------------- Reporter: crockeea | Owner: (none) Type: bug | Status: merge Priority: normal | Milestone: 8.6.4 Component: Compiler | Version: 8.6.3 Resolution: | Keywords: Operating System: Windows | Architecture: Type of failure: Compile-time | Unknown/Multiple crash or panic | Test Case: Blocked By: | Blocking: Related Tickets: | Differential Rev(s): Wiki Page: | https://gitlab.haskell.org/ghc/ghc/merge_requests/225 -------------------------------------+------------------------------------- Changes (by Phyx-): * status: patch => merge Comment: Thanks for the report `crockeea` and the reproducer `RyanGlScott`. If you require, you can work around this by making a file {{{ PROVIDE(__chkstk_ms = ___chkstk_ms); }}} called `workaround.ldscript` and tell GHC `-optl"workaround.ldscript"` or add that as `ghc-options` in your cabal file. -- Ticket URL: http://ghc.haskell.org/trac/ghc/ticket/16166#comment:6 GHC http://www.haskell.org/ghc/ The Glasgow Haskell Compiler

#16166: Compiling with profiling on Windows can cause linker errors -------------------------------------+------------------------------------- Reporter: crockeea | Owner: (none) Type: bug | Status: closed Priority: normal | Milestone: 8.6.4 Component: Compiler | Version: 8.6.3 Resolution: fixed | Keywords: Operating System: Windows | Architecture: Type of failure: Compile-time | Unknown/Multiple crash or panic | Test Case: Blocked By: | Blocking: Related Tickets: | Differential Rev(s): Wiki Page: | https://gitlab.haskell.org/ghc/ghc/merge_requests/225 -------------------------------------+------------------------------------- Changes (by bgamari): * status: merge => closed * resolution: => fixed -- Ticket URL: http://ghc.haskell.org/trac/ghc/ticket/16166#comment:8 GHC http://www.haskell.org/ghc/ The Glasgow Haskell Compiler