diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2014-11-04 21:32:26 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2014-11-05 18:13:50 +0000 |
| commit | 081ef2fb351831081bf6851fd3907679b1b98405 (patch) | |
| tree | 71dfc251672a9289386b3cc874eae12de63ce93f /rts/StgMiscClosures.cmm | |
| parent | e6b38294512896cf55f2d05d09d742d82313f598 (diff) | |
| download | haskell-081ef2fb351831081bf6851fd3907679b1b98405.tar.gz | |
Add a comment about stack checks
Diffstat (limited to 'rts/StgMiscClosures.cmm')
| -rw-r--r-- | rts/StgMiscClosures.cmm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/rts/StgMiscClosures.cmm b/rts/StgMiscClosures.cmm index 42ef39e134..f57fc04263 100644 --- a/rts/StgMiscClosures.cmm +++ b/rts/StgMiscClosures.cmm @@ -199,6 +199,8 @@ INFO_TABLE_FUN( stg_BCO, 4, 0, BCO, "BCO", "BCO", ARG_BCO ) { /* entering a BCO means "apply it", same as a function */ Sp_adj(-2); + // Skip the stack check; the interpreter will do one before using + // the stack anyway. Sp(1) = R1; Sp(0) = stg_apply_interp_info; jump stg_yield_to_interpreter []; |