diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2008-08-23 10:54:24 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2008-08-23 10:54:24 (GMT) |
| commit | 7ca11ee5bdfe73bede408c4e213282430c6575d0 (patch) | |
| tree | af555c5e721f2e2ee3846b85f0953dcf59e393ff | |
| parent | 51485a0a2322299308d4f86bff6d52a543ea5164 (diff) | |
| download | tcl-7ca11ee5bdfe73bede408c4e213282430c6575d0.zip tcl-7ca11ee5bdfe73bede408c4e213282430c6575d0.tar.gz tcl-7ca11ee5bdfe73bede408c4e213282430c6575d0.tar.bz2 | |
Silence some warnings.
| -rw-r--r-- | generic/tclListObj.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 6cf903b..7505569 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclListObj.c,v 1.51 2008/07/20 17:55:51 dkf Exp $ + * RCS: @(#) $Id: tclListObj.c,v 1.52 2008/08/23 10:54:24 dkf Exp $ */ #include "tclInt.h" @@ -1081,8 +1081,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 @@ -1167,8 +1167,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; |