c84b_OSX6.patch¡¼ºº¥¼ºËZmBIN¤Index: generic/tclInt.decls
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclInt.decls,v
retrieving revision 1.59
diff -u -p -r1.59 tclInt.decls
--- generic/tclInt.decls	18 Feb 2003 02:25:45 -0000	1.59
+++ generic/tclInt.decls	2 May 2004 18:20:28 -0000
@@ -978,11 +978,11 @@ declare 10 unix {
 }
 
 declare 11 unix {
-    struct tm * TclpLocaltime(time_t * clock)
+    struct tm * TclpLocaltime(CONST time_t * clock)
 }
 
 declare 12 unix {
-    struct tm * TclpGmtime(time_t * clock)
+    struct tm * TclpGmtime(CONST time_t * clock)
 }
 
 declare 13 unix {
Index: generic/tclIntPlatDecls.h
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclIntPlatDecls.h,v
retrieving revision 1.19
diff -u -p -r1.19 tclIntPlatDecls.h
--- generic/tclIntPlatDecls.h	6 Dec 2002 23:22:59 -0000	1.19
+++ generic/tclIntPlatDecls.h	2 May 2004 18:20:46 -0000
@@ -62,9 +62,9 @@ EXTERN TclFile		TclpCreateTempFile _ANSI
 /* 10 */
 EXTERN Tcl_DirEntry *	TclpReaddir _ANSI_ARGS_((DIR * dir));
 /* 11 */
-EXTERN struct tm *	TclpLocaltime _ANSI_ARGS_((time_t * clock));
+EXTERN struct tm *	TclpLocaltime _ANSI_ARGS_((CONST time_t * clock));
 /* 12 */
-EXTERN struct tm *	TclpGmtime _ANSI_ARGS_((time_t * clock));
+EXTERN struct tm *	TclpGmtime _ANSI_ARGS_((CONST time_t * clock));
 /* 13 */
 EXTERN char *		TclpInetNtoa _ANSI_ARGS_((struct in_addr addr));
 #endif /* UNIX */
@@ -229,8 +229,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) _ANSI_ARGS_((time_t * clock)); /* 11 */
-    struct tm * (*tclpGmtime) _ANSI_ARGS_((time_t * clock)); /* 12 */
+    struct tm * (*tclpLocaltime) _ANSI_ARGS_((CONST time_t * clock)); /* 11 */
+    struct tm * (*tclpGmtime) _ANSI_ARGS_((CONST time_t * clock)); /* 12 */
     char * (*tclpInetNtoa) _ANSI_ARGS_((struct in_addr addr)); /* 13 */
 #endif /* UNIX */
 #ifdef __WIN32__
Index: unix/tclUnixPort.h
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/tclUnixPort.h,v
retrieving revision 1.27.2.2
diff -u -p -r1.27.2.2 tclUnixPort.h
--- unix/tclUnixPort.h	9 Dec 2003 15:32:21 -0000	1.27.2.2
+++ unix/tclUnixPort.h	2 May 2004 18:23:32 -0000
@@ -25,9 +25,7 @@
 #ifndef _TCLUNIXPORT
 #define _TCLUNIXPORT
 
-#ifndef _TCLINT
-#   include "tclInt.h"
-#endif
+#include "tclInt.h"
 
 /*
  *---------------------------------------------------------------------------
@@ -564,8 +562,8 @@ EXTERN void	TclpMutexInit _ANSI_ARGS_((T
 EXTERN void	TclpMutexLock _ANSI_ARGS_((TclpMutex *mPtr));
 EXTERN void	TclpMutexUnlock _ANSI_ARGS_((TclpMutex *mPtr));
 EXTERN Tcl_DirEntry * 	TclpReaddir(DIR *);
-EXTERN struct tm *     	TclpLocaltime(time_t *);
-EXTERN struct tm *     	TclpGmtime(time_t *);
+EXTERN struct tm *     	TclpLocaltime(CONST time_t *);
+EXTERN struct tm *     	TclpGmtime(CONST time_t *);
 EXTERN char *          	TclpInetNtoa(struct in_addr);
 #define readdir(x)	TclpReaddir(x)
 #define localtime(x)	TclpLocaltime(x)
Index: unix/tclUnixThrd.c
===================================================================
RCS file: /cvsroot/tcl/tcl/unix/tclUnixThrd.c,v
retrieving revision 1.23.2.2
diff -u -p -r1.23.2.2 tclUnixThrd.c
--- unix/tclUnixThrd.c	13 May 2003 09:57:40 -0000	1.23.2.2
+++ unix/tclUnixThrd.c	2 May 2004 18:23:35 -0000
@@ -842,7 +842,7 @@ TCL_DECLARE_MUTEX( tmMutex )
 #endif
 
 struct tm *
-TclpLocaltime(time_t * clock)
+TclpLocaltime(CONST time_t * clock)
 {
 #ifdef TCL_THREADS
     ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
@@ -861,7 +861,7 @@ TclpLocaltime(time_t * clock)
 }
 
 struct tm *
-TclpGmtime(time_t * clock)
+TclpGmtime(CONST time_t * clock)
 {
 #ifdef TCL_THREADS
     ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&dataKey);
