diff options
author | das <das@noemail.net> | 2008-12-15 17:28:53 (GMT) |
---|---|---|
committer | das <das@noemail.net> | 2008-12-15 17:28:53 (GMT) |
commit | 52d87911aa4e96c7bbae810928c3528779e1bccd (patch) | |
tree | fc07d51dfa2f72b56afa110d85e49fa061ea8b85 /generic/tclIndexObj.c | |
parent | a90c3631736cb02b5572f03b0f464d165521647c (diff) | |
download | tcl-52d87911aa4e96c7bbae810928c3528779e1bccd.zip tcl-52d87911aa4e96c7bbae810928c3528779e1bccd.tar.gz tcl-52d87911aa4e96c7bbae810928c3528779e1bccd.tar.bz2 |
fix 'make checkstubs' failure: make TclGetIndexFromObjList static
FossilOrigin-Name: d173571652f8f7fc2aaa464c86321db37c6f923d
Diffstat (limited to 'generic/tclIndexObj.c')
-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) { |