summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdIL.c
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2010-02-24 10:45:04 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2010-02-24 10:45:04 (GMT)
commit8282fe60d8a51812bfb3ced0032e52c0cc5f81b5 (patch)
tree484964998d32be03482d6e1078a27f1f3187f409 /generic/tclCmdIL.c
parent9f6e608ac5b1a6b4bb9382774a7ae4e263533dde (diff)
downloadtcl-8282fe60d8a51812bfb3ced0032e52c0cc5f81b5.zip
tcl-8282fe60d8a51812bfb3ced0032e52c0cc5f81b5.tar.gz
tcl-8282fe60d8a51812bfb3ced0032e52c0cc5f81b5.tar.bz2
More tidying up (whitespace, spelling, useless parentheses, useless casts)
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r--generic/tclCmdIL.c13
1 files changed, 6 insertions, 7 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index 313c368..fff4e14 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.176 2009/12/22 19:49:29 dkf Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.177 2010/02/24 10:45:04 dkf Exp $
*/
#include "tclInt.h"
@@ -144,7 +144,7 @@ static int InfoSharedlibCmd(ClientData dummy, Tcl_Interp *interp,
int objc, Tcl_Obj *const objv[]);
static int InfoTclVersionCmd(ClientData dummy, Tcl_Interp *interp,
int objc, Tcl_Obj *const objv[]);
-static SortElement * MergeLists(SortElement *leftPtr, SortElement *rightPtr,
+static SortElement * MergeLists(SortElement *leftPtr, SortElement *rightPtr,
SortInfo *infoPtr);
static int SortCompare(SortElement *firstPtr, SortElement *second,
SortInfo *infoPtr);
@@ -2629,7 +2629,7 @@ Tcl_LreplaceObjCmd(
}
if (first < 0) {
- first = 0;
+ first = 0;
}
/*
@@ -2645,7 +2645,7 @@ Tcl_LreplaceObjCmd(
return TCL_ERROR;
}
if (last >= listLen) {
- last = listLen - 1;
+ last = listLen - 1;
}
if (first <= last) {
numToDelete = last - first + 1;
@@ -3680,9 +3680,8 @@ Tcl_LsortObjCmd(
break;
case LSORT_STRIDE:
if (i == objc-2) {
- Tcl_AppendResult(interp,
- "\"-stride\" option must be followed by stride length",
- NULL);
+ Tcl_AppendResult(interp, "\"-stride\" option must be ",
+ "followed by stride length", NULL);
sortInfo.resultCode = TCL_ERROR;
goto done2;
}