diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-04 09:05:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2012-04-04 09:05:51 (GMT) |
| commit | 10d62422b2a9cd29828f3d750f8253076ba0cf3f (patch) | |
| tree | 65cab1f3b3d6a018af1926ded98137478d1bd3c1 /generic/tclStubInit.c | |
| parent | 60cfc1cbac7cd027431546b2a5d260d25ee1a502 (diff) | |
| parent | 5cc8272056a2950e552b579f4717b123a9578bdc (diff) | |
| download | tcl-10d62422b2a9cd29828f3d750f8253076ba0cf3f.zip tcl-10d62422b2a9cd29828f3d750f8253076ba0cf3f.tar.gz tcl-10d62422b2a9cd29828f3d750f8253076ba0cf3f.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 4c70f00..dfdc79a 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 + MODULE_SCOPE TclIntStubs tclIntStubs; MODULE_SCOPE TclIntPlatStubs tclIntPlatStubs; MODULE_SCOPE TclPlatStubs tclPlatStubs; @@ -306,13 +318,21 @@ TclIntStubs tclIntStubs = { TclSetPreInitScript, /* 101 */ TclSetupEnv, /* 102 */ TclSockGetPort, /* 103 */ - TclSockMinimumBuffers, /* 104 */ + TclSockMinimumBuffersOld, /* 104 */ NULL, /* 105 */ NULL, /* 106 */ NULL, /* 107 */ TclTeardownNamespace, /* 108 */ TclUpdateReturnInfo, /* 109 */ - NULL, /* 110 */ +#if !defined(__WIN32__) && !defined(MAC_OSX_TCL) /* UNIX */ + TclSockMinimumBuffers, /* 110 */ +#endif /* UNIX */ +#ifdef __WIN32__ /* WIN */ + TclSockMinimumBuffers, /* 110 */ +#endif /* WIN */ +#ifdef MAC_OSX_TCL /* MACOSX */ + TclSockMinimumBuffers, /* 110 */ +#endif /* MACOSX */ Tcl_AddInterpResolvers, /* 111 */ Tcl_AppendExportList, /* 112 */ Tcl_CreateNamespace, /* 113 */ |