summaryrefslogtreecommitdiffstats
path: root/generic/tclStubInit.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2014-04-16 14:12:19 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2014-04-16 14:12:19 (GMT)
commite9e54156fa6423db7681873e9fd96f034ceb7262 (patch)
tree639d07ad4bf1882f504f3b97ed94406b9b78e0bf /generic/tclStubInit.c
parentbe0324597aa8d46f7ad4f8608ba2644b40ffd504 (diff)
parent88d357a99c11e0bc241d2020b6aa5ac29d6d0bda (diff)
downloadtcl-e9e54156fa6423db7681873e9fd96f034ceb7262.zip
tcl-e9e54156fa6423db7681873e9fd96f034ceb7262.tar.gz
tcl-e9e54156fa6423db7681873e9fd96f034ceb7262.tar.bz2
Fix compiler warnings in win32/cygwin build
Diffstat (limited to 'generic/tclStubInit.c')
-rw-r--r--generic/tclStubInit.c18
1 files changed, 13 insertions, 5 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c
index 097269f..7a84cba 100644
--- a/generic/tclStubInit.c
+++ b/generic/tclStubInit.c
@@ -44,6 +44,9 @@
#define TclBackgroundException Tcl_BackgroundException
#undef Tcl_SetIntObj
#undef TclpInetNtoa
+#undef TclWinGetServByName
+#undef TclWinGetSockOpt
+#undef TclWinSetSockOpt
/* See bug 510001: TclSockMinimumBuffers needs plat imp */
#ifdef _WIN64
@@ -111,7 +114,8 @@ TclpIsAtty(int fd)
return isatty(fd);
}
-int
+#define TclWinGetPlatformId winGetPlatformId
+static int
TclWinGetPlatformId()
{
/* Don't bother to determine the real platform on cygwin,
@@ -127,27 +131,31 @@ void *TclWinGetTclInstance()
return hInstance;
}
-int
+#define TclWinSetSockOpt winSetSockOpt
+static int
TclWinSetSockOpt(SOCKET s, int level, int optname,
const char *optval, int optlen)
{
return setsockopt((int) s, level, optname, optval, optlen);
}
-int
+#define TclWinGetSockOpt winGetSockOpt
+static int
TclWinGetSockOpt(SOCKET s, int level, int optname,
char *optval, int *optlen)
{
return getsockopt((int) s, level, optname, optval, optlen);
}
-struct servent *
+#define TclWinGetServByName winGetServByName
+static struct servent *
TclWinGetServByName(const char *name, const char *proto)
{
return getservbyname(name, proto);
}
-char *
+#define TclWinNoBackslash winNoBackslash
+static char *
TclWinNoBackslash(char *path)
{
char *p;