diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-03-07 14:16:08 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-03-07 14:16:08 (GMT) |
| commit | 7fe003f8d24f263ca82d1ddf0a54f6ab16f01306 (patch) | |
| tree | 9ab3231d1445629ded2c24ae3766f38d673df5a2 | |
| parent | da8fbb89c41229c79b8f373f955ce1fb59cb4233 (diff) | |
| download | tcl-7fe003f8d24f263ca82d1ddf0a54f6ab16f01306.zip tcl-7fe003f8d24f263ca82d1ddf0a54f6ab16f01306.tar.gz tcl-7fe003f8d24f263ca82d1ddf0a54f6ab16f01306.tar.bz2 | |
Remove pointless duplication.
| -rw-r--r-- | generic/tclListObj.c | 12 |
1 files changed, 3 insertions, 9 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 0d37821..13704b9 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -1145,15 +1145,9 @@ TclLindexList( return TclLindexFlat(interp, listPtr, 1, &argPtr); } - if (indexListCopy->typePtr == &tclListType) { - List *listRepPtr = ListRepPtr(indexListCopy); - - listPtr = TclLindexFlat(interp, listPtr, listRepPtr->elemCount, - &listRepPtr->elements); - } else { - int indexCount = -1; /* Size of the array of list indices. */ - Tcl_Obj **indices = NULL; - /* Array of list indices. */ + { + int indexCount = -1; /* Size of the array of list indices. */ + Tcl_Obj **indices = NULL; /* Array of list indices. */ Tcl_ListObjGetElements(NULL, indexListCopy, &indexCount, &indices); listPtr = TclLindexFlat(interp, listPtr, indexCount, indices); |