diff options
author | sebres <sebres@users.sourceforge.net> | 2018-03-06 21:59:53 (GMT) |
---|---|---|
committer | sebres <sebres@users.sourceforge.net> | 2018-03-06 21:59:53 (GMT) |
commit | c68d043691c94408564f252d18ffce9db7afcdad (patch) | |
tree | 5a1460a54614cad65c05bc701af60e3f173f0d4c /generic/tclCompile.h | |
parent | 465d28aa75b2835484face7df25b073b09f81f7c (diff) | |
download | tcl-c68d043691c94408564f252d18ffce9db7afcdad.zip tcl-c68d043691c94408564f252d18ffce9db7afcdad.tar.gz tcl-c68d043691c94408564f252d18ffce9db7afcdad.tar.bz2 |
try to fix [db36fa5122]: better compiled variants of several indices-related commands, test-cases extended
Diffstat (limited to 'generic/tclCompile.h')
-rw-r--r-- | generic/tclCompile.h | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 1c64a21..2f23b90 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -1121,7 +1121,8 @@ 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 int TclGetIndexFromToken(Tcl_Token *tokenPtr, int *index, + int minBoundary, int maxBoundary); MODULE_SCOPE void TclInitByteCodeObj(Tcl_Obj *objPtr, CompileEnv *envPtr); MODULE_SCOPE void TclInitCompileEnv(Tcl_Interp *interp, @@ -1688,7 +1689,8 @@ MODULE_SCOPE int TclPushProcCallFrame(ClientData clientData, * Special value used by TclGetIndexFromToken to encoding the "end" index. */ -#define TCL_INDEX_END (-2) +#define TCL_INDEX_END (-2) +#define TCL_INDEX_OUT_OF_RANGE (-1) /* * DTrace probe macros (NOPs if DTrace support is not enabled). |