Merge trunk.

Remove TclpReaddir and TclpInetNtoa from internal stub table: It's not used anywhere any more.

1 files changed, 18 insertions, 35 deletions

diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h
index 010fe88..4424c7c 100644
--- a/generic/tclIntPlatDecls.h
+++ b/generic/tclIntPlatDecls.h
@@ -13,11 +13,6 @@
 #ifndef _TCLINTPLATDECLS
 #define _TCLINTPLATDECLS
 
-#ifdef __WIN32__
-#   define Tcl_DirEntry void
-#   define DIR void
-#endif
-
 /*
  * WARNING: This file is automatically generated by the tools/genStubs.tcl
  * script.  Any modifications to the function declarations below should be made
@@ -56,12 +51,10 @@ TCLAPI TclFile		TclpOpenFile(const char *fname, int mode);
 TCLAPI int		TclUnixWaitForFile(int fd, int mask, int timeout);
 /* 9 */
 TCLAPI TclFile		TclpCreateTempFile(const char *contents);
-/* 10 */
-TCLAPI Tcl_DirEntry *	TclpReaddir(DIR *dir);
+/* Slot 10 is reserved */
 /* Slot 11 is reserved */
 /* Slot 12 is reserved */
-/* 13 */
-TCLAPI char *		TclpInetNtoa(struct in_addr addr);
+/* Slot 13 is reserved */
 /* 14 */
 TCLAPI int		TclUnixCopyFile(const char *src, const char *dst,
 				const Tcl_StatBuf *statBufPtr,
@@ -109,8 +102,7 @@ TCLAPI int		TclWinSetSockOpt(SOCKET s, int level, int optname,
 TCLAPI int		TclpGetPid(Tcl_Pid pid);
 /* 9 */
 TCLAPI int		TclWinGetPlatformId(void);
-/* 10 */
-TCLAPI Tcl_DirEntry *	TclpReaddir(DIR *dir);
+/* Slot 10 is reserved */
 /* 11 */
 TCLAPI void		TclGetAndDetachPids(Tcl_Interp *interp,
 				Tcl_Channel chan);
@@ -139,8 +131,7 @@ TCLAPI TclFile		TclpMakeFile(Tcl_Channel channel, int direction);
 TCLAPI TclFile		TclpOpenFile(const char *fname, int mode);
 /* 20 */
 TCLAPI void		TclWinAddProcess(HANDLE hProcess, DWORD id);
-/* 21 */
-TCLAPI char *		TclpInetNtoa(struct in_addr addr);
+/* Slot 21 is reserved */
 /* 22 */
 TCLAPI TclFile		TclpCreateTempFile(const char *contents);
 /* Slot 23 is reserved */
@@ -186,12 +177,10 @@ TCLAPI TclFile		TclpOpenFile(const char *fname, int mode);
 TCLAPI int		TclUnixWaitForFile(int fd, int mask, int timeout);
 /* 9 */
 TCLAPI TclFile		TclpCreateTempFile(const char *contents);
-/* 10 */
-TCLAPI Tcl_DirEntry *	TclpReaddir(DIR *dir);
+/* Slot 10 is reserved */
 /* Slot 11 is reserved */
 /* Slot 12 is reserved */
-/* 13 */
-TCLAPI char *		TclpInetNtoa(struct in_addr addr);
+/* Slot 13 is reserved */
 /* 14 */
 TCLAPI int		TclUnixCopyFile(const char *src, const char *dst,
 				const Tcl_StatBuf *statBufPtr,
@@ -248,10 +237,10 @@ typedef struct TclIntPlatStubs {
     TclFile (*tclpOpenFile) (const char *fname, int mode); /* 7 */
     int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */
     TclFile (*tclpCreateTempFile) (const char *contents); /* 9 */
-    Tcl_DirEntry * (*tclpReaddir) (DIR *dir); /* 10 */
+    void (*reserved10)(void);
     void (*reserved11)(void);
     void (*reserved12)(void);
-    char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */
+    void (*reserved13)(void);
     int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 14 */
     void (*reserved15)(void);
     void (*reserved16)(void);
@@ -281,7 +270,7 @@ typedef struct TclIntPlatStubs {
     int (*tclWinSetSockOpt) (SOCKET s, int level, int optname, const char *optval, int optlen); /* 7 */
     int (*tclpGetPid) (Tcl_Pid pid); /* 8 */
     int (*tclWinGetPlatformId) (void); /* 9 */
-    Tcl_DirEntry * (*tclpReaddir) (DIR *dir); /* 10 */
+    void (*reserved10)(void);
     void (*tclGetAndDetachPids) (Tcl_Interp *interp, Tcl_Channel chan); /* 11 */
     int (*tclpCloseFile) (TclFile file); /* 12 */
     Tcl_Channel (*tclpCreateCommandChannel) (TclFile readFile, TclFile writeFile, TclFile errorFile, int numPids, Tcl_Pid *pidPtr); /* 13 */
@@ -292,7 +281,7 @@ typedef struct TclIntPlatStubs {
     TclFile (*tclpMakeFile) (Tcl_Channel channel, int direction); /* 18 */
     TclFile (*tclpOpenFile) (const char *fname, int mode); /* 19 */
     void (*tclWinAddProcess) (HANDLE hProcess, DWORD id); /* 20 */
-    char * (*tclpInetNtoa) (struct in_addr addr); /* 21 */
+    void (*reserved21)(void);
     TclFile (*tclpCreateTempFile) (const char *contents); /* 22 */
     void (*reserved23)(void);
     char * (*tclWinNoBackslash) (char *path); /* 24 */
@@ -314,10 +303,10 @@ typedef struct TclIntPlatStubs {
     TclFile (*tclpOpenFile) (const char *fname, int mode); /* 7 */
     int (*tclUnixWaitForFile) (int fd, int mask, int timeout); /* 8 */
     TclFile (*tclpCreateTempFile) (const char *contents); /* 9 */
-    Tcl_DirEntry * (*tclpReaddir) (DIR *dir); /* 10 */
+    void (*reserved10)(void);
     void (*reserved11)(void);
     void (*reserved12)(void);
-    char * (*tclpInetNtoa) (struct in_addr addr); /* 13 */
+    void (*reserved13)(void);
     int (*tclUnixCopyFile) (const char *src, const char *dst, const Tcl_StatBuf *statBufPtr, int dontCopyAtts); /* 14 */
     int (*tclMacOSXGetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj **attributePtrPtr); /* 15 */
     int (*tclMacOSXSetFileAttribute) (Tcl_Interp *interp, int objIndex, Tcl_Obj *fileName, Tcl_Obj *attributePtr); /* 16 */
@@ -372,12 +361,10 @@ extern const TclIntPlatStubs *tclIntPlatStubsPtr;
 	(tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */
 #define TclpCreateTempFile \
 	(tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */
-#define TclpReaddir \
-	(tclIntPlatStubsPtr->tclpReaddir) /* 10 */
+/* Slot 10 is reserved */
 /* Slot 11 is reserved */
 /* Slot 12 is reserved */
-#define TclpInetNtoa \
-	(tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */
+/* Slot 13 is reserved */
 #define TclUnixCopyFile \
 	(tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */
 /* Slot 15 is reserved */
@@ -418,8 +405,7 @@ extern const TclIntPlatStubs *tclIntPlatStubsPtr;
 	(tclIntPlatStubsPtr->tclpGetPid) /* 8 */
 #define TclWinGetPlatformId \
 	(tclIntPlatStubsPtr->tclWinGetPlatformId) /* 9 */
-#define TclpReaddir \
-	(tclIntPlatStubsPtr->tclpReaddir) /* 10 */
+/* Slot 10 is reserved */
 #define TclGetAndDetachPids \
 	(tclIntPlatStubsPtr->tclGetAndDetachPids) /* 11 */
 #define TclpCloseFile \
@@ -440,8 +426,7 @@ extern const TclIntPlatStubs *tclIntPlatStubsPtr;
 	(tclIntPlatStubsPtr->tclpOpenFile) /* 19 */
 #define TclWinAddProcess \
 	(tclIntPlatStubsPtr->tclWinAddProcess) /* 20 */
-#define TclpInetNtoa \
-	(tclIntPlatStubsPtr->tclpInetNtoa) /* 21 */
+/* Slot 21 is reserved */
 #define TclpCreateTempFile \
 	(tclIntPlatStubsPtr->tclpCreateTempFile) /* 22 */
 /* Slot 23 is reserved */
@@ -479,12 +464,10 @@ extern const TclIntPlatStubs *tclIntPlatStubsPtr;
 	(tclIntPlatStubsPtr->tclUnixWaitForFile) /* 8 */
 #define TclpCreateTempFile \
 	(tclIntPlatStubsPtr->tclpCreateTempFile) /* 9 */
-#define TclpReaddir \
-	(tclIntPlatStubsPtr->tclpReaddir) /* 10 */
+/* Slot 10 is reserved */
 /* Slot 11 is reserved */
 /* Slot 12 is reserved */
-#define TclpInetNtoa \
-	(tclIntPlatStubsPtr->tclpInetNtoa) /* 13 */
+/* Slot 13 is reserved */
 #define TclUnixCopyFile \
 	(tclIntPlatStubsPtr->tclUnixCopyFile) /* 14 */
 #define TclMacOSXGetFileAttribute \