diff options
-rw-r--r-- | generic/tclBasic.c | 2 | ||||
-rw-r--r-- | generic/tclNRE.h | 2 |
2 files changed, 0 insertions, 4 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index b73aeac..1ff8c90 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -4294,11 +4294,9 @@ TclNRRunCallbacks( POP_CB(interp, cbPtr); procPtr = cbPtr->procPtr; result = procPtr(cbPtr->data, interp, result); - FREE_CB(interp, cbPtr); } if (TOP_CB(interp)) { POP_CB(interp, cbPtr); - FREE_CB(interp, cbPtr); } return result; } diff --git a/generic/tclNRE.h b/generic/tclNRE.h index 86f25b5..1a72396 100644 --- a/generic/tclNRE.h +++ b/generic/tclNRE.h @@ -61,8 +61,6 @@ typedef struct NRE_stack { } \ } while (0) -#define FREE_CB(interp, cbPtr) - #define NEXT_CB(ptr) TclNextCallback(ptr) MODULE_SCOPE NRE_callback *TclNewCallback(Tcl_Interp *interp); |