summaryrefslogtreecommitdiff
path: root/rts/sm/Sanity.c
diff options
context:
space:
mode:
authorSergei Trofimovich <slyfox@gentoo.org>2017-05-14 20:22:37 +0100
committerSergei Trofimovich <slyfox@gentoo.org>2017-05-14 20:30:53 +0100
commit230416f8b6f6731064115a2905ad354e27b7d605 (patch)
treebbeaeea54d1b7f90da141be1552404a638d62442 /rts/sm/Sanity.c
parent20c39b7743a242fce785e5c6507a8549dba7a8d2 (diff)
downloadhaskell-230416f8b6f6731064115a2905ad354e27b7d605.tar.gz
rts: annotate switch/case with '/* fallthrough */'
Fixes gcc-7.1.0 warnings of form: rts/sm/Scav.c:559:9: error: error: this statement may fall through [-Werror=implicit-fallthrough=] scavenge_fun_srt(info); ^~~~~~~~~~~~~~~~~~~~~~ Many of places are indeed unobvious and some are already annotated by comments. Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
Diffstat (limited to 'rts/sm/Sanity.c')
-rw-r--r--rts/sm/Sanity.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/sm/Sanity.c b/rts/sm/Sanity.c
index 6bfa1cb494..53b101024a 100644
--- a/rts/sm/Sanity.c
+++ b/rts/sm/Sanity.c
@@ -102,6 +102,7 @@ checkStackFrame( StgPtr c )
case UPDATE_FRAME:
ASSERT(LOOKS_LIKE_CLOSURE_PTR(((StgUpdateFrame*)c)->updatee));
+ /* fallthrough */
case ATOMICALLY_FRAME:
case CATCH_RETRY_FRAME:
case CATCH_STM_FRAME: