Add comments to suppress fall-through warnings in GCC 7.

diff --git a/src/microcode/findprim.c b/src/microcode/findprim.c
index 566b94b90a70a7ef570a586a31073a80b219dca0..1a9a396e883a3f93b0d9c8460061337211bcbc6e 100644 (file)
--- 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 dc4a3a4f536bbc02262f22ddfcd5b565d0a00a51..68c9f8f27b42c069f6a05b33a89f7b3ff3344934 100644 (file)
--- 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 520ac860c1a96f06d644ee75407fae95b82da084..ed9a9f5764dfdb64805523d8f80d24acc818e029 100644 (file)
--- 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: