diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-29 07:56:53 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-29 07:56:53 (GMT) |
| commit | 6494c04deef9585c38b287b24f02c49c7efee95d (patch) | |
| tree | fe10deb28c3db9fcc66b3fcf7716cadfb4c3ca64 /generic/tclMain.c | |
| parent | 9bec80c561ec20b18b44df0912dd050d8d1a671d (diff) | |
| parent | e39c8e6b26935216f5dc8c50ab4fe2bea2e225d1 (diff) | |
| download | tcl-6494c04deef9585c38b287b24f02c49c7efee95d.zip tcl-6494c04deef9585c38b287b24f02c49c7efee95d.tar.gz tcl-6494c04deef9585c38b287b24f02c49c7efee95d.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclMain.c')
| -rw-r--r-- | generic/tclMain.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclMain.c b/generic/tclMain.c index 70f705b..3a09b0c 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -623,7 +623,7 @@ Tcl_MainEx( if (!Tcl_InterpDeleted(interp) && !Tcl_LimitExceeded(interp)) { Tcl_Obj *cmd = Tcl_ObjPrintf("exit %d", exitCode); - + Tcl_IncrRefCount(cmd); Tcl_EvalObjEx(interp, cmd, TCL_EVAL_GLOBAL); Tcl_DecrRefCount(cmd); @@ -721,7 +721,7 @@ TclFullFinalizationRequested(void) const char *fin; Tcl_DString ds; int finalize = 0; - + fin = TclGetEnv("TCL_FINALIZE_ON_EXIT", &ds); finalize = ((fin != NULL) && strcmp(fin, "0")); if (fin != NULL) { |