diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-23 20:06:18 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-08-23 20:06:18 (GMT) |
| commit | b02e97a2b368aa22f4d35a51ab1d3efdf197352b (patch) | |
| tree | d760b8eee9a5a9d210d8ef2833c6c46c399e5970 | |
| parent | 77e356e2cee812b76dd325d0f34ad239eb75f82a (diff) | |
| download | tcl-b02e97a2b368aa22f4d35a51ab1d3efdf197352b.zip tcl-b02e97a2b368aa22f4d35a51ab1d3efdf197352b.tar.gz tcl-b02e97a2b368aa22f4d35a51ab1d3efdf197352b.tar.bz2 | |
small wrapper for TclWinNToHs, for change in calling convention
| -rw-r--r-- | generic/tclStubInit.c | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 3be6b45..6a3207b 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -74,7 +74,12 @@ MODULE_SCOPE TclIntPlatStubs tclIntPlatStubs; MODULE_SCOPE TclPlatStubs tclPlatStubs; MODULE_SCOPE TclStubs tclStubs; MODULE_SCOPE TclTomMathStubs tclTomMathStubs; -#define TclWinNToHS ntohs + +#if defined(_WIN32) || defined(__CYGWIN__) +unsigned short TclWinNToHS(unsigned short ns) { + return ntohs(ns); +} +#endif #ifdef __WIN32__ # define TclUnixWaitForFile 0 |