diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2022-07-27 17:45:26 +0100 |
|---|---|---|
| committer | Douglas Wilson <douglas.wilson@gmail.com> | 2022-07-28 10:32:34 +0100 |
| commit | 6971ec584077ef03e6cbce02a97b14fb60f7478b (patch) | |
| tree | 4885553c7f11cd0fef196e7fea9f0b9aeb5ace7d /libraries | |
| parent | 388ec68fad42e8beac537bd5f5cd8fff782a003b (diff) | |
| download | haskell-6971ec584077ef03e6cbce02a97b14fb60f7478b.tar.gz | |
Fix since annotations in GHC.Stack.CloneStack
Fixes #21894
(cherry picked from commit abd62256ea2fb78990ee83464abc7e2a291a7731)
Diffstat (limited to 'libraries')
| -rw-r--r-- | libraries/base/GHC/Stack/CloneStack.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/libraries/base/GHC/Stack/CloneStack.hs b/libraries/base/GHC/Stack/CloneStack.hs index f06ecad070..6274d28de5 100644 --- a/libraries/base/GHC/Stack/CloneStack.hs +++ b/libraries/base/GHC/Stack/CloneStack.hs @@ -13,7 +13,7 @@ -- Such a "cloned" stack can be decoded with 'decode' to a stack trace, given -- that the @-finfo-table-map@ is enabled. -- --- @since 2.16.0.0 +-- @since 4.17.0.0 module GHC.Stack.CloneStack ( StackSnapshot(..), StackEntry(..), @@ -33,7 +33,7 @@ import GHC.Stable -- | A frozen snapshot of the state of an execution stack. -- --- @since 2.16.0.0 +-- @since 4.17.0.0 data StackSnapshot = StackSnapshot !StackSnapshot# foreign import prim "stg_decodeStackzh" decodeStack# :: StackSnapshot# -> State# RealWorld -> (# State# RealWorld, Array# (Ptr InfoProvEnt) #) @@ -182,14 +182,14 @@ The relevant notes are: -- | Clone the stack of the executing thread -- --- @since 2.16.0.0 +-- @since 4.17.0.0 cloneMyStack :: IO StackSnapshot cloneMyStack = IO $ \s -> case (cloneMyStack# s) of (# s1, stack #) -> (# s1, StackSnapshot stack #) -- | Clone the stack of a thread identified by its 'ThreadId' -- --- @since 2.16.0.0 +-- @since 4.17.0.0 cloneThreadStack :: ThreadId -> IO StackSnapshot cloneThreadStack (ThreadId tid#) = do resultVar <- newEmptyMVar @StackSnapshot @@ -226,7 +226,7 @@ data StackEntry = StackEntry -- the stack. (These are pushed every time when a @case ... of@ scrutinee -- is evaluated.) -- --- @since 2.16.0.0 +-- @since 4.17.0.0 decode :: StackSnapshot -> IO [StackEntry] decode stackSnapshot = do stackEntries <- getDecodedStackArray stackSnapshot |