Tcl Source Code

Artifact [e12bd349c7]
Login

Artifact e12bd349c7bdfdb18a1e8fabf217fccf6251c63d933bf8d824686351b5536d45:

Attachment "scannumber.diff" to ticket [d282fcacd1] added by chrstphrchvz 2022-02-17 06:18:13. (unpublished)
diff --git generic/tclBinary.c generic/tclBinary.c
index 5d317faa..fdb7f597 100644
--- generic/tclBinary.c
+++ generic/tclBinary.c
@@ -2102,12 +2102,12 @@ ScanNumber(
 	    value = (long) (buffer[0]
 		    + (buffer[1] << 8)
 		    + (buffer[2] << 16)
-		    + (((long)buffer[3]) << 24));
+		    + (((unsigned long)buffer[3]) << 24));
 	} else {
 	    value = (long) (buffer[3]
 		    + (buffer[2] << 8)
 		    + (buffer[1] << 16)
-		    + (((long) buffer[0]) << 24));
+		    + (((unsigned long) buffer[0]) << 24));
 	}
 
 	/*