diff options
author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-04-29 18:32:38 +0200 |
---|---|---|
committer | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-07-13 10:05:01 +0200 |
commit | 16956d22bea8263c8d29b6bdc053d7121aaed9d2 (patch) | |
tree | c9c73657509dc01865c565a9f0270a6b78b86f16 | |
parent | 8143fdf354a379d91a2858192d912dc7327fe08d (diff) | |
download | haskell-16956d22bea8263c8d29b6bdc053d7121aaed9d2.tar.gz |
Add one more sanity check in stg_restore_cccs
-rw-r--r-- | rts/StgMiscClosures.cmm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm index b9aee516d0..d963c868be 100644 --- a/rts/StgMiscClosures.cmm +++ b/rts/StgMiscClosures.cmm @@ -59,6 +59,10 @@ INFO_TABLE_RET (stg_restore_cccs, RET_SMALL, W_ info_ptr, W_ cccs) CCCS = Sp(1); #endif Sp_adj(2); + + IF_DEBUG(sanity, + ccall checkStackFrame(Sp "ptr")); + jump %ENTRY_CODE(Sp(0)) [*]; // NB. all registers live! } |