diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-08-23 10:01:35 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-08-23 10:01:35 (GMT) |
| commit | 4c3b4b2a2b133094b98d27616e7728d99097a57f (patch) | |
| tree | f3091f50d9f67873f294f31607b967d09541c63b /generic/tclParse.c | |
| parent | d0288f61d325f0fca40f7b1284e05378c849a42e (diff) | |
| download | tcl-4c3b4b2a2b133094b98d27616e7728d99097a57f.zip tcl-4c3b4b2a2b133094b98d27616e7728d99097a57f.tar.gz tcl-4c3b4b2a2b133094b98d27616e7728d99097a57f.tar.bz2 | |
Add FALLTHRU markers, to help GCC emit less false warnings
Diffstat (limited to 'generic/tclParse.c')
| -rw-r--r-- | generic/tclParse.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclParse.c b/generic/tclParse.c index 48d86ef..9c3dbe8 100644 --- a/generic/tclParse.c +++ b/generic/tclParse.c @@ -2160,6 +2160,7 @@ Tcl_SubstObj( return NULL; case TCL_BREAK: tokensLeft = 0; /* Halt substitution */ + /* FALLTHRU */ default: Tcl_AppendObjToObj(result, Tcl_GetObjResult(interp)); } |