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/tclOOCall.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/tclOOCall.c')
| -rw-r--r-- | generic/tclOOCall.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclOOCall.c b/generic/tclOOCall.c index 39fd020..7695483 100644 --- a/generic/tclOOCall.c +++ b/generic/tclOOCall.c @@ -2255,7 +2255,7 @@ TclOOGetAllClassProperties( *allocated = 1; Tcl_InitObjHashTable(&hashTable); FindClassProps(clsPtr, writable, &hashTable); - result = Tcl_NewObj(); + TclNewObj(result); FOREACH_HASH(propName, dummy, &hashTable) { Tcl_ListObjAppendElement(NULL, result, propName); } @@ -2337,7 +2337,7 @@ TclOOGetAllObjectProperties( *allocated = 1; Tcl_InitObjHashTable(&hashTable); FindObjectProps(oPtr, writable, &hashTable); - result = Tcl_NewObj(); + TclNewObj(result); FOREACH_HASH(propName, dummy, &hashTable) { Tcl_ListObjAppendElement(NULL, result, propName); } |