From dad6076abd5f9f1a4bc446e6262459d595e746c9 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 14 May 2018 12:29:35 -0700 Subject: [PATCH] Add comments to suppress fall-through warnings in GCC 7. --- src/microcode/findprim.c | 1 + src/microcode/interp.c | 1 + src/microcode/syntax.c | 1 + 3 files changed, 3 insertions(+) diff --git a/src/microcode/findprim.c b/src/microcode/findprim.c index 566b94b90..1a9a396e8 100644 --- a/src/microcode/findprim.c +++ b/src/microcode/findprim.c @@ -401,6 +401,7 @@ scan (void) } } else if (c != '\n') break; + /* fall through */ case '\n': { diff --git a/src/microcode/interp.c b/src/microcode/interp.c index dc4a3a4f5..68c9f8f27 100644 --- a/src/microcode/interp.c +++ b/src/microcode/interp.c @@ -825,6 +825,7 @@ Interpret (void) internal_apply_val: (APPLY_FRAME_PROCEDURE ()) = GET_VAL; + /* fall through */ case RC_INTERNAL_APPLY: internal_apply: diff --git a/src/microcode/syntax.c b/src/microcode/syntax.c index 520ac860c..ed9a9f576 100644 --- a/src/microcode/syntax.c +++ b/src/microcode/syntax.c @@ -521,6 +521,7 @@ DEFINE_PRIMITIVE ("SCAN-LIST-FORWARD", Prim_scan_list_forward, 7, 7, 0) case syntaxcode_charquote: MOVE_RIGHT (start); LOSE_IF_RIGHT_END (start); + /* fall through */ case syntaxcode_word: case syntaxcode_symbol: -- 2.25.1