diff options
| author | Andreas Klebinger <klebinger.andreas@gmx.at> | 2022-04-29 18:32:38 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-08-06 06:13:17 -0400 |
| commit | ff11d579dd1ff8f138a24f698517f3cbcff219f7 (patch) | |
| tree | 2bd5c6ebd967e64dd2b31b87421ac14c10998b49 | |
| parent | 4123414723eb57ed5d3f8e7df0001178033c2367 (diff) | |
| download | haskell-ff11d579dd1ff8f138a24f698517f3cbcff219f7.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 dbdd2d71fa..10ae67562e 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! } |