diff options
-rw-r--r-- | generic/tclIndexObj.c | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/generic/tclIndexObj.c b/generic/tclIndexObj.c index d0fb382..0915092 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.47 2008/11/25 23:19:02 nijtmans Exp $ + * RCS: @(#) $Id: tclIndexObj.c,v 1.48 2008/12/15 17:28:54 das Exp $ */ #include "tclInt.h" @@ -21,6 +21,9 @@ * Prototypes for functions defined later in this file: */ +static int GetIndexFromObjList(Tcl_Interp *interp, + Tcl_Obj *objPtr, Tcl_Obj *tableObjPtr, + const char *msg, int flags, int *indexPtr); static int SetIndexFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr); static void UpdateStringOfIndex(Tcl_Obj *objPtr); static void DupIndex(Tcl_Obj *srcPtr, Tcl_Obj *dupPtr); @@ -140,7 +143,7 @@ Tcl_GetIndexFromObj( /* *---------------------------------------------------------------------- * - * TclGetIndexFromObjList -- + * GetIndexFromObjList -- * * This procedure looks up an object's value in a table of strings * and returns the index of the matching string, if any. @@ -164,7 +167,7 @@ Tcl_GetIndexFromObj( */ int -TclGetIndexFromObjList( +GetIndexFromObjList( Tcl_Interp *interp, /* Used for error reporting if not NULL. */ Tcl_Obj *objPtr, /* Object containing the string to lookup. */ Tcl_Obj *tableObjPtr, /* List of strings to compare against the @@ -623,7 +626,7 @@ PrefixMatchObjCmd( return result; } - result = TclGetIndexFromObjList(interp, objPtr, tablePtr, message, flags, + result = GetIndexFromObjList(interp, objPtr, tablePtr, message, flags, &index); if (result != TCL_OK) { if (errorPtr != NULL && errorLength == 0) { |