From fc8e6478bfb02d60c1dc8c861dd80af63e036481 Mon Sep 17 00:00:00 2001
From: das <das>
Date: Mon, 15 Dec 2008 17:28:54 +0000
Subject: fix 'make checkstubs' failure: make TclGetIndexFromObjList static

---
 generic/tclIndexObj.c | 11 +++++++----
 1 file 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) {
-- 
cgit v0.12