Get Call Stack from `-xc` without `HasCallStack`

call-stack-without-hascallstack.hs

import GHC.Stack

foo :: [Int] -> Int
foo xs = last xs + 1

bar :: [Int] -> Int
bar xs = foo xs

xs :: [Int]
xs = []

main :: IO ()
main = print $ bar xs

{-
$ ghc -prof -fprof-auto-top call-stack-without-hascallstack.hs

$ ./call-stack-without-hascallstack
call-stack-without-hascallstack: Prelude.last: empty list

$ ./call-stack-without-hascallstack +RTS -xc
*** Exception (reporting due to +RTS -xc): (THUNK_1_0), stack trace:
  GHC.List.CAF
  --> evaluated by: Main.foo,
  called from Main.bar,
  called from Main.main,
  called from Main.CAF
  --> evaluated by: Main.main,
  called from Main.CAF
  --> evaluated by: Main.main
call-stack-without-hascallstack: Prelude.last: empty list
-}