Deprecate Tcl_CreateCommand() too. Use Tcl_CreateObjCommand2() in all…

… testcases
tcltk · Nov 10, 2024 · e3d9add · e3d9add
1 parent 060ce9e
commit e3d9add
Show file tree

Hide file tree

Showing 5 changed files with 67 additions and 105 deletions.
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
@@ -2515,6 +2515,7 @@ Tcl_ExposeCommand(
  *----------------------------------------------------------------------
  */
 
+#ifndef TCL_NO_DEPRECATED
 Tcl_Command
 Tcl_CreateCommand(
     Tcl_Interp *interp,		/* Token for command interpreter returned by a
@@ -2686,6 +2687,7 @@ Tcl_CreateCommand(
     TclResetShadowedCmdRefs(interp, cmdPtr);
     return (Tcl_Command) cmdPtr;
 }
+#endif /* TCL_NO_DEPRECATED */
 
 /*
  *----------------------------------------------------------------------

diff --git a/generic/tclDecls.h b/generic/tclDecls.h
@@ -4150,6 +4150,7 @@ extern const TclStubs *tclStubsPtr;
 #undef TclUtfNext
 #undef TclUtfPrev
 #ifdef TCL_NO_DEPRECATED
+#   undef Tcl_CreateCommand
 #   undef Tcl_CreateObjCommand
 #   undef Tcl_CreateTrace
 #   undef Tcl_CreateObjTrace

diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
@@ -77,6 +77,7 @@
 #define TclUnusedStubEntry 0
 
 #ifdef TCL_NO_DEPRECATED
+#   define Tcl_CreateCommand 0
 #   define Tcl_CreateObjCommand 0
 #   define Tcl_CreateTrace 0
 #   define Tcl_CreateObjTrace 0