diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-10 09:45:34 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-10 09:45:34 (GMT) |
| commit | 30858a86531e0952e6be9be87173baa4fdbed5c4 (patch) | |
| tree | 778cca2855e4a2ff8ccf1d80a6a62ad93f8933e4 /generic/tclTrace.c | |
| parent | 8de20ba3ad4205bad30317b56c5f76b19be5cd7f (diff) | |
| parent | 110e6cae5e332cfbbbf35253b9dea01162a96975 (diff) | |
| download | tcl-30858a86531e0952e6be9be87173baa4fdbed5c4.zip tcl-30858a86531e0952e6be9be87173baa4fdbed5c4.tar.gz tcl-30858a86531e0952e6be9be87173baa4fdbed5c4.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclTrace.c')
| -rw-r--r-- | generic/tclTrace.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclTrace.c b/generic/tclTrace.c index aed3c2e..1794723 100644 --- a/generic/tclTrace.c +++ b/generic/tclTrace.c @@ -433,7 +433,7 @@ TraceExecutionObjCmd( * pointer to its array of element pointers. */ - result = Tcl_ListObjGetElements(interp, objv[4], &listLen, &elemPtrs); + result = TclListObjGetElements(interp, objv[4], &listLen, &elemPtrs); if (result != TCL_OK) { return result; } @@ -603,7 +603,7 @@ TraceExecutionObjCmd( TclNewLiteralStringObj(opObj, "leavestep"); Tcl_ListObjAppendElement(NULL, elemObjPtr, opObj); } - Tcl_ListObjLength(NULL, elemObjPtr, &numOps); + TclListObjLength(NULL, elemObjPtr, &numOps); if (0 == numOps) { Tcl_DecrRefCount(elemObjPtr); continue; @@ -674,7 +674,7 @@ TraceCommandObjCmd( * pointer to its array of element pointers. */ - result = Tcl_ListObjGetElements(interp, objv[4], &listLen, &elemPtrs); + result = TclListObjGetElements(interp, objv[4], &listLen, &elemPtrs); if (result != TCL_OK) { return result; } @@ -798,7 +798,7 @@ TraceCommandObjCmd( TclNewLiteralStringObj(opObj, "delete"); Tcl_ListObjAppendElement(NULL, elemObjPtr, opObj); } - Tcl_ListObjLength(NULL, elemObjPtr, &numOps); + TclListObjLength(NULL, elemObjPtr, &numOps); if (0 == numOps) { Tcl_DecrRefCount(elemObjPtr); continue; @@ -873,7 +873,7 @@ TraceVariableObjCmd( * pointer to its array of element pointers. */ - result = Tcl_ListObjGetElements(interp, objv[4], &listLen, &elemPtrs); + result = TclListObjGetElements(interp, objv[4], &listLen, &elemPtrs); if (result != TCL_OK) { return result; } |