diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-01-25 12:22:16 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-01-25 12:22:16 (GMT) |
commit | d95abe6b6fe069f55ce27900c99fec5949d63a15 (patch) | |
tree | c261490c8b413208fd28174c52e9044de53d3853 /generic/tclInt.h | |
parent | f73959c2df224df88d79415e16dfab56b8756008 (diff) | |
download | tcl-d95abe6b6fe069f55ce27900c99fec5949d63a15.zip tcl-d95abe6b6fe069f55ce27900c99fec5949d63a15.tar.gz tcl-d95abe6b6fe069f55ce27900c99fec5949d63a15.tar.bz2 |
If TCL_NO_DEPRECATED is defined, remove the "case" statement, and use much less interp->result. Implementation mostly taken over from "novem". If TCL_NO_DEPRECATED is not defined, nothing changes.
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r-- | generic/tclInt.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 8516385..5074378 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3219,9 +3219,11 @@ MODULE_SCOPE Tcl_Command TclInitBinaryCmd(Tcl_Interp *interp); MODULE_SCOPE int Tcl_BreakObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); +#ifndef TCL_NO_DEPRECATED MODULE_SCOPE int Tcl_CaseObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); +#endif MODULE_SCOPE int Tcl_CatchObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); |