diff options
| author | dgp <dgp@noemail.net> | 2011-03-06 21:40:49 (GMT) |
|---|---|---|
| committer | dgp <dgp@noemail.net> | 2011-03-06 21:40:49 (GMT) |
| commit | eecfc2d1e8dd5347c4f1e580699bbca23baf39b5 (patch) | |
| tree | 1e5dfeeb51ead4be18b7b7c5b8ea728553409480 /generic/tclBasic.c | |
| parent | 140252686f7ebe10287c773cfd4f8602e541fe87 (diff) | |
| download | tcl-eecfc2d1e8dd5347c4f1e580699bbca23baf39b5.zip tcl-eecfc2d1e8dd5347c4f1e580699bbca23baf39b5.tar.gz tcl-eecfc2d1e8dd5347c4f1e580699bbca23baf39b5.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:
FossilOrigin-Name: 267149f8896c4f4c6c502e7c04310a6a69447410
Diffstat (limited to 'generic/tclBasic.c')
| -rw-r--r-- | generic/tclBasic.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index 60cd23a..1c72e1b 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -3647,8 +3647,8 @@ EvalTokensStandard(interp, tokenPtr, count, line, clNextOuter, outerScript) break; case TCL_TOKEN_BS: - length = Tcl_UtfBackslash(tokenPtr->start, (int *) NULL, - buffer); + length = TclParseBackslash(tokenPtr->start, tokenPtr->size, + (int *) NULL, buffer); p = buffer; #ifdef TCL_TIP280 /* @@ -4510,7 +4510,7 @@ TclAdvanceContinuations (line,clNextPtrPtr,loc) /* * Track the invisible continuation lines embedded in a script, if * any. Here they are just spaces (already). They were removed by - * EvalTokensStandard() via Tcl_UtfBackslash(). + * EvalTokensStandard() via TclParseBackslash(). * * *clNextPtrPtr <=> We have continuation lines to track. * **clNextPtrPtr >= 0 <=> We are not beyond the last possible location. |