diff options
author | dgp <dgp@users.sourceforge.net> | 2018-03-05 17:18:14 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2018-03-05 17:18:14 (GMT) |
commit | 1dbb35b63b9a5a7652ae5a7dea98a9aaaacd90c9 (patch) | |
tree | ea54c3809ffda2a5ab58411219b83791855bb0ad /generic/tclCompile.h | |
parent | a9e916f1b99088ecc8185ace75245d6801aebaf6 (diff) | |
parent | 4d47b7f97f1448f48096511c8dff4bfffef17007 (diff) | |
download | tcl-1dbb35b63b9a5a7652ae5a7dea98a9aaaacd90c9.zip tcl-1dbb35b63b9a5a7652ae5a7dea98a9aaaacd90c9.tar.gz tcl-1dbb35b63b9a5a7652ae5a7dea98a9aaaacd90c9.tar.bz2 |
merge 8.7
Diffstat (limited to 'generic/tclCompile.h')
-rw-r--r-- | generic/tclCompile.h | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index aba3dc6..cb2576e 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -1137,6 +1137,7 @@ MODULE_SCOPE int TclFixupForwardJump(CompileEnv *envPtr, int distThreshold); MODULE_SCOPE void TclFreeCompileEnv(CompileEnv *envPtr); MODULE_SCOPE void TclFreeJumpFixupArray(JumpFixupArray *fixupArrayPtr); +MODULE_SCOPE int TclGetIndexFromToken(Tcl_Token *tokenPtr, int *index); MODULE_SCOPE ByteCode * TclInitByteCode(CompileEnv *envPtr); MODULE_SCOPE ByteCode * TclInitByteCodeObj(Tcl_Obj *objPtr, const Tcl_ObjType *typePtr, CompileEnv *envPtr); @@ -1680,6 +1681,12 @@ MODULE_SCOPE int TclPushProcCallFrame(ClientData clientData, #define TCL_NO_ELEMENT 2 /* Do not push the array element. */ /* + * Special value used by TclGetIndexFromToken to encoding the "end" index. + */ + +#define TCL_INDEX_END (-2) + +/* * DTrace probe macros (NOPs if DTrace support is not enabled). */ |