From 61617a7891a8266415ac5a14e6dce92693e10c5c Mon Sep 17 00:00:00 2001 From: Kevin B Kenny Date: Thu, 28 Oct 2004 16:06:30 +0000 Subject: added CONST to TclpLocaltime and TclpGmtime param throughout --- ChangeLog | 15 +++++++++++++-- generic/tclInt.decls | 10 +++++----- generic/tclIntDecls.h | 10 +++++----- generic/tclIntPlatDecls.h | 11 ++++++----- unix/tclUnixTime.c | 10 +++++----- win/tclWinTime.c | 6 +++--- 6 files changed, 37 insertions(+), 25 deletions(-) diff --git a/ChangeLog b/ChangeLog index 84eec09..6809a43 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,7 +1,18 @@ +2004-10-28 Kevin B. Kenny + + * generic/tclInt.decls: + * unix/tclUnixTime.c (TclpGmtime, TclpLocaltime): + * win/tclWinTime.c (TclpGmtime, TclpLocaltime): + Changed type signatures of TclpGmtime and TclpLocaltime + to accept CONST TclpTime_t throughout, to avoid any possible + confusion in pedantic compilers. [Bug 1001319] + * generic/tclIntDecls.h: + * generic/tclIntPlatDecls.h: Regenerated. + 2004-10-27 Don Porter * generic/tclCmdAH.c (Tcl_FormatObjCmd): Restored missing - line from yesterdays' 868486 backport that caused failed alloc's + line from yesterdays' 868489 backport that caused failed alloc's on LP64 systems. * tests/appendComp.test: Backport test suite fixes of errors @@ -19,7 +30,7 @@ 2004-10-26 Kevin B. Kenny * generic/tclCmdAH.c (Tcl_FormatObjCmd): Backport a missing bit - of the bug 868486 fix. + of the bug 868489 fix. * generic/tclObj.c (SetBooleanFromAny): Backport fix for Bug 1026125. * tests/format.test (format-19.1): Additional regression test for diff --git a/generic/tclInt.decls b/generic/tclInt.decls index 12afb31..71434b5 100644 --- a/generic/tclInt.decls +++ b/generic/tclInt.decls @@ -12,7 +12,7 @@ # See the file "license.terms" for information on usage and redistribution # of this file, and for a DISCLAIMER OF ALL WARRANTIES. # -# RCS: @(#) $Id: tclInt.decls,v 1.59.2.4 2004/10/14 15:28:38 dkf Exp $ +# RCS: @(#) $Id: tclInt.decls,v 1.59.2.5 2004/10/28 16:06:32 kennykb Exp $ library tcl @@ -700,10 +700,10 @@ declare 173 generic { # TclpGmtime and TclpLocaltime promoted to the generic interface from unix declare 182 generic { - struct tm *TclpLocaltime(TclpTime_t clock) + struct tm *TclpLocaltime(CONST TclpTime_t clock) } declare 183 generic { - struct tm *TclpGmtime(TclpTime_t clock) + struct tm *TclpGmtime(CONST TclpTime_t clock) } declare 199 generic { @@ -998,11 +998,11 @@ declare 10 unix { # generic Stubs declare 11 unix { - struct tm * TclpLocaltime_unix(TclpTime_t clock) + struct tm * TclpLocaltime_unix(CONST TclpTime_t clock) } declare 12 unix { - struct tm * TclpGmtime_unix(TclpTime_t clock) + struct tm * TclpGmtime_unix(CONST TclpTime_t clock) } declare 13 unix { diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 2ed9392..e70baf1 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -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: tclIntDecls.h,v 1.49.2.6 2004/10/14 15:30:51 dkf Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.49.2.7 2004/10/28 16:06:33 kennykb Exp $ */ #ifndef _TCLINTDECLS @@ -512,9 +512,9 @@ EXTERN int TclUniCharMatch _ANSI_ARGS_(( /* Slot 180 is reserved */ /* Slot 181 is reserved */ /* 182 */ -EXTERN struct tm * TclpLocaltime _ANSI_ARGS_((TclpTime_t clock)); +EXTERN struct tm * TclpLocaltime _ANSI_ARGS_((CONST TclpTime_t clock)); /* 183 */ -EXTERN struct tm * TclpGmtime _ANSI_ARGS_((TclpTime_t clock)); +EXTERN struct tm * TclpGmtime _ANSI_ARGS_((CONST TclpTime_t clock)); /* Slot 184 is reserved */ /* Slot 185 is reserved */ /* Slot 186 is reserved */ @@ -743,8 +743,8 @@ typedef struct TclIntStubs { void *reserved179; void *reserved180; void *reserved181; - struct tm * (*tclpLocaltime) _ANSI_ARGS_((TclpTime_t clock)); /* 182 */ - struct tm * (*tclpGmtime) _ANSI_ARGS_((TclpTime_t clock)); /* 183 */ + struct tm * (*tclpLocaltime) _ANSI_ARGS_((CONST TclpTime_t clock)); /* 182 */ + struct tm * (*tclpGmtime) _ANSI_ARGS_((CONST TclpTime_t clock)); /* 183 */ void *reserved184; void *reserved185; void *reserved186; diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h index 8ced1c1..e5a3ca0 100644 --- a/generic/tclIntPlatDecls.h +++ b/generic/tclIntPlatDecls.h @@ -9,7 +9,7 @@ * Copyright (c) 1998-1999 by Scriptics Corporation. * All rights reserved. * - * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.19.2.5 2004/06/10 17:17:44 andreas_kupries Exp $ + * RCS: @(#) $Id: tclIntPlatDecls.h,v 1.19.2.6 2004/10/28 16:06:49 kennykb Exp $ */ #ifndef _TCLINTPLATDECLS @@ -62,9 +62,10 @@ EXTERN TclFile TclpCreateTempFile _ANSI_ARGS_(( /* 10 */ EXTERN Tcl_DirEntry * TclpReaddir _ANSI_ARGS_((DIR * dir)); /* 11 */ -EXTERN struct tm * TclpLocaltime_unix _ANSI_ARGS_((TclpTime_t clock)); +EXTERN struct tm * TclpLocaltime_unix _ANSI_ARGS_(( + CONST TclpTime_t clock)); /* 12 */ -EXTERN struct tm * TclpGmtime_unix _ANSI_ARGS_((TclpTime_t clock)); +EXTERN struct tm * TclpGmtime_unix _ANSI_ARGS_((CONST TclpTime_t clock)); /* 13 */ EXTERN char * TclpInetNtoa _ANSI_ARGS_((struct in_addr addr)); #endif /* UNIX */ @@ -232,8 +233,8 @@ typedef struct TclIntPlatStubs { int (*tclUnixWaitForFile) _ANSI_ARGS_((int fd, int mask, int timeout)); /* 8 */ TclFile (*tclpCreateTempFile) _ANSI_ARGS_((CONST char * contents)); /* 9 */ Tcl_DirEntry * (*tclpReaddir) _ANSI_ARGS_((DIR * dir)); /* 10 */ - struct tm * (*tclpLocaltime_unix) _ANSI_ARGS_((TclpTime_t clock)); /* 11 */ - struct tm * (*tclpGmtime_unix) _ANSI_ARGS_((TclpTime_t clock)); /* 12 */ + struct tm * (*tclpLocaltime_unix) _ANSI_ARGS_((CONST TclpTime_t clock)); /* 11 */ + struct tm * (*tclpGmtime_unix) _ANSI_ARGS_((CONST TclpTime_t clock)); /* 12 */ char * (*tclpInetNtoa) _ANSI_ARGS_((struct in_addr addr)); /* 13 */ #endif /* UNIX */ #ifdef __WIN32__ diff --git a/unix/tclUnixTime.c b/unix/tclUnixTime.c index 47492e9..0e0268f 100644 --- a/unix/tclUnixTime.c +++ b/unix/tclUnixTime.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixTime.c,v 1.15.2.2 2004/05/17 14:26:50 kennykb Exp $ + * RCS: @(#) $Id: tclUnixTime.c,v 1.15.2.3 2004/10/28 16:06:50 kennykb Exp $ */ #include "tclInt.h" @@ -344,7 +344,7 @@ TclpStrftime(s, maxsize, format, t, useGMT) struct tm * TclpGmtime( tt ) - TclpTime_t tt; + CONST TclpTime_t tt; { CONST time_t *timePtr = (CONST time_t *) tt; /* Pointer to the number of seconds @@ -371,7 +371,7 @@ TclpGmtime( tt ) */ struct tm* TclpGmtime_unix( timePtr ) - TclpTime_t timePtr; + CONST TclpTime_t timePtr; { return TclpGmtime( timePtr ); } @@ -395,7 +395,7 @@ TclpGmtime_unix( timePtr ) struct tm * TclpLocaltime( tt ) - TclpTime_t tt; + CONST TclpTime_t tt; { CONST time_t *timePtr = (CONST time_t *) tt; /* Pointer to the number of seconds @@ -422,7 +422,7 @@ TclpLocaltime( tt ) */ struct tm* TclpLocaltime_unix( timePtr ) - TclpTime_t timePtr; + CONST TclpTime_t timePtr; { return TclpLocaltime( timePtr ); } diff --git a/win/tclWinTime.c b/win/tclWinTime.c index f428d52..0eb21b3 100644 --- a/win/tclWinTime.c +++ b/win/tclWinTime.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinTime.c,v 1.14.2.5 2004/06/05 17:25:40 kennykb Exp $ + * RCS: @(#) $Id: tclWinTime.c,v 1.14.2.6 2004/10/28 16:06:51 kennykb Exp $ */ #include "tclWinInt.h" @@ -1103,7 +1103,7 @@ AccumulateSample( Tcl_WideInt perfCounter, struct tm * TclpGmtime( tt ) - TclpTime_t tt; + CONST TclpTime_t tt; { CONST time_t *timePtr = (CONST time_t *) tt; /* Pointer to the number of seconds @@ -1135,7 +1135,7 @@ TclpGmtime( tt ) struct tm * TclpLocaltime( tt ) - TclpTime_t tt; + CONST TclpTime_t tt; { CONST time_t *timePtr = (CONST time_t *) tt; /* Pointer to the number of seconds -- cgit v0.12