diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-04 09:54:04 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-04 09:54:04 (GMT) |
| commit | 2b95a64188c3a52fd7cfdb0641558bed9e222818 (patch) | |
| tree | e44f96316e91a4399fbeac746ffe40fd96597380 /generic/tclStubInit.c | |
| parent | 40f9804e9111ac321ba54c04dd7650c3fe8222d2 (diff) | |
| parent | 10d62422b2a9cd29828f3d750f8253076ba0cf3f (diff) | |
| download | tcl-2b95a64188c3a52fd7cfdb0641558bed9e222818.zip tcl-2b95a64188c3a52fd7cfdb0641558bed9e222818.tar.gz tcl-2b95a64188c3a52fd7cfdb0641558bed9e222818.tar.bz2 | |
[Bug 510001]: TclSockMinimumBuffers needs plat imp
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 17 |
1 files changed, 15 insertions, 2 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index e032874..084a77c 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -40,6 +40,19 @@ #undef Tcl_Panic #undef Tcl_FindExecutable +/* See bug 510001: TclSockMinimumBuffers needs plat imp */ +#ifdef _WIN64 +# define TclSockMinimumBuffersOld 0 +#else +#define TclSockMinimumBuffersOld sockMinimumBuffersOld +static int TclSockMinimumBuffersOld(sock, size) + int sock; + int size; +{ + return TclSockMinimumBuffers(INT2PTR(sock), size); +} +#endif + #ifdef __CYGWIN__ /* Trick, so we don't have to include <windows.h> here, which @@ -289,13 +302,13 @@ static const TclIntStubs tclIntStubs = { TclSetPreInitScript, /* 101 */ TclSetupEnv, /* 102 */ TclSockGetPort, /* 103 */ - TclSockMinimumBuffers, /* 104 */ + TclSockMinimumBuffersOld, /* 104 */ 0, /* 105 */ 0, /* 106 */ 0, /* 107 */ TclTeardownNamespace, /* 108 */ TclUpdateReturnInfo, /* 109 */ - 0, /* 110 */ + TclSockMinimumBuffers, /* 110 */ Tcl_AddInterpResolvers, /* 111 */ Tcl_AppendExportList, /* 112 */ Tcl_CreateNamespace, /* 113 */ |