Tcl Source Code

Check-in [01ae5c884c]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix [34538ba43f]
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA1: 01ae5c884cff4bd45fceceae436154d10e2bc238
User & Date: jan.nijtmans 2013-06-27 12:34:49
References
2013-06-27
12:41 Pending ticket [34538ba43f]: tests/clock.test fails with boundary year 2099 plus 4 other changes artifact: a3b4a0d777 user: jan.nijtmans
Context
2013-07-02
07:14
Bug [32afa6e256]: dirent64 check is incorrect in tcl.m4. Thanks to Brian Griffin. check-in: f8d461fd57 user: jan.nijtmans tags: core-8-5-branch
2013-06-27
12:35
Fix [34538ba43f] check-in: 535c915c79 user: jan.nijtmans tags: trunk
12:34
Fix [34538ba43f] check-in: 01ae5c884c user: jan.nijtmans tags: core-8-5-branch
08:28
Bug [9b2e636361]: Tcl_CreateInterp() needs initialized encodings. check-in: 341f682e08 user: jan.nijtmans tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to library/clock.tcl.

3943
3944
3945
3946
3947
3948
3949
3950
3951
3952
3953
3954
3955
3956
3957
	dict set z endDayOfWeek 0
	dict set z endMinutes 0
	dict set z endSeconds 0
    }

    # Put DST in effect in all years from 1916 to 2099.

    for { set y 1916 } { $y < 2099 } { incr y } {
	set startTime [DeterminePosixDSTTime $z start $y]
	incr startTime [expr { - wide($stdOffset) }]
	set endTime [DeterminePosixDSTTime $z end $y]
	incr endTime [expr { - wide($dstOffset) }]
	if { $startTime < $endTime } {
	    lappend data \
		[list $startTime $dstOffset 1 $dstName] \







|







3943
3944
3945
3946
3947
3948
3949
3950
3951
3952
3953
3954
3955
3956
3957
	dict set z endDayOfWeek 0
	dict set z endMinutes 0
	dict set z endSeconds 0
    }

    # Put DST in effect in all years from 1916 to 2099.

    for { set y 1916 } { $y < 2100 } { incr y } {
	set startTime [DeterminePosixDSTTime $z start $y]
	incr startTime [expr { - wide($stdOffset) }]
	set endTime [DeterminePosixDSTTime $z end $y]
	incr endTime [expr { - wide($dstOffset) }]
	if { $startTime < $endTime } {
	    lappend data \
		[list $startTime $dstOffset 1 $dstName] \