diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-14 23:14:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-14 23:14:13 (GMT) |
| commit | a5c9c7fed13da8475710caa5e059b46ab22b4fe4 (patch) | |
| tree | 7daf2e8bb5a2ae15b9c8deafa538e445a921ca9e /generic/tclInt.h | |
| parent | 46ed0441c3f458d86557c1813efb3b34c389a0e3 (diff) | |
| parent | 9e3724ae417191dfc027b285d015f7ca332c9204 (diff) | |
| download | tcl-a5c9c7fed13da8475710caa5e059b46ab22b4fe4.zip tcl-a5c9c7fed13da8475710caa5e059b46ab22b4fe4.tar.gz tcl-a5c9c7fed13da8475710caa5e059b46ab22b4fe4.tar.bz2 | |
Some restructuring. Now compiles/runs fine with TCL_UTF_MAX=3
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 2a04aca..75f8858 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4143,30 +4143,30 @@ MODULE_SCOPE Tcl_Obj * TclStringReverse(Tcl_Obj *objPtr, int flags); MODULE_SCOPE Var * TclObjLookupVarEx(Tcl_Interp * interp, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags, - const char *msg, const int createPart1, - const int createPart2, Var **arrayPtrPtr); + const char *msg, int createPart1, + int createPart2, Var **arrayPtrPtr); MODULE_SCOPE Var * TclLookupArrayElement(Tcl_Interp *interp, Tcl_Obj *arrayNamePtr, Tcl_Obj *elNamePtr, - const int flags, const char *msg, - const int createPart1, const int createPart2, + int flags, const char *msg, + int createPart1, int createPart2, Var *arrayPtr, int index); MODULE_SCOPE Tcl_Obj * TclPtrGetVarIdx(Tcl_Interp *interp, Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, const int flags, int index); + Tcl_Obj *part2Ptr, int flags, int index); MODULE_SCOPE Tcl_Obj * TclPtrSetVarIdx(Tcl_Interp *interp, Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *newValuePtr, - const int flags, int index); + int flags, int index); MODULE_SCOPE Tcl_Obj * TclPtrIncrObjVarIdx(Tcl_Interp *interp, Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, Tcl_Obj *incrPtr, - const int flags, int index); + int flags, int index); MODULE_SCOPE int TclPtrObjMakeUpvarIdx(Tcl_Interp *interp, Var *otherPtr, Tcl_Obj *myNamePtr, int myFlags, int index); MODULE_SCOPE int TclPtrUnsetVarIdx(Tcl_Interp *interp, Var *varPtr, Var *arrayPtr, Tcl_Obj *part1Ptr, - Tcl_Obj *part2Ptr, const int flags, + Tcl_Obj *part2Ptr, int flags, int index); MODULE_SCOPE void TclInvalidateNsPath(Namespace *nsPtr); MODULE_SCOPE void TclFindArrayPtrElements(Var *arrayPtr, |