diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2010-04-24 17:07:31 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2010-04-24 17:07:31 (GMT) |
| commit | eac8ecf3bb3d3d4cc99c78f12abf28cf9e408174 (patch) | |
| tree | d59a6f9ca7c0173219c9823ef65353c715633f70 /generic/tclInt.h | |
| parent | 31f9ebcae6f4c9e30de64b164c8e35f1f13db6e1 (diff) | |
| download | tcl-eac8ecf3bb3d3d4cc99c78f12abf28cf9e408174.zip tcl-eac8ecf3bb3d3d4cc99c78f12abf28cf9e408174.tar.gz tcl-eac8ecf3bb3d3d4cc99c78f12abf28cf9e408174.tar.bz2 | |
* generic/tclBasic.test: modify api of TclSpliceTailcall()
* generic/tclExecute.c: to fix yieldTo, which had not survived
* generic/tclInt.h: the latest mods to tailcall. Thanks kbk
for detecting the problem.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index d04bd07..28b0e3c 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.469 2010/04/22 11:40:31 nijtmans Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.470 2010/04/24 17:07:32 msofer Exp $ */ #ifndef _TCLINT @@ -2756,7 +2756,8 @@ 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); + struct TEOV_callback *tailcallPtr, + int skip); /* * This structure holds the data for the various iteration callbacks used to |