summaryrefslogtreecommitdiffstats
path: root/generic/tclDate.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclDate.c')
-rw-r--r--generic/tclDate.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclDate.c b/generic/tclDate.c
index 31576d2..870988f 100644
--- a/generic/tclDate.c
+++ b/generic/tclDate.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclDate.c,v 1.20 2001/10/18 20:20:28 hobbs Exp $
+ * RCS: @(#) $Id: tclDate.c,v 1.20.4.1 2005/03/15 16:29:53 kennykb Exp $
*/
#include "tclInt.h"
@@ -832,9 +832,9 @@ TclDatelex()
int
TclGetDate(p, now, zone, timePtr)
char *p;
- unsigned long now;
+ Tcl_WideInt now;
long zone;
- unsigned long *timePtr;
+ Tcl_WideInt *timePtr;
{
struct tm *tm;
time_t Start;
@@ -844,8 +844,8 @@ TclGetDate(p, now, zone, timePtr)
TclDateInput = p;
/* now has to be cast to a time_t for 64bit compliance */
- Start = now;
- tm = TclpGetDate((TclpTime_t) &Start, 0);
+ Start = (time_t) now;
+ tm = TclpGetDate((TclpTime_t) &Start, (zone == -50000));
thisyear = tm->tm_year + TM_YEAR_BASE;
TclDateYear = thisyear;
TclDateMonth = tm->tm_mon + 1;
@@ -904,7 +904,7 @@ TclGetDate(p, now, zone, timePtr)
return -1;
}
} else {
- Start = now;
+ Start = (time_t) now;
if (!TclDateHaveRel) {
Start -= ((tm->tm_hour * 60L * 60L) +
tm->tm_min * 60L) + tm->tm_sec;