diff options
| author | dgp <dgp@users.sourceforge.net> | 2008-01-23 21:21:26 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2008-01-23 21:21:26 (GMT) |
| commit | 0631e4f3f4260d3fbc773676389783ec4d31c480 (patch) | |
| tree | a1b52e7723f15d31eb1d37d49c9cc69b7d9cf7cd /generic/tclBasic.c | |
| parent | f7f6ddb4ce3ce465107777a9a2c408dd8ab473dc (diff) | |
| download | tcl-0631e4f3f4260d3fbc773676389783ec4d31c480.zip tcl-0631e4f3f4260d3fbc773676389783ec4d31c480.tar.gz tcl-0631e4f3f4260d3fbc773676389783ec4d31c480.tar.bz2 | |
Reconcile coding style issues between branches
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index bd2305c..35c6bb9 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -14,7 +14,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.290 2008/01/15 11:59:26 msofer Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.291 2008/01/23 21:21:26 dgp Exp $ */ #include "tclInt.h" @@ -3588,7 +3588,7 @@ TclEvalObjvInternal( */ cmdPtr->refCount++; - if (iPtr->tracePtr && (traceCode == TCL_OK)) { + if (iPtr->tracePtr && (traceCode == TCL_OK)) { traceCode = TclCheckInterpTraces(interp, command, length, cmdPtr, code, TCL_TRACE_ENTER_EXEC, objc, objv); } @@ -4097,7 +4097,7 @@ TclEvalEx( Tcl_Obj *norm = Tcl_FSGetNormalizedPath(interp, iPtr->scriptFile); - if (!norm) { + if (norm == NULL) { /* * Error message in the interp result. */ @@ -4118,8 +4118,7 @@ TclEvalEx( eeFramePtr->data.eval.path = NULL; } - eeFramePtr->level = - (iPtr->cmdFramePtr==NULL ? 1 : iPtr->cmdFramePtr->level+1); + eeFramePtr->level = iPtr->cmdFramePtr ? iPtr->cmdFramePtr->level + 1 : 1; eeFramePtr->framePtr = iPtr->framePtr; eeFramePtr->nextPtr = iPtr->cmdFramePtr; eeFramePtr->nline = 0; |