diff options
| author | nijtmans <nijtmans> | 2007-02-20 23:24:02 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2007-02-20 23:24:02 (GMT) |
| commit | 6ad116f411885307607d5bebcd6a987ebfafff40 (patch) | |
| tree | 2fc3ee74f9099dbc66a0d0d154665561411fd654 /generic/tclIOSock.c | |
| parent | 7ae3600bbf1577f02278766a0cca9d439a933bf9 (diff) | |
| download | tcl-6ad116f411885307607d5bebcd6a987ebfafff40.zip tcl-6ad116f411885307607d5bebcd6a987ebfafff40.tar.gz tcl-6ad116f411885307607d5bebcd6a987ebfafff40.tar.bz2 | |
various "const" additions, in line with TIP #27
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) { /* |