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/tclProc.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/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 2ee2456..432ee64 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -722,7 +722,7 @@ TclGetFrame( } level = curLevel - level; } else { - /* + /* * (historical, TODO) If name does not contain a level (#0 or 1), * TclGetFrame and Tcl_UpVar2 uses current level - 1 */ @@ -1808,9 +1808,7 @@ TclObjInterpProcCore( "\" outside of a loop", NULL); result = TCL_ERROR; - /* - * Fall through to the TCL_ERROR handling code. - */ + /* FALLTHRU */ case TCL_ERROR: /* |