diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-24 10:37:30 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-24 10:37:30 (GMT) |
| commit | 51db664c7d3fa5bc0a1c216ac3ee89c1eeba6f09 (patch) | |
| tree | 6cd1984366d92404681d2d61d43d3558ae6c0d17 /generic/tclVar.c | |
| parent | 4462cc72bb42f0c350c2059a67c357a63220e326 (diff) | |
| parent | eae252da83b4af0e55e40abefe4e3d7ff8f1a370 (diff) | |
| download | tcl-51db664c7d3fa5bc0a1c216ac3ee89c1eeba6f09.zip tcl-51db664c7d3fa5bc0a1c216ac3ee89c1eeba6f09.tar.gz tcl-51db664c7d3fa5bc0a1c216ac3ee89c1eeba6f09.tar.bz2 | |
Convert Tcl_GetIndexFromObj implementation to macro
Diffstat (limited to 'generic/tclVar.c')
| -rw-r--r-- | generic/tclVar.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index 22f6fb8..3c5ee15 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -2106,7 +2106,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); @@ -3729,8 +3729,8 @@ ArrayNamesCmd( * Finish parsing the arguments. */ - if ((objc == 4) && Tcl_GetIndexFromObj(interp, objv[2], options, "option", - 0, &mode) != TCL_OK) { + if ((objc == 4) && Tcl_GetIndexFromObjStruct(interp, objv[2], options, + sizeof(char *), "option", 0, &mode) != TCL_OK) { return TCL_ERROR; } @@ -4372,7 +4372,7 @@ TclPtrMakeUpvar( } /* Callers must Incr myNamePtr if they plan to Decr it. */ - + int TclPtrObjMakeUpvar( Tcl_Interp *interp, /* Interpreter containing variables. Used for |