diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-18 10:05:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-12-18 10:05:40 (GMT) |
| commit | 7157c6b87856701344156a0926230589704b9bd5 (patch) | |
| tree | db29e38b53e6f5d258f31dc6d6bc80f9c274ae91 /generic/tclUtil.c | |
| parent | 0cdcbf34819d461ac584412d7ac27357b36ea78b (diff) | |
| download | tcl-7157c6b87856701344156a0926230589704b9bd5.zip tcl-7157c6b87856701344156a0926230589704b9bd5.tar.gz tcl-7157c6b87856701344156a0926230589704b9bd5.tar.bz2 | |
Reserve a place in abstractlist for an additional function
Diffstat (limited to 'generic/tclUtil.c')
| -rw-r--r-- | generic/tclUtil.c | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/generic/tclUtil.c b/generic/tclUtil.c index b48537a..38e562d 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 Tcl_ObjType endOffsetType = { "end-offset", /* name */ NULL, /* freeIntRepProc */ @@ -131,7 +129,8 @@ static const Tcl_ObjType endOffsetType = { NULL, /* updateStringProc */ NULL, /* setFromAnyProc */ TCL_OBJTYPE_V1( - LengthOne, + TclLengthOne, + NULL, NULL, NULL, NULL, @@ -141,6 +140,13 @@ static const Tcl_ObjType endOffsetType = { NULL) }; +size_t +TclLengthOne( + TCL_UNUSED(Tcl_Obj *)) +{ + return 1; +} + /* * * STRING REPRESENTATION OF LISTS * * * * |