diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-08-07 04:13:49 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-08-07 04:13:49 (GMT) |
| commit | 62d36886b926591b14c230558c64c8ccc85cbb82 (patch) | |
| tree | 26cfbd7a3f089a2bb3f53d5644eede7418f4f529 /generic/tclInt.h | |
| parent | 4c3c492b67b48506cdf77c1f146af9f4318f24c1 (diff) | |
| download | tcl-62d36886b926591b14c230558c64c8ccc85cbb82.zip tcl-62d36886b926591b14c230558c64c8ccc85cbb82.tar.gz tcl-62d36886b926591b14c230558c64c8ccc85cbb82.tar.bz2 | |
* generic/tclBasic.c: Fix tailcalls falling out of tebc into
* generic/tclExecute.c: Tcl_EvalEx [Bug 2017946]
* generic/tclInt.h:
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index a7991ab..5b8f104 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.388 2008/08/03 17:49:09 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.389 2008/08/07 04:13:52 msofer Exp $ */ #ifndef _TCLINT @@ -1964,6 +1964,11 @@ typedef struct Interp { * tclOOInt.h and tclOO.c for real definition * and setup. */ + struct TEOV_callback *atExitPtr; + /* Callbacks to be run after a command exited; + * this is only set for atProcExirt or + * tailcalls that fall back out of tebc. */ + #ifdef TCL_COMPILE_STATS /* * Statistical information about the bytecode compiler and interpreter's |