Tcl Source Code

Artifact [c920b1c63a]
Login

Artifact c920b1c63a764c72228976fb2453b1f188b97a52:

Attachment "945447.patch" to ticket [945447ffff] added by dgp 2004-05-01 00:57:05.
Index: generic/tclInt.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclInt.h,v
retrieving revision 1.154
diff -u -r1.154 tclInt.h
--- generic/tclInt.h	25 Apr 2004 20:16:31 -0000	1.154
+++ generic/tclInt.h	30 Apr 2004 17:53:52 -0000
@@ -2175,6 +2175,9 @@
 
 EXTERN Tcl_Obj *TclThreadAllocObj _ANSI_ARGS_((void));
 EXTERN void TclThreadFreeObj _ANSI_ARGS_((Tcl_Obj *));
+EXTERN Tcl_Mutex *TclpNewAllocMutex _ANSI_ARGS_((void));
+EXTERN void *TclpGetAllocCache _ANSI_ARGS_((void));
+EXTERN void TclpSetAllocCache _ANSI_ARGS_((void *));
 
 #  define TclAllocObjStorage(objPtr) \
        (objPtr) = TclThreadAllocObj()
Index: generic/tclThreadAlloc.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclThreadAlloc.c,v
retrieving revision 1.9
diff -u -r1.9 tclThreadAlloc.c
--- generic/tclThreadAlloc.c	6 Apr 2004 22:25:55 -0000	1.9
+++ generic/tclThreadAlloc.c	30 Apr 2004 17:53:52 -0000
@@ -18,12 +18,6 @@
 
 #include "tclInt.h"
 
-#ifndef WIN32
-extern Tcl_Mutex *TclpNewAllocMutex(void);
-extern void *TclpGetAllocCache(void);
-extern void TclpSetAllocCache(void *);
-#endif
-
 /*
  * If range checking is enabled, an additional byte will be allocated
  * to store the magic number at the end of the requested memory.