diff options
author | dgp <dgp@users.sourceforge.net> | 2011-03-06 21:40:49 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2011-03-06 21:40:49 (GMT) |
commit | fd6fca64b22fb61b91f21205b8d73bf2df99b0b0 (patch) | |
tree | 1e5dfeeb51ead4be18b7b7c5b8ea728553409480 /generic/tclCompExpr.c | |
parent | 8806ae12c852e8ebb3e9e55ed0d0299d416fdf8a (diff) | |
download | tcl-fd6fca64b22fb61b91f21205b8d73bf2df99b0b0.zip tcl-fd6fca64b22fb61b91f21205b8d73bf2df99b0b0.tar.gz tcl-fd6fca64b22fb61b91f21205b8d73bf2df99b0b0.tar.bz2 |
* generic/tclBasic.c: More replacements of Tcl_UtfBackslash() calls
* generic/tclCmdMZ.c: with TclParseBackslash() where possible.
* generic/tclCompExpr.c:
* generic/tclCompile.c:
* generic/tclUtil.c:
Diffstat (limited to 'generic/tclCompExpr.c')
-rw-r--r-- | generic/tclCompExpr.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c index a03b005..68533c5 100644 --- a/generic/tclCompExpr.c +++ b/generic/tclCompExpr.c @@ -387,8 +387,8 @@ CompileSubExpr(exprTokenPtr, infoPtr, envPtr) break; case TCL_TOKEN_BS: - length = Tcl_UtfBackslash(tokenPtr->start, (int *) NULL, - buffer); + length = TclParseBackslash(tokenPtr->start, tokenPtr->size, + (int *) NULL, buffer); if (length > 0) { objIndex = TclRegisterNewLiteral(envPtr, buffer, length); } else { |