diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2012-04-25 12:07:45 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2012-04-25 12:07:45 (GMT) |
| commit | 48b4ced1fb2381c99f9bb47352a5115e4d8971ed (patch) | |
| tree | 9287ec35f60eeed086288278741ae7b69817beda /generic/tclRegexp.c | |
| parent | e0311d16a8f5d0e2a740f60e623439d13b052b76 (diff) | |
| download | tcl-48b4ced1fb2381c99f9bb47352a5115e4d8971ed.zip tcl-48b4ced1fb2381c99f9bb47352a5115e4d8971ed.tar.gz tcl-48b4ced1fb2381c99f9bb47352a5115e4d8971ed.tar.bz2 | |
* generic/tclUtil.c (TclDStringToObj): Added internal function to make
the fairly-common operation of converting a DString into an Obj a more
efficient one.
Diffstat (limited to 'generic/tclRegexp.c')
| -rw-r--r-- | generic/tclRegexp.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclRegexp.c b/generic/tclRegexp.c index 5c5af7b..53d7153 100644 --- a/generic/tclRegexp.c +++ b/generic/tclRegexp.c @@ -947,10 +947,8 @@ CompileRegexp( */ if (TclReToGlob(NULL, string, length, &stringBuf, &exact) == TCL_OK) { - regexpPtr->globObjPtr = Tcl_NewStringObj(Tcl_DStringValue(&stringBuf), - Tcl_DStringLength(&stringBuf)); + regexpPtr->globObjPtr = TclDStringToObj(&stringBuf); Tcl_IncrRefCount(regexpPtr->globObjPtr); - Tcl_DStringFree(&stringBuf); } else { regexpPtr->globObjPtr = NULL; } |