diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-17 14:01:01 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-17 14:01:01 (GMT) |
commit | a8cbd4663aea70a49bc56c61016e39bebd99eeae (patch) | |
tree | e1f682694ff90adb257ecb9bb5fce4ade8945441 /generic/tclVar.c | |
parent | 1fb25505b732b94f74aae7edc392508bdd8a30fa (diff) | |
parent | 1df484aa4e500a19662de2ddad6dcc4772ca71fa (diff) | |
download | tcl-a8cbd4663aea70a49bc56c61016e39bebd99eeae.zip tcl-a8cbd4663aea70a49bc56c61016e39bebd99eeae.tar.gz tcl-a8cbd4663aea70a49bc56c61016e39bebd99eeae.tar.bz2 |
Merge to feature branch
Diffstat (limited to 'generic/tclVar.c')
-rw-r--r-- | generic/tclVar.c | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/generic/tclVar.c b/generic/tclVar.c index 62bf1c4..4df5d43 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -3077,21 +3077,18 @@ ArrayStartSearchCmd( hPtr = Tcl_CreateHashEntry(&iPtr->varSearches, varPtr, &isNew); if (isNew) { searchPtr->id = 1; - Tcl_AppendResult(interp, "s-1-", varName, NULL); varPtr->flags |= VAR_SEARCH_ACTIVE; searchPtr->nextPtr = NULL; } else { - char string[TCL_INTEGER_SPACE]; - searchPtr->id = ((ArraySearch *) Tcl_GetHashValue(hPtr))->id + 1; - TclFormatInt(string, searchPtr->id); - Tcl_AppendResult(interp, "s-", string, "-", varName, NULL); searchPtr->nextPtr = Tcl_GetHashValue(hPtr); } searchPtr->varPtr = varPtr; searchPtr->nextEntry = VarHashFirstEntry(varPtr->value.tablePtr, &searchPtr->search); Tcl_SetHashValue(hPtr, searchPtr); + Tcl_SetObjResult(interp, + Tcl_ObjPrintf("s-%d-%s", searchPtr->id, varName)); return TCL_OK; } |