diff options
| -rw-r--r-- | ChangeLog | 24 | ||||
| -rw-r--r-- | generic/tclEncoding.c | 6 | ||||
| -rw-r--r-- | generic/tclIORChan.c | 4 | ||||
| -rw-r--r-- | generic/tclListObj.c | 4 | ||||
| -rw-r--r-- | generic/tclResult.c | 4 | ||||
| -rw-r--r-- | unix/tclUnixChan.c | 4 | ||||
| -rw-r--r-- | unix/tclUnixSock.c | 4 |
7 files changed, 37 insertions, 13 deletions
@@ -1,3 +1,27 @@ +2005-09-01 Andreas Kupries <andreask@activestate.com> + + * unix/tclUnixSock.c (InitializeHostName): Synchronized use of + static modifier in declaration and definition of function. + + * unix/tclUnixChan.c (FileTruncateProc): Synchronized use of + static modifier in declaration and definition of function. + + * generic/tclResult.c (ReleaseKeys): Synchronized use of static + modifier in declaration and definition of function. + + * generic/tclListObj.c (NewListIntRep): Synchronized use of static + modifier in declaration and definition of function. + + * generic/tclEncoding.c (InitializeEncodingSearchPath): + Synchronized use of static modifier in declaration and + definition of function. + + * generic/tclEncoding.c (FillEncodingFileMap): Synchronized use of + static modifier in declaration and definition of function. + + * generic/tclIORChan.c (RcNewHandle): Synchronized use of static + modifier in declaration and definition of function. + 2005-08-31 Vince Darley <vincentdarley@sourceforge.net> * doc/FileSystem.3: diff --git a/generic/tclEncoding.c b/generic/tclEncoding.c index 8108771..8d2d1fd 100644 --- a/generic/tclEncoding.c +++ b/generic/tclEncoding.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclEncoding.c,v 1.36 2005/07/17 21:17:40 dkf Exp $ + * RCS: @(#) $Id: tclEncoding.c,v 1.37 2005/09/02 19:23:46 andreas_kupries Exp $ */ #include "tclInt.h" @@ -467,7 +467,7 @@ TclSetLibraryPath(path) *--------------------------------------------------------------------------- */ -void +static void FillEncodingFileMap() { int i, numDirs = 0; @@ -3242,7 +3242,7 @@ unilen(src) *------------------------------------------------------------------------- */ -void +static void InitializeEncodingSearchPath(valuePtr, lengthPtr, encodingPtr) char **valuePtr; int *lengthPtr; diff --git a/generic/tclIORChan.c b/generic/tclIORChan.c index beebff4..f5d4f63 100644 --- a/generic/tclIORChan.c +++ b/generic/tclIORChan.c @@ -15,7 +15,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIORChan.c,v 1.1 2005/08/24 17:56:23 andreas_kupries Exp $ + * RCS: @(#) $Id: tclIORChan.c,v 1.2 2005/09/02 19:23:46 andreas_kupries Exp $ */ #include <tclInt.h> @@ -1949,7 +1949,7 @@ RcNew (interp, cmdpfxObj, mode, id) *---------------------------------------------------------------------- */ -Tcl_Obj* +static Tcl_Obj* RcNewHandle () { /* Count number of generated reflected channels. Used for id diff --git a/generic/tclListObj.c b/generic/tclListObj.c index 1279a05..1488ecb 100644 --- a/generic/tclListObj.c +++ b/generic/tclListObj.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: tclListObj.c,v 1.25 2005/08/25 21:48:41 dkf Exp $ + * RCS: @(#) $Id: tclListObj.c,v 1.26 2005/09/02 19:23:46 andreas_kupries Exp $ */ #include "tclInt.h" @@ -74,7 +74,7 @@ Tcl_ObjType tclListType = { *---------------------------------------------------------------------- */ -List* +static List* NewListIntRep(objc, objv) int objc; Tcl_Obj *CONST objv[]; diff --git a/generic/tclResult.c b/generic/tclResult.c index a575a40..1cc9028 100644 --- a/generic/tclResult.c +++ b/generic/tclResult.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclResult.c,v 1.29 2005/07/24 22:56:43 dkf Exp $ + * RCS: @(#) $Id: tclResult.c,v 1.30 2005/09/02 19:23:46 andreas_kupries Exp $ */ #include "tclInt.h" @@ -1151,7 +1151,7 @@ GetKeys() *---------------------------------------------------------------------- */ -void +static void ReleaseKeys(clientData) ClientData clientData; { diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c index 390b914..0f489fb 100644 --- a/unix/tclUnixChan.c +++ b/unix/tclUnixChan.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: tclUnixChan.c,v 1.59 2005/07/20 23:16:00 dkf Exp $ + * RCS: @(#) $Id: tclUnixChan.c,v 1.60 2005/09/02 19:23:46 andreas_kupries Exp $ */ #include "tclInt.h" /* Internal definitions for Tcl. */ @@ -3364,7 +3364,7 @@ FileThreadActionProc (instanceData, action) *---------------------------------------------------------------------- */ -int +static int FileTruncateProc(instanceData, length) ClientData instanceData; Tcl_WideInt length; diff --git a/unix/tclUnixSock.c b/unix/tclUnixSock.c index 6574935..3afbf55 100644 --- a/unix/tclUnixSock.c +++ b/unix/tclUnixSock.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclUnixSock.c,v 1.12 2005/07/13 20:01:02 dgp Exp $ + * RCS: @(#) $Id: tclUnixSock.c,v 1.13 2005/09/02 19:23:46 andreas_kupries Exp $ */ #include "tclInt.h" @@ -36,7 +36,7 @@ static ProcessGlobalValue hostName = *---------------------------------------------------------------------- */ -void +static void InitializeHostName(valuePtr, lengthPtr, encodingPtr) char **valuePtr; int *lengthPtr; |