diff options
| author | nijtmans <nijtmans> | 2009-11-26 07:01:45 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2009-11-26 07:01:45 (GMT) |
| commit | fe3dd38f5e9956ff59341aee24ccc04e0818b19d (patch) | |
| tree | ebfeb9beb09da18d4be3af45520759f7724b591f /win/tclAppInit.c | |
| parent | b15ddd01de0048a7f37b5195ed7c6b44504fd513 (diff) | |
| download | tcl-fe3dd38f5e9956ff59341aee24ccc04e0818b19d.zip tcl-fe3dd38f5e9956ff59341aee24ccc04e0818b19d.tar.gz tcl-fe3dd38f5e9956ff59341aee24ccc04e0818b19d.tar.bz2 | |
Fix [Bug 2902965] stub related changes
cause tclkit built to break
Diffstat (limited to 'win/tclAppInit.c')
| -rw-r--r-- | win/tclAppInit.c | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/win/tclAppInit.c b/win/tclAppInit.c index 99609ab..9b7a3e9 100644 --- a/win/tclAppInit.c +++ b/win/tclAppInit.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclAppInit.c,v 1.28 2009/11/19 16:31:11 dgp Exp $ + * RCS: @(#) $Id: tclAppInit.c,v 1.29 2009/11/26 07:01:51 nijtmans Exp $ */ #include "tcl.h" @@ -125,6 +125,10 @@ int Tcl_AppInit( Tcl_Interp *interp) /* Interpreter for application. */ { +#undef Tcl_InitStubs + if (!Tcl_InitStubs(interp, TCL_VERSION, 0)) { + return TCL_ERROR; + } if (Tcl_Init(interp) == TCL_ERROR) { return TCL_ERROR; } @@ -133,7 +137,7 @@ Tcl_AppInit( if (Tcltest_Init(interp) == TCL_ERROR) { return TCL_ERROR; } - Tcl_StaticPackage(interp, "Tcltest", Tcltest_Init, Tcltest_SafeInit); + Tcl_StaticPackage(interp, "Tcltest", Tcltest_Init, NULL); #endif /* TCL_TEST */ #if defined(STATIC_BUILD) && TCL_USE_STATIC_PACKAGES |