diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-22 09:30:20 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-22 09:30:20 (GMT) |
| commit | fee86da1c91ba1bfae832ba669b288bb7bb7ddfc (patch) | |
| tree | d258ed112e5fe99ca61ac350ee668f96b9492ca0 /win | |
| parent | f584bb01ccf547af727096674302e8a6dbae1252 (diff) | |
| download | tk-fee86da1c91ba1bfae832ba669b288bb7bb7ddfc.zip tk-fee86da1c91ba1bfae832ba669b288bb7bb7ddfc.tar.gz tk-fee86da1c91ba1bfae832ba669b288bb7bb7ddfc.tar.bz2 | |
Make sure the stubbed variants of Tcl_ObjSetVar2/Tcl_NewStringObj are never used in winMain.c/tkAppInit.c
Diffstat (limited to 'win')
| -rw-r--r-- | win/winMain.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/win/winMain.c b/win/winMain.c index d245038..a7308cf 100644 --- a/win/winMain.c +++ b/win/winMain.c @@ -63,6 +63,10 @@ MODULE_SCOPE int TK_LOCAL_APPINIT(Tcl_Interp *interp); #ifdef TK_LOCAL_MAIN_HOOK MODULE_SCOPE int TK_LOCAL_MAIN_HOOK(int *argc, TCHAR ***argv); #endif + +/* Make sure the stubbed variants of those are never used. */ +#undef Tcl_ObjSetVar2 +#undef Tcl_NewStringObj /* *---------------------------------------------------------------------- @@ -227,7 +231,7 @@ Tcl_AppInit( * 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("~/wishrc.tcl", -1), TCL_GLOBAL_ONLY); return TCL_OK; } |