Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | fix tm.tcl to include tcl8 locations, and fix corresponding test-cases |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | novem |
| Files: | files | file ages | folders |
| SHA1: |
c2a6bd5d9e12ec6f2213cb7bca6c6a73 |
| User & Date: | jan.nijtmans 2012-12-29 15:24:24 |
Context
|
2012-12-29
| ||
| 18:12 | two more places where refCount was assumed to be a signed value. In Tcl9 that will probably be not t... check-in: 59b85594f2 user: jan.nijtmans tags: novem | |
| 16:37 |
Implement Tcl_SaveResult/Tcl_DiscardResult/Tcl_RestoreResult as macro
This is already on the nove... Closed-Leaf check-in: f75bd45aaf user: jan.nijtmans tags: novem-saveresult-as-macro | |
| 15:24 | fix tm.tcl to include tcl8 locations, and fix corresponding test-cases check-in: c2a6bd5d9e user: jan.nijtmans tags: novem | |
| 09:24 | merge trunk check-in: d53d72ddfb user: jan.nijtmans tags: novem | |
Changes
Changes to library/tm.tcl.
| ︙ | ︙ | |||
337 338 339 340 341 342 343 |
TCL8_${n}_TM_PATH \
] {
if {![info exists env($ev)]} continue
foreach p [split $env($ev) $sep] {
path add $p
}
}
| < | 337 338 339 340 341 342 343 344 345 346 347 348 349 350 |
TCL8_${n}_TM_PATH \
] {
if {![info exists env($ev)]} continue
foreach p [split $env($ev) $sep] {
path add $p
}
}
}
return
}
# ::tcl::tm::roots --
#
# Public API to the module path. See specification.
|
| ︙ | ︙ |
Changes to tests/tm.test.
| ︙ | ︙ | |||
198 199 200 201 202 203 204 205 206 207 208 209 210 211 |
proc genpaths {base} {
# Normalizing picks up drive letters on windows [Bug 1053568]
set base [file normalize $base]
foreach {major minor} [split [info tclversion] .] break
set results {}
set base [file join $base tcl$major]
lappend results [file join $base site-tcl]
for {set i 0} {$i <= $minor} {incr i} {
lappend results [file join $base ${major}.$i]
}
return $results
}
| > > > > > | 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 |
proc genpaths {base} {
# Normalizing picks up drive letters on windows [Bug 1053568]
set base [file normalize $base]
foreach {major minor} [split [info tclversion] .] break
set results {}
set base8 [file join $base tcl8]
lappend results [file join $base8 site-tcl]
for {set i 0} {$i <= 7} {incr i} {
lappend results [file join $base8 8.$i]
}
set base [file join $base tcl$major]
lappend results [file join $base site-tcl]
for {set i 0} {$i <= $minor} {incr i} {
lappend results [file join $base ${major}.$i]
}
return $results
}
|
| ︙ | ︙ |