Tcl Source Code

Artifact e2e220baf9c52505edfdf811d42232a63c018adcee9dd12db2dbba0779a542e4:

Attachment "bignum-to-long-wide.diff" to ticket [c6fea6ba6f] added by chrstphrchvz 2022-02-16 02:16:58. (unpublished)

---

diff --git generic/tclObj.c generic/tclObj.c
index a03ebb44..80b9a90f 100644
--- generic/tclObj.c
+++ generic/tclObj.c
@@ -2816,7 +2816,7 @@ Tcl_GetLongFromObj(
 			value = (value << CHAR_BIT) | *bytes++;
 		    }
 		    if (big.sign) {
-			*longPtr = - (long) value;
+			*longPtr = (long) (0-value);
 		    } else {
 			*longPtr = (long) value;
 		    }
@@ -3116,7 +3116,7 @@ Tcl_GetWideIntFromObj(
 			value = (value << CHAR_BIT) | *bytes++;
 		    }
 		    if (big.sign) {
-			*wideIntPtr = - (Tcl_WideInt) value;
+			*wideIntPtr = (Tcl_WideInt) (0-value);
 		    } else {
 			*wideIntPtr = (Tcl_WideInt) value;
 		    }