diff options
| author | Sven Tennie <sven.tennie@gmail.com> | 2023-05-08 18:26:07 +0000 |
|---|---|---|
| committer | Sven Tennie <sven.tennie@gmail.com> | 2023-05-08 18:26:07 +0000 |
| commit | 2c9f1a364f278299d2a89fb884c471d2d7883e8c (patch) | |
| tree | cefc805d8b5877b31897b4f2e23198e2f1fb8028 | |
| parent | eefa9f127dc75e2e00d184fd8bdeb69a76fdcc2b (diff) | |
| download | haskell-2c9f1a364f278299d2a89fb884c471d2d7883e8c.tar.gz | |
Publish stack related fields in DerivedConstants.h
These will be used in ghc-heap to decode these parts of the stack.
| -rw-r--r-- | utils/deriveConstants/Main.hs | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/utils/deriveConstants/Main.hs b/utils/deriveConstants/Main.hs index c51f14382c..f9f7d7f33a 100644 --- a/utils/deriveConstants/Main.hs +++ b/utils/deriveConstants/Main.hs @@ -475,6 +475,7 @@ wanteds os = concat ,closureFieldOffset Both "StgStack" "stack" ,closureField C "StgStack" "stack_size" ,closureField C "StgStack" "dirty" + ,closureField C "StgStack" "marking" ,structSize C "StgTSOProfInfo" @@ -483,6 +484,11 @@ wanteds os = concat ,closureField C "StgCatchFrame" "handler" ,closureField C "StgCatchFrame" "exceptions_blocked" + ,structSize C "StgRetFun" + ,fieldOffset C "StgRetFun" "size" + ,fieldOffset C "StgRetFun" "fun" + ,fieldOffset C "StgRetFun" "payload" + ,closureSize C "StgPAP" ,closureField C "StgPAP" "n_args" ,closureFieldGcptr C "StgPAP" "fun" |