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/tclBasic.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/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 20248a9..91c8d7a 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -805,7 +805,7 @@ Tcl_CreateInterp(void) iPtr->legacyFreeProc = (void (*) (void))-1; iPtr->errorLine = 0; iPtr->stubTable = &tclStubs; - iPtr->objResultPtr = Tcl_NewObj(); + TclNewObj(iPtr->objResultPtr); Tcl_IncrRefCount(iPtr->objResultPtr); iPtr->handle = TclHandleCreate(iPtr); iPtr->globalNsPtr = NULL; @@ -890,7 +890,7 @@ Tcl_CreateInterp(void) iPtr->activeInterpTracePtr = NULL; iPtr->assocData = NULL; iPtr->execEnvPtr = NULL; /* Set after namespaces initialized. */ - iPtr->emptyObjPtr = Tcl_NewObj(); + TclNewObj(iPtr->emptyObjPtr); /* Another empty object. */ Tcl_IncrRefCount(iPtr->emptyObjPtr); iPtr->threadId = Tcl_GetCurrentThread(); @@ -954,7 +954,7 @@ Tcl_CreateInterp(void) * TIP #285, Script cancellation support. */ - iPtr->asyncCancelMsg = Tcl_NewObj(); + TclNewObj(iPtr->asyncCancelMsg); cancelInfo = (CancelInfo *)Tcl_Alloc(sizeof(CancelInfo)); cancelInfo->interp = interp; |