Tcl Source Code

Check-in [535c915c79]
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 | trunk
Files: files | file ages | folders
SHA1: 535c915c7956c607b7f68896911df16d7e940de1
User & Date: jan.nijtmans 2013-06-27 12:35:47
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:17
Bug [32afa6e256]: dirent64 check is incorrect in tcl.m4. Thanks to Brian Griffin. check-in: a3ae798ed1 user: jan.nijtmans tags: trunk
06:43
Better (hopefully) fix for Tk bug 1712098, which elimin... Closed-Leaf check-in: e2f236a273 user: jan.nijtmans tags: bug-1712098
2013-06-28
13:16
merge trunk check-in: 85728857dc user: dgp tags: dgp-refactor
12:31
Tk bug 1712098 check-in: 15475c0ad5 user: jan.nijtmans tags: bug-1712098
2013-06-27
13:12
merge trunk check-in: c499bee30f user: dgp tags: dgp-tcs-rewrite
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:51
Bug [9b2e636361]: Tcl_CreateInterp() needs initialized encodings. check-in: 6189063c4d user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to library/clock.tcl.

3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868
3869
3870
3871
	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] \







|







3857
3858
3859
3860
3861
3862
3863
3864
3865
3866
3867
3868
3869
3870
3871
	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] \