Don't lose stuff when doing 'make genstubs'

Author: jan.nijtmans

generic/itclDecls.h

@@ -17,6 +17,9 @@ ITCLAPI const char *Itcl_InitStubs(
 
 #if TCL_MAJOR_VERSION < 9
 # define Tcl_ObjCmdProc2 Tcl_ObjCmdProc
+#elif defined(TCL_NO_DEPRECATED)
+#   define Tcl_ObjCmdProc void
+#   define Tcl_CmdProc void
 #endif
 
 /* !BEGIN!: Do not edit below this line. */
@@ -222,6 +225,12 @@ extern const ItclStubs *itclStubsPtr;
 # undef Itcl_FindC2
 # define Itcl_FindC2(interp, name, objProcPtr, cDataPtr) \
 	Itcl_FindC(interp, name, NULL, objProcPtr, cDataPtr)
+#elif defined(TCL_NO_DEPRECATED)
+# undef Tcl_ObjCmdProc
+# undef Tcl_CmdProc
+# undef Itcl_RegisterC
+# undef Itcl_RegisterObjC
+# undef Itcl_FindC
 #endif
 
 #endif /* _ITCLDECLS */

generic/itclIntDecls.h

@@ -5,15 +5,17 @@
 #ifndef _ITCLINTDECLS
 #define _ITCLINTDECLS
 
+#if TCL_MAJOR_VERSION < 9
+# define Tcl_ObjCmdProc2 Tcl_ObjCmdProc
+#elif defined(TCL_NO_DEPRECATED)
+#   define Tcl_ObjCmdProc void
+#endif
+
 /* !BEGIN!: Do not edit below this line. */
 
 #define ITCLINT_STUBS_EPOCH 0
 #define ITCLINT_STUBS_REVISION 159
 
-#if TCL_MAJOR_VERSION < 9
-# define Tcl_ObjCmdProc2 Tcl_ObjCmdProc
-#endif
-
 #ifdef __cplusplus
 extern "C" {
 #endif