From 45dd8baf7657f116a83f9bf84c890fb7e0d6937a Mon Sep 17 00:00:00 2001
From: "jan.nijtmans" <nijtmans@users.sourceforge.net>
Date: Mon, 15 May 2023 15:44:34 +0000
Subject: No need to init string rep, if we throw away the object immediately

---
 generic/tclCompExpr.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c
index 9791cb3..a295e41 100644
--- a/generic/tclCompExpr.c
+++ b/generic/tclCompExpr.c
@@ -2091,9 +2091,9 @@ ParseLexeme(
 	if (end < start + numBytes && !TclIsBareword(*end)) {
 
 	number:
-	    TclInitStringRep(literal, start, end-start);
 	    *lexemePtr = NUMBER;
 	    if (literalPtr) {
+		TclInitStringRep(literal, start, end-start);
 		*literalPtr = literal;
 	    } else {
 		Tcl_DecrRefCount(literal);
@@ -2165,7 +2165,7 @@ ParseLexeme(
     }
     *lexemePtr = BAREWORD;
     if (literalPtr) {
-	Tcl_SetStringObj(literal, start, (int) (end-start));
+	Tcl_SetStringObj(literal, start, end-start);
 	*literalPtr = literal;
     } else {
 	Tcl_DecrRefCount(literal);
-- 
cgit v0.12