diff options
| author | Sven Tennie <sven.tennie@gmail.com> | 2023-05-04 16:19:55 +0000 |
|---|---|---|
| committer | Sven Tennie <sven.tennie@gmail.com> | 2023-05-05 19:59:53 +0000 |
| commit | e7a1b015366a9d5c081bf7e4aa4a0d62231a3695 (patch) | |
| tree | 14c4aaca4db668a8326a5a14451e7c32089b8940 | |
| parent | 6ea11206254d534b0a6c9650b328fe68452a938a (diff) | |
| download | haskell-e7a1b015366a9d5c081bf7e4aa4a0d62231a3695.tar.gz | |
Add missing bang patterns to StackFrames
| -rw-r--r-- | libraries/ghc-heap/GHC/Exts/Heap/Closures.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libraries/ghc-heap/GHC/Exts/Heap/Closures.hs b/libraries/ghc-heap/GHC/Exts/Heap/Closures.hs index a71717c2c7..ebc1573088 100644 --- a/libraries/ghc-heap/GHC/Exts/Heap/Closures.hs +++ b/libraries/ghc-heap/GHC/Exts/Heap/Closures.hs @@ -396,7 +396,7 @@ data StackFrame = | CatchFrame { info_tbl :: !StgInfoTable - , exceptions_blocked :: Word + , exceptions_blocked :: !Word , handler :: !Closure } @@ -439,8 +439,8 @@ data StackFrame = | RetFun { info_tbl :: !StgInfoTable - , retFunType :: RetFunType - , retFunSize :: Word + , retFunType :: !RetFunType + , retFunSize :: !Word , retFunFun :: !Closure , retFunPayload :: ![Closure] } |