diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-07-09 12:31:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2025-07-09 12:31:12 (GMT) |
| commit | 8727b0b49acc82cb8f7f73f0ea825f42ca4e1966 (patch) | |
| tree | 67d466e264ff56eccc3a0365b2f6fbd1b72b8080 | |
| parent | 1a3d7da175167f3ec107b332ff157e32212607af (diff) | |
| download | tcl-8727b0b49acc82cb8f7f73f0ea825f42ca4e1966.zip tcl-8727b0b49acc82cb8f7f73f0ea825f42ca4e1966.tar.gz tcl-8727b0b49acc82cb8f7f73f0ea825f42ca4e1966.tar.bz2 | |
Related to [bdaf890168]: Use Tcl_Size in stead of int while using TclParseAllWhiteSpace()core-bug-bdaf890168
| -rw-r--r-- | generic/tclCompExpr.c | 5 | ||||
| -rw-r--r-- | generic/tclIOCmd.c | 2 |
2 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c index ff03f87..20a04be 100644 --- a/generic/tclCompExpr.c +++ b/generic/tclCompExpr.c @@ -740,7 +740,7 @@ ParseExpr( * Tricky case: see test expr-62.10 */ - int scanned2 = scanned; + Tcl_Size scanned2 = scanned; do { scanned2 += TclParseAllWhiteSpace( start + scanned2, numBytes - scanned2); @@ -1510,7 +1510,8 @@ ConvertTreeToTokens( while (1) { Tcl_Token *subExprTokenPtr; - int scanned, parentIdx; + Tcl_Size scanned; + int parentIdx; unsigned char lexeme; /* diff --git a/generic/tclIOCmd.c b/generic/tclIOCmd.c index bd3a462..bba9df3 100644 --- a/generic/tclIOCmd.c +++ b/generic/tclIOCmd.c @@ -1169,7 +1169,7 @@ Tcl_OpenObjCmd( if (objc == 4) { const char *permString = TclGetString(objv[3]); int code = TCL_ERROR; - int scanned = TclParseAllWhiteSpace(permString, -1); + Tcl_Size scanned = TclParseAllWhiteSpace(permString, -1); /* * Support legacy octal numbers. |