diff options
| author | nijtmans <nijtmans> | 2008-10-04 11:04:42 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2008-10-04 11:04:42 (GMT) |
| commit | 67aa8715c3ab84a6c636b90a48b5a565c1dcc162 (patch) | |
| tree | 18672f7646f13fd2740f8d75dd03b76ba5770241 /generic/tclIndexObj.c | |
| parent | 0f137db1b0ce02080631bf6fe5a86368df112ec4 (diff) | |
| download | tcl-67aa8715c3ab84a6c636b90a48b5a565c1dcc162.zip tcl-67aa8715c3ab84a6c636b90a48b5a565c1dcc162.tar.gz tcl-67aa8715c3ab84a6c636b90a48b5a565c1dcc162.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.
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 { |