diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-20 12:47:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-20 12:47:12 (GMT) |
| commit | f361c1805c0b26ffab9cd3bf43b69456847a619c (patch) | |
| tree | 7fb7e41734b19d337d2fc8a6fd249adfdfda5ce7 /unix/tclAppInit.c | |
| parent | 52b8ad45d1d3762f5608d906c8e8b2e00472f76b (diff) | |
| parent | e878a050b2e76ce58af3e5bc9db745831986bd04 (diff) | |
| download | tcl-f361c1805c0b26ffab9cd3bf43b69456847a619c.zip tcl-f361c1805c0b26ffab9cd3bf43b69456847a619c.tar.gz tcl-f361c1805c0b26ffab9cd3bf43b69456847a619c.tar.bz2 | |
merge trunk.
doc improvements
Diffstat (limited to 'unix/tclAppInit.c')
| -rw-r--r-- | unix/tclAppInit.c | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/unix/tclAppInit.c b/unix/tclAppInit.c index 159bbd8..f3edcff 100644 --- a/unix/tclAppInit.c +++ b/unix/tclAppInit.c @@ -48,7 +48,7 @@ MODULE_SCOPE int main(int, char **); */ #ifdef TCL_LOCAL_MAIN_HOOK -extern int TCL_LOCAL_MAIN_HOOK(int *argc, char ***argv); +MODULE_SCOPE int TCL_LOCAL_MAIN_HOOK(int *argc, char ***argv); #endif /* @@ -150,9 +150,11 @@ Tcl_AppInit( */ #ifdef DJGPP - (Tcl_SetVar)(interp, "tcl_rcFileName", "~/tclsh.rc", TCL_GLOBAL_ONLY); + (Tcl_ObjSetVar2)(interp, Tcl_NewStringObj("tcl_rcFileName", -1), NULL, + Tcl_NewStringObj("~/tclsh.rc", -1), TCL_GLOBAL_ONLY); #else - (Tcl_SetVar)(interp, "tcl_rcFileName", "~/.tclshrc", TCL_GLOBAL_ONLY); + (Tcl_ObjSetVar2)(interp, Tcl_NewStringObj("tcl_rcFileName", -1), NULL, + Tcl_NewStringObj("~/.tclshrc", -1), TCL_GLOBAL_ONLY); #endif return TCL_OK; |