diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-26 13:58:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-03-26 13:58:53 (GMT) |
| commit | bb770e33f8e270fc105aa9807a61bec5ac171771 (patch) | |
| tree | 5ee9f7decadfe7132055043cc0fbbf37611f951d /generic/tclEncoding.c | |
| parent | d048128004c027a3ee8e8d4fab19039a3bb358e2 (diff) | |
| download | tcl-bb770e33f8e270fc105aa9807a61bec5ac171771.zip tcl-bb770e33f8e270fc105aa9807a61bec5ac171771.tar.gz tcl-bb770e33f8e270fc105aa9807a61bec5ac171771.tar.bz2 | |
Add TCL_INIT_STUFF
Diffstat (limited to 'generic/tclEncoding.c')
| -rw-r--r-- | generic/tclEncoding.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 0ffc481..753222f 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -1451,9 +1451,14 @@ Tcl_InitSubsystems(int flags, ...) if (flags & TCL_INIT_PANIC) { Tcl_SetPanicProc(va_arg(argList, Tcl_PanicProc *)); } + TclInitSubsystems(); + if (flags & TCL_INIT_STUFF) { + ClientData clientData = va_arg(argList, ClientData); + void (*fn)() = va_arg(argList, void (*)(ClientData)); + fn(clientData); + } va_end(argList); - TclInitSubsystems(); TclpSetInitialEncodings(); TclpFindExecutable(NULL); return (Tcl_Interp *) &dummyInterp; |