diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-11-30 03:08:24 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-11-30 03:08:24 (GMT) |
| commit | 0004d6152456219c0ef09046c169ad3ad7532ee1 (patch) | |
| tree | bb5f071fb83fa1a52081ec9e34f37ac224c825dd /generic/tclInt.h | |
| parent | 673569a56fe781a8d50e13bd0057ac451698a065 (diff) | |
| download | tcl-0004d6152456219c0ef09046c169ad3ad7532ee1.zip tcl-0004d6152456219c0ef09046c169ad3ad7532ee1.tar.gz tcl-0004d6152456219c0ef09046c169ad3ad7532ee1.tar.bz2 | |
Route all [string repeat] operations through a common implementation.
Code that to preserve bytearrays, eliminate unnecessary string rep
generation, increase efficiency, and encapsulate access to internal rep
details.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 4257ea1..8f85f19 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3147,6 +3147,8 @@ MODULE_SCOPE int TclStringMatch(const char *str, int strLen, MODULE_SCOPE int TclStringMatchObj(Tcl_Obj *stringObj, Tcl_Obj *patternObj, int flags); MODULE_SCOPE Tcl_Obj * TclStringObjReverse(Tcl_Obj *objPtr); +MODULE_SCOPE int TclStringRepeat(Tcl_Interp *interp, Tcl_Obj *objPtr, + int count, Tcl_Obj **objPtrPtr); MODULE_SCOPE void TclSubstCompile(Tcl_Interp *interp, const char *bytes, int numBytes, int flags, int line, struct CompileEnv *envPtr); |