diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2004-12-15 20:44:17 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2004-12-15 20:44:17 (GMT) |
| commit | 7cc2e79cf4a710fb1ed9a4540afca77935691d93 (patch) | |
| tree | 03db1466c686ac3541167c4b12439b026a69750f /generic/tclStubInit.c | |
| parent | 8d202a59e655c639ff65aee6e21308240a5f7052 (diff) | |
| download | tcl-7cc2e79cf4a710fb1ed9a4540afca77935691d93.zip tcl-7cc2e79cf4a710fb1ed9a4540afca77935691d93.tar.gz tcl-7cc2e79cf4a710fb1ed9a4540afca77935691d93.tar.bz2 | |
* generic/tclTest.c: Added two new functions to allocate memory
from the execution stack (TclStackAlloc, TclStackFree). Added
functions TclPushStackFrame and TclPopStackFrame that do the work
of Tcl_PushCallFrame and Tcl_PopCallFrame, but using frames
allocated in the execution stack - i.e., heap instead of
C-stack. The core uses these two new functions exclusively; the
old ones remain for backwards compat, as at least two popular
extensions (itcl, xotcl) are known to use them.
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 83218f9..7c302bc 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclStubInit.c,v 1.109 2004/12/01 23:18:53 dgp Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.110 2004/12/15 20:44:42 msofer Exp $ */ #include "tclInt.h" @@ -299,6 +299,10 @@ TclIntStubs tclIntStubs = { TclpFindExecutable, /* 212 */ TclGetObjNameOfExecutable, /* 213 */ TclSetObjNameOfExecutable, /* 214 */ + TclStackAlloc, /* 215 */ + TclStackFree, /* 216 */ + TclPushStackFrame, /* 217 */ + TclPopStackFrame, /* 218 */ }; TclIntPlatStubs tclIntPlatStubs = { |