diff options
Diffstat (limited to 'tk/unix/tkUnixFont.c')
| -rw-r--r-- | tk/unix/tkUnixFont.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tk/unix/tkUnixFont.c b/tk/unix/tkUnixFont.c index ce240df7ebb..3daea3273bc 100644 --- a/tk/unix/tkUnixFont.c +++ b/tk/unix/tkUnixFont.c @@ -406,7 +406,7 @@ ControlUtfProc(clientData, src, srcLen, flags, statePtr, dst, dstLen, * correspond to the bytes stored in the * output buffer. */ { - CONST char *srcEnd; + CONST char *srcStart, *srcEnd; char *dstStart, *dstEnd; Tcl_UniChar ch; int result; @@ -416,8 +416,9 @@ ControlUtfProc(clientData, src, srcLen, flags, statePtr, dst, dstLen, 'a', 'b', 't', 'n', 'v', 'f', 'r' }; - result = TCL_OK; + result = TCL_OK; + srcStart = src; srcEnd = src + srcLen; dstStart = dst; @@ -447,7 +448,7 @@ ControlUtfProc(clientData, src, srcLen, flags, statePtr, dst, dstLen, dst += 6; } } - *srcReadPtr = src - srcEnd; + *srcReadPtr = src - srcStart; *dstWrotePtr = dst - dstStart; *dstCharsPtr = dst - dstStart; return result; |