diff options
author | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-13 17:11:47 (GMT) |
---|---|---|
committer | Miguel Sofer <miguel.sofer@gmail.com> | 2009-12-13 17:11:47 (GMT) |
commit | 64cd452abe0622edb368d64ef22b368689b6cc86 (patch) | |
tree | 308535394c93daef6801a789aefdf38a27605407 /generic/tclNamesp.c | |
parent | eb5b16a4cf09bf5b1a7d496074935db1ed60eed2 (diff) | |
download | tcl-64cd452abe0622edb368d64ef22b368689b6cc86.zip tcl-64cd452abe0622edb368d64ef22b368689b6cc86.tar.gz tcl-64cd452abe0622edb368d64ef22b368689b6cc86.tar.bz2 |
* generic/tclBasic.c: Release TclPopCallFrame() from its
* generic/tclExecute.c: tailcall-management duties
* generic/tclNamesp.c:
Diffstat (limited to 'generic/tclNamesp.c')
-rw-r--r-- | generic/tclNamesp.c | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/generic/tclNamesp.c b/generic/tclNamesp.c index dbeb70d..507007d 100644 --- a/generic/tclNamesp.c +++ b/generic/tclNamesp.c @@ -23,7 +23,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclNamesp.c,v 1.197 2009/12/06 20:35:41 msofer Exp $ + * RCS: @(#) $Id: tclNamesp.c,v 1.198 2009/12/13 17:11:47 msofer Exp $ */ #include "tclInt.h" @@ -456,7 +456,6 @@ Tcl_PushCallFrame( * Modifies the call stack of the interpreter. Resets various fields of * the popped call frame. If a namespace has been deleted and has no more * activations on the call stack, the namespace is destroyed. - * Schedules a tailcall if one is present. * *---------------------------------------------------------------------- */ @@ -508,10 +507,6 @@ Tcl_PopCallFrame( Tcl_DeleteNamespace((Tcl_Namespace *) nsPtr); } framePtr->nsPtr = NULL; - - if (framePtr->tailcallPtr) { - TclSpliceTailcall(interp, framePtr->tailcallPtr); - } } /* |