diff options
author | Sergei Trofimovich <slyfox@gentoo.org> | 2017-05-14 20:22:37 +0100 |
---|---|---|
committer | Sergei Trofimovich <slyfox@gentoo.org> | 2017-05-14 20:30:53 +0100 |
commit | 230416f8b6f6731064115a2905ad354e27b7d605 (patch) | |
tree | bbeaeea54d1b7f90da141be1552404a638d62442 /rts/RaiseAsync.c | |
parent | 20c39b7743a242fce785e5c6507a8549dba7a8d2 (diff) | |
download | haskell-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.c | 1 |
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; |