diff options
author | griffin <briang42@easystreet.net> | 2023-05-17 16:12:25 (GMT) |
---|---|---|
committer | griffin <briang42@easystreet.net> | 2023-05-17 16:12:25 (GMT) |
commit | fa313109d6a46e437c1583c859b6e79e0a6dae2a (patch) | |
tree | 24c58bd9cb94b68f79b8f553976513202b3c9bdc /generic/tclDictObj.c | |
parent | 6781fbdf4b3832134bd23990d3cab8b9a4c8a8fe (diff) | |
parent | a038d4aad3a0cc42c2c3028f816f6e50443a42f1 (diff) | |
download | tcl-fa313109d6a46e437c1583c859b6e79e0a6dae2a.zip tcl-fa313109d6a46e437c1583c859b6e79e0a6dae2a.tar.gz tcl-fa313109d6a46e437c1583c859b6e79e0a6dae2a.tar.bz2 |
Merge trunk
Diffstat (limited to 'generic/tclDictObj.c')
-rw-r--r-- | generic/tclDictObj.c | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/generic/tclDictObj.c b/generic/tclDictObj.c index c14536a..b5d6e56 100644 --- a/generic/tclDictObj.c +++ b/generic/tclDictObj.c @@ -1062,6 +1062,26 @@ Tcl_DictObjRemove( /* *---------------------------------------------------------------------- * + * Tcl_DictGetSize + * + * Returns the size of dictPtr. Caller must ensure that dictPtr has type + * 'tclDicttype'. + * + * + *---------------------------------------------------------------------- + */ + +Tcl_Size +TclDictGetSize(Tcl_Obj *dictPtr) +{ + Dict *dict; + DictGetInternalRep(dictPtr, dict); + return dict->table.numEntries; +} + +/* + *---------------------------------------------------------------------- + * * Tcl_DictObjSize -- * * How many key,value pairs are there in the dictionary? |