diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-08-20 14:49:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2024-08-20 14:49:23 (GMT) |
| commit | 7b50a2c52876bc227e8b7c1fc5309bd1037809e0 (patch) | |
| tree | 38284e46ec729e263e7238ba47956ded3d443734 /generic/tclBasic.c | |
| parent | 2f056e3ede82e4c3f88efc4e15fe049866a27a46 (diff) | |
| parent | 371c5ba6346f01ef0584a5a7812847efb06d6ffc (diff) | |
| download | tcl-7b50a2c52876bc227e8b7c1fc5309bd1037809e0.zip tcl-7b50a2c52876bc227e8b7c1fc5309bd1037809e0.tar.gz tcl-7b50a2c52876bc227e8b7c1fc5309bd1037809e0.tar.bz2 | |
tcl::unsupported::inject is deprecated, will be removed in 9.0
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index e76a3b6..c73324d 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -252,7 +252,9 @@ static Tcl_NRPostProc TEOV_RunLeaveTraces; static Tcl_NRPostProc EvalObjvCore; static Tcl_NRPostProc Dispatch; +#ifndef TCL_NO_DEPRECATED static Tcl_ObjCmdProc NRInjectObjCmd; +#endif /* TCL_NO_DEPRECATED */ static Tcl_NRPostProc NRPostInvoke; static Tcl_ObjCmdProc CoroTypeObjCmd; static Tcl_ObjCmdProc TclNRCoroInjectObjCmd; @@ -471,7 +473,7 @@ static const UnsafeEnsembleInfo unsafeEnsembleCommands[] = { {"process", "status"}, {"process", "purge"}, {"process", "autopurge"}, - /* + /* * [zipfs] perhaps has some safe commands. But like file make it inaccessible * until they are analyzed to be safe. */ @@ -1217,8 +1219,10 @@ Tcl_CreateInterp(void) cmdPtr->compileProc = &TclCompileAssembleCmd; /* Coroutine monkeybusiness */ +#ifndef TCL_NO_DEPRECATED Tcl_NRCreateCommand(interp, "::tcl::unsupported::inject", NULL, NRInjectObjCmd, NULL, NULL); +#endif /* TCL_NO_DEPRECATED */ Tcl_CreateObjCommand(interp, "::tcl::unsupported::corotype", CoroTypeObjCmd, NULL, NULL); @@ -9892,6 +9896,7 @@ TclNRCoroutineActivateCallback( *---------------------------------------------------------------------- */ +#ifndef TCL_NO_DEPRECATED static int TclNREvalList( void *data[], @@ -9909,6 +9914,7 @@ TclNREvalList( TclListObjGetElements(NULL, listPtr, &objc, &objv); return TclNREvalObjv(interp, objc, objv, 0, NULL); } +#endif /* TCL_NO_DEPRECATED */ /* *---------------------------------------------------------------------- @@ -10246,6 +10252,7 @@ InjectHandlerPostCall( *---------------------------------------------------------------------- */ +#ifndef TCL_NO_DEPRECATED static int NRInjectObjCmd( TCL_UNUSED(void *), @@ -10290,6 +10297,7 @@ NRInjectObjCmd( return TCL_OK; } +#endif /* TCL_NO_DEPRECATED */ int TclNRInterpCoroutine( |