diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-01-17 11:47:37 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-01-17 11:47:37 (GMT) |
commit | 7ea11c7f9865dc680b102ea9497fc75634be25e4 (patch) | |
tree | c0a8f6c12fff90701c4895b93c2b732b5257404b /generic/tclIntPlatDecls.h | |
parent | e755aba59fe78100699510b3179c1acff88b374e (diff) | |
parent | f0b9b9fbb6d6275b0be9047cee3a2fbdfb9ecdd4 (diff) | |
download | tcl-7ea11c7f9865dc680b102ea9497fc75634be25e4.zip tcl-7ea11c7f9865dc680b102ea9497fc75634be25e4.tar.gz tcl-7ea11c7f9865dc680b102ea9497fc75634be25e4.tar.bz2 |
TIP #485 implementation, Tcl 8.6 part: If Tcl is compiled with -DTCL_NO_DEPRECATED, all Deprecated API (as in the TIP) will be gone.
Diffstat (limited to 'generic/tclIntPlatDecls.h')
-rw-r--r-- | generic/tclIntPlatDecls.h | 20 |
1 files changed, 11 insertions, 9 deletions
diff --git a/generic/tclIntPlatDecls.h b/generic/tclIntPlatDecls.h index ada1d2b..0e160ca 100644 --- a/generic/tclIntPlatDecls.h +++ b/generic/tclIntPlatDecls.h @@ -549,22 +549,24 @@ extern const TclIntPlatStubs *tclIntPlatStubsPtr; #define TclWinConvertWSAError TclWinConvertError #undef TclpInetNtoa #define TclpInetNtoa inet_ntoa -#undef TclWinResetInterfaces -#define TclWinResetInterfaces() /* nop */ -#undef TclWinSetInterfaces -#define TclWinSetInterfaces(dummy) /* nop */ #if defined(_WIN32) # undef TclWinNToHS # undef TclWinGetServByName # undef TclWinGetSockOpt # undef TclWinSetSockOpt -# define TclWinNToHS ntohs -# define TclWinGetServByName getservbyname -# define TclWinGetSockOpt getsockopt -# define TclWinSetSockOpt setsockopt # undef TclWinGetPlatformId -# define TclWinGetPlatformId() (2) /* VER_PLATFORM_WIN32_NT */ +# undef TclWinResetInterfaces +# undef TclWinSetInterfaces +# if !defined(TCL_NO_DEPRECATED) && TCL_MAJOR_VERSION < 9 +# define TclWinNToHS ntohs +# define TclWinGetServByName getservbyname +# define TclWinGetSockOpt getsockopt +# define TclWinSetSockOpt setsockopt +# define TclWinGetPlatformId() (2) /* VER_PLATFORM_WIN32_NT */ +# define TclWinResetInterfaces() /* nop */ +# define TclWinSetInterfaces(dummy) /* nop */ +# endif /* TCL_NO_DEPRECATED */ #else # undef TclpGetPid # define TclpGetPid(pid) ((unsigned long) (pid)) |