diff options
author | Miguel Sofer <miguel.sofer@gmail.com> | 2016-01-16 10:30:23 (GMT) |
---|---|---|
committer | Miguel Sofer <miguel.sofer@gmail.com> | 2016-01-16 10:30:23 (GMT) |
commit | 4ca16830002ff3b694c541894dde64fa4462c8ef (patch) | |
tree | 383310c98009acda889d8fd6184e5891de3272d9 /generic | |
parent | 8beaa94c839778cfbe50eb7c46981aa386af9ce2 (diff) | |
download | tcl-4ca16830002ff3b694c541894dde64fa4462c8ef.zip tcl-4ca16830002ff3b694c541894dde64fa4462c8ef.tar.gz tcl-4ca16830002ff3b694c541894dde64fa4462c8ef.tar.bz2 |
remove empty macro
Diffstat (limited to 'generic')
-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); |