summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-01-21 18:16:37 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-01-21 18:16:37 (GMT)
commitc7ed456462861ff7aaef003c61d8fc526466017d (patch)
tree3a421c6dbed377823d1bca01e719425dc497a790 /generic
parent7f7ce5b4a67db42df570c86bcfbc45c4b9fa6d39 (diff)
downloadtcl-c7ed456462861ff7aaef003c61d8fc526466017d.zip
tcl-c7ed456462861ff7aaef003c61d8fc526466017d.tar.gz
tcl-c7ed456462861ff7aaef003c61d8fc526466017d.tar.bz2
Silence compiler warnings.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclListObj.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c
index d6ffa95..289cf2d 100644
--- a/generic/tclListObj.c
+++ b/generic/tclListObj.c
@@ -1031,8 +1031,8 @@ TclLindexList(
{
int index; /* Index into the list. */
- Tcl_Obj **indices; /* Array of list indices. */
- int indexCount; /* 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 *indexListCopy;
/*
@@ -1117,8 +1117,8 @@ TclLindexFlat(
Tcl_IncrRefCount(listPtr);
for (i=0 ; i<indexCount && listPtr ; i++) {
- int index, listLen;
- Tcl_Obj **elemPtrs, *sublistCopy;
+ int index, listLen = 0;
+ Tcl_Obj **elemPtrs = NULL, *sublistCopy;
/*
* Here we make a private copy of the current sublist, so we avoid any
@@ -1203,8 +1203,8 @@ TclLsetList(
Tcl_Obj *indexArgPtr, /* Index or index-list arg to 'lset'. */
Tcl_Obj *valuePtr) /* Value arg to 'lset'. */
{
- int indexCount; /* Number of indices in the index list. */
- Tcl_Obj **indices; /* Vector of indices in the index list. */
+ int indexCount = 0; /* Number of indices in the index list. */
+ Tcl_Obj **indices = NULL; /* Vector of indices in the index list. */
Tcl_Obj *retValuePtr; /* Pointer to the list to be returned. */
int index; /* Current index in the list - discarded. */
Tcl_Obj *indexListCopy;