diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-27 13:18:16 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-27 13:18:16 (GMT) |
| commit | b1d47f7bfb156ff7692c3f50c29633642d30c0bc (patch) | |
| tree | 09da02289dea55ae712119ab9228662d1733ac93 /generic/tclTest.c | |
| parent | 4ce7f0cd8682a44257e7189572ad13566fd7dbf4 (diff) | |
| download | tcl-b1d47f7bfb156ff7692c3f50c29633642d30c0bc.zip tcl-b1d47f7bfb156ff7692c3f50c29633642d30c0bc.tar.gz tcl-b1d47f7bfb156ff7692c3f50c29633642d30c0bc.tar.bz2 | |
silence compiler warning
Diffstat (limited to 'generic/tclTest.c')
| -rw-r--r-- | generic/tclTest.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index d00c852..27e145c 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -7171,7 +7171,7 @@ TestUtfNextCmd( return TCL_OK; } - first = Tcl_UtfNext(buffer + 1); + first = result = Tcl_UtfNext(buffer + 1); while ((buffer[0] = *p++) != '\0') { /* Run Tcl_UtfNext with many more possible bytes at src[-1], all should give the same result */ result = Tcl_UtfNext(buffer + 1); |