diff options
author | nijtmans <nijtmans@noemail.net> | 2007-02-20 23:24:01 (GMT) |
---|---|---|
committer | nijtmans <nijtmans@noemail.net> | 2007-02-20 23:24:01 (GMT) |
commit | 8304773d8b2ee19516ec98b7f43772b3e3cafd0b (patch) | |
tree | 2fc3ee74f9099dbc66a0d0d154665561411fd654 /generic/tclIOSock.c | |
parent | 3b0c004d36f5baf787ca1438ae23df0dc34cafc2 (diff) | |
download | tcl-8304773d8b2ee19516ec98b7f43772b3e3cafd0b.zip tcl-8304773d8b2ee19516ec98b7f43772b3e3cafd0b.tar.gz tcl-8304773d8b2ee19516ec98b7f43772b3e3cafd0b.tar.bz2 |
various "const" additions, in line with TIP #27
FossilOrigin-Name: 81ea4e1335f3c78465e90ec021758c096ba9b544
Diffstat (limited to 'generic/tclIOSock.c')
-rw-r--r-- | generic/tclIOSock.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclIOSock.c b/generic/tclIOSock.c index 69e2351..6887b0c 100644 --- a/generic/tclIOSock.c +++ b/generic/tclIOSock.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIOSock.c,v 1.10 2005/11/07 15:17:25 dkf Exp $ + * RCS: @(#) $Id: tclIOSock.c,v 1.11 2007/02/20 23:24:04 nijtmans Exp $ */ #include "tclInt.h" @@ -35,13 +35,13 @@ int TclSockGetPort( Tcl_Interp *interp, - char *string, /* Integer or service name */ - char *proto, /* "tcp" or "udp", typically */ + const char *string, /* Integer or service name */ + const char *proto, /* "tcp" or "udp", typically */ int *portPtr) /* Return port number */ { struct servent *sp; /* Protocol info for named services */ Tcl_DString ds; - CONST char *native; + const char *native; if (Tcl_GetInt(NULL, string, portPtr) != TCL_OK) { /* |