diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-08-09 22:20:52 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-08-09 22:20:52 (GMT) |
| commit | 872dbedfd8d5080ae12fb1f69f6e112c6f3ecc2b (patch) | |
| tree | d8c8b5f5473a42f971f3e829b6b1c19c37f987f4 /generic/tclBasic.c | |
| parent | 7d8ba3fe1315d64a484a885d7678e384fec71811 (diff) | |
| download | tcl-872dbedfd8d5080ae12fb1f69f6e112c6f3ecc2b.zip tcl-872dbedfd8d5080ae12fb1f69f6e112c6f3ecc2b.tar.gz tcl-872dbedfd8d5080ae12fb1f69f6e112c6f3ecc2b.tar.bz2 | |
* generic/tclBasic.c: slight cleanup
* generic/tclCompile.h:
* generic/tclExecute.c:
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 1133c4c..b1ceab7 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -16,7 +16,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclBasic.c,v 1.351 2008/08/07 04:13:50 msofer Exp $ + * RCS: @(#) $Id: tclBasic.c,v 1.352 2008/08/09 22:20:56 msofer Exp $ */ #include "tclInt.h" @@ -777,9 +777,11 @@ Tcl_CreateInterp(void) */ Tcl_NRCreateCommand(interp, "::tcl::unsupported::atProcExit", - /*objProc*/ NULL, TclNRAtProcExitObjCmd, INT2PTR(0), NULL); + /*objProc*/ NULL, TclNRAtProcExitObjCmd, INT2PTR(TCL_NR_ATEXIT_TYPE), + NULL); Tcl_NRCreateCommand(interp, "::tcl::unsupported::tailcall", - /*objProc*/ NULL, TclNRAtProcExitObjCmd, INT2PTR(1), NULL); + /*objProc*/ NULL, TclNRAtProcExitObjCmd, INT2PTR(TCL_NR_TAILCALL_TYPE), + NULL); #ifdef USE_DTRACE /* @@ -4274,6 +4276,7 @@ NRCallTEBC( case TCL_NR_BC_TYPE: return TclExecuteByteCode(interp, data[1]); case TCL_NR_ATEXIT_TYPE: + case TCL_NR_TAILCALL_TYPE: /* For atProcExit and tailcalls */ Tcl_SetResult(interp, "atProcExit/tailcall can only be called from a proc or lambda", TCL_STATIC); @@ -7880,9 +7883,7 @@ TclNRAtProcExitObjCmd( */ TclNRAddCallback(interp, NRAtProcExitEval, listPtr, nsPtr, NULL, NULL); - TclNRAddCallback(interp, NRCallTEBC, INT2PTR(TCL_NR_ATEXIT_TYPE), clientData, - NULL, NULL); - + TclNRAddCallback(interp, NRCallTEBC, clientData, NULL, NULL, NULL); return TCL_OK; } |