diff options
| author | dgp <dgp@users.sourceforge.net> | 2023-01-30 15:37:41 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2023-01-30 15:37:41 (GMT) |
| commit | d3dae9eba4c8d979d72feddfded60eb08835543d (patch) | |
| tree | aa8382a7ae95f8a32dd49a411378ca96286a6e4f /generic/tclBasic.c | |
| parent | 7f87f0f8ea86cf01682eb02e4fa8c313dc6ef4ef (diff) | |
| download | tcl-d3dae9eba4c8d979d72feddfded60eb08835543d.zip tcl-d3dae9eba4c8d979d72feddfded60eb08835543d.tar.gz tcl-d3dae9eba4c8d979d72feddfded60eb08835543d.tar.bz2 | |
silence compiler warning
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index cdaf6fe..a31bfb6 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -9919,7 +9919,7 @@ TclNRCoroutineActivateCallback( if (corPtr->yieldPtr) { for (runPtr = TOP_CB(interp); runPtr; runPtr = runPtr->nextPtr) { if (runPtr->data[1] == corPtr->yieldPtr) { - Tcl_DecrRefCount(runPtr->data[1]); + Tcl_DecrRefCount((Tcl_Obj *)runPtr->data[1]); runPtr->data[1] = NULL; corPtr->yieldPtr = NULL; break; |