diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2008-08-03 17:33:10 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2008-08-03 17:33:10 (GMT) |
| commit | 245ab4ae255929317069b92446f66b83c901b8f8 (patch) | |
| tree | afb13d0a8600f288efd20fab3dfb00080fedb57c /generic/tclInt.h | |
| parent | 4e05e9902f3b5f40de10d672ed0c5e1a106dc8ae (diff) | |
| download | tcl-245ab4ae255929317069b92446f66b83c901b8f8.zip tcl-245ab4ae255929317069b92446f66b83c901b8f8.tar.gz tcl-245ab4ae255929317069b92446f66b83c901b8f8.tar.bz2 | |
* generic/tclBasic.c: new unsupported command atProcExit
* generic/tclCompile.h: that shares the implementation with
* generic/tclExecute.c: tailcall. Fixed a segfault in
* generic/tclInt.h: tailcalls. Tests added.
* generic/tclInterp.c:
* generic/tclNamesp.c:
* tests/unsupported.test:
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 31114e9..ecd0300 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.386 2008/07/31 20:01:40 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.387 2008/08/03 17:33:10 msofer Exp $ */ #ifndef _TCLINT @@ -2029,7 +2029,7 @@ typedef struct InterpList { * other than these should be turned into errors. */ -#define TCL_ALLOW_EXCEPTIONS 4 +#define TCL_ALLOW_EXCEPTIONS 4 #define TCL_EVAL_FILE 2 #define TCL_EVAL_CTX 8 @@ -2534,13 +2534,12 @@ MODULE_SCOPE Tcl_ObjCmdProc TclNRIfObjCmd; MODULE_SCOPE Tcl_ObjCmdProc TclNRWhileObjCmd; MODULE_SCOPE Tcl_NRPostProc TclNRForIterCallback; -MODULE_SCOPE Tcl_ObjCmdProc TclTailcallObjCmd; +MODULE_SCOPE Tcl_ObjCmdProc TclNRAtProcExitObjCmd; +MODULE_SCOPE Tcl_ObjCmdProc TclAtProcExitObjCmd; MODULE_SCOPE int TclNREvalCmd(Tcl_Interp * interp, Tcl_Obj * objPtr, int flags); -MODULE_SCOPE void TclNRClearCommandFlag(Tcl_Interp *interp); - MODULE_SCOPE void TclAdvanceLines(int *line, const char *start, const char *end); MODULE_SCOPE void TclArgumentEnter(Tcl_Interp* interp, |