diff options
author | dgp <dgp@users.sourceforge.net> | 2016-10-28 14:06:15 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2016-10-28 14:06:15 (GMT) |
commit | aa3b1573387624a3ea8723fbe59c5095628c6a3d (patch) | |
tree | 6c4cb117e520328dd5159d4a1eb8d8309e5f8160 /generic | |
parent | c205f272f77e648bb90364b971faf6581ab0a0f2 (diff) | |
download | tcl-aa3b1573387624a3ea8723fbe59c5095628c6a3d.zip tcl-aa3b1573387624a3ea8723fbe59c5095628c6a3d.tar.gz tcl-aa3b1573387624a3ea8723fbe59c5095628c6a3d.tar.bz2 |
Add obvious optimization to Tcl_GetCharLength().
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclStringObj.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/generic/tclStringObj.c b/generic/tclStringObj.c index 2930fa1..e878167 100644 --- a/generic/tclStringObj.c +++ b/generic/tclStringObj.c @@ -409,6 +409,15 @@ Tcl_GetCharLength( int numChars; /* + * Quick, no-shimmer return for short string reps. + */ + + if ((objPtr->bytes) && (objPtr->length < 2)) { + /* 0 bytes -> 0 chars; 1 byte -> 1 char */ + return objPtr->length; + } + + /* * Optimize the case where we're really dealing with a bytearray object * without string representation; we don't need to convert to a string to * perform the get-length operation. |