diff options
Diffstat (limited to 'generic/tclUtil.c')
-rw-r--r-- | generic/tclUtil.c | 13 |
1 files changed, 9 insertions, 4 deletions
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 * * * * |