diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-06-02 14:18:14 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-06-02 14:18:14 (GMT) |
| commit | 56ec7b2901a5eb8c2d48aba65eee5eb82640b152 (patch) | |
| tree | 77a3f7014e0fcca3ed885427f2b25851bdc4158e /generic/tclBasic.c | |
| parent | f145c7fbd2a82a5f77eae1301caceb376bc4f8dd (diff) | |
| download | tcl-56ec7b2901a5eb8c2d48aba65eee5eb82640b152.zip tcl-56ec7b2901a5eb8c2d48aba65eee5eb82640b152.tar.gz tcl-56ec7b2901a5eb8c2d48aba65eee5eb82640b152.tar.bz2 | |
Backport: Add [[unreachable]] and [[fallthrough]] from C23 (where available)
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 6c73ed0..94d464f 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -4620,7 +4620,8 @@ Dispatch( } if (TCL_DTRACE_CMD_INFO_ENABLED() && iPtr->cmdFramePtr) { Tcl_Obj *info = TclInfoFrame(interp, iPtr->cmdFramePtr); - const char *a[6]; Tcl_Size i[2]; + const char *a[6]; + Tcl_Size i[2]; TclDTraceInfo(info, a, i); TCL_DTRACE_CMD_INFO(a[0], a[1], a[2], a[3], i[0], i[1], a[4], a[5]); @@ -6548,7 +6549,7 @@ Tcl_ExprLongObj( } resultPtr = Tcl_NewBignumObj(&big); } - /* FALLTHRU */ + TCL_FALLTHROUGH(); case TCL_NUMBER_INT: case TCL_NUMBER_BIG: result = TclGetLongFromObj(interp, resultPtr, ptr); @@ -9616,7 +9617,7 @@ TclNRInterpCoroutine( Tcl_SetErrorCode(interp, "TCL", "WRONGARGS", (char *)NULL); return TCL_ERROR; } - /* fallthrough */ + TCL_FALLTHROUGH(); case COROUTINE_ARGUMENTS_ARBITRARY: if (objc > 1) { Tcl_SetObjResult(interp, Tcl_NewListObj(objc - 1, objv + 1)); |