From 8727b0b49acc82cb8f7f73f0ea825f42ca4e1966 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Wed, 9 Jul 2025 12:31:12 +0000 Subject: Related to [bdaf890168]: Use Tcl_Size in stead of int while using TclParseAllWhiteSpace() --- generic/tclCompExpr.c | 5 +++-- 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. -- cgit v0.12