diff options
author | dgp <dgp@users.sourceforge.net> | 2015-11-20 16:42:57 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2015-11-20 16:42:57 (GMT) |
commit | b043297e8b02ea12c45a49b4cea4dcaa50da99b3 (patch) | |
tree | a7f9d5de436e44a163dfaca6fba37508ef99f227 /generic/tclCmdIL.c | |
parent | 0c95d1d7c2d07e8a422b8af055160e8009e7eeb4 (diff) | |
parent | c32d032cbd7947d9e64e931df87fc4f374d81e7f (diff) | |
download | tcl-b043297e8b02ea12c45a49b4cea4dcaa50da99b3.zip tcl-b043297e8b02ea12c45a49b4cea4dcaa50da99b3.tar.gz tcl-b043297e8b02ea12c45a49b4cea4dcaa50da99b3.tar.bz2 |
[40f628e8e3] Tcl_ListObjReplace() callers need to handle TCL_ERROR.
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r-- | generic/tclCmdIL.c | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index d723e4b..739dca9 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -2390,7 +2390,10 @@ Tcl_LinsertObjCmd( Tcl_ListObjAppendElement(NULL, listPtr, objv[3]); } else { - Tcl_ListObjReplace(NULL, listPtr, index, 0, (objc-3), &(objv[3])); + if (TCL_OK != Tcl_ListObjReplace(interp, listPtr, index, 0, + (objc-3), &(objv[3]))) { + return TCL_ERROR; + } } /* @@ -2786,7 +2789,10 @@ Tcl_LreplaceObjCmd( * optimize this case away. */ - Tcl_ListObjReplace(NULL, listPtr, first, numToDelete, objc-4, objv+4); + if (TCL_OK != Tcl_ListObjReplace(interp, listPtr, first, numToDelete, + objc-4, objv+4)) { + return TCL_ERROR; + } /* * Set the interpreter's object result. |