diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2005-10-09 20:05:17 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2005-10-09 20:05:17 (GMT) |
| commit | 63bc8ab8cf7635622a2f4da1feeff6a13acfd8df (patch) | |
| tree | 85a5e00388fcff9f61defad95d92397ff39438f1 /generic/tclStringObj.c | |
| parent | 76faac0f28fe9661f23ff9e35f44df1d899420e5 (diff) | |
| download | tcl-63bc8ab8cf7635622a2f4da1feeff6a13acfd8df.zip tcl-63bc8ab8cf7635622a2f4da1feeff6a13acfd8df.tar.gz tcl-63bc8ab8cf7635622a2f4da1feeff6a13acfd8df.tar.bz2 | |
* generic/tclBasic.c:
* generic/tclExecute.c:
* generic/tclStrToD.c:
* generic/tclStringObj.c: initialise variables to avoid compiler
warnings ([Bug 1320818] among others).
Diffstat (limited to 'generic/tclStringObj.c')
| -rw-r--r-- | generic/tclStringObj.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 74b6f83..5790237 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -33,7 +33,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStringObj.c,v 1.49 2005/10/08 14:42:45 dgp Exp $ */ + * RCS: @(#) $Id: tclStringObj.c,v 1.50 2005/10/09 20:05:27 msofer Exp $ */ #include "tclInt.h" #include "tommath.h" @@ -1930,7 +1930,8 @@ TclAppendFormattedObjs(interp, appendObj, format, objc, objv) case 'o': case 'x': case 'X': { - short int s; + short int s = 0; /* Silence compiler warning; only defined and + * used when useShort is true. */ long l; Tcl_WideInt w; mp_int big; |