Attachment "tip-initsubsystem.patch" to
ticket [3577650fff]
added by
bgriffin
2012-10-16 20:27:39.
Change 2216419 by bgriffin@bgriffin-devmain on 2010/08/24 10:49:34
Make TclInitSubsystems a public interface.
This change needs to be submitted to Tcl TIP.
Affected files ...
... //dvt/mti/prod/src/tcltk/8.5.8/tcl/tcl/generic/tclDecls.h#3 edit
... //dvt/mti/prod/src/tcltk/8.5.8/tcl/tcl/generic/tclEvent.c#2 edit
... //dvt/mti/prod/src/tcltk/8.5.8/tcl/tcl/generic/tclStubInit.c#2 edit
Differences ...
==== //dvt/mti/prod/src/tcltk/8.5.8/tcl/tcl/generic/tclDecls.h#3 (text) ====
***************
*** 3501,3506 ****
--- 3501,3511 ----
EXTERN void Tcl_AppendPrintfToObj (Tcl_Obj * objPtr,
CONST char * format, ...);
#endif
+ #ifndef Tcl_InitSubsystems_TCL_DECLARED
+ #define Tcl_InitSubsystems_TCL_DECLARED
+ /* 580 */
+ EXTERN void Tcl_InitSubsystems (void);
+ #endif
typedef struct TclStubHooks {
struct TclPlatStubs *tclPlatStubs;
***************
*** 4140,4145 ****
--- 4145,4151 ----
int (*tcl_AppendFormatToObj) (Tcl_Interp * interp, Tcl_Obj * objPtr, CONST char * format, int objc, Tcl_Obj * CONST objv[]); /* 577 */
Tcl_Obj * (*tcl_ObjPrintf) (CONST char * format, ...); /* 578 */
void (*tcl_AppendPrintfToObj) (Tcl_Obj * objPtr, CONST char * format, ...); /* 579 */
+ void (*tcl_InitSubsystems) (void); /* 580 */
} TclStubs;
#ifdef __cplusplus
***************
*** 6536,6541 ****
--- 6542,6551 ----
#define Tcl_AppendPrintfToObj \
(tclStubsPtr->tcl_AppendPrintfToObj) /* 579 */
#endif
+ #ifndef Tcl_InitSubsystems
+ #define Tcl_InitSubsystems \
+ (tclStubsPtr->tcl_InitSubsystems) /* 580 */
+ #endif
#endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */
==== //dvt/mti/prod/src/tcltk/8.5.8/tcl/tcl/generic/tclEvent.c#2 (text) ====
***************
*** 915,920 ****
--- 915,936 ----
*
* TclInitSubsystems --
*
+ * Public interface to internal subsystem initialization.
+ *
+ *-------------------------------------------------------------------------
+ */
+ void
+ Tcl_InitSubsystems(void)
+ {
+ TclInitSubsystems();
+ }
+
+
+ /*
+ *-------------------------------------------------------------------------
+ *
+ * TclInitSubsystems --
+ *
* Initialize various subsytems in Tcl. This should be called the first
* time an interp is created, or before any of the subsystems are used.
* This function ensures an order for the initialization of subsystems:
==== //dvt/mti/prod/src/tcltk/8.5.8/tcl/tcl/generic/tclStubInit.c#2 (text) ====
***************
*** 1136,1141 ****
--- 1136,1142 ----
Tcl_AppendFormatToObj, /* 577 */
Tcl_ObjPrintf, /* 578 */
Tcl_AppendPrintfToObj, /* 579 */
+ Tcl_InitSubsystems, /* 580 */
};
/* !END!: Do not edit above this line. */