summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-07-11 13:34:24 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-07-11 13:34:24 (GMT)
commita4d180ffc2e06910053cba53b3700cdd6de82a00 (patch)
tree1d5f0c937fa5726ce0324253436fe1af50a12409 /generic
parent616fced29acb8d7baf98bcd84637e59b465d8f09 (diff)
downloadtcl-a4d180ffc2e06910053cba53b3700cdd6de82a00.zip
tcl-a4d180ffc2e06910053cba53b3700cdd6de82a00.tar.gz
tcl-a4d180ffc2e06910053cba53b3700cdd6de82a00.tar.bz2
tweaks
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCmdIL.c11
1 files changed, 6 insertions, 5 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index e86f686..cbc2b60 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.166 2009/06/30 00:56:08 das Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.167 2009/07/11 13:34:24 dkf Exp $
*/
#include "tclInt.h"
@@ -2363,7 +2363,7 @@ Tcl_LrangeObjCmd(
}
result = TclGetIntForIndexM(interp, objv[2], /*endValue*/ listLen - 1,
- &first);
+ &first);
if (result != TCL_OK) {
return result;
}
@@ -2372,7 +2372,7 @@ Tcl_LrangeObjCmd(
}
result = TclGetIntForIndexM(interp, objv[3], /*endValue*/ listLen - 1,
- &last);
+ &last);
if (result != TCL_OK) {
return result;
}
@@ -2408,8 +2408,8 @@ Tcl_LrangeObjCmd(
}
/*
- * This one is not conditioned on (first>0) in order to
- * preserve the string-canonizing effect of [lrange 0 end].
+ * This one is not conditioned on (first>0) in order to preserve the
+ * string-canonizing effect of [lrange 0 end].
*/
Tcl_ListObjReplace(interp, objv[1], 0, first, 0, NULL);
@@ -2497,6 +2497,7 @@ Tcl_LrepeatObjCmd(
listPtr = Tcl_NewListObj(totalElems, NULL);
if (totalElems) {
List *listRepPtr = listPtr->internalRep.twoPtrValue.ptr1;
+
listRepPtr->elemCount = elementCount*objc;
dataArray = &listRepPtr->elements;
}