diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-02 13:59:26 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-06-02 13:59:26 (GMT) |
commit | 103eb015c041530ef4652d4d0ec05188789b66f2 (patch) | |
tree | 65d2749bc307862a2c86e47bb799e27c90cfd767 /generic/tclCmdAH.c | |
parent | 3d0413417ddafb15a80282011fc2e6ca59dc57cb (diff) | |
parent | 2867ac26373a64724686df3d77d9d323343bcc84 (diff) | |
download | tcl-103eb015c041530ef4652d4d0ec05188789b66f2.zip tcl-103eb015c041530ef4652d4d0ec05188789b66f2.tar.gz tcl-103eb015c041530ef4652d4d0ec05188789b66f2.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclCmdAH.c')
-rw-r--r-- | generic/tclCmdAH.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index cb71c40..bc8bf30 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -2325,7 +2325,7 @@ StoreStatData( unsigned short mode; if (varName == NULL) { - result = Tcl_NewObj(); + TclNewObj(result); Tcl_IncrRefCount(result); #define DOBJPUT(key, objValue) \ Tcl_DictObjPut(NULL, result, \ |