summaryrefslogtreecommitdiffstats
path: root/generic/tclCompExpr.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2011-03-06 21:40:49 (GMT)
committerdgp <dgp@users.sourceforge.net>2011-03-06 21:40:49 (GMT)
commita083ddc8208f8e9f625ef92db90f941262a260a6 (patch)
tree1e5dfeeb51ead4be18b7b7c5b8ea728553409480 /generic/tclCompExpr.c
parent030be92318aa1d4b37a84fae9614fe5a77f890ba (diff)
downloadtcl-a083ddc8208f8e9f625ef92db90f941262a260a6.zip
tcl-a083ddc8208f8e9f625ef92db90f941262a260a6.tar.gz
tcl-a083ddc8208f8e9f625ef92db90f941262a260a6.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.c4
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 {