diff options
author | dgp <dgp@users.sourceforge.net> | 2005-12-19 19:03:16 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2005-12-19 19:03:16 (GMT) |
commit | daebf10e2ccb834224974521717da8f39bc873d1 (patch) | |
tree | 0a12925e93451c4a8954efb8eae7c1f973c9a1ff /generic/tclParseExpr.c | |
parent | b2d1f7871ac602e36507ea0beab5868e1af45733 (diff) | |
download | tcl-daebf10e2ccb834224974521717da8f39bc873d1.zip tcl-daebf10e2ccb834224974521717da8f39bc873d1.tar.gz tcl-daebf10e2ccb834224974521717da8f39bc873d1.tar.bz2 |
2005-12-19 Don Porter <dgp@users.sourceforge.net>
* generic/tclCmdMZ.c: Modified [string is double] to use
* tests/string.test: TclParseNumber() to parse trailing whitespace.
Ensures consistency, and makes it easier to cleanup after invalid
internal reps left behind by parsing [Bugs 1360432 1382287].
* generic/tclParseExpr.c: Added TCL_PARSE_NO_WHITESPACE to
* generic/tclScan.c: TclParseNumber() calls since [scan] and
* tests/scan.test: [expr] parsing don't want spaces in parsed
numbers.
* generic/tclInt.h: Added TCL_PARSE_NO_WHITESPACE flag to the
* generic/tclStrToD.c: TclParseNumber() interface.
Diffstat (limited to 'generic/tclParseExpr.c')
-rw-r--r-- | generic/tclParseExpr.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclParseExpr.c b/generic/tclParseExpr.c index ae1e2b2..688447b 100644 --- a/generic/tclParseExpr.c +++ b/generic/tclParseExpr.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclParseExpr.c,v 1.31 2005/12/13 22:43:18 kennykb Exp $ + * RCS: @(#) $Id: tclParseExpr.c,v 1.32 2005/12/19 19:03:17 dgp Exp $ */ #include "tclInt.h" @@ -1616,7 +1616,7 @@ GetLexeme( CONST char *end = infoPtr->lastChar; CONST char* end2; int code = TclParseNumber(NULL, NULL, NULL, src, (int)(end-src), - &end2, 0); + &end2, TCL_PARSE_NO_WHITESPACE); if (code == TCL_OK) { length = end2-src; |