diff options
| author | dgp <dgp@users.sourceforge.net> | 2018-03-01 16:48:55 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2018-03-01 16:48:55 (GMT) |
| commit | 2cd8bf554e767af28e60465bb3f683399421e0f6 (patch) | |
| tree | 85f0a7042d05fb8fd539a0f9637b47fca32122fa /generic/tclCompile.h | |
| parent | 468041eef83fe018271ded25cba571f57372fe7f (diff) | |
| download | tcl-2cd8bf554e767af28e60465bb3f683399421e0f6.zip tcl-2cd8bf554e767af28e60465bb3f683399421e0f6.tar.gz tcl-2cd8bf554e767af28e60465bb3f683399421e0f6.tar.bz2 | |
Refactor to eliminate duplicate routine parsing tokens as indices.
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 c04fc0e..1c64a21 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -1121,6 +1121,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 void TclInitByteCodeObj(Tcl_Obj *objPtr, CompileEnv *envPtr); MODULE_SCOPE void TclInitCompileEnv(Tcl_Interp *interp, @@ -1684,6 +1685,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). */ |