From 766872ee7e3b58b48c4898aef7b102a5b10dad30 Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Mon, 19 Mar 2018 12:25:59 -0700
Subject: [PATCH] microcode: Silence -Wimplicit-fallthrough.

---
 src/microcode/findprim.c | 1 +
 src/microcode/interp.c   | 1 +
 src/microcode/syntax.c   | 3 +++
 src/microcode/uxsig.c    | 2 ++
 4 files changed, 7 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 a26260f16..f9f2f0c07 100644
--- 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 520ac860c..8a885a247 100644
--- 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 5fea9b2d6..7b976d95c 100644
--- 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);
-- 
2.25.1