diff options
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index 5119456..1bc6061 100644 --- a/generic/tclUtil.c +++ b/generic/tclUtil.c @@ -13,6 +13,7 @@ */ #include "tclInt.h" +#include "tclParse.h" #include <float.h> #include <math.h> @@ -964,6 +965,7 @@ TclScanElement( } while (length) { + if (CHAR_TYPE(*p) != TYPE_NORMAL) { switch (*p) { case '{': #if COMPAT @@ -1040,6 +1042,7 @@ TclScanElement( /* TODO: Panic on improper encoding? */ break; } + } length -= (length > 0); p++; } |