Updated tclZIC.tcl to be bignum-safe

2 files changed, 6 insertions, 7 deletions

diff --git a/ChangeLog b/ChangeLog
index 9b93826..659c65e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -3,7 +3,7 @@
 	* tools/tclZIC.tcl (convertTimeOfDay): Corrected a typo that
 	caused wrong DST transitions in any time zone where the transition
 	is specified as local Standard Time (as opposed to wall-clock or
-	UTC).
+	UTC).  (Also updated the code to be bignum-safe.)
 	* tests/clock.test (clock-51.1): Added regression test for the
 	above.
 	* library/tzdata: Regenerated.
diff --git a/tools/tclZIC.tcl b/tools/tclZIC.tcl
index 5595264..9253686 100755
--- a/tools/tclZIC.tcl
+++ b/tools/tclZIC.tcl
@@ -29,7 +29,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: tclZIC.tcl,v 1.6 2005/11/28 15:37:20 kennykb Exp $
+# RCS: @(#) $Id: tclZIC.tcl,v 1.7 2005/11/28 16:28:04 kennykb Exp $
 #
 #----------------------------------------------------------------------
 
@@ -44,10 +44,6 @@ set olsonFiles {
     pacificnew southamerica systemv
 }
 
-# Temporary scaffolding - load up the new 'clock' package.
-
-source [file join [file dirname [info script]] .. library clock.tcl]
-
 # Define the year at which the DST information will stop.
 
 set maxyear 2100
@@ -56,7 +52,7 @@ set maxyear 2100
 
 set MAXWIDE [expr {wide(1)}]
 while 1 {
-    set next [expr {$MAXWIDE + $MAXWIDE + 1}]
+    set next [expr {wide($MAXWIDE + $MAXWIDE + 1)}]
     if {$next < 0} {
 	break
     }
@@ -1335,6 +1331,9 @@ proc writeLinks {outDir} {
 #
 #----------------------------------------------------------------------
 
+puts "Compiling time zones -- [clock format [clock seconds] \
+                                   -format {%x %X} -locale system]"
+
 # Determine directories
 
 lassign $argv inDir outDir