Index: tls.c
==================================================================
--- tls.c
+++ tls.c
@@ -1485,12 +1485,14 @@
 	case 3:
 	    if (!strcmp (Tcl_GetString (objv[1]), "-local")) {
 		channelName = Tcl_GetStringFromObj(objv[2], NULL);
 		break;
 	    }
-	    /* else fall... */
+	    /* else fall-through ... */
+#if defined(__GNUC__)
 	    __attribute__((fallthrough));
+#endif
 	default:
 	    Tcl_WrongNumArgs(interp, 1, objv, "?-local? channel");
 	    return TCL_ERROR;
     }
 

Index: tlsBIO.c
==================================================================
--- tlsBIO.c
+++ tlsBIO.c
@@ -230,12 +230,16 @@
 
 	switch (cmd) {
 		case BIO_CTRL_RESET:
 			dprintf("Got BIO_CTRL_RESET");
 			num = 0;
+			ret = 0;
+			break;
 		case BIO_C_FILE_SEEK:
 			dprintf("Got BIO_C_FILE_SEEK");
+			ret = 0;
+			break;
 		case BIO_C_FILE_TELL:
 			dprintf("Got BIO_C_FILE_TELL");
 			ret = 0;
 			break;
 		case BIO_CTRL_INFO: