* generic/tclTimer.c: Removed a premature optimisation that

attempted to store the assoc data in the client data; the
optimisation caused a bug that [after] would overwrite
its imports.  [Bug 1016167]
* library/clock.tcl (InitTZData, ClearCaches): Changed so that the
in-memory time zone :UTC (and its aliases) always gets
reinitialised, in case tzdata is absent. [Bug 1019537, 1023779]
* library/tzdata/*: Regenerated.
* tests/clock.test (clock-31.*, clock-39.1): Corrected a problem
where the 'system' locale tests fail on a non-English Windows
machine. [Bug 1023761].  Added a test to make sure that alias
time zones load correctly. [Bug 1023779].
* tools/tclZIC.tcl (writeLinks): Corrected a problem where
alias time zone names were written incorrectly, causing them
to fail to load at run time. [Bug 1023779].
* win/tclWinTime.c (Tcl_GetTime): Eliminated CPUID tests on
Win64 - assuming that HAL vendors now do a better job of
keeping the performance counters synchronized among CPU's.
[Bug 1020445]

1 files changed, 14 insertions, 10 deletions

diff --git a/library/clock.tcl b/library/clock.tcl
index 97e6e9d..1152576 100644
--- a/library/clock.tcl
+++ b/library/clock.tcl
@@ -13,7 +13,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: clock.tcl,v 1.3 2004/08/19 18:55:09 kennykb Exp $
+# RCS: @(#) $Id: clock.tcl,v 1.4 2004/09/07 17:38:56 kennykb Exp $
 #
 #----------------------------------------------------------------------
 
@@ -85,15 +85,19 @@ namespace eval ::tcl::clock {
 
     # Define the Greenwich time zone
 
-    variable TZData
-    set TZData(:Etc/GMT) {
-	{-9223372036854775808 0 0 GMT}
-    }
-    set TZData(:GMT) $TZData(:Etc/GMT)
-    set TZData(:Etc/UTC) {
-	{-9223372036854775808 0 0 UTC}
+    proc initTZData {} {
+	variable TZData
+	array unset TZData
+	set TZData(:Etc/GMT) {
+	    {-9223372036854775808 0 0 GMT}
+	}
+	set TZData(:GMT) $TZData(:Etc/GMT)
+	set TZData(:Etc/UTC) {
+	    {-9223372036854775808 0 0 UTC}
+	}
+	set TZData(:UTC) $TZData(:Etc/UTC)
     }
-    set TZData(:UTC) $TZData(:Etc/UTC)
+    initTZData
 
     # Define the message catalog for the root locale.
 
@@ -4911,6 +4915,6 @@ proc ::tcl::clock::ClearCaches {} {
     set LocaleNumeralCache {}
     set McLoaded {}
     catch {unset CachedSystemTimeZone}
-    array unset TZData
+    initTZData
 
 }