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/tclOOBasic.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/tclOOBasic.c')
| -rw-r--r-- | generic/tclOOBasic.c | 27 |
1 files changed, 5 insertions, 22 deletions
diff --git a/generic/tclOOBasic.c b/generic/tclOOBasic.c index 36b9e9c..f7bb969 100644 --- a/generic/tclOOBasic.c +++ b/generic/tclOOBasic.c @@ -1207,13 +1207,7 @@ TclOOSelfObjCmd( } else if (mPtr->declaringObjectPtr != NULL) { declarerPtr = mPtr->declaringObjectPtr; } else { - /* - * This should be unreachable code. - */ - - Tcl_SetObjResult(interp, Tcl_NewStringObj( - "method without declarer!", TCL_AUTO_LENGTH)); - return TCL_ERROR; + TCL_UNREACHABLE(); } result[0] = TclOOObjectName(interp, declarerPtr); @@ -1239,13 +1233,7 @@ TclOOSelfObjCmd( } else if (mPtr->declaringObjectPtr != NULL) { declarerPtr = mPtr->declaringObjectPtr; } else { - /* - * This should be unreachable code. - */ - - Tcl_SetObjResult(interp, Tcl_NewStringObj( - "method without declarer!", TCL_AUTO_LENGTH)); - return TCL_ERROR; + TCL_UNREACHABLE(); } result[0] = TclOOObjectName(interp, declarerPtr); @@ -1284,13 +1272,7 @@ TclOOSelfObjCmd( } else if (mPtr->declaringObjectPtr != NULL) { declarerPtr = mPtr->declaringObjectPtr; } else { - /* - * This should be unreachable code. - */ - - Tcl_SetObjResult(interp, Tcl_NewStringObj( - "method without declarer!", TCL_AUTO_LENGTH)); - return TCL_ERROR; + TCL_UNREACHABLE(); } result[0] = TclOOObjectName(interp, declarerPtr); result[1] = mPtr->namePtr; @@ -1302,8 +1284,9 @@ TclOOSelfObjCmd( TclNewIndexObj(result[1], contextPtr->index); Tcl_SetObjResult(interp, Tcl_NewListObj(2, result)); return TCL_OK; + default: + TCL_UNREACHABLE(); } - return TCL_ERROR; } /* |