diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-24 15:23:21 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-24 15:23:21 (GMT) |
| commit | 875e3b392ba9b930fa009077b451b08f15b4ea72 (patch) | |
| tree | afae8bec56f97b204eec4b7bc70855fd26f76d46 /generic/tclConfig.c | |
| parent | 8997eb06b951e71416f99c512ebed977f8cb61fb (diff) | |
| download | tcl-875e3b392ba9b930fa009077b451b08f15b4ea72.zip tcl-875e3b392ba9b930fa009077b451b08f15b4ea72.tar.gz tcl-875e3b392ba9b930fa009077b451b08f15b4ea72.tar.bz2 | |
change signature for Tcl_DictObjPutKeyList and Tcl_DictObjRemoveKeyList too
Diffstat (limited to 'generic/tclConfig.c')
| -rw-r--r-- | generic/tclConfig.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclConfig.c b/generic/tclConfig.c index 9d41a45..08d5f1b 100644 --- a/generic/tclConfig.c +++ b/generic/tclConfig.c @@ -199,8 +199,8 @@ QueryConfigObjCmd( QCCD *cdPtr = (QCCD *)clientData; Tcl_Obj *pkgName = cdPtr->pkg; Tcl_Obj *pDB, *pkgDict, *val, *listPtr; - size_t n = 0; - int index, m; + size_t m, n = 0; + int index; static const char *const subcmdStrings[] = { "get", "list", NULL }; @@ -272,7 +272,7 @@ QueryConfigObjCmd( return TCL_ERROR; } - TclDictObjSize_(interp, pkgDict, &m); + Tcl_DictObjSize(interp, pkgDict, &m); listPtr = Tcl_NewListObj(m, NULL); if (!listPtr) { |