diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-28 09:59:26 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-28 09:59:26 (GMT) |
| commit | e9a4ca4f22d40f304a6f50f9b410651ce75098cd (patch) | |
| tree | ad06f7fd343e736e4c770b30530f1f93b1c4f587 /generic/tclScan.c | |
| parent | aab801db76cd9d4f54a978ebbd1eed7a0ee05c4a (diff) | |
| download | tcl-e9a4ca4f22d40f304a6f50f9b410651ce75098cd.zip tcl-e9a4ca4f22d40f304a6f50f9b410651ce75098cd.tar.gz tcl-e9a4ca4f22d40f304a6f50f9b410651ce75098cd.tar.bz2 | |
Add /* FALLTHRU */ markers in various places (silencing possible GCC warnings). Eliminate some more "register" keywords. Eliminate (or silence) some unused function parameters.
Diffstat (limited to 'generic/tclScan.c')
| -rw-r--r-- | generic/tclScan.c | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index 1ff83af..b0669ab 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -362,8 +362,10 @@ ValidateFormat( format += TclUtfToUniChar(format, &ch); break; } + /* FALLTHRU */ case 'L': flags |= SCAN_LONGER; + /* FALLTHRU */ case 'h': format += TclUtfToUniChar(format, &ch); } @@ -385,9 +387,7 @@ ValidateFormat( Tcl_SetErrorCode(interp, "TCL", "FORMAT", "BADWIDTH", NULL); goto error; } - /* - * Fall through! - */ + /* FALLTHRU */ case 'n': case 's': if (flags & (SCAN_LONGER|SCAN_BIG)) { @@ -709,11 +709,10 @@ Tcl_ScanObjCmd( format += TclUtfToUniChar(format, &ch); break; } + /* FALLTHRU */ case 'L': flags |= SCAN_LONGER; - /* - * Fall through so we skip to the next character. - */ + /* FALLTHRU */ case 'h': format += TclUtfToUniChar(format, &ch); } |