diff options
| author | hobbs <hobbs@noemail.net> | 2000-01-12 11:12:52 (GMT) |
|---|---|---|
| committer | hobbs <hobbs@noemail.net> | 2000-01-12 11:12:52 (GMT) |
| commit | f2027d6f041a639c97de2694e04f53631a8a0006 (patch) | |
| tree | 29e99ab6319a4b908ee0fe4c9945a73e768ecbeb /generic/tclClock.c | |
| parent | 0f117b3a1da912346fb01a004439a49ebc4270f3 (diff) | |
| download | tcl-f2027d6f041a639c97de2694e04f53631a8a0006.zip tcl-f2027d6f041a639c97de2694e04f53631a8a0006.tar.gz tcl-f2027d6f041a639c97de2694e04f53631a8a0006.tar.bz2 | |
* generic/tclClock.c: fixed support for 64bit handling of clock
values [Bug: 1806]
* generic/tclThreadTest.c: upped a buffer size to hold double
* tests/info.test:
* generic/tclCmdIL.c: fixed 'info procs ::namesp::*' behavior (Dejong)
* generic/tclNamesp.c: made imported commands also import their
compile proc [Bug: 2100]
FossilOrigin-Name: 665ebd74dfb529dd964b2d4cab19c4271a36b284
Diffstat (limited to 'generic/tclClock.c')
| -rw-r--r-- | generic/tclClock.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclClock.c b/generic/tclClock.c index 13bf229..ccf6638 100644 --- a/generic/tclClock.c +++ b/generic/tclClock.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclClock.c,v 1.6 2000/01/08 02:31:22 ericm Exp $ + * RCS: @(#) $Id: tclClock.c,v 1.7 2000/01/12 11:12:52 hobbs Exp $ */ #include "tcl.h" @@ -263,6 +263,7 @@ FormatClock(interp, clockVal, useGMT, format) char *p; Tcl_Obj *resultPtr; int result; + time_t tclockVal; #ifndef HAVE_TM_ZONE int savedTimeZone = 0; /* lint. */ char *savedTZEnv = NULL; /* lint. */ @@ -306,7 +307,8 @@ FormatClock(interp, clockVal, useGMT, format) } #endif - timeDataPtr = TclpGetDate((TclpTime_t) &clockVal, useGMT); + tclockVal = clockVal; + timeDataPtr = TclpGetDate((TclpTime_t) &tclockVal, useGMT); /* * Make a guess at the upper limit on the substituted string size |