microcode: Silence -Wimplicit-fallthrough.

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 a26260f165173f68a3df776925940a4e5a7be7ff..f9f2f0c076eba0552ee2cad394cea457ce4e2a19 100644 (file)
--- a/src/microcode/interp.c
+++ b/src/microcode/interp.c
@@ -824,6 +824,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..8a885a2473b6879ca719b73859841576e77d9f73 100644 (file)
--- a/src/microcode/syntax.c
+++ b/src/microcode/syntax.c
@@ -507,6 +507,7 @@ DEFINE_PRIMITIVE ("SCAN-LIST-FORWARD", Prim_scan_list_forward, 7, 7, 0)
        case syntaxcode_charquote:
          LOSE_IF_RIGHT_END (start);
          MOVE_RIGHT (start);
+         /* fall through */
 
        case syntaxcode_word:
        case syntaxcode_symbol:
@@ -521,6 +522,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:
@@ -975,6 +977,7 @@ DEFINE_PRIMITIVE ("SCAN-SEXPS-FORWARD", Prim_scan_sexps_forward, 7, 7, 0)
                      quoted = true;
                      DONE_IF (true);
                    }
+                 /* fall through */
 
                case syntaxcode_word:
                case syntaxcode_symbol:

diff --git a/src/microcode/uxsig.c b/src/microcode/uxsig.c
index 5fea9b2d65c292a8c0fa98e5473cd7195d354211..7b976d95c7a8a6d948edfb73cf0b0076478b1d71 100644 (file)
--- a/src/microcode/uxsig.c
+++ b/src/microcode/uxsig.c
@@ -873,6 +873,7 @@ interactive_interrupt_handler (SIGCONTEXT_T * scp)
            fprintf (stderr, "Problems reading keyboard input -- Exitting.\n");
            termination_eof ();
          }
+         /* fall through */
        default:
          if (!option_emacs_subprocess)
            print_interactive_help ();
@@ -1003,6 +1004,7 @@ describe_sighnd (int signo, unsigned char c)
            case dfl_terminate: goto describe_terminate;
            }
       }
+      /* fall through */
     default:
       fputs ("When typed, this character will have an unknown effect.\n",
             stdout);