#15832: returnIO/bindIO destroys runtime explicit stack information in some cases -------------------------------------+------------------------------------- Reporter: infinity0 | Owner: (none) Type: bug | Status: new Priority: normal | Milestone: Component: Compiler | Version: 8.6.1 Resolution: | Keywords: Operating System: Unknown/Multiple | Architecture: | Unknown/Multiple Type of failure: None/Unknown | Test Case: Blocked By: | Blocking: Related Tickets: | Differential Rev(s): Wiki Page: | -------------------------------------+------------------------------------- Comment (by infinity0): Adding `-debug` and `-Dp` reveals that something is preventing the relevant cost-centre from being added to the relevant CAF cost-centre- stacks. But this is necessary in order for the logic in fprintCCS_stderr to find the subsequent stacks, to print the "evaluated by" stuff. {{{ $ sh build.sh [1 of 1] Compiling Main ( Test-good.hs, Test-good.o ) Linking Test-good ... 7facde5a7740: pushing main on <Main.CAF:main> Appending <> to <Main.main,Main.CAF:main> 7facde5a7740: pushing main on <Main.main,Main.CAF:main> Appending <Main.main> to <Main.main,Main.main,Main.CAF:main> 7facde5a7740: pushing main on <Main.main,Main.CAF:main> Appending <Main.main> to <Main.main,Main.main,Main.CAF:main> 7facde5a7740: pushing main on <Main.main,Main.main,Main.CAF:main> Appending <Main.main,Main.main> to <Main.main,Main.main,Main.main,Main.CAF:main> 7facde5a7740: pushing main on <Main.main> 7facde5a7740: pushing main on <Main.main,Main.main> 7facde5a7740: pushing main on <Main.main,Main.main,Main.main,Main.CAF:main> 7facde5a7740: pushing main on <Main.main,Main.main,Main.main,Main.main,Main.CAF:main> *** Exception (reporting due to +RTS -xc): (THUNK_2_0), stack trace: [.. complete stack trace ..] [1 of 1] Compiling Main ( Test-bad.hs, Test-bad.o ) Linking Test-bad ... 7febf2b72740: pushing main on <Main.CAF:main> Appending <> to <Main.main,Main.CAF:main> 7febf2b72740: pushing main on <Main.main,Main.CAF:main> Appending <Main.main> to <Main.main,Main.main,Main.CAF:main> Appending <Main.main> to <Main.main,Main.CAF:main> 7febf2b72740: pushing main on <Main.main> 7febf2b72740: pushing main on <Main.main> 7febf2b72740: pushing main on <Main.main,Main.main> 7febf2b72740: pushing main on <Main.main,Main.main,Main.main> *** Exception (reporting due to +RTS -xc): (THUNK_2_0), stack trace: [.. incomplete stack trace ..] }}} (On Debian I also have to add `-threaded -rtsopts` because we have a `libHSrts_thr_debug_p.a` but not a plain `libHSrts_debug_p.a` for some reason.) -- Ticket URL: <http://ghc.haskell.org/trac/ghc/ticket/15832#comment:3> GHC <http://www.haskell.org/ghc/> The Glasgow Haskell Compiler