summaryrefslogtreecommitdiffstats
path: root/generic/tclBasic.c
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2008-08-09 22:20:52 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2008-08-09 22:20:52 (GMT)
commit872dbedfd8d5080ae12fb1f69f6e112c6f3ecc2b (patch)
treed8c8b5f5473a42f971f3e829b6b1c19c37f987f4 /generic/tclBasic.c
parent7d8ba3fe1315d64a484a885d7678e384fec71811 (diff)
downloadtcl-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.c13
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;
}