Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | more readable |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | core-8-4-branch |
| Files: | files | file ages | folders |
| SHA1: |
a3e8c87e619f9c56c28bf4d81904458b |
| User & Date: | jan.nijtmans 2012-06-14 07:27:05 |
Context
|
2012-06-19
| ||
| 14:55 | Plug memory leak, part of [Bug #3362446] check-in: e095cf0d42 user: jan.nijtmans tags: core-8-4-branch | |
| 13:22 | [bug 3362446]: registry keys command fails with 8.5/8.6 check-in: 2f681687d8 user: jan.nijtmans tags: bug-3362446 | |
|
2012-06-14
| ||
| 07:32 | more readable check-in: e39c97211d user: jan.nijtmans tags: core-8-5-branch | |
| 07:27 | more readable check-in: a3e8c87e61 user: jan.nijtmans tags: core-8-4-branch | |
|
2012-06-08
| ||
| 13:04 | Update autogoo for gettimeofday(). Thanks Joe English. check-in: f6e87a9442 user: dgp tags: core-8-4-branch | |
Changes
Changes to library/dde/pkgIndex.tcl.
1 |
if {![package vsatisfies [package provide Tcl] 8]} return
| | | 1 2 3 4 5 6 7 |
if {![package vsatisfies [package provide Tcl] 8]} return
if {[info sharedlibextension] != ".dll"} return
if {[info exists ::tcl_platform(debug)]} {
package ifneeded dde 1.2.5 [list load [file join $dir tcldde12g.dll] dde]
} else {
package ifneeded dde 1.2.5 [list load [file join $dir tcldde12.dll] dde]
}
|
Changes to library/platform/shell.tcl.
| ︙ | ︙ | |||
183 184 185 186 187 188 189 |
} else {
# Success
close $channel
return [file normalize $newname]
}
}
}
| | | 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 |
} else {
# Success
close $channel
return [file normalize $newname]
}
}
}
if {$channel != ""} {
return -code error "Failed to open a temporary file: $channel"
} else {
return -code error "Failed to find an unused temporary file name"
}
}
proc ::platform::shell::DIR {} {
|
| ︙ | ︙ |
Changes to library/reg/pkgIndex.tcl.
1 |
if {![package vsatisfies [package provide Tcl] 8]} return
| | | 1 2 3 4 5 6 7 8 9 |
if {![package vsatisfies [package provide Tcl] 8]} return
if {[info sharedlibextension] != ".dll"} return
if {[info exists ::tcl_platform(debug)]} {
package ifneeded registry 1.1.5 \
[list load [file join $dir tclreg11g.dll] registry]
} else {
package ifneeded registry 1.1.5 \
[list load [file join $dir tclreg11.dll] registry]
}
|