diff options
| author | msofer <msofer@noemail.net> | 2009-03-21 09:42:06 (GMT) |
|---|---|---|
| committer | msofer <msofer@noemail.net> | 2009-03-21 09:42:06 (GMT) |
| commit | 1635716dd679eaa880af6366961f3426fce67890 (patch) | |
| tree | e8e1c28643010bdcc4334464e09bcae493800483 /generic/tclInt.h | |
| parent | 0d0649efc5a8f4d1bf7bfa1df8b4a01ac7d4253e (diff) | |
| download | tcl-1635716dd679eaa880af6366961f3426fce67890.zip tcl-1635716dd679eaa880af6366961f3426fce67890.tar.gz tcl-1635716dd679eaa880af6366961f3426fce67890.tar.bz2 | |
* generic/tclBasic.c: Fix for (among others) [Bug 2699087]
* generic/tclCmdAH.c: Tailcalls now perform properly even from
* generic/tclExecute.c: within [eval]ed scripts.
* generic/tclInt.h: More tests missing, as well as proper
exploration and testing of the interaction with "redirectors" like
interp-alias (suspect that it does not happen in constant space)
and pure-eval commands.
FossilOrigin-Name: 8145ecc0e68b9f057214c880686a78b20c727c73
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 48473bd..3c45cc1 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -15,7 +15,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.419 2009/03/19 23:31:37 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.420 2009/03/21 09:42:07 msofer Exp $ */ #ifndef _TCLINT @@ -2603,6 +2603,10 @@ MODULE_SCOPE Tcl_ObjCmdProc TclNRTailcallObjCmd; MODULE_SCOPE Tcl_ObjCmdProc TclNRCoroutineObjCmd; MODULE_SCOPE Tcl_ObjCmdProc TclNRYieldObjCmd; +MODULE_SCOPE void TclClearTailcall(Tcl_Interp *interp, + struct TEOV_callback *tailcallPtr); + + /* *---------------------------------------------------------------- * Procedures shared among Tcl modules but not used by the outside world: |