Tcl Source Code

Check-in [f66713fc65]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:make sure that extensions which might still use TclWinNToHS, now use ntohs directly.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA1: f66713fc65cfc2a9830ba3a7e389b9007dfbf8b9
User & Date: jan.nijtmans 2012-08-24 06:29:44
Context
2012-08-29
08:49
Alternative fix for bug-3562640 Closed-Leaf check-in: 71d18ede8d user: jan.nijtmans tags: bug-3562640-alt
2012-08-25
10:07
[Bug 3561330]: Use the correct full name of March in Ukrainian. check-in: 0c983d78f7 user: dkf tags: core-8-5-branch
2012-08-24
06:33
make sure that extensions which might still use TclWinNToHS, now use ntohs directly. check-in: e9aa33ca4b user: jan.nijtmans tags: trunk
06:29
make sure that extensions which might still use TclWinNToHS, now use ntohs directly. check-in: f66713fc65 user: jan.nijtmans tags: core-8-5-branch
2012-08-23
20:06
small wrapper for TclWinNToHs, for change in calling convention check-in: 624e7971f7 user: jan.nijtmans tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclIntPlatDecls.h.

841
842
843
844
845
846
847
848



849
850
851
852
853
/* !END!: Do not edit above this line. */

#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT
#undef TclpLocaltime_unix
#undef TclpGmtime_unix

#if !defined(__WIN32__) && !defined(__CYGWIN__)



#   undef TclpGetPid
#   define TclpGetPid(pid) ((unsigned long) (pid))
#endif

#endif /* _TCLINTPLATDECLS */







|
>
>
>





841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
/* !END!: Do not edit above this line. */

#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT
#undef TclpLocaltime_unix
#undef TclpGmtime_unix

#if defined(__WIN32__) || defined(__CYGWIN__)
#   undef TclWinNToHS
#   define TclWinNToHS ntohs
#else
#   undef TclpGetPid
#   define TclpGetPid(pid) ((unsigned long) (pid))
#endif

#endif /* _TCLINTPLATDECLS */

Changes to generic/tclStubInit.c.

72
73
74
75
76
77
78

79
80
81
82
83
84
85
MODULE_SCOPE TclIntStubs tclIntStubs;
MODULE_SCOPE TclIntPlatStubs tclIntPlatStubs;
MODULE_SCOPE TclPlatStubs tclPlatStubs;
MODULE_SCOPE TclStubs tclStubs;
MODULE_SCOPE TclTomMathStubs tclTomMathStubs;

#if defined(_WIN32) || defined(__CYGWIN__)

unsigned short TclWinNToHS(unsigned short ns) {
	return ntohs(ns);
}
#endif

#ifdef __WIN32__
#   define TclUnixWaitForFile 0







>







72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
MODULE_SCOPE TclIntStubs tclIntStubs;
MODULE_SCOPE TclIntPlatStubs tclIntPlatStubs;
MODULE_SCOPE TclPlatStubs tclPlatStubs;
MODULE_SCOPE TclStubs tclStubs;
MODULE_SCOPE TclTomMathStubs tclTomMathStubs;

#if defined(_WIN32) || defined(__CYGWIN__)
#undef TclWinNToHS
unsigned short TclWinNToHS(unsigned short ns) {
	return ntohs(ns);
}
#endif

#ifdef __WIN32__
#   define TclUnixWaitForFile 0