summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdIL.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2009-07-16 21:24:38 (GMT)
committerdgp <dgp@users.sourceforge.net>2009-07-16 21:24:38 (GMT)
commit47696f530aabf1a5ddab3d36eb8481b469d44397 (patch)
tree2212f61d925aabd55784a55ed9182b092a9bf383 /generic/tclCmdIL.c
parentb5f035d9c80dbec4986ba4e7e2ba4a1881d90d38 (diff)
downloadtcl-47696f530aabf1a5ddab3d36eb8481b469d44397.zip
tcl-47696f530aabf1a5ddab3d36eb8481b469d44397.tar.gz
tcl-47696f530aabf1a5ddab3d36eb8481b469d44397.tar.bz2
* generic/tclBinary.c: Removed unused variables.
* generic/tclCmdIL.c: * generic/tclCompile.c: * generic/tclExecute.c: * generic/tclHash.c: * generic/tclIOUtil.c: * generic/tclVar.c: * generic/tclBasic.c: Silence compiler warnings about ClientData. * generic/tclProc.c: * generic/tclScan.c: Typo in ACCEPT_NAN configuration. * generic/tclStrToD.c: Set floating point control register on MIPS systems so that the gradual underflow expected by Tcl is in effect. [Bug 2819200]
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r--generic/tclCmdIL.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index cbc2b60..0049b18 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.167 2009/07/11 13:34:24 dkf Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.168 2009/07/16 21:24:39 dgp Exp $
*/
#include "tclInt.h"
@@ -3521,7 +3521,7 @@ Tcl_LsortObjCmd(
int objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument values. */
{
- int i, j, index, unique, indices, length, nocase = 0, sortMode, indexc;
+ int i, j, index, indices, length, nocase = 0, sortMode, indexc;
int group, groupSize, groupOffset, idx;
Tcl_Obj *resultPtr, *cmdPtr, **listObjPtrs, *listObj, *indexPtr;
SortElement *elementArray, *elementPtr;
@@ -3562,7 +3562,6 @@ Tcl_LsortObjCmd(
sortInfo.interp = interp;
sortInfo.resultCode = TCL_OK;
cmdPtr = NULL;
- unique = 0;
indices = 0;
group = 0;
groupSize = 1;
@@ -3661,7 +3660,6 @@ Tcl_LsortObjCmd(
sortInfo.sortMode = SORTMODE_REAL;
break;
case LSORT_UNIQUE:
- unique = 1;
sortInfo.unique = 1;
break;
case LSORT_INDICES: