diff options
author | dkf <dkf@noemail.net> | 2001-04-25 09:44:47 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2001-04-25 09:44:47 (GMT) |
commit | 0e92b6e9084a11bac2da1c2ac1e035e37ea64116 (patch) | |
tree | d227bb462c79d4d83bbdd6f568e901c98267b961 /generic/tclBasic.c | |
parent | c9c7dc6c8daab1346331c65c267a4fe4aa3099cb (diff) | |
download | tcl-0e92b6e9084a11bac2da1c2ac1e035e37ea64116.zip tcl-0e92b6e9084a11bac2da1c2ac1e035e37ea64116.tar.gz tcl-0e92b6e9084a11bac2da1c2ac1e035e37ea64116.tar.bz2 |
Added a bunch of missing CONST declarations to stop warnings about
using TclGetNamespaceForQualName from the (Solaris8) SUNWspro cc.
FossilOrigin-Name: 4df1ba8b19d6eab1ec4f7d43b15ffbfc7b309fbe
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index a1953a5..12d6802 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.30 2001/04/24 20:59:17 kennykb Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.31 2001/04/25 09:44:49 dkf Exp $ */ #include "tclInt.h" @@ -1893,7 +1893,7 @@ TclRenameCommand(interp, oldName, newName) char *newName; /* New command name. */ { Interp *iPtr = (Interp *) interp; - char *newTail; + CONST char *newTail; Namespace *cmdNsPtr, *newNsPtr, *dummy1, *dummy2; Tcl_Command cmd; Command *cmdPtr; |