summaryrefslogtreecommitdiffstats
path: root/generic/tclCompile.h
diff options
context:
space:
mode:
authorsebres <sebres@users.sourceforge.net>2018-03-06 21:59:53 (GMT)
committersebres <sebres@users.sourceforge.net>2018-03-06 21:59:53 (GMT)
commitc68d043691c94408564f252d18ffce9db7afcdad (patch)
tree5a1460a54614cad65c05bc701af60e3f173f0d4c /generic/tclCompile.h
parent465d28aa75b2835484face7df25b073b09f81f7c (diff)
downloadtcl-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.h6
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).