Tcl Source Code

Artifact d63c78d57f74e775518dcb94092881956675eff51d33d6cdd5ae2ff8b6184dfe:

Attachment "aa6624c62920.diff" to ticket [aa6624c629] added by chrstphrchvz 2024-02-16 12:16:27.

---

diff --git generic/tclExecute.c generic/tclExecute.c
index 64aa056e53..8ff5bb579c 100644
--- generic/tclExecute.c
+++ generic/tclExecute.c
@@ -9188,8 +9188,9 @@ ExecuteExtendedBinaryMathOp(
 		break;
 
 	    case INST_MULT:
-		if ((type1 != TCL_NUMBER_LONG) || (type2 != TCL_NUMBER_LONG)
-			|| (sizeof(Tcl_WideInt) < 2*sizeof(long))) {
+		if ((sizeof(Tcl_WideInt) < 2*sizeof(long))
+			|| (type1 != TCL_NUMBER_LONG)
+			|| (type2 != TCL_NUMBER_LONG)) {
 		    goto overflowBasic;
 		}
 		wResult = w1 * w2;