MODULE_SCOPE TclLengthOne (in stead of 2 separate static functions doing the same)

3 files changed, 15 insertions, 10 deletions

diff --git a/generic/tclInt.h b/generic/tclInt.h
index 392ccab..827fd6f 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -1103,6 +1103,8 @@ typedef struct {  /* For internal core use only */
 	&& ((objPtr)->typePtr->version > offsetof(TclObjTypeWithAbstractList, abstractList.proc))) ? \
 	((const TclObjTypeWithAbstractList *)(objPtr)->typePtr)->abstractList.proc : NULL)
 
+MODULE_SCOPE size_t TclLengthOne(Tcl_Obj *);
+
 /*
  * The structure below defines an entry in the assocData hash table which is
  * associated with an interpreter. The entry contains a pointer to a function
diff --git a/generic/tclObj.c b/generic/tclObj.c
index 67b7487..eaa6766 100644
--- a/generic/tclObj.c
+++ b/generic/tclObj.c
@@ -225,8 +225,6 @@ static int		SetCmdNameFromAny(Tcl_Interp *interp, Tcl_Obj *objPtr);
  * implementations.
  */
 
-static size_t LengthOne(TCL_UNUSED(Tcl_Obj *)) {return 1;}
-
 const TclObjTypeWithAbstractList tclBooleanType= {
     {"boolean",			/* name */
     NULL,			/* freeIntRepProc */
@@ -234,7 +232,7 @@ const TclObjTypeWithAbstractList tclBooleanType= {
     NULL,			/* updateStringProc */
     TclSetBooleanFromAny,		/* setFromAnyProc */
     TCL_OBJTYPE_V0_1(
-    LengthOne
+    TclLengthOne
     )}
 };
 const TclObjTypeWithAbstractList tclDoubleType= {
@@ -244,7 +242,7 @@ const TclObjTypeWithAbstractList tclDoubleType= {
     UpdateStringOfDouble,	/* updateStringProc */
     SetDoubleFromAny,		/* setFromAnyProc */
     TCL_OBJTYPE_V0_1(
-    LengthOne
+    TclLengthOne
     )}
 };
 const TclObjTypeWithAbstractList tclIntType = {
@@ -254,7 +252,7 @@ const TclObjTypeWithAbstractList tclIntType = {
     UpdateStringOfInt,		/* updateStringProc */
     SetIntFromAny,		/* setFromAnyProc */
     TCL_OBJTYPE_V0_1(
-    LengthOne
+    TclLengthOne
     )}
 };
 const TclObjTypeWithAbstractList tclBignumType = {
@@ -264,7 +262,7 @@ const TclObjTypeWithAbstractList tclBignumType = {
     UpdateStringOfBignum,	/* updateStringProc */
     NULL,			/* setFromAnyProc */
     TCL_OBJTYPE_V0_1(
-    LengthOne
+    TclLengthOne
     )}
 };
 
diff --git a/generic/tclUtil.c b/generic/tclUtil.c
index a53ca28..e96a564 100644
--- a/generic/tclUtil.c
+++ b/generic/tclUtil.c
@@ -122,8 +122,6 @@ static int		FindElement(Tcl_Interp *interp, const char *string,
  * is unregistered, so has no need of a setFromAnyProc either.
  */
 
-static size_t LengthOne(TCL_UNUSED(Tcl_Obj *)) {return 1;}
-
 static const TclObjTypeWithAbstractList endOffsetType = {
     {"end-offset",			/* name */
     NULL,				/* freeIntRepProc */
@@ -131,10 +129,17 @@ static const TclObjTypeWithAbstractList endOffsetType = {
     NULL,				/* updateStringProc */
     NULL,				/* setFromAnyProc */
     TCL_OBJTYPE_V0_1(
-    LengthOne
+    TclLengthOne
     )}
 };
-
+
+size_t
+TclLengthOne(
+    TCL_UNUSED(Tcl_Obj *))
+{
+    return 1;
+}
+
 /*
  *	*	STRING REPRESENTATION OF LISTS	*	*	*
  *