diff options
| author | dgp <dgp@users.sourceforge.net> | 2007-03-01 22:45:45 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2007-03-01 22:45:45 (GMT) |
| commit | 57b319287e05948bc3a93c9517e50e42b59e9f44 (patch) | |
| tree | 486328923ebbefd7b22b1ae37cc3f0e809ee568e /generic | |
| parent | 96d1d0f2dd821c789b8178f9e23d7afef194aa35 (diff) | |
| download | tcl-57b319287e05948bc3a93c9517e50e42b59e9f44.zip tcl-57b319287e05948bc3a93c9517e50e42b59e9f44.tar.gz tcl-57b319287e05948bc3a93c9517e50e42b59e9f44.tar.bz2 | |
* generic/tclCmdIL.c (Tcl_LinsertObjCmd): Code simplifications
and optimizations.
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclCmdIL.c | 21 |
1 files changed, 6 insertions, 15 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 770d990..b3c2c2f 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdIL.c,v 1.101 2007/03/01 22:14:19 dgp Exp $ + * RCS: @(#) $Id: tclCmdIL.c,v 1.102 2007/03/01 22:45:46 dgp Exp $ */ #include "tclInt.h" @@ -2937,7 +2937,7 @@ Tcl_LinsertObjCmd( Tcl_Obj *CONST objv[]) /* Argument objects. */ { Tcl_Obj *listPtr; - int index, isDuplicate, len, result; + int index, len, result; if (objc < 4) { Tcl_WrongNumArgs(interp, 1, objv, "list index element ?element ...?"); @@ -2969,10 +2969,8 @@ Tcl_LinsertObjCmd( */ listPtr = objv[1]; - isDuplicate = 0; if (Tcl_IsShared(listPtr)) { - listPtr = Tcl_DuplicateObj(listPtr); - isDuplicate = 1; + listPtr = TclListObjCopy(NULL, listPtr); } if ((objc == 4) && (index == len)) { @@ -2980,16 +2978,9 @@ Tcl_LinsertObjCmd( * Special case: insert one element at the end of the list. */ - result = Tcl_ListObjAppendElement(interp, listPtr, objv[3]); - } else if (objc > 3) { - result = Tcl_ListObjReplace(interp, listPtr, index, 0, - (objc-3), &(objv[3])); - } - if (result != TCL_OK) { - if (isDuplicate) { - Tcl_DecrRefCount(listPtr); /* free unneeded obj */ - } - return result; + Tcl_ListObjAppendElement(NULL, listPtr, objv[3]); + } else { + Tcl_ListObjReplace(NULL, listPtr, index, 0, (objc-3), &(objv[3])); } /* |