Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix testsuite when "string bytelength" doesn't exist. |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | tip-575 |
Files: | files | file ages | folders |
SHA3-256: |
56fca3f26dabf72af2f7fb97ca6ca7ed |
User & Date: | jan.nijtmans 2020-05-23 21:51:12.197 |
Context
2020-05-23
| ||
22:07 | Rewrite "string wordend" to use the Tcl_UniChar array. check-in: 8333c88b3c user: jan.nijtmans tags: tip-575 | |
21:51 | Fix testsuite when "string bytelength" doesn't exist. check-in: 56fca3f26d user: jan.nijtmans tags: tip-575 | |
2020-05-22
| ||
21:28 | Split more "string" functions. New helper function TclUniCharToUCS4(), not used yet but that's the n... check-in: ec03d6f62d user: jan.nijtmans tags: tip-575 | |
Changes
Changes to library/init.tcl.
︙ | ︙ | |||
205 206 207 208 209 210 211 | # Compute stack trace contribution from the [uplevel]. # Note the dependence on how Tcl_AddErrorInfo, etc. # construct the stack trace. # set errInfo [dict get $opts -errorinfo] set errCode [dict get $opts -errorcode] set cinfo $args | | | | 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 | # Compute stack trace contribution from the [uplevel]. # Note the dependence on how Tcl_AddErrorInfo, etc. # construct the stack trace. # set errInfo [dict get $opts -errorinfo] set errCode [dict get $opts -errorcode] set cinfo $args if {[string length $cinfo] > 150} { set cinfo [string range $cinfo 0 150] while {[string length $cinfo] > 150} { set cinfo [string range $cinfo 0 end-1] } append cinfo ... } set tail "\n (\"uplevel\" body line 1)\n invoked\ from within\n\"uplevel 1 \$args\"" set expect "$msg\n while executing\n\"$cinfo\"$tail" |
︙ | ︙ |