diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-31 23:13:21 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-05-31 23:13:21 (GMT) |
commit | d23bb9578a50e42f1052a160d4abcc57ce29dd85 (patch) | |
tree | 68902bcd57d7c588cc25f29e7d69e6da3d19ef43 /tools/str2c | |
parent | be861c2430ca13fd13b81ff3bcdc6fc0cb4ec8f4 (diff) | |
download | tcl-d23bb9578a50e42f1052a160d4abcc57ce29dd85.zip tcl-d23bb9578a50e42f1052a160d4abcc57ce29dd85.tar.gz tcl-d23bb9578a50e42f1052a160d4abcc57ce29dd85.tar.bz2 |
In tools/*, use the single-argument version of "expr" always. Making it robust against TIP #526. Those tools generally are the same among all Tcl versions.
Diffstat (limited to 'tools/str2c')
-rw-r--r-- | tools/str2c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tools/str2c b/tools/str2c index cff7ba2..588abdf 100644 --- a/tools/str2c +++ b/tools/str2c @@ -39,7 +39,7 @@ static char data\[\]=\"[translate $r]\";" static const char * const data\[\]= {" set n 1 for {set i 0} {$i<$lg} {incr i $MAX} { - set part [string range $r $i [expr $i+$MAX-1]] + set part [string range $r $i [expr {$i+$MAX-1}]] set len [string length $part]; puts "\t/* Start of part $n ($len characters) */" puts "\t\"[translate $part]\"," |