diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-09-05 12:41:30 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-09-05 12:41:30 (GMT) |
| commit | 9b5022802ed7e2cd7fb00f992f447ca5ca392601 (patch) | |
| tree | 8dfc0a7528a602bababb7112d0ba43a7e9d3dc79 /generic/tclScan.c | |
| parent | d6ea58f1103b8e3ef6c70d7576d4222be75c72fc (diff) | |
| parent | c2846c0f5c00bb7b9a7952ea378016aa350936a6 (diff) | |
| download | tcl-9b5022802ed7e2cd7fb00f992f447ca5ca392601.zip tcl-9b5022802ed7e2cd7fb00f992f447ca5ca392601.tar.gz tcl-9b5022802ed7e2cd7fb00f992f447ca5ca392601.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 68b260c..56663d8 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 |