diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-07-03 08:59:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-07-03 08:59:09 (GMT) |
| commit | 950488656e09b8da52835a7abe385816f571e607 (patch) | |
| tree | 73351647023edadbb01467b31b34cceea9cd17cf /generic/tclIOSock.c | |
| parent | 897293c4c13d94223af9ebf03798a5ddcf08dcb6 (diff) | |
| download | tcl-950488656e09b8da52835a7abe385816f571e607.zip tcl-950488656e09b8da52835a7abe385816f571e607.tar.gz tcl-950488656e09b8da52835a7abe385816f571e607.tar.bz2 | |
Fix compiler warning when compiling Itcl 4.0:
In file included from ./generic/itcl2TclOO.c:12:0:
/Tcl/include/tclInt.h:3012:8: warning: ‘struct addrinfo’ declared inside parameter list [enabled by default]
const char **errorMsgPtr);
^
Diffstat (limited to 'generic/tclIOSock.c')
| -rw-r--r-- | generic/tclIOSock.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclIOSock.c b/generic/tclIOSock.c index 694501f..7d6c462 100644 --- a/generic/tclIOSock.c +++ b/generic/tclIOSock.c @@ -139,7 +139,7 @@ int TclCreateSocketAddress( Tcl_Interp *interp, /* Interpreter for querying * the desired socket family */ - struct addrinfo **addrlist, /* Socket address list */ + void **addrlist, /* Socket address list */ const char *host, /* Host. NULL implies INADDR_ANY */ int port, /* Port number */ int willBind, /* Is this an address to bind() to or @@ -213,7 +213,7 @@ TclCreateSocketAddress( hints.ai_flags |= AI_PASSIVE; } - result = getaddrinfo(native, portstring, &hints, addrlist); + result = getaddrinfo(native, portstring, &hints, (struct addrinfo **) addrlist); if (host != NULL) { Tcl_DStringFree(&ds); |