diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-04-04 08:36:18 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-04-04 08:36:18 (GMT) |
| commit | e6d6984ca899f79ada40b0624ccf960b13a0e96c (patch) | |
| tree | 2e90215cbb2831726d370df96220fde56b84545c /generic/tclStubInit.c | |
| parent | 9c8271195ef3fe0de14d9bf0e0aa5913bce447e2 (diff) | |
| parent | 0326fabef4c38aca4aba68d0788d9c8e7180e17b (diff) | |
| download | tcl-e6d6984ca899f79ada40b0624ccf960b13a0e96c.zip tcl-e6d6984ca899f79ada40b0624ccf960b13a0e96c.tar.gz tcl-e6d6984ca899f79ada40b0624ccf960b13a0e96c.tar.bz2 | |
[Bug 510001]: TclSockMinimumBuffers needs plat imp
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 24 |
1 files changed, 22 insertions, 2 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 71470b3..cbb89a2 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -55,6 +55,18 @@ Tcl_NotifierProcs tclOriginalNotifier = { NULL }; +/* See bug 510001: TclSockMinimumBuffers needs plat imp */ +#ifdef _WIN64 +# define TclSockMinimumBuffersOld 0 +#else +int TclSockMinimumBuffersOld(sock, size) + int sock; + int size; +{ + return TclSockMinimumBuffers((void *) (size_t) sock, size); +} +#endif + #ifdef __CYGWIN__ /* Trick, so we don't have to include <windows.h> here, which @@ -317,10 +329,10 @@ TclIntStubs tclIntStubs = { TclSetupEnv, /* 102 */ TclSockGetPort, /* 103 */ #if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ - TclSockMinimumBuffers, /* 104 */ + TclSockMinimumBuffersOld, /* 104 */ #endif /* UNIX */ #ifdef __WIN32__ - TclSockMinimumBuffers, /* 104 */ + TclSockMinimumBuffersOld, /* 104 */ #endif /* __WIN32__ */ #ifdef MAC_TCL NULL, /* 104 */ @@ -330,7 +342,15 @@ TclIntStubs tclIntStubs = { TclStatInsertProc, /* 107 */ TclTeardownNamespace, /* 108 */ TclUpdateReturnInfo, /* 109 */ +#if !defined(__WIN32__) && !defined(MAC_TCL) /* UNIX */ + TclSockMinimumBuffers, /* 110 */ +#endif /* UNIX */ +#ifdef __WIN32__ + TclSockMinimumBuffers, /* 110 */ +#endif /* __WIN32__ */ +#ifdef MAC_TCL NULL, /* 110 */ +#endif /* MAC_TCL */ Tcl_AddInterpResolvers, /* 111 */ Tcl_AppendExportList, /* 112 */ Tcl_CreateNamespace, /* 113 */ |