From: Chris Hanson <cph@google.com>
Date: Mon, 14 May 2018 19:29:35 +0000 (-0700)
Subject: Add comments to suppress fall-through warnings in GCC 7.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~41
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=dad6076abd5f9f1a4bc446e6262459d595e746c9;p=mit-scheme.git

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

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: