diff options
| author | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-12 12:40:34 (GMT) |
|---|---|---|
| committer | pooryorick <com.digitalsmarties@pooryorick.com> | 2018-02-12 12:40:34 (GMT) |
| commit | 1553090bc312c0691df9549983c1d25542c16ef5 (patch) | |
| tree | 63c3342ef3fcaf46cc58d6888da237b54ded0df9 /generic/tclBasic.c | |
| parent | f4babdb0acc66d9d4eda61a094f12f99a24b8915 (diff) | |
| download | tcl-1553090bc312c0691df9549983c1d25542c16ef5.zip tcl-1553090bc312c0691df9549983c1d25542c16ef5.tar.gz tcl-1553090bc312c0691df9549983c1d25542c16ef5.tar.bz2 | |
Add remaining wrapper to the NR functions, remaining calls to
TCL_NRAddCallback, and a test for a package require script that yields.
DGP: This checkin introduces a memleak, detected by test compExpr-7.1.
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index ddc828a..e2319d2 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -234,7 +234,7 @@ static const CmdInfo builtInCmds[] = { {"lsearch", Tcl_LsearchObjCmd, NULL, NULL, CMD_IS_SAFE}, {"lset", Tcl_LsetObjCmd, TclCompileLsetCmd, NULL, CMD_IS_SAFE}, {"lsort", Tcl_LsortObjCmd, NULL, NULL, CMD_IS_SAFE}, - {"package", Tcl_PackageObjCmd, NULL, NULL, CMD_IS_SAFE}, + {"package", Tcl_PackageObjCmd, NULL, TclNRPackageObjCmd, CMD_IS_SAFE}, {"proc", Tcl_ProcObjCmd, NULL, NULL, CMD_IS_SAFE}, {"regexp", Tcl_RegexpObjCmd, TclCompileRegexpCmd, NULL, CMD_IS_SAFE}, {"regsub", Tcl_RegsubObjCmd, TclCompileRegsubCmd, NULL, CMD_IS_SAFE}, @@ -4428,6 +4428,8 @@ TclNRRunCallbacks( (void) Tcl_GetObjResult(interp); } + /* This is the trampoline. */ + while (TOP_CB(interp) != rootPtr) { callbackPtr = TOP_CB(interp); procPtr = callbackPtr->procPtr; |