diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-17 16:48:07 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-03-17 16:48:07 (GMT) |
| commit | 303fbfc4be38a234f52db032c7cb87d0482e9cdc (patch) | |
| tree | 66ee4234a0e26320abcd0f368723678802da4825 /library | |
| parent | 77bbf50dd013a1499fe6bdde0272882ea3c52fd7 (diff) | |
| parent | ae243c85b7e7b470ea541cce41e76cd2cd7474f6 (diff) | |
| download | tcl-303fbfc4be38a234f52db032c7cb87d0482e9cdc.zip tcl-303fbfc4be38a234f52db032c7cb87d0482e9cdc.tar.gz tcl-303fbfc4be38a234f52db032c7cb87d0482e9cdc.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library')
| -rw-r--r-- | library/clock.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/clock.tcl b/library/clock.tcl index 8e4b657..49dfdbe 100644 --- a/library/clock.tcl +++ b/library/clock.tcl @@ -3452,7 +3452,7 @@ proc ::tcl::clock::ReadZoneinfoFile {fileName fname} { set times [linsert $times 0 $MINWIDE] set codes {} foreach c $tempCodes { - lappend codes [expr { $c & 0xff }] + lappend codes [expr { $c & 0xFF }] } set codes [linsert $codes 0 0] |