From 4559448a312d796fc6e2d53f717d95e9a8c8c186 Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <jan.nijtmans@noemail.net>
Date: Mon, 20 Aug 2012 08:59:36 +0000
Subject: Remove wrapper macro for ntohs(): unnecessary, because it doesn't
 require an initialized winsock_2 library

FossilOrigin-Name: 8dfb46ecf80c4b0e8424124d83d040fb50a35631
---
 generic/tclStubInit.c |  7 +------
 win/tclWinPort.h      |  1 -
 win/tclWinSock.c      | 22 ++--------------------
 3 files changed, 3 insertions(+), 27 deletions(-)

diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 7b73ee3..3be6b45 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -74,6 +74,7 @@ MODULE_SCOPE TclIntPlatStubs tclIntPlatStubs;
 MODULE_SCOPE TclPlatStubs tclPlatStubs;
 MODULE_SCOPE TclStubs tclStubs;
 MODULE_SCOPE TclTomMathStubs tclTomMathStubs;
+#define TclWinNToHS ntohs
 
 #ifdef __WIN32__
 #   define TclUnixWaitForFile 0
@@ -112,12 +113,6 @@ void *TclWinGetTclInstance()
     return hInstance;
 }
 
-unsigned short
-TclWinNToHS(unsigned short ns)
-{
-    return ntohs(ns);
-}
-
 int
 TclWinSetSockOpt(SOCKET s, int level, int optname,
 	    const char *optval, int optlen)
diff --git a/win/tclWinPort.h b/win/tclWinPort.h
index 4f9e8b8..f58014c 100644
--- a/win/tclWinPort.h
+++ b/win/tclWinPort.h
@@ -457,7 +457,6 @@ typedef DWORD_PTR * PDWORD_PTR;
 
 #define getservbyname	TclWinGetServByName
 #define getsockopt	TclWinGetSockOpt
-#define ntohs		TclWinNToHS
 #define setsockopt	TclWinSetSockOpt
 /* This type is not defined in the Windows headers */
 #define socklen_t       int
diff --git a/win/tclWinSock.c b/win/tclWinSock.c
index 63f166d..8f2028d 100644
--- a/win/tclWinSock.c
+++ b/win/tclWinSock.c
@@ -65,7 +65,6 @@
 
 #undef getservbyname
 #undef getsockopt
-#undef ntohs
 #undef setsockopt
 
 /*
@@ -131,7 +130,7 @@ typedef struct SocketInfo {
  * socket event occurs.
  */
 
-typedef struct SocketEvent {
+typedef struct {
     Tcl_Event header;		/* Information that is standard for all
 				 * events. */
     SOCKET socket;		/* Socket descriptor that is ready. Used to
@@ -159,7 +158,7 @@ typedef struct SocketEvent {
 #define SOCKET_PENDING		(1<<3)	/* A message has been sent for this
 					 * socket */
 
-typedef struct ThreadSpecificData {
+typedef struct {
     HWND hwnd;			/* Handle to window for socket messages. */
     HANDLE socketThread;	/* Thread handling the window */
     Tcl_ThreadId threadId;	/* Parent thread. */
@@ -2508,23 +2507,6 @@ TclWinSetSockOpt(SOCKET s, int level, int optname, const char *optval,
     return setsockopt(s, level, optname, optval, optlen);
 }
 
-unsigned short
-TclWinNToHS(unsigned short netshort)
-{
-    /*
-     * Check that WinSock is initialized; do not call it if not, to
-     * prevent system crashes. This can happen at exit time if the exit
-     * handler for WinSock ran before other exit handlers that want to
-     * use sockets.
-     */
-
-    if (!SocketsEnabled()) {
-        return (unsigned short) -1;
-    }
-
-    return ntohs(netshort);
-}
-
 char *
 TclpInetNtoa(struct in_addr addr)
 {
-- 
cgit v0.12


From 72d2bce23769b52bd6c913cc654a59ca1c295e3b Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <jan.nijtmans@noemail.net>
Date: Mon, 20 Aug 2012 09:01:08 +0000
Subject: ... and don't forget ChangeLog entry

FossilOrigin-Name: 4000282abba58664781a817cf1d3d52148a9f0c5
---
 ChangeLog | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index 3dfcc09..d5e6345 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2012-08-20  Jan Nijtmans  <nijtmans@users.sf.net>
+
+	* win/tclWinPort.h:  Remove wrapper macro for ntohs(): unnecessary,
+	because it doesn't require an initialized winsock_2 library. See:
+	<http://msdn.microsoft.com/en-us/library/windows/desktop/ms740075%28v=vs.85%29.aspx>
+	* win/tclWinSock.c
+	* generic/tclStubInit.c
+
 2012-08-17  Jan Nijtmans  <nijtmans@users.sf.net>
 
 	* win/nmakehlp.c: Add "-V<num>" option, in order to be able
-- 
cgit v0.12