From ae8350301e553be8131de6a4cc47b223fb405386 Mon Sep 17 00:00:00 2001
From: dgp <dgp@users.sourceforge.net>
Date: Thu, 16 Apr 2020 20:28:15 +0000
Subject: merge litter

---
 generic/tclUtf.c | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/generic/tclUtf.c b/generic/tclUtf.c
index 67603af..b5c430b 100644
--- a/generic/tclUtf.c
+++ b/generic/tclUtf.c
@@ -558,7 +558,7 @@ Tcl_NumUtfChars(
     int length)			/* The length of the string in bytes, or -1
 				 * for strlen(string). */
 {
-    register int i;
+    register int i = 0;
 
     /*
      * The separate implementations are faster.
@@ -567,7 +567,6 @@ Tcl_NumUtfChars(
      * single-byte char case specially.
      */
 
-    i = 0;
     if (length < 0) {
 	while ((*src != '\0') && (i < INT_MAX)) {
 	    src = TclUtfNext(src);
-- 
cgit v0.12