diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-09-05 12:41:10 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-09-05 12:41:10 (GMT) |
| commit | 83dd517c610e9f1a5e21aa75d6ab5289ea70befa (patch) | |
| tree | 48d6a963b440e3484648cbdc5127de612c037894 /generic/tclScan.c | |
| parent | 25bef43b39f0af4f1729dd82573fc4bd9b44fd7f (diff) | |
| parent | edb7af10d93df44cc25e9dce384c61669ce73dc8 (diff) | |
| download | tcl-83dd517c610e9f1a5e21aa75d6ab5289ea70befa.zip tcl-83dd517c610e9f1a5e21aa75d6ab5289ea70befa.tar.gz tcl-83dd517c610e9f1a5e21aa75d6ab5289ea70befa.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclScan.c')
| -rw-r--r-- | generic/tclScan.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index 7a6a8a2..e1fcad4 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -72,7 +72,7 @@ BuildCharSet( CharSet *cset, const char *format) /* Points to first char of set. */ { - Tcl_UniChar ch, start; + Tcl_UniChar ch = 0, start; int offset, nranges; const char *end; @@ -582,7 +582,7 @@ Tcl_ScanObjCmd( char op = 0; int width, underflow = 0; Tcl_WideInt wideValue; - Tcl_UniChar ch, sch; + Tcl_UniChar ch = 0, sch = 0; Tcl_Obj **objs = NULL, *objPtr = NULL; int flags; char buf[513]; /* Temporary buffer to hold scanned number |