diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-29 13:28:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-29 13:28:32 (GMT) |
| commit | 4187ab8e37b22866a8b3a8727b9d661bca6378c8 (patch) | |
| tree | adefcd33b5268f2e85014860b1f8aca78237da6c /generic/tclProc.c | |
| parent | 4796062aab8a24df621cf33dbe862f72b36986f8 (diff) | |
| parent | a812c806619d185a0f16bfa431b848006ba98044 (diff) | |
| download | tcl-4187ab8e37b22866a8b3a8727b9d661bca6378c8.zip tcl-4187ab8e37b22866a8b3a8727b9d661bca6378c8.tar.gz tcl-4187ab8e37b22866a8b3a8727b9d661bca6378c8.tar.bz2 | |
Merge tip-548
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index f0974bf..5dc3f50 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -1847,9 +1847,7 @@ InterpProcNR2( Tcl_SetErrorCode(interp, "TCL", "RESULT", "UNEXPECTED", NULL); result = TCL_ERROR; - /* - * Fall through to the TCL_ERROR handling code. - */ + /* FALLTHRU */ case TCL_ERROR: /* |