Tcl Source Code

Artifact 2e5eb05195f59340898b4ab91fad7ae81512371d01dadb993d7ee0f75f03386d:

Attachment "1c7f179710.diff" to ticket [1c7f179710] added by chrstphrchvz 2022-02-18 04:07:05. (unpublished)

---

diff --git generic/tclExecute.c generic/tclExecute.c
index b96eab4e..a26aae17 100644
--- generic/tclExecute.c
+++ generic/tclExecute.c
@@ -8661,9 +8661,9 @@ ExecuteExtendedBinaryMathOp(
 		    && ((size_t)shift < CHAR_BIT*sizeof(Tcl_WideInt))) {
 		TclGetWideIntFromObj(NULL, valuePtr, &w1);
 		if (!((w1>0 ? w1 : ~w1)
-			& -(((Tcl_WideInt)1)
+			& -(((Tcl_WideUInt)1)
 			<< (CHAR_BIT*sizeof(Tcl_WideInt) - 1 - shift)))) {
-		    WIDE_RESULT(w1 << shift);
+		    WIDE_RESULT((Tcl_WideUInt)w1 << shift);
 		}
 	    }
 	} else {