diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-28 11:13:25 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-28 11:13:25 (GMT) |
commit | 5b4a3efaa9e14c7fa3d9865c5dc8dfd7ef51af17 (patch) | |
tree | 83e8e54978b08bd431f372784b7e9de51349cdbb /generic/tclVar.c | |
parent | 41b3739aa61f95df2dfbaf0896100aaf73f2595a (diff) | |
parent | 4bdba0452a35fd38357a21020579d0151a1c25d6 (diff) | |
download | tcl-5b4a3efaa9e14c7fa3d9865c5dc8dfd7ef51af17.zip tcl-5b4a3efaa9e14c7fa3d9865c5dc8dfd7ef51af17.tar.gz tcl-5b4a3efaa9e14c7fa3d9865c5dc8dfd7ef51af17.tar.bz2 |
Align comment. Remove some end-of-line spacing. No functional changes.
Diffstat (limited to 'generic/tclVar.c')
-rw-r--r-- | generic/tclVar.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index f93de3b..451ef7b 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -1505,7 +1505,7 @@ Tcl_SetVar( Tcl_Obj *varValuePtr, *varNamePtr = Tcl_NewStringObj(varName, -1); Tcl_IncrRefCount(varNamePtr); - varValuePtr = Tcl_ObjSetVar2(interp, varNamePtr, NULL, + varValuePtr = Tcl_ObjSetVar2(interp, varNamePtr, NULL, Tcl_NewStringObj(newValue, -1), flags); Tcl_DecrRefCount(varNamePtr); @@ -2038,7 +2038,7 @@ TclPtrIncrObjVar( if (Tcl_IsShared(varValuePtr)) { /* Copy on write */ varValuePtr = Tcl_DuplicateObj(varValuePtr); - + if (TCL_OK == TclIncrObj(interp, varValuePtr, incrPtr)) { return TclPtrSetVar(interp, varPtr, arrayPtr, part1Ptr, part2Ptr, varValuePtr, flags, index); @@ -4340,7 +4340,7 @@ TclPtrMakeUpvar( } /* Callers must Incr myNamePtr if they plan to Decr it. */ - + int TclPtrObjMakeUpvar( Tcl_Interp *interp, /* Interpreter containing variables. Used for @@ -6365,10 +6365,10 @@ CompareVarKeys( /* * If the object pointers are the same then they match. * OPT: this comparison was moved to the caller - + if (objPtr1 == objPtr2) return 1; */ - + /* * Don't use Tcl_GetStringFromObj as it would prevent l1 and l2 being in a * register. |