summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog24
-rw-r--r--generic/tclEncoding.c6
-rw-r--r--generic/tclIORChan.c4
-rw-r--r--generic/tclListObj.c4
-rw-r--r--generic/tclResult.c4
-rw-r--r--unix/tclUnixChan.c4
-rw-r--r--unix/tclUnixSock.c4
7 files changed, 37 insertions, 13 deletions
diff --git a/ChangeLog b/ChangeLog
index 97427dc..db892fb 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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;