diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2010-08-18 15:44:09 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2010-08-18 15:44:09 (GMT) |
| commit | 096e06e4b8606abecd8fe11c9919df4f35cf4d52 (patch) | |
| tree | f997dd6e04e669fc5c94627f3ab580c39c22fc71 /generic/tclInt.h | |
| parent | 8288b47f5e7647e90d8499bf5e45099b1651aa62 (diff) | |
| download | tcl-096e06e4b8606abecd8fe11c9919df4f35cf4d52.zip tcl-096e06e4b8606abecd8fe11c9919df4f35cf4d52.tar.gz tcl-096e06e4b8606abecd8fe11c9919df4f35cf4d52.tar.bz2 | |
* generic/tclBasic.c: Redesign of [tailcall] to
* generic/tclCmdAH.c: (a) fix #3047235
* generic/tclCompile.h: (b) enable fix for #3046594
* generic/tclExecute.c: (c) enable recursive tailcalls
* generic/tclInt.h:
* generic/tclNamesp.c:
* tests/tailcall.test:
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 3d30581..2f18375 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.479 2010/08/14 17:13:02 nijtmans Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.480 2010/08/18 15:44:12 msofer Exp $ */ #ifndef _TCLINT @@ -2759,8 +2759,9 @@ MODULE_SCOPE Tcl_ObjCmdProc TclNRYieldToObjCmd; MODULE_SCOPE void TclClearTailcall(Tcl_Interp *interp, struct TEOV_callback *tailcallPtr); MODULE_SCOPE void TclSpliceTailcall(Tcl_Interp *interp, - struct TEOV_callback *tailcallPtr, - int skip); + struct TEOV_callback *tailcallPtr); +MODULE_SCOPE Tcl_NRPostProc TclNRBlockTailcall; + /* * This structure holds the data for the various iteration callbacks used to |