diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2009-01-09 11:21:45 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2009-01-09 11:21:45 (GMT) |
| commit | 4a6ee21a80ee4a00adc8da96ed88329e7faaebf4 (patch) | |
| tree | 4aa51d7f8297e2b7b5f11c316610f06e345c362d /generic/tclNamesp.c | |
| parent | 06b98b063ae2d87532d9940f8ff0a6409fa86f58 (diff) | |
| download | tcl-4a6ee21a80ee4a00adc8da96ed88329e7faaebf4.zip tcl-4a6ee21a80ee4a00adc8da96ed88329e7faaebf4.tar.gz tcl-4a6ee21a80ee4a00adc8da96ed88329e7faaebf4.tar.bz2 | |
Style fixes (unfouling whitespace, sorting comments, removing useless casts, etc.)
Diffstat (limited to 'generic/tclNamesp.c')
| -rw-r--r-- | generic/tclNamesp.c | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index 3703118..5908bb1 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -23,7 +23,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclNamesp.c,v 1.183 2008/12/02 19:40:41 dgp Exp $ + * RCS: @(#) $Id: tclNamesp.c,v 1.184 2009/01/09 11:21:46 dkf Exp $ */ #include "tclInt.h" @@ -3332,10 +3332,10 @@ NamespaceEvalCmd( * TIP #280: Make actual argument location available to eval'd script. */ - objPtr = objv[3]; + objPtr = objv[3]; invoker = iPtr->cmdFramePtr; - word = 3; - TclArgumentGet (interp, objPtr, &invoker, &word); + word = 3; + TclArgumentGet(interp, objPtr, &invoker, &word); } else { /* * More than one argument: concatenate them together with spaces @@ -3343,9 +3343,9 @@ NamespaceEvalCmd( * object when it decrements its refcount after eval'ing it. */ - objPtr = Tcl_ConcatObj(objc-3, objv+3); + objPtr = Tcl_ConcatObj(objc-3, objv+3); invoker = NULL; - word = 0; + word = 0; } /* @@ -4879,7 +4879,7 @@ NamespaceEnsembleCmd( * memory leaks. */ - for (; objc>1 ; objc-=2,objv+=2 ) { + for (; objc>1 ; objc-=2,objv+=2) { if (Tcl_GetIndexFromObj(interp, objv[0], createOptions, "option", 0, &index) != TCL_OK) { if (allocatedMapFlag) { @@ -5180,7 +5180,7 @@ NamespaceEnsembleCmd( * cause any memory leaks. */ - for (; objc>0 ; objc-=2,objv+=2 ) { + for (; objc>0 ; objc-=2,objv+=2) { if (Tcl_GetIndexFromObj(interp, objv[0], configOptions, "option", 0, &index) != TCL_OK) { if (allocatedMapFlag) { |