diff options
| author | griffin <briang42@easystreet.net> | 2023-08-12 23:14:43 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2023-08-12 23:14:43 (GMT) |
| commit | baa91f87baabfa31e9174c78f76125d98d891b4e (patch) | |
| tree | c9a925bd14a109fd68acf52b65f5cbb180639be4 /generic/tclCmdIL.c | |
| parent | 946847b4b9f3b9b7aa252d830921d41033d5175b (diff) | |
| download | tcl-baa91f87baabfa31e9174c78f76125d98d891b4e.zip tcl-baa91f87baabfa31e9174c78f76125d98d891b4e.tar.gz tcl-baa91f87baabfa31e9174c78f76125d98d891b4e.tar.bz2 | |
Rename Tcl_BumpObj() to Tcl_BounceRefCount().
After the presentation on Abstract Lists at the 2023 OpenACS/Tcl
Conference, there was a strong opinion that this function should be
renamed. The results of an informal poll had a tie between
Tcl_DoneWithObj() and Tcl_BounceRefCount(). Having seen a reference to
"Bounce" in a research paper on Ref Counting, I chose to use
Tcl_BounceRefCount().
Diffstat (limited to 'generic/tclCmdIL.c')
| -rw-r--r-- | generic/tclCmdIL.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c index 663d962..e90b793 100644 --- a/generic/tclCmdIL.c +++ b/generic/tclCmdIL.c @@ -3754,7 +3754,7 @@ Tcl_LsearchObjCmd( i = (lower + upper)/2; i -= i % groupSize; - Tcl_BumpObj(itemPtr); + Tcl_BounceRefCount(itemPtr); itemPtr = NULL; if (sortInfo.indexc != 0) { @@ -3855,7 +3855,7 @@ Tcl_LsearchObjCmd( } for (i = start; i < listc; i += groupSize) { match = 0; - Tcl_BumpObj(itemPtr); + Tcl_BounceRefCount(itemPtr); itemPtr = NULL; if (sortInfo.indexc != 0) { @@ -3957,7 +3957,7 @@ Tcl_LsearchObjCmd( */ if (returnSubindices && (sortInfo.indexc != 0)) { - Tcl_BumpObj(itemPtr); + Tcl_BounceRefCount(itemPtr); itemPtr = SelectObjFromSublist(listv[i+groupOffset], &sortInfo); Tcl_ListObjAppendElement(interp, listPtr, itemPtr); @@ -3965,7 +3965,7 @@ Tcl_LsearchObjCmd( Tcl_ListObjReplace(interp, listPtr, LIST_MAX, 0, groupSize, &listv[i]); } else { - Tcl_BumpObj(itemPtr); + Tcl_BounceRefCount(itemPtr); itemPtr = listv[i]; Tcl_ListObjAppendElement(interp, listPtr, itemPtr); } @@ -3986,7 +3986,7 @@ Tcl_LsearchObjCmd( } } - Tcl_BumpObj(itemPtr); + Tcl_BounceRefCount(itemPtr); itemPtr = NULL; /* @@ -4037,7 +4037,7 @@ Tcl_LsearchObjCmd( done: /* potential lingering abstract list element */ - Tcl_BumpObj(itemPtr); + Tcl_BounceRefCount(itemPtr); if (startPtr != NULL) { Tcl_DecrRefCount(startPtr); @@ -5582,7 +5582,7 @@ SelectObjFromSublist( return NULL; } objPtr = currentObj; - Tcl_BumpObj(lastObj); + Tcl_BounceRefCount(lastObj); lastObj = currentObj; } return objPtr; |