Tcl Source Code

Check-in [e9aa33ca4b]
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 | trunk
Files: files | file ages | folders
SHA1: e9aa33ca4bc53dcfebf1bf75ed6ec61d9b4eef80
User & Date: jan.nijtmans 2012-08-24 06:33:04
Context
2012-08-25
10:11
[Bug 3561330]: Use the correct full name of March in Ukrainian. check-in: 7fd43f120a user: dkf tags: trunk
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:18
small wrapper for TclWinNToHs, for change in calling convention check-in: 65be206be4 user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclIntPlatDecls.h.

521
522
523
524
525
526
527
528



529
530
531
532
533
#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT
#undef TclpLocaltime_unix
#undef TclpGmtime_unix
#undef TclWinConvertWSAError
#define TclWinConvertWSAError TclWinConvertError

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



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

#endif /* _TCLINTPLATDECLS */







|
>
>
>





521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
#undef TCL_STORAGE_CLASS
#define TCL_STORAGE_CLASS DLLIMPORT
#undef TclpLocaltime_unix
#undef TclpGmtime_unix
#undef TclWinConvertWSAError
#define TclWinConvertWSAError TclWinConvertError

#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.

51
52
53
54
55
56
57

58
59
60
61
62
63
64
{
    return TclSockMinimumBuffers(INT2PTR(sock), size);
}
#endif


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

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

#ifdef __WIN32__







>







51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
{
    return TclSockMinimumBuffers(INT2PTR(sock), size);
}
#endif


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

#ifdef __WIN32__