diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-24 10:53:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-24 10:53:58 (GMT) |
| commit | 7c54b6f6fd2a99998ce0daa0b32c8940d1ed5eea (patch) | |
| tree | b41fc8b52d1f4defdc0daf14b2a04ebe90a6187a /win | |
| parent | c3353d5a645c33f35445ab3c510dfef988897dd2 (diff) | |
| download | tcl-7c54b6f6fd2a99998ce0daa0b32c8940d1ed5eea.zip tcl-7c54b6f6fd2a99998ce0daa0b32c8940d1ed5eea.tar.gz tcl-7c54b6f6fd2a99998ce0daa0b32c8940d1ed5eea.tar.bz2 | |
tclAppInit.c should be built without BUILD_tcl/USE_TCL_STUBS always. All build files should be adapted now to assure that.
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclAppInit.c | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/win/tclAppInit.c b/win/tclAppInit.c index fa27756..348b32c 100644 --- a/win/tclAppInit.c +++ b/win/tclAppInit.c @@ -14,6 +14,9 @@ * this file, and for a DISCLAIMER OF ALL WARRANTIES. */ +#if defined(BUILD_tcl) || defined(USE_TCL_STUBS) +#error "Don't build with BUILD_tcl/USE_TCL_STUBS!" +#endif #include "tcl.h" #define WIN32_LEAN_AND_MEAN #define STRICT /* See MSDN Article Q83456 */ @@ -158,7 +161,7 @@ int Tcl_AppInit( Tcl_Interp *interp) /* Interpreter for application. */ { - if ((Tcl_Init)(interp) == TCL_ERROR) { + if (Tcl_Init(interp) == TCL_ERROR) { return TCL_ERROR; } @@ -205,7 +208,7 @@ Tcl_AppInit( * user-specific startup file will be run under any conditions. */ - (Tcl_ObjSetVar2)(interp, Tcl_NewStringObj("tcl_rcFileName", -1), NULL, + Tcl_ObjSetVar2(interp, Tcl_NewStringObj("tcl_rcFileName", -1), NULL, Tcl_NewStringObj("~/tclshrc.tcl", -1), TCL_GLOBAL_ONLY); return TCL_OK; } |