diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-08-23 20:06:18 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-08-23 20:06:18 (GMT) |
| commit | 7a3075e604cf374708b641c596913c943cbb5cfa (patch) | |
| tree | d760b8eee9a5a9d210d8ef2833c6c46c399e5970 /generic/tclStubInit.c | |
| parent | f6b23a705535045ab25719142939ba6a778d5dbd (diff) | |
| download | tcl-7a3075e604cf374708b641c596913c943cbb5cfa.zip tcl-7a3075e604cf374708b641c596913c943cbb5cfa.tar.gz tcl-7a3075e604cf374708b641c596913c943cbb5cfa.tar.bz2 | |
small wrapper for TclWinNToHs, for change in calling convention
Diffstat (limited to 'generic/tclStubInit.c')
| -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 |