From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Mon, 19 Mar 2018 19:25:59 +0000 (-0700)
Subject: microcode: Silence -Wimplicit-fallthrough.
X-Git-Tag: mit-scheme-pucked-x11-0.2.2~3
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=766872ee7e3b58b48c4898aef7b102a5b10dad30;p=mit-scheme.git

microcode: Silence -Wimplicit-fallthrough.
---

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);