diff options
| author | dgp <dgp@users.sourceforge.net> | 2011-04-21 13:24:25 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2011-04-21 13:24:25 (GMT) |
| commit | 842312f3957922d5d3255fd5d2a511220f26c748 (patch) | |
| tree | 0c3fcde0a02a3747b4b81d374da8af259c859890 /generic/tclIndexObj.c | |
| parent | 0931d1b4cbfc3fca3e3bd7e227bd7632853c1384 (diff) | |
| parent | 3dee0582a464245f4ebfb6cc887e198566d3f035 (diff) | |
| download | tcl-842312f3957922d5d3255fd5d2a511220f26c748.zip tcl-842312f3957922d5d3255fd5d2a511220f26c748.tar.gz tcl-842312f3957922d5d3255fd5d2a511220f26c748.tar.bz2 | |
Make sure SetFooFromAny routines react reasonably when passed a NULL interp.
Diffstat (limited to 'generic/tclIndexObj.c')
| -rw-r--r-- | generic/tclIndexObj.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index af29363..ce25a12 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; } |