diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2001-04-25 09:44:48 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2001-04-25 09:44:48 (GMT) |
| commit | 274f1e3f18c6e671c861e9c30e4d24791958d74c (patch) | |
| tree | d227bb462c79d4d83bbdd6f568e901c98267b961 /generic/tclBasic.c | |
| parent | 746a8cbba288a220947b571d54e2d48ae2e8d488 (diff) | |
| download | tcl-274f1e3f18c6e671c861e9c30e4d24791958d74c.zip tcl-274f1e3f18c6e671c861e9c30e4d24791958d74c.tar.gz tcl-274f1e3f18c6e671c861e9c30e4d24791958d74c.tar.bz2 | |
Added a bunch of missing CONST declarations to stop warnings about
using TclGetNamespaceForQualName from the (Solaris8) SUNWspro cc.
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; |