diff options
| author | dgp <dgp@users.sourceforge.net> | 2015-11-30 18:38:33 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2015-11-30 18:38:33 (GMT) |
| commit | 4730ab13c85c594c7d72b993b67fee80ffe28c26 (patch) | |
| tree | 06182e3dbddd3793990aeb70fecd973dd73dbac9 /generic/tclCmdIL.c | |
| parent | 48abc4faa37b34ffbe405b86425aa8415da29e88 (diff) | |
| parent | a90dcf7e3dbae2714513cbc09ec978dfcf21aa55 (diff) | |
| download | tcl-4730ab13c85c594c7d72b993b67fee80ffe28c26.zip tcl-4730ab13c85c594c7d72b993b67fee80ffe28c26.tar.gz tcl-4730ab13c85c594c7d72b993b67fee80ffe28c26.tar.bz2 | |
merge 8.5
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 ea9c1e4..02e5812 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -2233,7 +2233,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; + } } /* @@ -2598,7 +2601,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. |