diff options
author | nijtmans <nijtmans@noemail.net> | 2008-10-04 11:04:42 (GMT) |
---|---|---|
committer | nijtmans <nijtmans@noemail.net> | 2008-10-04 11:04:42 (GMT) |
commit | 53ee67d867a63344abbbefe4f7d5886e4d40baa2 (patch) | |
tree | 18672f7646f13fd2740f8d75dd03b76ba5770241 /generic/tclIndexObj.c | |
parent | 7ea5e81b75b845a826fdeaa0b8b5ba384381919d (diff) | |
download | tcl-53ee67d867a63344abbbefe4f7d5886e4d40baa2.zip tcl-53ee67d867a63344abbbefe4f7d5886e4d40baa2.tar.gz tcl-53ee67d867a63344abbbefe4f7d5886e4d40baa2.tar.bz2 |
* doc/GetIndex.3: CONSTified the tablePtr argument
* generic/tcl.decls: of Tcl_GetIndexFromObj.
* generic/tclIndexObj.c
* ChangeLog
* generic/tclDecls.h: regenerated
This change complies with TIP #27.
FossilOrigin-Name: 4d465df046adaf0e332707c5d24be53f07c51398
Diffstat (limited to 'generic/tclIndexObj.c')
-rw-r--r-- | generic/tclIndexObj.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index ce5ba81..91b9e3d 100644 --- a/generic/tclIndexObj.c +++ b/generic/tclIndexObj.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: tclIndexObj.c,v 1.42 2008/10/03 08:13:14 dkf Exp $ + * RCS: @(#) $Id: tclIndexObj.c,v 1.43 2008/10/04 11:04:43 nijtmans Exp $ */ #include "tclInt.h" @@ -104,7 +104,7 @@ int Tcl_GetIndexFromObj( Tcl_Interp *interp, /* Used for error reporting if not NULL. */ Tcl_Obj *objPtr, /* Object containing the string to lookup. */ - const char **tablePtr, /* Array of strings to compare against the + const char *const*tablePtr, /* Array of strings to compare against the * value of objPtr; last entry must be NULL * and there must not be duplicate entries. */ const char *msg, /* Identifying word to use in error @@ -557,7 +557,7 @@ PrefixMatchObjCmd( Tcl_Obj *errorPtr = NULL; char *message = "option"; Tcl_Obj *tablePtr, *objPtr, *resultPtr; - static const char *matchOptions[] = { + static const char *const matchOptions[] = { "-error", "-exact", "-message", NULL }; enum matchOptions { |