diff options
| author | dgp <dgp@noemail.net> | 2011-05-10 16:05:48 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2011-05-10 16:05:48 (GMT) |
| commit | a857fcdf066c77de903a9b361eee82bfc58f49b2 (patch) | |
| tree | 1ca2feda250662282a8e77080fef123d9256b839 /generic/tclIndexObj.c | |
| parent | 6cc8aab67cd8668b7557669fc021f34028f70c81 (diff) | |
| download | tcl-a857fcdf066c77de903a9b361eee82bfc58f49b2.zip tcl-a857fcdf066c77de903a9b361eee82bfc58f49b2.tar.gz tcl-a857fcdf066c77de903a9b361eee82bfc58f49b2.tar.bz2 | |
Completed patch with mucho comments. Merge 8.5.
FossilOrigin-Name: 8de9137c517f4e52139263ea5addf53d2b10e2c6
Diffstat (limited to 'generic/tclIndexObj.c')
| -rw-r--r-- | generic/tclIndexObj.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index dcedd4e..3e37f0f 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.c @@ -303,9 +303,11 @@ SetIndexFromAny( Tcl_Interp *interp, /* Used for error reporting if not NULL. */ register Tcl_Obj *objPtr) /* The object to convert. */ { + if (interp) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "can't convert value to index except via Tcl_GetIndexFromObj API", -1)); + } return TCL_ERROR; } @@ -395,6 +397,7 @@ FreeIndex( Tcl_Obj *objPtr) { ckfree((char *) objPtr->internalRep.otherValuePtr); + objPtr->typePtr = NULL; } /* |