summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2007-04-24 16:03:51 (GMT)
committerdgp <dgp@users.sourceforge.net>2007-04-24 16:03:51 (GMT)
commit38d23a79e2e70a6b9e5f6003fa19c6698660696e (patch)
tree7c45e9322b14f3e7350eb193baf877aa584884dd /generic
parent729a99a663c180693e5deb7888f823e034b857e6 (diff)
downloadtcl-38d23a79e2e70a6b9e5f6003fa19c6698660696e.zip
tcl-38d23a79e2e70a6b9e5f6003fa19c6698660696e.tar.gz
tcl-38d23a79e2e70a6b9e5f6003fa19c6698660696e.tar.bz2
corrected botched indents
Diffstat (limited to 'generic')
-rw-r--r--generic/tclMain.c76
1 files changed, 38 insertions, 38 deletions
diff --git a/generic/tclMain.c b/generic/tclMain.c
index 21e37e8..2ccb855 100644
--- a/generic/tclMain.c
+++ b/generic/tclMain.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclMain.c,v 1.41 2007/04/10 14:47:16 dkf Exp $
+ * RCS: @(#) $Id: tclMain.c,v 1.42 2007/04/24 16:03:51 dgp Exp $
*/
#include "tclInt.h"
@@ -637,49 +637,49 @@ Tcl_Main(
* this point.
*/
- (*mainLoopProc)();
- mainLoopProc = NULL;
- }
- if (commandPtr != NULL) {
- Tcl_DecrRefCount(commandPtr);
- }
+ (*mainLoopProc)();
+ mainLoopProc = NULL;
+ }
+ if (commandPtr != NULL) {
+ Tcl_DecrRefCount(commandPtr);
+ }
- /*
- * Rather than calling exit, invoke the "exit" command so that users can
- * replace "exit" with some other command to do additional cleanup on
- * exit. The Tcl_EvalObjEx call should never return.
- */
+ /*
+ * Rather than calling exit, invoke the "exit" command so that users can
+ * replace "exit" with some other command to do additional cleanup on
+ * exit. The Tcl_EvalObjEx call should never return.
+ */
- if (!Tcl_InterpDeleted(interp)) {
- if (!Tcl_LimitExceeded(interp)) {
- Tcl_Obj *cmd = Tcl_ObjPrintf("exit %d", exitCode);
- Tcl_IncrRefCount(cmd);
- Tcl_EvalObjEx(interp, cmd, TCL_EVAL_GLOBAL);
- Tcl_DecrRefCount(cmd);
- }
+ if (!Tcl_InterpDeleted(interp)) {
+ if (!Tcl_LimitExceeded(interp)) {
+ Tcl_Obj *cmd = Tcl_ObjPrintf("exit %d", exitCode);
+ Tcl_IncrRefCount(cmd);
+ Tcl_EvalObjEx(interp, cmd, TCL_EVAL_GLOBAL);
+ Tcl_DecrRefCount(cmd);
+ }
- /*
- * If Tcl_EvalObjEx returns, trying to eval [exit], something unusual
- * is happening. Maybe interp has been deleted; maybe [exit] was
- * redefined, maybe we've blown up because of an exceeded limit. We
- * still want to cleanup and exit.
- */
+ /*
+ * If Tcl_EvalObjEx returns, trying to eval [exit], something unusual
+ * is happening. Maybe interp has been deleted; maybe [exit] was
+ * redefined, maybe we've blown up because of an exceeded limit. We
+ * still want to cleanup and exit.
+ */
- if (!Tcl_InterpDeleted(interp)) {
- Tcl_DeleteInterp(interp);
- }
- }
- Tcl_SetStartupScript(NULL, NULL);
+ if (!Tcl_InterpDeleted(interp)) {
+ Tcl_DeleteInterp(interp);
+ }
+ }
+ Tcl_SetStartupScript(NULL, NULL);
- /*
- * If we get here, the master interp has been deleted. Allow its
- * destruction with the last matching Tcl_Release.
- */
+ /*
+ * If we get here, the master interp has been deleted. Allow its
+ * destruction with the last matching Tcl_Release.
+ */
- Tcl_Release((ClientData) interp);
- Tcl_Exit(exitCode);
- }
-
+ Tcl_Release((ClientData) interp);
+ Tcl_Exit(exitCode);
+}
+
/*
*---------------------------------------------------------------
*