summaryrefslogtreecommitdiff
path: root/rts/RaiseAsync.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/RaiseAsync.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/RaiseAsync.c')
-rw-r--r--rts/RaiseAsync.c1
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c
index 31cc91587d..e04a875e49 100644
--- a/rts/RaiseAsync.c
+++ b/rts/RaiseAsync.c
@@ -459,6 +459,7 @@ check_target:
// fall to next
}
#endif
+ /* fallthrough */
case BlockedOnCCall:
blockedThrowTo(cap,target,msg);
return THROWTO_BLOCKED;